作业帮 > 综合 > 作业

VB:编程计算三角形面积

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/27 15:42:58
VB:编程计算三角形面积
编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.
提示:三角形面积的计算公式是 area = Sqr(s * (s - a) * (s - b) * (s - c))
其中,s = (a + b + c) / 2
注意:三角形的三条边是要判断是否符合形成一个三角形!
VB:编程计算三角形面积
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 Su