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?
תודה