海伦公式，又译希伦公式、海龙公式，传说是古代的叙拉古国王希伦二世发现的公式，利用三角形的三条边长来求取三角形面积。但根据 Morris Kline 在1908年出版的著作考证，这条公式其实是阿基米德所发现，以托希伦二世的名发表。
假设有一个三角形，边长分别为a、b、c，三角形的面积S可由以下公式求得：s=根号下(p(p-a)(p-b)(p-c))
而公式里的p：(a+b+c)/2
由于任何n边的多边形都可以分割成n-2个三角形，所以海伦公式可以用作求多边形面积的公式。比如说测量土地的面积的时候，不用测三角形的高，只需测两点间的距离，就可以方便地导出答案。
别忘了采纳，好的话请追加分，谢谢！！！！
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本回答被提问者采纳
利用INPUTBOX输入三角形三边A,B,C,求三角形面积.
海伦公式，又译希伦公式、海龙公式，传说是古代的叙拉古国王希伦二世发现的公式，利用三角形的三条边长来求取三角形面积。但根据 Morris Kline 在1908年出版的著作考证，这条公式其实是阿基米德所发现，以托希伦二世的名发表。假设有一个三角形，边长分别为a、b、c，三角形的面积S可由以下公式求得：s=...
利用InputBox输入三角形的三边长度,计算并显示三角形的面积。
Sub CalcTriangle()Dim getstr As String Dim arr(1 To 3) As Double Dim p As Double, s As Double Dim i As Integer While (True)For i = 1 To 3 getstr = InputBox("输入三角形第" & i & "边边长", "计算三角形面积", 1)If (getstr = "") Then Exit Sub End If arr(...
VB:编程计算三角形面积
b = Val(InputBox("请输入三角形第2条边长"))c = Val(InputBox("请输入三角形第3条边长"))s = (a + b + c) \/ 2If a >= s Or b >= s Or c >= s ThenMsgBox "不能构成三角形"Elsearea = Sqr(s * (s - a) * (s - b) * (s - c)) MsgBox "面积为" & areaEnd IfLoopEnd...
vb编程,已知三角形三条边,求它的面积。
InputBox("请输入三角形的一条边长：")b = InputBox("请输入三角形的第二条边长：")c = InputBox("请输入三角形的第三条边长：")If a + b > c And b + c > a And a + c > b Then d = (a + b + c)\/ 2 s = Sqr(d (d - a)(d - b)(d - c))Print "三角形的...
用inputbox函数输入3个数据,如果这3个数据能构成三角形,计算并在窗体上...
c = Val(InputBox("请输入第三条边长"))If a + b > c And a + c > b And b + c > a Then Print "能组成三角形"x = 1 \/ 2 * (a + b + c)s = Sqr(x * (x - a) * (x - b) * (x - c))Print "三角形面积s="; s Else Print "不能组成三角形"End If En...
编程题 输入三个数,求组成三角形的面积?谢谢
GoTo BackToStart Else Exit Sub End If End If '假设有一个三角形，边长分别为a、b、c，三角形的面积S可由以下公式求得：s=根号下(p(p-a)(p-b)(p-c))；而公式里的p：(a+b+c)\/2 If A = "" Or B = "" Or C = "" Then MsgBox "三角形三边边长为空，无法计算其面积。",...
vb中键盘输入能构成三角形的三边,求面积
c = Val(InputBox("请输入三角形第3条边长"))If c = -1 Then Exit Do p = (a + b + c) \/ 2 If a >= p Or b >= p Or c >= p Then MsgBox "不能构成三角形"Else s = Sqr(p * (p - a) * (p - b) * (p - c))MsgBox "面积为" & s End If Loop End End...
VB题目:输入三角形的三边编程求出面积
Dim a#, b#, c#, p Me.AutoRedraw = True a = 3: b = 4: c = 5 Do a = Val(InputBox("请输入三角形第一条边", "输入", a))b = Val(InputBox("请输入三角形第二条边", "输入", b))c = Val(InputBox("请输入三角形第三条边", "输入", c))If a <= 0 Or b <...
VB编程:用IntputBox函数输入3个数据,如果这3个数据能够成三角形,计算...
inputbox("请输入第一条边的长："))b=val(inputbox("请输入第二条边的长："))c=val(inputbox("请输入第三条边的长："))l=(a+b+c)\/2 if l<=a or l<=b or l<=c then msgbox "输入的数据不能组成三角形!"exit sub end if S=sqr(l*(l-a)*(l-b)*(l-c))print S ...
...条边长判定是何种三角形,对于有效三角形,求其面积。
Next i y = a(1) ^ 2 + a(2) ^ 2 - a(3) ^ 2 If y > 0 Then jielun = "这是一个锐角三角形"If y = 0 Then jielun = "这是一个直角三角形"If y < 0 Then jielun = "这是一个钝角三角形"MsgBox (jielun & "， 三角形面积为：" & s) '输出信息 End If ...
