题目

在Vb中,.编写程序,首先判断给出的3条边能否构成三角形,如可以,计算并输出该三角形的面积,输入0结束程序
在Vb中,给定三角形的3条边,计算三角形的面积.编写程序,首先判断给出的3条边能否构成三角形,如可以构成,则计算并输出该三角形的面积,否则要求重新输入.当输入-1时结束程序

提问时间：2020-07-21

答案

Sub abc() '输入三角形三个边长,计算其面积
Dim a,b,c,s
Do
s = InputBox("请输入三角形的三个边长,用半角逗号分隔." & Chr(13) & "输入 -1 时结束程序.")
If Val(s) = -1 Then Exit Do
a = Val(s)
s = Mid(s,InStr(s,",") + 1)
b = Val(s)
c = Val(Mid(s,InStr(s,",") + 1))
If a + b > c And a + c > b And b + c > a Then
MsgBox "三边长度分别为：" & a & " " & b & " " & c & Chr(13) & "三角形的面积为：" & Sqr((a + b + c) * (a + b - c) * (a + c - b) * (b + c - a)) / 4
Else
MsgBox "你输入的数据有误,不能组成三角形,请重新输入!"
End If
Loop
End Sub
'以上代码能满足你的要求 .第三边长度与第二边相同时可省略,等边三角形可只输入一个边长.