1、Private Sub mianji() Dim a As Single, b As Single, c As Single a = Val(InputBox("请输入三角形的边a:", "输入")) b = Val(InputBox("请输入三角形的边b:", "输入")) c = Val(InputBox("请输入三角形的边c:", "输入")) If (a + b)<= c Or b + c<=a Or a + c<= b Then MsgBox "三条边不能构成三角形,请重新输入!", , "注意" Exit Sub End If q = (a + b + c) / 2 s = Sqr(q * (q - a) * (q - b) * (q - c)) Print "三角形的面积是: "; s End Sub 这个是由键盘输入3个数，试编程判断它们是否可以构成一个三角形。

2、如果能构成一个三角形，请计算该三角形的面积。