VB程序设计:判断任意的三条边长能否构成三角形并计算其面积应用InputBox()函数和MsgBox语句与函数的使用方法,单击判断按钮调用InputBox函数,分别将任意的三个数字输入,输入完毕后将三个数
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/11 12:42:02
![VB程序设计:判断任意的三条边长能否构成三角形并计算其面积应用InputBox()函数和MsgBox语句与函数的使用方法,单击判断按钮调用InputBox函数,分别将任意的三个数字输入,输入完毕后将三个数](/uploads/image/z/3146218-34-8.jpg?t=VB%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%EF%BC%9A%E5%88%A4%E6%96%AD%E4%BB%BB%E6%84%8F%E7%9A%84%E4%B8%89%E6%9D%A1%E8%BE%B9%E9%95%BF%E8%83%BD%E5%90%A6%E6%9E%84%E6%88%90%E4%B8%89%E8%A7%92%E5%BD%A2%E5%B9%B6%E8%AE%A1%E7%AE%97%E5%85%B6%E9%9D%A2%E7%A7%AF%E5%BA%94%E7%94%A8InputBox%28%29%E5%87%BD%E6%95%B0%E5%92%8CMsgBox%E8%AF%AD%E5%8F%A5%E4%B8%8E%E5%87%BD%E6%95%B0%E7%9A%84%E4%BD%BF%E7%94%A8%E6%96%B9%E6%B3%95%2C%E5%8D%95%E5%87%BB%E5%88%A4%E6%96%AD%E6%8C%89%E9%92%AE%E8%B0%83%E7%94%A8InputBox%E5%87%BD%E6%95%B0%2C%E5%88%86%E5%88%AB%E5%B0%86%E4%BB%BB%E6%84%8F%E7%9A%84%E4%B8%89%E4%B8%AA%E6%95%B0%E5%AD%97%E8%BE%93%E5%85%A5%2C%E8%BE%93%E5%85%A5%E5%AE%8C%E6%AF%95%E5%90%8E%E5%B0%86%E4%B8%89%E4%B8%AA%E6%95%B0)
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