VB的错误 请高手帮忙

来源：百度知道 编辑：UC知道 时间：2024/06/17 07:59:15
If (a > 0 And b > 0 And c > 0 And a + b > c And b + c > a And a + c > b) Then
Text4.Text = Sqr(p * (p - a) * (p - b) * (p - c))
Text5.Text = a + b + c
Text6.Text = Format(X, "0.00000000")
Text7.Text = Format(y, "0.00000000")
Text8.Text = Format(z, "0.00000000")
Else
Text4.Text = "错误"
Text5.Text = "错误"
Text6.Text = "错误"
Text7.Text = "错误"
Text8.Text = "错误"
End If
我如果输入的 a+b小于c
按道理应该在TEXT45678里显示“错误”
为什么我输入的数a+b小于c
却弹出窗口的错误提示 让我调试
问题出在哪了？
then后面的命令没有错误
可以按照计划执行
只是ELSE后面的命令不执行
问题在哪？

Dim b As Integer
Dim c As Integer
Private Sub Command1_Click()
a = Text1
b = Text2
c = Text3
If (a > 0 And b > 0 And c > 0 And a + b > c And b + c > a And a + c > b) Then
Text4.Text = Sqr(p * (p - a) * (p - b) * (p - c))
Text5.Text = a + b + c
Text6.Text = Format(X, "0.00000000")
Text7.Text = Format(y, "0.00000000")
Text8.Text = Format(z, "0.00000000")
Else
Text4.Text = "错误"
Text5.Text = "错误"
Text6.Text = "错误"
Text7.Text = "错误"
Text8.Text = "错误"
End If
End Sub

这样写