VB:求代码
程序参考
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
热门标签: