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
VB：編程計算三角形面積
VB：編程計算三角形面積
編程計算三角形面積.要求通過輸入框輸入三角形的三個邊長a、b、c,當單擊命令按鈕“計算”時,計算并在文本框中顯示三角形的面積area.
提示：三角形面積的計算公式是 area = Sqr(s * (s - a) * (s - b) * (s - c))
其中,s = (a + b + c) / 2
注意：三角形的三條邊是要判斷是否符合形成一個三角形!
編程計算三角形面積.要求通過輸入框輸入三角形的三個邊長a、b、c,當單擊命令按鈕“計算”時,計算并在文本框中顯示三角形的面積area.
提示：三角形面積的計算公式是 area = Sqr(s * (s - a) * (s - b) * (s - c))
其中,s = (a + b + c) / 2
注意：三角形的三條邊是要判斷是否符合形成一個三角形!
其他人氣：491 ℃時間：2020-01-29 09:13:43
優(yōu)質(zhì)解答
我來回答
類似推薦
- VB編程：從鍵盤輸入三角形的三邊,判斷能否構(gòu)成三角形：如果能構(gòu)成三角形,則計算其面積
- 請問一下在VB里面計算三角形面積的代碼是什么?
- VB題目:輸入三角形的三邊編程求出面積
- 在Vb中,.編寫程序,首先判斷給出的3條邊能否構(gòu)成三角形,如可以,計算并輸出該三角形的面積,輸入0結(jié)束程序
- 設(shè)計個vb 計算三角形面積,格式如下、、、、、
- 函數(shù)y=log1/2(x平方-1)的單調(diào)遞增區(qū)間是?
- 高中英語非謂語動詞的用法
- 懲罰的反義詞
- 為什么合金的導(dǎo)電性和導(dǎo)熱性底于任何一組分金屬?
- 如圖所示.直線a.b.c.d.e.且∠1=∠2.∠3=∠4.問a與c平行嗎?為什么?
- 洋蔥表皮細胞在蔗糖溶液中質(zhì)壁分離時,能否自動復(fù)原?
- 冰箱內(nèi)總是結(jié)冰了是怎么回事?
猜你喜歡
- 1習作2的作文是什么?
- 21.水果店李老板賣了兩批葡萄,賣的錢都是120元,同進價比,第一天賺了百分之二十,第二批賠了百分之二十,兩批各多少元?
- 3這是我第一次上報紙和上電視.求（英文翻譯）?
- 4袋中有紅.黃色球各一個,白色球2個,每次任取一個,不放回地抽兩次,求基本事件的個數(shù),計算下列事件概率
- 5什么東西是外圓內(nèi)方的,什么又是外方內(nèi)圓的呢?
- 6設(shè)a.b.c分別是三角形ABC的三邊長,且滿足a^2+b^2-10a-8b+41=0,則ABC的最長邊c的取值范圍是多少
- 7英語翻譯
- 82x+5x=322x+5x=32
- 9什么是硬路肩?什么是土路肩?如何區(qū)別兩者呢?
- 10平行四邊形ABCD中,M為CD中點,且AM=BM,求證：平行四邊形ABCD是矩形
- 11（中譯英） 1.她想知道更多關(guān)于樹的知識.2.他們在很多方面幫助我們.3.他們保持空氣的清
- 12如何巧記一個英語單詞的各種形式,如它的副詞,形容詞,動詞,過去分詞等?