Question

用VB设计一个程序，输入三角形三条边的长度，计算出他的面积，并且具有容错性。

如题，急求。

Answer 1

上图是我运行的结果（三边长可以为小数）。

程序如下：

Private Sub Command1_Click()
    Dim a, b, c, l, s As Double
    a = Val(Text1.Text)
    b = Val(Text2.Text)
    c = Val(Text3.Text)
    If (a + b <= c) Or (a + c <= b) Or (b + c <= a) Then
        MsgBox "不符合三角形三边长度"
        Exit Sub
    End If
    l = (a + b + c) / 2
    s = Sqr(l * (l - a) * (l - b) * (l - c))
    Text4.Text = s
End Sub

 

其中，用到数学公式：

已知三角形的三边分别是a、b、c,
先算出周长的一半L=1/2(a+b+c)
则该三角形面积S=根号[L(L-a)(L-b)(L-c)]
这个公式叫海伦——秦九昭公式

 

希望对你有所帮助！