vb復(fù)習(xí)題選擇結(jié)構(gòu)(共7頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上'【程序填空】'-'功能：輸入任何一個(gè)英文字母x,' 若x的值為"a","c","d-f" ,則顯示x的大寫字母；' 若x的值為"m","o","p-z",則顯示x的小寫字母；' 若x的值為其它的值,則顯示xa（如輸入的X的值是g，則顯示ga）。'-Private Sub Command1_Click()x = Text1.Text'*SPACE* 【?】'*SPACE* Cas

2、e 【?】 Label1.Caption = UCase(x) Case "m", "o", "p" To "z" Label1.Caption = LCase(x) Case Else'*SPACE* 【?】 End SelectEnd Sub-'【程序填空】'-'功能：窗體上建立了一個(gè)文本框Text1("輸入口令")和一個(gè)命令按鈕Command1("檢查")。' 判斷密碼是否正確，并顯示相應(yīng)提示' 在加載窗體時(shí)設(shè)置密碼框最大

3、長度為8，密碼顯示字符為“*”'-dim x as stringPrivate Sub Command1_Click() x = Text1.Text '*SPACE* If x 【?】 "" Then MsgBox ("歡迎你用機(jī)!") Else MsgBox ("對(duì)不起，口令錯(cuò)") End If Text1.Text = "" Text1.SetFocusEnd SubPrivate Sub Form_Load() Text1.Text = "" '*SPACE* T

4、ext1.【?】 = 8 '*SPACE* Text1.【?】 = "*" End Sub-'【程序填空】'-' 功能：輸入一個(gè)數(shù),若大于0,則顯示"+"；若小于0，' 則顯示 "-"；若等于"0",則顯示"零"。'-Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x'*SPACE* 【?】 Label1.Caption = "+" Case Is

5、< 0'*SPACE* 【?】'*SPACE* 【?】 Label1.Caption = "零" End SelectEnd Sub'-'【程序填空】'-'功能：根據(jù)輸入的學(xué)習(xí)成績,分別顯示優(yōu)秀(90分以上), 良好' (75分以上),及格(60分以上),不及格幾個(gè)等級(jí)。'-Private Sub Command1_Click()x = Val(Text1.Text)If x >= 90 Then Label1.Caption = "優(yōu)秀"'*SPACE*ElseIf 【

6、?】Then Label1.Caption = "良好"ElseIf x >= 60 Then'*SPACE* 【?】'*SPACE*【?】 Label1.Caption = "不及格"End IfEnd Sub'-'【程序填空】'-'題目：已知用inputbox函數(shù)輸入兩個(gè)數(shù)x和y，比較它們的大小，' 使得x大于y。'-Private Sub Form_Click()Dim x As Single, y As Singlex = InputBox("輸入數(shù)據(jù)1："

7、)'*SPACE*y =【?】Print "x值", "y值"Print x, yIf x < y Then'*SPACE* 【?】'*SPACE* 【?】'*SPACE* 【?】End IfPrint x, yEnd Sub'-'【程序填空】'-'功能：以下程序的功能為，單擊窗體后如果輸入的數(shù)據(jù)分別為"W"，"8"和"？"時(shí)，' 窗體上顯示的內(nèi)容分別是：W is Alpha Character、8 is Numera

8、l Character、' ？is Other Character'-Private Sub Form_Click() Dim strC As String * 1 strC = InputBox("請(qǐng)輸入數(shù)據(jù)") '*SPACE* Select Case 【?】 '*SPACE* Case "a" To "z" 【?】 Form1.Print strC + " Is Alpha Character" Case "0" To "9" Form1

9、.Print strC + " Is Numeral Character" '*SPACE* 【?】 Else Form1.Print strC + " Is Other Character" End SelectEnd Sub'-'【程序改錯(cuò)】'-'題目：以下程序功能是輸入三個(gè)數(shù)，由大到小排序。'-Option ExplicitDim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click() Dim nTemp As Inte

10、ger A = Val(InputBox("Please input first integer", "輸入正整數(shù)") B = Val(InputBox("Please input second integer", "輸入正整數(shù)") C = Val(InputBox("Please input third integer", "輸入正整數(shù)") '*FOUND* If A <= C Then nTemp = A A = B B = nTemp End If 

11、9;*FOUND* If B <= C Then nTemp = A A = C C = nTemp End If '*FOUND* If A <= B Then nTemp = B B = C C = nTemp End If Print "The integers in order is" A; B; CEnd Sub'-'【程序改錯(cuò)】'-'題目:請(qǐng)根據(jù)下列描述編寫購物優(yōu)惠程序。某商場為了' 加速促成商品流通，采用購物打折的優(yōu)惠辦法，每' 位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；'

12、（2）在200元以上者，按九折優(yōu)惠；（3）300元以上' 者，按八折優(yōu)惠；（4）500元以上者按七折優(yōu)惠。'-Option ExplicitPrivate Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x < 100 Then '*FOUND* x = y Else If x < 200 Then y = 0.95 * x Else If x < 300 Then y = 0.9 * x Else If x < 500 Then y = 0.8 *

13、 x Else y = 0.7 * x '*FOUND* Else If End If End If End If '*FOUND* Text2.Text = xEnd Sub'-'【程序改錯(cuò)】'-'題目:密碼判斷程序，如果密碼為12345則顯示“恭喜，密碼正確”，' 否則顯示“很遺憾，密碼錯(cuò)誤”，要求文本框中只允許輸入數(shù)字。'-Option ExplicitPrivate Sub Command1_Click() Dim strPws As String strPws = Trim(Text1.Text) '*FOUND

14、* If Len(strPws) <> 0 Then Exit Sub If strPws = "12345" Then '*FOUND* MsgBox "恭喜，密碼正確", 驗(yàn)證 Else MsgBox "很遺憾，密碼錯(cuò)誤", , "驗(yàn)證" End IfEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) '*FOUND* If Not (KeyAscii >= 4

15、9 And KeyAscii <= 57) Then KeyAscii = 0 End IfEnd Sub'-'【程序改錯(cuò)】'-'題目:程序功能為求解一元二次方程的實(shí)根，請(qǐng)修正程序中錯(cuò)誤。'-Option ExplicitPrivate Sub Form_Load() Dim a!, b!, c!, root1#, root2#, work As Double a = Val(InputBox(" 請(qǐng)輸入系數(shù)a的值") b = Val(InputBox(" 請(qǐng)輸入系數(shù)b的值") c = Val(InputBo

16、x(" 請(qǐng)輸入系數(shù)c的值") '*FOUND* work = b * 2 - 4 * a * c If work >= 0 And a <> 0 Then '*FOUND* root1 = (Sqr(work) / (2 * a) '*FOUND* root2 = (Sqr(work) / (2 * a) Debug.Print "有二個(gè)實(shí)根" + Str$(root1) + "," + Str$(root2) Else Debug.Print "無實(shí)根!" End IfEnd Sub'-'【程序設(shè)計(jì)】'-'題目：(事件)單擊窗體' (響應(yīng))用輸入框輸入一自然數(shù)，判斷是"正數(shù)&