1、第六章VB控制結(jié)構(gòu)一、選擇題 1. 下列程序段的執(zhí)行結(jié)果為：N=10For K=N TO 1 Step-l X=Sqr(K)X=X-2Next KPrint X-2A、-3 B、-1 C、1D、1.16227765 2. 如果整型變量a、b的值分別為3和1，則下列語句中循環(huán)體的執(zhí)行次數(shù)是:For I=a to bPrint INext IA、0 B、1 C、2 D、3 3. 以下Case語句中錯誤的是：A、Case 0 To 10 B、Case Is10C、Case Is10 And Is10 4. 在窗體中添加一個命令按鈕Command1，并編寫如下程序：Private Sub Comman

2、d1_Click( )x=InputBox()If x2=9 Then y=xIf x29 Then y=x2+1Print yEnd Sub程序運行后，在InputBox中輸入3，單擊命令按鈕，程序的運行結(jié)果是:A、3 B、0.33 C、17 D、0.25 5. 在窗體中添加一個名稱為Command1的命令按鈕，然后編寫如下程序：Private Sub Command1_Click()For i = 1 To 4a = 1For j = 1 To 3a = 2For k = 1 To 2a = a + 6Next kNext jNext iPrint aEnd Sub程序運行后，單擊命令按鈕

3、，則在窗體上顯示的內(nèi)容是：A、14 B、15 C、16 D、17 6. 當(dāng)VB執(zhí)行下面語句后，A的值為：A=1If A0 Then A=A+1If A1 Then A=0A、0 B、1 C、2 D、3 7. 設(shè)有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext運行以上程序后，x的值是：A、26 B、27 C、38 D、57 8. 運行下列程序段后，顯示的結(jié)果為：J1=23J2=32If J1J2 Then Print J2 Else Print J1A、 23 B、 32 C、 55 D、 2332 9. 執(zhí)行以下語句后顯示結(jié)果為：Dim x As IntegerI

4、f x Then Print x Else Print x-l A、1B、0C、-1 D、不確定10. 下列關(guān)于do while loop 和doloop until循環(huán)執(zhí)行循環(huán)體次數(shù)的描述正確的是:A、do while loop循環(huán)和doloop until循環(huán)至少都執(zhí)行一次B、do while loop循環(huán)和doloop until循環(huán)可能都不執(zhí)行C、do while loop循環(huán)至少執(zhí)行一次，doloop until循環(huán)可能不執(zhí)行D、do while loop循環(huán)可能不執(zhí)行，doloop until循環(huán)至少執(zhí)行一次11. 下列語句正確的是：A、 If AB Then Print A不等于

5、B B、 If AB Then Printf A不等于BC、 If AB Then Print A不等于B D、 If AB Print A不等于B12. 假設(shè) x的值為5，則在執(zhí)行以下語句時，其輸出結(jié)果為“OK”的Select case語句是:A、Select Case XCase 10 to 1Print OKEnd SelectB、Select Case XCase Is 5,Is 5,1,3 to 10Print OKEnd SelectD、Select Case XCase 1,3 Is 5Print OKEnd Select13. 執(zhí)行下面的程序段后，x的值為：x=10For i=

6、1 To 20 Step 3x=x+i4Next IA、24B、25C、26D、2714. 執(zhí)行如下兩條語句，窗體上顯示的是：a=9.8596Print Format(a,$00,00.00)A、0,009.86 B、$9.86 C、9.86 D、$0,009.8615. 如果變量a、b、c均為整型，下列程序段的輸出結(jié)果為:a=2b=3c=a*bPrint a & “*” & b & “=”& cA、c=6 B、a*b=c C、2*3=6 D、a*b=616. 下列程序段的執(zhí)行結(jié)果為：X=2Y=lIf X*Y0 A、TrueB、FalseC、-1D、117. 下列程序段的執(zhí)行結(jié)果為：I=0Fo

