VB：求代码

更新时间2018-05-11 07:51:32

程序参考

Private Sub Command1_Click()
Dim a, b, c, p, s2  As Double

a = Val(Text1)
b = Val(Text2)
c = Val(Text3)

p = (a + b + c) / 2

 s2 = p * (p - a) * (p - b) * (p - c)

 If s2 < 0 Then
    Text4 = "FALSE" '数据不合法,a,b,c不能组成三角形
 Else
   Text4 = Format(Sqr(s2), "0.00")
 End If

End Sub