用inputbox函数输入3个数据 如果这3个数据能构成三角形 计算并在窗体上输出三角形面积（用inputbox求三角形面积）

Private Sub Command1_Click()

Dim a, b, c, s, x

a = Val(InputBox("请输入第一条边长"))

b = Val(InputBox("请输入第二条边长"))

c = Val(InputBox("请输入第三条边长"))

If a + b > c And a + c > b And b + c > a Then

Print "能组成三角形"

x = 1 / 2 * (a + b + c)

s = Sqr(x * (x - a) * (x - b) * (x - c))

Print "三角形面积s="; s

Else

Print "不能组成三角形"

End If

End Sub