VB操作題選擇結(jié)構(gòu)操作題本

1、飛船速度(V)單位(km,/s)飛行狀況7. 91<=V<11. 19飛船繞地球似做勻速圓周運(yùn)/11. 19<=V<16. 67飛船離開(kāi)地球的控制，闔繞;V>16. 67飛船掙脫太陽(yáng)引力飛出太陽(yáng):VB7選擇結(jié)構(gòu)操作題一、操作題，每題10分，9題共90分【第1題】打開(kāi)“Z:50工程1. vbp”，完善程序并保存。實(shí)現(xiàn)功能：在文本框textK text2、text3中輸入3 根小木棒的長(zhǎng)度(假設(shè)都是整數(shù))，判斷能否用它們 搭成一個(gè)三角形，并把結(jié)果輸出到文本框text4中。 操作要求：(1) 在窗體中加載"CommandButton”控件，命名為 “Comma

2、nd】"并設(shè)置該控件“Caption"屬性值為“判 斷“：(2) 完善程序,執(zhí)彳丁commandl_click事件，判斷 出結(jié)果，如果能搭成三角形則在文本框text4中輸 出“0KS否則輸出筑OSPrivat己 Sub Command1_C1ick 0Dim a, b, c As Let a 二 Vai (Textl Text)Let b = Vai(Text2. Text)Let c 二 Vai(Text3. Text)If (a + b > c) And (a + c > b) And (b + c > a) ThenLet Textd. Text 二

3、"OK"ElseLet Textd.Text 二"NO"End Sub【第2題】打開(kāi)文件“考生文件夾108工程1. vbp",完善 Command l_Click事件代碼并保存。實(shí)現(xiàn)功能：判斷從文本框Textl中輸入的數(shù)據(jù)，如 果該數(shù)據(jù)滿足條件：除以3余2,除以5余3,則將該 數(shù)據(jù)輸出在窗體上。Private Sub Commandl_Click 0Dim x As Integerx = Vai ()If x Mod 3=2 ThenIf ® = 3 ThenPrint End IfEnd IfEnd Sub【第3題】打開(kāi)"

4、Z： 13工程1 vbpn» 完善Command 1_Click事 件代碼并保存。實(shí)現(xiàn)功能：在Textl. Text2. Text3中輸入三個(gè)整 數(shù)后，單擊“輸出最大值”按鈕后，在Label3中顯示 這3個(gè)數(shù)中的最大值。Private Sub Commandl_Click()Dim a, b, c, max As Integera = Vai(Textl. Text)b = Vai(Text2. Text)c = Vai(Text3. Text)If a > b Then max = a Else If c > max Then Label3. Caption = CSt

