Private Sub Command1_Click()
dis.Text = Sqr(Text2.Text ^ 2 - 4 * Text1.Text * Text3.Text)
If dis.Text = 0 Then
MsgBox "dis = 0"
x1.Text = (-Text2.Text) / 2 * Text1.Text
x2.Text = "-"
Else
If dis.Text < 0 Then
MsgBox "dis = -"
x1.Text = ""
x2.Text = ""
Else
If dis.Text > 0 Then
x1.Text = (-Text2.Text + dis.Text) / 2 * Text1.Text
x2.Text = (-Text2.Text - dis.Text) / 2 * Text1.Text
End If
End Sub
|
הרוב שטויות כי אני לא מבין כל כך בוי בי אבל מה לא בסדר פה?הנוסחא היא:
-b +- sqr(b^2 - 4 * a * c
------
2 * a
איך אני מסדר שם את הIF כדי שהוא יבדוק טוב מה מצב dis.text?
תודה
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
