Private Sub Command1_Click()
Dim a, b, c As Integer
Dim s As Long
a = CInt(InputBox("输入三角形三边之一"))
b = CInt(InputBox("输入三角形三边之二"))
c = CInt(InputBox("输入三角形三边之三"))
If a + b > c Or a + c > b Or b + c > a Then
s = (a + b + c) / 2
MsgBox "三边为:" + CStr(a) + "、" + CStr(b) + "、" + CStr(c) + "的三角形面积为:" + CStr(Sqr(s * (s - a) * (s - b) * (s - c)))
Else
MsgBox "必须2边之和大于第3边", vbOKOnly, "输入错误"
End If
End Sub