三角形面積的計算公式是 area = Sqr(s * (s - a) * (s - b) * (s - c)) ,其中,s = (a + b + c) / 2
Private Sub Form_Load()
Do
Dim a As Single,b As Single,c As Single,p As Single,s As Single
a = Val(InputBox("請輸入三角形第1條邊長"))
b = Val(InputBox("請輸入三角形第2條邊長"))
c = Val(InputBox("請輸入三角形第3條邊長"))
s = (a + b + c) / 2
If a >= s Or b >= s Or c >= s Then
MsgBox "不能構(gòu)成三角形"
Else
area = Sqr(s * (s - a) * (s - b) * (s - c))
MsgBox "面積為" & area
End If
Loop
End
End Sub