求三角形面積的編程代碼（vb三角形面積編程代碼）
發(fā)布日期：2023-05-26 01:52:17 來源： 編輯：
關(guān)于求三角形面積的編程代碼，vb三角形面積編程代碼這個(gè)很多人還不知道，今天菲菲來為大家解答以上的問題，現(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("請(qǐng)輸入三角形第1條邊長(zhǎng)"))b = Val(InputBox("請(qǐng)輸入三角形第2條邊長(zhǎng)"))c = Val(InputBox("請(qǐng)輸入三角形第3條邊長(zhǎng)"))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。
本文到此分享完畢，希望對(duì)大家有所幫助。
標(biāo)簽： vb三角形面積編程代碼
免責(zé)聲明：本文由用戶上傳，與本網(wǎng)站立場(chǎng)無(wú)關(guān)。財(cái)經(jīng)信息僅供讀者參考，并不構(gòu)成投資建議。投資者據(jù)此操作，風(fēng)險(xiǎn)自擔(dān)。 如有侵權(quán)請(qǐng)聯(lián)系刪除！