Private Sub Command1_Click()
a = Val(InputBox("輸入a的長(zhǎng)"))
b = Val(InputBox("輸入b的長(zhǎng)"))
c = Val(InputBox("輸入c的長(zhǎng)"))
If a + b > c And a + c > b And b + c > a Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "面積："; s
Else
Print "不是三角形"
End If
End Su確定嗎？？自己試下，應(yīng)該可以
VB編程：從鍵盤(pán)輸入三角形的三邊,判斷能否構(gòu)成三角形：如果能構(gòu)成三角形,則計(jì)算其面積
VB編程：從鍵盤(pán)輸入三角形的三邊,判斷能否構(gòu)成三角形：如果能構(gòu)成三角形,則計(jì)算其面積
其他人氣：781 ℃時(shí)間：2020-03-27 00:51:42
優(yōu)質(zhì)解答
我來(lái)回答
類(lèi)似推薦
- VB：編程計(jì)算三角形面積
- VB題目:輸入三角形的三邊編程求出面積
- 在Vb中,.編寫(xiě)程序,首先判斷給出的3條邊能否構(gòu)成三角形,如可以,計(jì)算并輸出該三角形的面積,輸入0結(jié)束程序
- ∫ x^3 sin^4(x)dx 請(qǐng)問(wèn)怎么求這個(gè)不定積分呢...
- 請(qǐng)問(wèn)動(dòng)詞的動(dòng)名詞形式和名詞形式的區(qū)別
- 方程計(jì)算 X+y=6,xy=4 x y=?
- 函數(shù)Y=3*X的平方-2lnx的單調(diào)增區(qū)間,減區(qū)間
- 設(shè)0=r2
- 若關(guān)于x的方程x平方-mx+3m-2=0的兩根x1,x2滿(mǎn)足1
- I can't decide what colour to choose.=I can't decide _ _ _ _ _
- 林則徐虎門(mén)銷(xiāo)煙的故事
- 在數(shù)列{an}中,a1=1/3,a2=5/18,且數(shù)列{log2（3an+1－an）}是公差為-1的等差數(shù)列,
猜你喜歡
- 1英語(yǔ)翻譯
- 2已知sina是5x²-7x-6=0的根
- 3人類(lèi)使用材料的歷史就是人類(lèi)的進(jìn)步史.下列物品的主要材質(zhì)當(dāng)時(shí)不是通過(guò)化學(xué)變化獲取的是（ ?。?A.馬踏飛燕（青銅器） B.龍泉?jiǎng)ΓㄨF器） C.金縷衣 D.塑料器具
- 4如何實(shí)現(xiàn):輸入三角形的三邊長(zhǎng),判斷該三角形是否為直角三角形,若是輸出三角形的面
- 5四海皆春春不老,九州同樂(lè)樂(lè)無(wú)窮運(yùn)用了什么修辭手法
- 6二十千克比二十五千克少20%對(duì)嗎
- 7化學(xué)藥品的保存方法
- 8英語(yǔ)翻譯
- 9一棵二叉樹(shù)共有25個(gè)結(jié)點(diǎn),其中5個(gè)是葉子結(jié)點(diǎn),則度為一的結(jié)點(diǎn)數(shù)為多少啊
- 10怎樣理解細(xì)胞內(nèi)液與組織液具有相同的總滲透壓?
- 11甲乙兩人同時(shí)從兩地騎車(chē)相向而行，甲每小時(shí)行駛20千米，乙每小時(shí)行駛18千米，兩人相遇時(shí)距離全程中點(diǎn)3千米，求全程長(zhǎng)多少千米？（先畫(huà)圖整理，再解答）
- 126x²-13x-5=0 解方程