救命啊！！！！！！！！虽然只有10分，求您了！！！！！！！！！！

Question

就是这段代码，到底哪里错了？？？？
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
我要疯了，求求各位路过的救救我啦！！！！！！！！！！！

Answer 1

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
你的编程风格实在太差了