關(guān)于求三角形面積的編程代碼，vb三角形面積編程代碼這個很多人還不知道，今天菲菲來為大家解答以上的問題，現(xiàn)在讓我們一起來看看吧！

1、Private Sub Form_Load()DoDim a As Single, b As Single, c As Single, p As Single, s As Singlea = Val(InputBox("請輸入三角形第1條邊長"))b = Val(InputBox("請輸入三角形第2條邊長"))c = Val(InputBox("請輸入三角形第3條邊長"))s = (a + b + c) / 2If a >= s Or b >= s Or c >= s ThenMsgBox "不能構(gòu)成三角形"Elsearea = Sqr(s * (s - a) * (s - b) * (s - c)) MsgBox "面積為" & areaEnd IfLoopEndEnd Sub。

本文到此分享完畢，希望對大家有所幫助。

　　免責聲明：本文由用戶上傳，與本網(wǎng)站立場無關(guān)。財經(jīng)信息僅供讀者參考，并不構(gòu)成投資建議。投資者據(jù)此操作，風險自擔。 如有侵權(quán)請聯(lián)系刪除！