Question

求写一条Access语句（关于VBA编程的） 已知三角形的三条边长分别是a，b，c，请写出判断这

求写一条Access语句（关于VBA编程的）

已知三角形的三条边长分别是a，b，c，请写出判断这三条边能够组成三角形的条件。如果可以组成三角形输出结果为True，否则为False。

Answer 1

Sub 求三角形面积()
Dim a As Single
Dim b As Single
Dim c As Single
a = Range("A1")
b = Range("A2")
c = Range("A3")
If a + b >= c And a + c >= b And b + c >= a Then
Range("a4") = (1 / 4) * Sqr((a + b + c) * (a + b - c) * (a + c - b) * (b + c - a))
Else
Range("a4") = "不是三角形"
End If
End Sub