利用INPUTBOX输入三角形三边A,B,C,求三角形面积.

Private Sub Command1_Click()
a = Abs(Val(InputBox("请输入三角形一边A")))
b = Abs(Val(InputBox("请输入三角形一边B")))
c = Abs(Val(InputBox("请输入三角形一边C")))
If a + b > c And a + c > b And b + c > a Then
q = (a + b + c) / 2
s = Sqr(q * (q - a) * (q - b) * (q - c))
Print s
Else
MsgBox "输入的不是三角形的三条边，请重新输入！"
End If

End Sub

用海伦公式：

海伦公式，又译希伦公式、海龙公式，传说是古代的叙拉古国王希伦二世发现的公式，利用三角形的三条边长来求取三角形面积。但根据 Morris Kline 在1908年出版的著作考证，这条公式其实是阿基米德所发现，以托希伦二世的名发表。

假设有一个三角形，边长分别为a、b、c，三角形的面积S可由以下公式求得：s=根号下(p(p-a)(p-b)(p-c))

而公式里的p：(a+b+c)/2

由于任何n边的多边形都可以分割成n-2个三角形，所以海伦公式可以用作求多边形面积的公式。比如说测量土地的面积的时候，不用测三角形的高，只需测两点间的距离，就可以方便地导出答案。

别忘了采纳，好的话请追加分，谢谢！！！！

楼上的那个q=(a+b+c)/2是什么意思啊？谢谢了。。。Q代表什么？