由键盘输入3个数字,试编程判断他们是否可以构成一个三角形.如果能构成一个三角形,请计算三角形的面积是VB的书面作业

由键盘输入3个数字,试编程判断他们是否可以构成一个三角形.如果能构成一个三角形,请计算三角形的面积是VB的书面作业
由键盘输入3个数字,试编程判断他们是否可以构成一个三角形.如果能构成一个三角形,请计算三角形的面积
是VB的书面作业

由键盘输入3个数字,试编程判断他们是否可以构成一个三角形.如果能构成一个三角形,请计算三角形的面积是VB的书面作业
Private Sub Command1_Click()
Dim a As Double,b As Double,c As Double
Dim p As Double,S As Double
a = InputBox("a?")
b = InputBox("b?")
c = InputBox("c?")
If a >= b + c Or b >= a + c Or c >= a + b Then
MsgBox "由长为" & a & "、" & b & "、" & c & "的三条线段不能形成三角形!"
Exit Sub
Else
p = (a + b + c) / 2
S = Sqr(p * (p - a) * (p - b) * (p - c))
MsgBox "由长为" & a & "、" & b & "、" & c & "的三条线段形成三角形面积是：" & S
End If
End Sub