Sub abc() '輸入三角形三個(gè)邊長,計(jì)算其面積
Dim a,b,c,s
Do
s = InputBox("請(qǐng)輸入三角形的三個(gè)邊長,用半角逗號(hào)分隔." & Chr(13) & "輸入 -1 時(shí)結(jié)束程序.")
If Val(s) = -1 Then Exit Do
a = Val(s)
s = Mid(s,InStr(s,",") + 1)
b = Val(s)
c = Val(Mid(s,InStr(s,",") + 1))
If a + b > c And a + c > b And b + c > a Then
MsgBox "三邊長度分別為：" & a & " " & b & " " & c & Chr(13) & "三角形的面積為：" & Sqr((a + b + c) * (a + b - c) * (a + c - b) * (b + c - a)) / 4
Else
MsgBox "你輸入的數(shù)據(jù)有誤,不能組成三角形,請(qǐng)重新輸入!"
End If
Loop
End Sub
'以上代碼能滿足你的要求 .第三邊長度與第二邊相同時(shí)可省略,等邊三角形可只輸入一個(gè)邊長.