Question

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

Answer 1

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

Answer 2

vb vc 还是其它啊？