Private Sub Form_Load()
Dim a, b, c, l, S
a = Val(InputBox("请输入第一条边的长："))
b = Val(InputBox("请输入第二条边的长："))
c = Val(InputBox("请输入第三条边的长："))
l = (a + b + c) / 2
If l <= a Or l <= b Or l <= c Then
MsgBox "输入的数据不能组成三角形!"""
Exit Sub
End If
S = Sqr(l * (l - a) * (l - b) * (l - c))
Print S
End Sub
输入三个数值后不显示三角形面积！？
