Question

1.编写一个程序，实现输入三角形的三条边，即可输出三角形的面积。

其中p=,a、b、c表示三边，S表示面积。注意要求能对三角形的三条边的合法性进行判断。即a+b>c和a-b<c。要有过程的...
用VB表示出来...类似于图片这样的过程。

Answer 1

Private Sub Command1_Click()
a = Val(InputBox("a="))
b = Val(InputBox("b="))
c = Val(InputBox("c="))
If a < b + c And b < a + c And c < a + b Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
MsgBox ("三角形的面积为:" & s)
Else
MsgBox ("不能构成三角形!")
End If
End Sub