VB：编程计算三角形面积

题目

VB：编程计算三角形面积
编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.
提示：三角形面积的计算公式是 area = Sqr(s * (s - a) * (s - b) * (s - c))
其中,s = (a + b + c) / 2
注意：三角形的三条边是要判断是否符合形成一个三角形!

答案

Private Sub Form_Load()
Do
Dim a As Single,b As Single,c As Single,p As Single,s As Single
a = Val(InputBox("请输入三角形第1条边长"))
b = Val(InputBox("请输入三角形第2条边长"))
c = Val(InputBox("请输入三角形第3条边长"))
s = (a + b + c) / 2
If a >= s Or b >= s Or c >= s Then
MsgBox "不能构成三角形"
Else
area = Sqr(s * (s - a) * (s - b) * (s - c))
MsgBox "面积为" & area
End If
Loop
End
End Sub