各位大虾，我编了一个小程序，但是无论怎么输入结果都是不对，显示的是“条件错误”。不知道是哪个语句错误，请帮忙，谢谢啦 。
程序如下：
Private Sub Command1_Click()
Dim a, b, c, p, s
a = Text1.Text
b = Text2.Text
c = Text3.Text
p = (a + b + c) / 2
If (a + b) > c And (b + c) > a And (c + a) > b Then
 s = Sqr(p * (p - a) * (p - b) * (p - c))
Label5.Caption = s
Else
Label5.Caption = "条件错误"
 End If
End Sub

Private Sub Command1_Click()
Dim a, b, c, p, s
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
p = (a + b + c) / 2
If (a + b) > c And (b + c) > a And (c + a) > b Then
s = Sqr(p * (p - a) * (p - b) * (p - c))
Label5.Caption = s
Else
Label5.Caption = "条件错误"
End If
End Sub

为了避免今后的出错，最好定义变量的类型。要养成好习惯。