设定三角形的3边长,计算三角形的面积.编写程序,首先判断给出的3条边能够构成三角形,如可以构成,则计算并输出该三角形的面积,否则要求重新输入.提示：（1）在Do...Loop结构中用3行InputBox语

Question

设定三角形的3边长,计算三角形的面积.编写程序,首先判断给出的3条边能够构成三角形,如可以构成,则计算并输出该三角形的面积,否则要求重新输入.
提示：（1）在Do...Loop结构中用3行InputBox语句输入三条边,在Do...Loop结构的While条件中判断是否构成三角形.如果构成三角形,则循环结束并进行后续计算.
（2）构成三角形的条件：任意三边之和大于第三边（即：a+b+c .)
(3）三角形的面积计算：a,b,c为三角形的边长
S=根号p(p-a)(p-b)(p-c),这里p=a+b+c/2 (海伦公式）

Answer 1

楼上答是根本是文不对题 都是什么呀  看 我的
Private Sub Command1_Click()
Dim bool As Boolean
Dim a As Double
Dim b As Double
Dim c As Double
Dim p As Double
Dim s As Double
bool = True
Do
a = InputBox("请输入a")
b = InputBox("请输入b")
c = InputBox("请输入c")
If a + b > c And a + c > b And b + c > a Then bool = False
Print a; b; c
Loop While bool
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - c) * (p - b))
Print p; s

End Sub