VB程序设计：判断任意的三条边长能否构成三角形并计算其面积应用InputBox()函数和MsgBox语句与函数的使用方法,单击判断按钮调用InputBox函数,分别将任意的三个数字输入,输入完毕后将三个数
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/22 19:50:18
VB程序设计：判断任意的三条边长能否构成三角形并计算其面积应用InputBox()函数和MsgBox语句与函数的使用方法,单击判断按钮调用InputBox函数,分别将任意的三个数字输入,输入完毕后将三个数
VB程序设计：判断任意的三条边长能否构成三角形并计算其面积
应用InputBox()函数和MsgBox语句与函数的使用方法,单击判断按钮调用InputBox函数,分别将任意的三个数字输入,输入完毕后将三个数字分别显示在三个text控件中,程序自动判断三个数字能否构成三角形,如果能则在Label4显示其三条边长的数据,在Label5中显示其构成的面积；如果不能构成三角形则利用Msgbox提示“不能构成三角形”.如果输入有负数时,也利用Msgbox提示“您所输入的数据无效”
如上
VB程序设计：判断任意的三条边长能否构成三角形并计算其面积应用InputBox()函数和MsgBox语句与函数的使用方法,单击判断按钮调用InputBox函数,分别将任意的三个数字输入,输入完毕后将三个数
单击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 Sub