Question

在Vb中,.编写程序,首先判断给出的3条边能否构成三角形，如可以，计算并输出该三角形的面积，输入0结束程序

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

Answer 1

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

'以上代码能满足你的要求 。第三边长度与第二边相同时可省略，等边三角形可只输入一个边长。