我用vb寫(xiě)了一個(gè)計(jì)算長(zhǎng)方形~正方形或三角形面積的程序~
我用vb寫(xiě)了一個(gè)計(jì)算長(zhǎng)方形~正方形或三角形面積的程序~
代碼如下~怎樣修改啊~
Private Sub Command1_Click()
Dim a As String
Dim h,l,s As Single
a = InputBox("請(qǐng)輸入形狀（只限于長(zhǎng)方形~正方形或三角形）","請(qǐng)輸入")
If (a = "長(zhǎng)方形" Or "正方形") Then
h = InputBox("請(qǐng)輸入寬","請(qǐng)輸入")
l = InputBox("請(qǐng)輸入長(zhǎng)","請(qǐng)輸入")
s = h * l
Print a; "的面積為"; s
Else
h = InputBox("請(qǐng)輸入的高","請(qǐng)輸入")
l = InputBox("請(qǐng)輸入的底","請(qǐng)輸入")
s = h * l / 2
Print a; "的面積為"; s
End If
MsgBox "計(jì)算完畢",,"提示"
End Sub
代碼如下~怎樣修改啊~
Private Sub Command1_Click()
Dim a As String
Dim h,l,s As Single
a = InputBox("請(qǐng)輸入形狀（只限于長(zhǎng)方形~正方形或三角形）","請(qǐng)輸入")
If (a = "長(zhǎng)方形" Or "正方形") Then
h = InputBox("請(qǐng)輸入寬","請(qǐng)輸入")
l = InputBox("請(qǐng)輸入長(zhǎng)","請(qǐng)輸入")
s = h * l
Print a; "的面積為"; s
Else
h = InputBox("請(qǐng)輸入的高","請(qǐng)輸入")
l = InputBox("請(qǐng)輸入的底","請(qǐng)輸入")
s = h * l / 2
Print a; "的面積為"; s
End If
MsgBox "計(jì)算完畢",,"提示"
End Sub
其他人氣：787 ℃時(shí)間：2020-05-08 06:22:38
優(yōu)質(zhì)解答
判斷寫(xiě)錯(cuò),改完的：Private Sub Command1_Click()Dim a As StringDim h,l,s As Singlea = InputBox("請(qǐng)輸入形狀（只限于長(zhǎng)方形~正方形或三角形）","請(qǐng)輸入")If (a = "長(zhǎng)方形" Or a = "正方形") Thenh = InputBox("請(qǐng)...謝謝呀~~順便問(wèn)一下~h = InputBox("請(qǐng)輸入寬", "請(qǐng)輸入")在這段代碼里~我想顯示為這樣“請(qǐng)輸入長(zhǎng)方形的寬”即請(qǐng)輸入a形的寬~~應(yīng)該怎么改呀~~？Private Sub Command1_Click()Dim a As StringDim h, l, s As Singlea = InputBox("請(qǐng)輸入形狀（只限于長(zhǎng)方形~正方形或三角形）", "請(qǐng)輸入")If (a = "長(zhǎng)方形" Or a = "正方形") Thenh = InputBox("請(qǐng)輸入" & a & "的寬", "請(qǐng)輸入")l = InputBox("請(qǐng)輸入" & a & "的長(zhǎng)", "請(qǐng)輸入")s = h * lPrint a; "的面積為"; sElseh = InputBox("請(qǐng)輸入" & a & "的高", "請(qǐng)輸入")l = InputBox("請(qǐng)輸入" & a & "的底", "請(qǐng)輸入")s = h * l / 2Print a; "的面積為"; sEnd IfMsgBox "計(jì)算完畢", , "提示"End Sub
我來(lái)回答
類似推薦
- 在Vb中,.編寫(xiě)程序,首先判斷給出的3條邊能否構(gòu)成三角形,如可以,計(jì)算并輸出該三角形的面積,輸入0結(jié)束程序
- VB：編程計(jì)算三角形面積
- 用一個(gè)三角形能不能推導(dǎo)出三角形面積計(jì)算公式呢?,寫(xiě)出你的推導(dǎo)過(guò)程
- 設(shè)計(jì)個(gè)vb 計(jì)算三角形面積,格式如下、、、、、
- 計(jì)算：（1）（2x²－3x+1）（2x²+3x-1） （2）（a－2b+3c）²
- ok.This cup of tea is for you.
- 在一個(gè)比例中,兩個(gè)內(nèi)項(xiàng)的積是最小的質(zhì)數(shù),已知一個(gè)外項(xiàng)是二分之一,另一個(gè)外項(xiàng)是?
- be careful,persist,a mistake i will never repeat
- 多少天?
- stl 里面的lower bound 程序里這句：half = len >> 1 >> 表示什么?
- 請(qǐng)問(wèn)The day you want away
- Mum____(buy)a big pumpkin___(make)pumpkin pies
猜你喜歡
- 1六年級(jí)上冊(cè)第八作文
- 2一個(gè)數(shù)既是36的因數(shù),又是2的倍數(shù),這樣的數(shù)是( )
- 3唐詩(shī)宋詞元曲和現(xiàn)代詩(shī)300首哪里有?
- 4已知x,y滿足x-y+5>=0,x+y>=0,x
- 5小玲沿某公路以每小時(shí)4千米速度步行上學(xué)，沿途發(fā)現(xiàn)每隔9分鐘有一輛公共汽車從后面超過(guò)她，每隔7分鐘遇到一輛迎面而來(lái)的公共汽車，若汽車發(fā)車的間隔時(shí)間相同，而且汽車的速度相同，
- 615公分的灰土兩步 請(qǐng)問(wèn)一步灰土 用白灰?guī)坠謣
- 7英語(yǔ)翻譯
- 8小剛的書(shū)是小亮的2倍,如果小剛給小亮6本書(shū)的話他們兩的書(shū)的數(shù)量就一樣多,問(wèn)小剛和小亮各有幾本書(shū)?
- 9調(diào)查問(wèn)卷的回收率怎么算
- 10若不等式組x-m≥o,3-2x＞-1有3個(gè)整數(shù)解,m的取值范圍是
- 11There are many students playing games on the playground 改為同義句
- 12請(qǐng)問(wèn)能告訴我一下每立方米瀝青混凝土,石子的用量么