7、r G=10 To 19 Step 3 I=I+lNext GPrint IA、4B、5C、3 D、618. 下列程序段的執(zhí)行結(jié)果為：A=0：B=0For I= -1 TO -2 Step lFor J=l TO 2B=B+l Next JA=A+1Next IPrint A；BA、24B、-22C、42D、2319. 下面有關(guān)注釋語句的格式，錯誤的是:A、 Rem注釋內(nèi)容B、 注釋內(nèi)容C、 a=3:b=2 對a、b賦值D、 Private Sub Command1_MouseDown(button As Integer , shift As Integer , _ Rem 鼠標(biāo)按下事件的命令

8、調(diào)用過程 X As Single ,Y As Single) 20. 下列各程序段中，正確的是:A、If 10 10 Then a= a+1 Else a= a+ 5 End IfC、If a =10 Thena=a + 1ElseEnd IfD、If a =10 Thena=a + 1Else If a =20 Thena=a + 10End If21. 在窗體中添加一個命令按鈕（Name屬性為Command1），然后編寫如下代碼：Private Sub Command1_Click()Dim k, n, m As Integern = 5m = 1k = 1Do While k = nm

9、= m * 2k = k + 1LoopPrint mEnd Sub程序運行后，單擊按鈕，輸出結(jié)果為：A、12 B、32 C、48 D、9622. 以下程序段運行時從鍵盤上輸入字符“-”，則輸出結(jié)果為:op$=InputBox(op=) If op$=+ Then a=a + 2If op$=- Then a=a - 2Print aA、 2 B、 -2 C、 0 D、 +223. 編寫如下程序：Private Sub Form_Click()a$=54321：b$=abcdeFor j=l To 5Print Mid$(a$，6-j，1)+Mid$(b$，j，1)；Next jPrintEn

10、d Sub程序運行后，單擊窗體，其輸出結(jié)果為：A、alb2c3d45eB、a5b4c3d2elC、eld2c3b4a5D、la2b3c4d5e24. 在窗體上畫兩個名稱分別為Text1、Text2的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim x As Integer, n As Integerx=1n=0Do While x20x=x*3n=n+lLoopTextlText=Str(x)Text2Text=Str(n)End Sub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別是：A、15和lB、27

11、和3C、195和3D、600和425. 在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()x=0Do Until x=-l a=InputBox(請輸入A的值)a=Val(a)b=InputBox(請輸入B的值)b=Val(b)x=InputBox(請輸入x的值)x=Val(x)a=a+b+xLoopPrint aEnd Sub程序運行后，單擊命令按鈕，依次在輸入對話框中輸入5、4、3、2、l、-1，則輸出結(jié)果為：A、2B、3C、14D、1526. 設(shè)有如下程序：Private Sub Form_Click()score = Int(Rnd

12、* 10) + 30Select Case scoreCase Is 60 Then I=1If a 70 Then I=2If a 80 Then I=3If a =l Then A=3If k=2 Then A=2If k=3 Then A=IPrim AEnd Sub程序運行后，單擊窗體，輸出的結(jié)果為：A、1B、2C、3 D、出錯36. 下列程序段的執(zhí)行結(jié)果為：A=abcdB=bcdeE=Right(A，3)F=Mid(B，2，3)If EF Then Print E + F Else Print F + EA、cdebcdB、cddC、cdcdD、bcdcde37. 有如下事件過程：P

13、rivate Sub Command1_Click() b=10 Do Until b=-1 a=InputBox(“請輸入a的值”) a=Val(A) b=InputBox(“請輸入b的值”) b=Val(b) a=a * b Loop Print aEnd Sub程序運行后，依次輸入數(shù)值30，20，10，1，輸出結(jié)果為:A、 6000B、 10 C、 200 D、 -600038. 如果列表框（List1）中沒有被選定的項目，則執(zhí)行List1.RemoveItem List1.ListIndex語句的結(jié)果是:A、移去第一項 B、移去最后一項 C、移去最后加入列表一項 D、以上都不對二、填空

14、題 1. 下列程序的輸出結(jié)果為。num=2While num =3 num=num + 1 Print num;Wend 2. 以下程序段的輸出結(jié)果是_。num =0While num 5 5. 閱讀下面的程序Private Sub Form_Click() Dim Check As Boolean, Counter As Integer Check = True Counter = 5 Do Do While Counter 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop

