Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single,p As Single,s As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
p = (a + b + c) / 2
If a >= p Or b >= p Or c >= p Then
Label1.Caption = "不能構(gòu)成三角形"
Else
s = Sqr(p * (p - a) * (p - b) * (p - c))
Label1.Caption = "面積為" & s
End If
End Sub
設(shè)計個vb 計算三角形面積,格式如下、、、、、
設(shè)計個vb 計算三角形面積,格式如下、、、、、
求代碼= =不是面積公式、、、、、、、、
其他人氣：474 ℃時間：2020-05-12 21:08:22
優(yōu)質(zhì)解答
我來回答
類似推薦
- VB：編程計算三角形面積
- ∫ x^3 sin^4(x)dx 請問怎么求這個不定積分呢...
- 請問動詞的動名詞形式和名詞形式的區(qū)別
- 方程計算 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滿足1
- I can't decide what colour to choose.=I can't decide _ _ _ _ _
- 林則徐虎門銷煙的故事
- 在數(shù)列{an}中,a1=1/3,a2=5/18,且數(shù)列{log2（3an+1－an）}是公差為-1的等差數(shù)列,
- the teacher's help .we an get the first place in this competition.
- 已知不等式組(2x-30(3x+2)≤0 x-a>0,無實數(shù)解,求實數(shù)a的取值范圍
猜你喜歡
- 1英語翻譯
- 2已知sina是5x²-7x-6=0的根
- 3人類使用材料的歷史就是人類的進步史.下列物品的主要材質(zhì)當(dāng)時不是通過化學(xué)變化獲取的是（ ?。?A.馬踏飛燕（青銅器） B.龍泉劍（鐵器） C.金縷衣 D.塑料器具
- 4如何實現(xiàn):輸入三角形的三邊長,判斷該三角形是否為直角三角形,若是輸出三角形的面
- 5四海皆春春不老,九州同樂樂無窮運用了什么修辭手法
- 6二十千克比二十五千克少20%對嗎
- 7化學(xué)藥品的保存方法
- 8英語翻譯
- 9一棵二叉樹共有25個結(jié)點,其中5個是葉子結(jié)點,則度為一的結(jié)點數(shù)為多少啊
- 10怎樣理解細(xì)胞內(nèi)液與組織液具有相同的總滲透壓?
- 11甲乙兩人同時從兩地騎車相向而行，甲每小時行駛20千米，乙每小時行駛18千米，兩人相遇時距離全程中點3千米，求全程長多少千米？（先畫圖整理，再解答）
- 126x²-13x-5=0 解方程