作业帮 > 综合 > 作业

VB程序设计:判断任意的三条边长能否构成三角形并计算其面积

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/06 02:01:37
VB程序设计:判断任意的三条边长能否构成三角形并计算其面积
应用InputBox()函数和MsgBox语句与函数的使用方法,单击判断按钮调用InputBox函数,分别将任意的三个数字输入,输入完毕后将三个数字分别显示在三个text控件中,程序自动判断三个数字能否构成三角形,如果能则在Label4显示其三条边长的数据,在Label5中显示其构成的面积;如果不能构成三角形则利用Msgbox提示“不能构成三角形”.如果输入有负数时,也利用Msgbox提示“您所输入的数据无效”
VB程序设计:判断任意的三条边长能否构成三角形并计算其面积
单击Command1即可.代码如下.
Dim a As Single,b As Single,c As Single,p As Single,S As Single
Private Sub Command1_Click()
On Error GoTo e
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
p = (a + b + c) / 2
If a < p And b < p And c < p Then
S = Sqr(p * (p - a) * (p - b) * (p - c))
MsgBox S
Else
GoTo e
End If
Exit Sub
e:
MsgBox "不能构成三角形"
End Su