救命啊！！！！！！！！虽然只有10分，求您了！！！！！！！！！！
就是这段代码，到底哪里错了？？？？
Private Sub Command1_Click()
Dim a!, b!, c!, p!, s!
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)
If a < 0 Or b < 0 Or c < 0 Then
MsgBox "边长必须大于0 ", vbOKOnly, "错误 "
Exit Sub
Else: If a + b <= c Or b + c <= a Or c + a <= b Then MsgBox "边长必须大于0 ", vbOKOnly, "错误 "
Exit Sub
End If
End If
p = (a + b + c) / 2: s = Sqr(p * (p - a) * (p - b) * (p - c))
MsgBox "面积为： ", Str(s), vbOKOnly, "三角形的面积 "
End Sub
它老是提示我说else没有if
我要疯了，求求各位路过的救救我啦！！！！！！！！！！！
[解决办法]
Private Sub Command1_Click()
Dim a as single, b as single, c as single, p as single, s as single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < 0 Or b < 0 Or c < 0 Then
MsgBox "边长必须大于0 ", vbOKOnly, "错误 "
Exit Sub
Else
If a + b <= c Or b + c <= a Or c + a <= b Then
MsgBox "边长必须大于0 ", vbOKOnly, "错误 "
Exit Sub
End If
End If
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
MsgBox "面积为： " & Str(s), vbOKOnly, "三角形的面积 "
End Sub
你的编程风格实在太差了
