计算任意三边三角形的面积的算法

Private Sub Command1_Click()
Dim a, b, c As Integer
Dim s As Long

a = CInt(InputBox("输入三角形三边之一"))
b = CInt(InputBox("输入三角形三边之二"))
c = CInt(InputBox("输入三角形三边之三"))
If a + b > c Or a + c > b Or b + c > a Then
    s = (a + b + c) / 2
    MsgBox "三边为：" + CStr(a) + "、" + CStr(b) + "、" + CStr(c) + "的三角形面积为：" + CStr(Sqr(s * (s - a) * (s - b) * (s - c)))
Else
    MsgBox "必须2边之和大于第3边", vbOKOnly, "输入错误"
End If
End Sub