5、r ()End Sub【第4題】打開(kāi)文件“考生文件夾418工程1. vbp”，完善 Commandl_Click *JE件代碼并保存。實(shí)現(xiàn)功能：輸入不同的飛船速度后，判斷出它的 飛行狀況，將結(jié)果輸出到Labell + o在“神舟八號(hào)”飛行程序中,其飛行狀況與飛行速 度的關(guān)系如下表：PrivatE Sub Command1_C1ick 0Dim v As Singlev = Vai (InputBox(，z請(qǐng)輸入飛船速度的值 ")Select Case vCase Is > 16. 67Label 1. Caption = 飛船掙脫太陽(yáng) 引力飛出太陽(yáng)系"case is

6、Label 1. Caption ="飛船離開(kāi)地球 的控制，圍繞太陽(yáng)轉(zhuǎn)"case is Label 1. Caption = 飛船繞地球似 做勻速圓周運(yùn)動(dòng)"Case ElseLabel 1. Caption 二"輸入數(shù)據(jù)錯(cuò) 誤！ ”End Sub【第5題】打開(kāi)文件“考生文件夾435工程.vbp",完善 Commandl_Click事件代碼并保存。實(shí)現(xiàn)功能：舉重比賽中，60公斤級(jí)選手體重不能超 過(guò)60公斤。當(dāng)在文本框Textl中輸入一個(gè)大于60的 數(shù)時(shí)，標(biāo)簽Label 1顯示“超重！不能參賽！ ”；當(dāng)輸 入一個(gè)小于等于60的數(shù)時(shí)，標(biāo)簽Label

7、1顯示“合格, 可以參賽！Private Sub Commandl_Click（）Dim t As Single'定義變量t,值由文本框Textl讀入t 二 Vai （）If ThenLabel 1. Caption ="超重!不能參賽!"ElseLabel 1. Caption ="合格，可以參賽！" End Sub【第6題】打開(kāi)文件“考生文件夾733工程1. vbp“，完善 Commandl_Click事件代碼并保存。實(shí)現(xiàn)功能：在文本框Textl中輸入一位十六進(jìn)制數(shù) 碼（若是字母要大寫(xiě)），點(diǎn)擊“運(yùn)行"按鈕后，在文 本框Text2中顯

8、示它表示的十進(jìn)制數(shù)。（詳見(jiàn)樣張）Private Sub Commandl_Click 0Dim m As String m二Select Case mCase "A" m 二"10Case B"m 二Casem 二"12Case D"m 二Casem 二,zirCase 廠m 二"15Text2. Text 二End Sub【第7題】打開(kāi)文件“考生文件夾28工程1. vbp”，完善 Commandl_Click事件代碼并保存。實(shí)現(xiàn)功能：在三個(gè)文本框中輸入一元二次方程的三 個(gè)系數(shù)a、b、c（aHO）后，單擊命令按鈕，求出該 方

9、程的解，輸出到窗體上。Private Sub Commandl_Click0Dim a As SingleDim b As SingleDim c As SingleDim p As SingleDim xl As SingleDim x2 As Single a 二 Vai(Textl. Text) b = Vai (®)c = Vai(Text3. Text)p = b*b4*a *cIf Thenxl = (-b + Sqr(p) / (2 * a) x2 = (-b - Sqr (p) / (2 * a) Print xl； xlPrint x2二；x2Print "

10、;該方程無(wú)實(shí)數(shù)根End IfEnd Sub3【第8題】打開(kāi)文件“考生文件夾613工程1. vbp“，完善 Commandl_Click事件代碼并保存。實(shí)現(xiàn)功能：在Textl中輸入一個(gè)數(shù)，單擊“判斷"按 鈕后，判斷這個(gè)數(shù)是奇數(shù)還是偶數(shù)，并在Label 1 中顯示“奇數(shù)"或“偶?xì)U咄來(lái)。PrivatE Sub Commandl_Click 0Dim a As SingleDim b As Single'從Textl中讀入這個(gè)數(shù)，并保存在變量a中a 二 Vai ()b = a Mod If b = 0 ThenLabell. Caption ="偶數(shù)"E

11、lseLabell. Caption ="奇數(shù)"End Sub【第9題】打開(kāi)-Z:600T程 1 vbpn, 完善Command 1_Click 事件代碼并保存。實(shí)現(xiàn)功能：這是一個(gè)簡(jiǎn)單的顯示評(píng)語(yǔ)程序，在文本 框Textl中輸入一個(gè)數(shù)后，單擊“評(píng)語(yǔ)"按鈕，在標(biāo) 簽Labell顯示評(píng)語(yǔ)。當(dāng)輸入一個(gè)小于60的數(shù)時(shí)，顯示“不及格”： 當(dāng)輸入一個(gè)大于等于60IL小于85的數(shù)時(shí)，顯示“良 好“：當(dāng)輸入一個(gè)大于等于85的數(shù)時(shí)，顯示“優(yōu)秀"。Private Sub Commandl_Click 0Dim Cj As Single '泄義變雖Cj,值由文本框 Textl讀入Cj 二 Va