15、 Until Check = False Print CounterEnd Sub程序運行后,單擊窗體,輸出結(jié)果是_。 6. 在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox(請輸入第一個數(shù)字a的值) a=Val(A) b=InputBox(請輸入第二個數(shù)字b的值) b=Val(b) x=InputBox(請輸入第三個數(shù)字x的值) x=Val(x) a=a + b + x Loop Print aEnd Sub在程序運行后，單擊命令按鈕，在對話框中分別輸入5，4，8，5，8，-1，輸

16、出結(jié)果為。 7. 閱讀以下程序：Private Sub Form_click()Dim k,n,m As integern=10m=lk=1Do While k=nm=m+2k=k+1LoopPrint mEnd Sub單擊窗體程序的執(zhí)行結(jié)果是 。 8. 在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1 Click()A=0For i=l TO 2For j=1 To 4If j Mod 20 Thena=a+lEnd Ifa=a+1Next jNext iPrint aEnd Sub程序執(zhí)行后，單擊命令按鈕，輸出結(jié)果是 。 9. 執(zhí)行下面的程序段，x的值

17、為。Private Sub Command1_Click() For i=1 To 9 a=a + i Next i x=Val(i) MsgBox xEnd Sub10. 程序執(zhí)行結(jié)果s的值是 。Private Sub Command1_CliCk()i=ODoi=i+ls=s+iLoop Until i=4Print sEnd Sub11. 在窗體上畫一個名稱為Commandl的命令按鈕，編寫如下事件過程 PRiVate Sub Commandl_C1icK() Dim a As String a= For i 1 To 5 Print Space(6-i)；Mid$(a，6-i，2*i-

18、1) Next i End Sub 程序運行后，單擊命令按鈕，要求窗體上顯示的輸出結(jié)果為 5456 34567 2345678 123456789 請?zhí)羁铡?2. 以下程序段的輸出結(jié)果是。num=0 While num= A And y 0 Print sEnd Sub以上程序的功能是,程序運行后,單擊窗體,輸出結(jié)果為。 7. 下列程序段的功能是輸入一元二次方程ax2 + bx + c =0(a0)的3個系數(shù)a、b、c，并判斷它根的情況，請將下列程序補充完整。Dim a As Single, b As Single, c As SingleDim delta As Singlea = Val(

19、txtA.Text): b = Val(txtB.Text): c = Val(txtC.Text)delta = _If delta 0 Thenlb1Result.Caption = 有兩個不相等的實根ElseIf delta = 0 Thenlb1Result.Caption = 有兩個相等的實根_ _ lb1Result.Caption = 沒有實根End If 8. 在窗體上畫一個命令按鈕，名稱為Command1,Caption屬性設(shè)置為“確定”，畫3個標(biāo)簽Label1、Label2和Label3，在label1中輸入“這是一個絕對值的程序”，在Label2中輸入“請輸入x的值”，L

20、abel3將輸出本題 結(jié)果，再畫一個文體框，名稱為Textl,用于輸入x的值。當(dāng)在文本框Textl輸入一個負數(shù)，然后“確定”按鈕，則在標(biāo)簽Label3中將輸出該數(shù)的絕對值及信息。請?zhí)钊脒m當(dāng)?shù)膬?nèi)容，將程序補充完整。（要求不用取絕對值函數(shù)）:Private Sub Commandl_Click()Dim x As Singlex=Val(Text1.Text)Label3.Caption=x=” & xIf x amax Thenamax = xEnd IfIf _Thenamin = xEnd Ifx = InputBox(Enter a score)LoopPrint max=; amax, min=; aminEnd Sub10. 下面程序的功能是產(chǎn)生10個小于100(不含100) 的隨機正整數(shù)，并統(tǒng)計其中5的倍數(shù)所占比例，但程序不完整，請補充完整。Sub PR() Randomize Dim a(10) For j=1 To 10 a(j) =Int() IfThen k=k +