VB里if语句判断有点小问题

我的窗口控件如图所示：

以下代码即可满足你的计算要求：

Private Sub Command1_Click()'计算按钮代码

   Dim a, b, c As Integer

   Dim X1, X2 As Single

   Dim dear As Single

   a = Val(Text1.Text)

   b = Val(Text2.Text)

   c = Val(Text3.Text)

   dear = b ^ 2 - 4 * a * c

   Label1.Caption = "dear=" + Str(dear)

   If dear > 0 Or dear = 0 Then

        X1 = (-b - Sqr(dear)) / (2 * a)

        X2 = (-b + Sqr(dear)) / (2 * a)

        Text4.Text = Str(X1)

        Text5.Text = Str(X2)

   Else

        Text4.Text = "无解"

        Text5.Text = "无解"

   End If

End Sub

1、你把x1=val((-b-sqr(der)/2a)改成x1=-b-sqr(der)/2a，相应的x2也做相同的修改。
2、把if der >0 改成der>=0。
3、把x1="无解“:x2="无解"改成text4="无解":text5="无解"。
4、最好在前面再加上dim x1 as integer,x2 as integer
然后 再试一试，应该就好了。目测没有发现其它错误。

有问题再留言。