首页 知道 学习正文

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

学习 时间:2026-04-02 07:58:06 阅读：5537
VB程序设计：判断任意的三条边长能否构成三角形并计算其面积应用InputBox()函数和MsgBox语句与函数的使用方法,单击判断按钮调用InputBox函数,分别将任意的三个数字输入,输入完毕后将三个数字分别显示在三个text控件中,程序自动判断三个数字能否构成三角形,如果能则在Label4显示其三条边长的数据,在Label5中显示其构成的面积；如果不能构成三角形则利用Msgbox提示“不能构成三角形”.如果输入有负数时,也利用Msgbox提示“您所输入的数据无效”
提问 回复

最佳回答

美好的猫咪

悲凉的仙人掌

2026-04-02 07:58:06

单击Command1即可。代码如下。Dim a As Single,b As Single,c As Single,p As Single,S As SinglePrivate Sub Command1_Click()On Error GoTo ea = InputBox("a=")b = InputBox("b=")c = InputBox("c=")p = (a + b + c) / 2If a < p And b < p And c < p ThenS = Sqr(p * (p - a) * (p - b) * (p - c))MsgBox SElseGoTo eEnd IfExit Sube:MsgBox "不能构成三角形"End Su

最新回答共有2条回答

  • 饱满的小松鼠
    回复
    2026-04-02 07:58:06

    单击Command1即可。代码如下。Dim a As Single,b As Single,c As Single,p As Single,S As SinglePrivate Sub Command1_Click()On Error GoTo ea = InputBox("a=")b = InputBox("b=")c = InputBox("c=")p = (a + b + c) / 2If a < p And b < p And c < p ThenS = Sqr(p * (p - a) * (p - b) * (p - c))MsgBox SElseGoTo eEnd IfExit Sube:MsgBox "不能构成三角形"End Su

上一篇 有没有形容藏族的成语

下一篇 lcl是什么意思