vb循環(huán)結構選擇題(共24頁)

1、精選優(yōu)質文檔-傾情為你奉上一、 選擇題1、無條件轉移GoTo語句后面是（A）A、標號或行號B、輸出語句C、輸入語句D、子過程2、無條件轉移GoTo語句后面的行號或標號以字母開頭，后跟（A）A、冒號B、分號C、逗號D、空格3、無條件轉移GoTo語句后面的行號或標號在同一過程中（A）A、必須唯一B、可以重復C、以數字開頭D、以漢字開頭4、while循環(huán)結構中的條件表達式取值為（A）A、TrueB、FalseC、True或FalseD、05、while循環(huán)結構中的條件表達式取值為（A）時執(zhí)行語句組A、TrueB、FalseC、True或FalseD、06、while循環(huán)結構中與（A）匹配使用，不能單

2、獨出現A、WendB、endC、loopD、next7、Do、loop循環(huán)結構中的循環(huán)體執(zhí)行的最少次數為（A）A、0B、1C、2D、38、前測型Do、loop循環(huán)結構中的循環(huán)體執(zhí)行的最少次數為（A）A、0B、1C、2D、39、后測型Do、loop循環(huán)結構中的循環(huán)體執(zhí)行的最少次數為（B）A、0B、1C、2D、310、Doloop循環(huán)結構中的Exit Do語句的功能是（B）A、退出整個程序B、退出當層循環(huán)C、退出最外層循環(huán)D、退出所在子程序11、Doloop中使用while關鍵字時，條件為（B）執(zhí)行循環(huán)體A、FalseB、TrueC、0D、假或真12、Doloop中使用until關鍵字時，條件為（

3、A）執(zhí)行循環(huán)體A、FalseB、TrueC、0D、假或真13、Doloop中使用while關鍵字時，條件為（A）終止循環(huán)A、FalseB、TrueC、0D、假或真14、Doloop中使用until關鍵字時，條件為（B）終止循環(huán)A、FalseB、TrueC、0D、假或真15、ForNext循環(huán)結構中（C）用來控制循環(huán)變量A、forB、stepC、nextD、to16、ForNext循環(huán)結構中step用來控制（D）A、循環(huán)變量B、循環(huán)變量初值C、循環(huán)變量終值D、循環(huán)變量增量17、ForNext循環(huán)結構中循環(huán)變量初值大于終值時,步長為（A）A、負數B、非負數C、正整數D、正數18、ForNext循環(huán)

4、結構中循環(huán)變量初值小于終值時,步長為（A）A、負數B、負整數C、正整數D、正數19、ForNext循環(huán)結構中next后的循環(huán)變量（A）A、可以省略B、不可以省略C、與for后的變量名可以不同D、與for后的變量不是同一變量20、ForNext中循環(huán)變量初值與終值間使用的關鍵字是（A）A、ToB、InC、gotoD、private21、ForNext中循環(huán)變量初值與終值間使用的關鍵字是（A）A、ToB、InC、gotoD、private22、執(zhí)行下面的程序段后，s的值為（C）Private Sub Form_Click()Static s As Integers = 5For i = 1.4 T

5、o 2.1 Step 0.6s = s + 1Next iPrint sEnd SubA、5B、6C、7D、123、下面程序的作用是利用隨機函數產生10個100200之間（包含100、200）的隨機數，打印其中為5的倍數的數將程序補充完整（）Private Sub Command1_Click()For m = 1 To 10x = Int(Rnd * 101+100)If（ ）ThenPrint x;End IfNext mEnd SubA、x mod 5=0B、x mod 5=0C、x/5=0D、x5=024、設有如下程序：Option Base 1Private Sub Form_Cli

6、ck()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序運行后，單擊窗體，則在窗體上顯示的是（A）A、33B、35 C、37 D、3825、在窗體上畫一個命令按紐Command1，然后編寫如下事件過程：Private Sub Command1_Click() X=0 N=val(inputbox(“n=?”)For i=1 to n For j=1 t

7、o i X=x+1 Next jNext iPrint xEnd sub 程序運行后、單擊命令按鈕,輸入3,在窗體上顯示的內容是(D)A、9 B、44 C、5 D、626、以下能夠正確計算n！的程序是（C）A、private sub command1_click() N=5 : x=1 Do X=x*1 I=i+1 Loop while i<n Print x End subB、private sub command1_click() N=5 : x=1 : i=1 Do X=x*i I=i+1 Loop while i<n Print x End sub C、private su

8、b command1_click() N=5 : x=1 : i=1 Do X=x*i I=i+1 Loop while i<=n Print x End subD、private sub command1_click() N=5 : x=1 : i=1 Do X=x*i I=i+1 Loop while i > n Print x End sub27、在窗體上畫一個命令按紐Command1，標簽Label1然后編寫如下事件過程：Private sub command1_click() For i=1 to 15 X=2*i-1 If x mod 3=0 then s=s+1 Ne

9、xt i Label1、caption =sEnd sub程序運行后,單擊命令按鈕,標簽中顯示的內容是( B )A、1 B、5 C、27 D、4528、在窗體上畫一個命令按紐Command1，然后編寫如下事件過程：Private sub command1_click() For i=1 to 4 For j =0 to i Print chr$(65+i) Next i Print End sub程序運行后,單擊命令按鈕,窗體中顯示的內容是( A)A、BB CCC DDDD EEEEEB、A BB CCC DDDDC、B CC DDD EEEED、AA BBB CCCC DDDDD28、在窗體

10、上畫兩個名稱分別為text1，text2的文本框和一個名稱為command1的命令按鈕，然后編寫如下事件過程：Private sub command1_click() Dim x as integer，n as integer X=1 ： n=0 Do while x < 20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)End sub程序運行后,單擊命令按鈕,在兩個文本框中顯示的值分別是(B)A、15和1 B、27和3 C、195和3 D、600和429、在窗體中添加一個命令按鈕，名稱為Command1，然后編寫如下程序：Private

11、 Sub Command1_Click()Dim a(5),b(5)For j =1 to 4A(j)=3*jB(j)=a(j)*3Next jText1、text=b(j2)End Sub程序運行后，單擊命令按鈕，在文本框中顯示（ B ）A、25 B、18 C、36 D、3530、下面程序運行時，內層循環(huán)的循環(huán)總次數是（A）For m = 1 To 3For n = 0 To m - 1Next nNext mA、6 B、3 C、0 D、931、 定義語句Dim A (-3 to 3) as Integer，定義數組的元素個數是（D）A、6 B、3 C、0 D、732、 執(zhí)行下面的程序段后，

12、X的值為（C）X=5For I=1 to 10 Step 2X=X+I5Next I A、7 B、10 C、8 D、533、如果整型變量a、b的值分別為3和1，則下列語句中循環(huán)體的執(zhí)行次數是（ D ）For I=a to bPrint INext IA、0 B、1 C、2 D、334、下列關于do while loop 和doloop until循環(huán)執(zhí)行循環(huán)體次數的描述正確的是（ D ）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í)行一次，d

13、oloop until循環(huán)可能不執(zhí)行D、 do while loop循環(huán)可能不執(zhí)行，doloop until循環(huán)至少執(zhí)行一次35、在窗體中添加一個名稱為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程序運行后，單擊命令按鈕，則在窗體上顯示的內容是（ A ）A、14 B、15 C、16 D、1736、設有如下程序：Private Sub Form_Click

14、()a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iPrint aEnd Sub程序運行后，單擊窗體，則在窗體上顯示的內容是（ B ）A、6B、5 C、4 D、337、在窗體中添加一個名稱為Command1的命令按鈕，然后編寫如下程序：sub ss (b() as Integer )For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) =

15、5: a(2) = 6a(3) = 7: a(4) = 8ss a()For i = 1 To 4Print a(i)Next iEnd Sub運行上面的程序，單擊命令按鈕，則在窗體上顯示的內容是（ B ）A、5 6 7 8 B、2 4 6 8 C、1 2 3 4 D、5 7 6 838、在窗體中添加一個名稱為Command1的命令按鈕，然后編寫如下程序：Function fun(x As Integer)Static zy = y + 1: z = z + 1fun = x + y + zEnd FunctionPrivate Sub Command1_Click()Dim x As Int

16、egerx = 1For i = 1 To 2Print fun(x)Next iEnd Sub程序運行后，如果單擊命令按鈕，窗體中顯示的內容是（ B ）A、3 3 B、3 4 C、3 5 D、3 639、若I、n均為整型變量，下列程序段的輸出結果為（C）Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd SubA、0 B、4 C、5 D、3 40、在窗體中添加一個文本框（其中Name屬性為Text1）,然后編寫如下代碼：Private Sub Form_click

17、()Text1、Text = ""Text1、SetFocusFor i = 1 To 10Sum = Sum + iNext iText1、Text = SumEnd Sub上述程序運行后，單擊窗體，則運行的結果（ A ）A、在文本框Text1中輸出55 B、在文本框Text1中輸出0C、出錯 D、在文本框Text1中輸出不定值41、在窗體中添加一個名稱為Command1的命令按鈕，然后編寫如下代碼：Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox("請輸入A的值")a = Val

18、(a)b = InputBox("請輸入B的值")b = Val(b)x = InputBox("請輸入X的值")x = Val(x)a = a + b + xLoopPrint aEnd Sub程序運行后，單擊命令按鈕，依次在輸入對話框中輸入 1<CR>2<CR>3<CR>4<CR>5<CR>-1<CR>，則輸出結果為（A）A、8 B、9 C、14 D、1542、設有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3)

19、As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序運行后，單擊窗體，則在窗體上顯示的是（ A ）A、33 B、35 C、37 D、3843、在窗體中添加一個名稱為Command1的命令按鈕，然后編寫如下代碼：Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Su

20、b Command1_Click()Dim a As IntegerDim b As Integera = 2For i = 1 To 3b = F(a)Print bNext iEnd Sub程序運行后，如果單擊命令按鈕，則窗體上顯示的內容是（ A ）A、4 5 6 B、1 2 3 C、0 1 2 3 D、2 3 4 44、在窗體上畫一個命令按鈕，名稱為Command1。然后編寫如下程序： Private Sub Command1_Click() For a=1 To 4 For b=0 To a Print Chr(65+a) Next b Print Next a End Sub 程序運

21、行后，如果單擊命令按鈕，則在窗體上顯示的內容是（B）A、A BB CCC DDDD B、BB CCC DDDD EEEEE C、B CC DDD EEEE D、B C DE45、循環(huán)是一組重復執(zhí)行的指令，重復次數由（B）決定A、int（終值-初值）+1 B、int（終值-初值）/步長）+1 C、int（終值-初值）/步長） D、（終值-初值）/步長46、假定有以下程序段：For i = 1 To 3For j = 5 To 1 Step -1Print i * jNext j, i則語句Print i * j的執(zhí)行次數是（ A ） A、15 B、16 C、17 D、1847、以下程序段的輸出結

22、果是（C）num=0While num<=2num=num+1Print numWendA、1 3 5 B、2 3 4 C、1 2 3 D、0 1 248、在窗體中添加一個命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Private Sub Command1_Click()Dim n() As IntegerDim a, b As Integera = InputBox("Enter the first number")b = InputBox("Enter the second number")ReDim n(a To b)Fo

23、r k = LBound(n, 1) To UBound(n, 1)n(k) = kPrint n(k)Next kEnd Sub程序運行后，單擊命令按鈕，在輸入對話框中分別輸入2和3，輸出結果為（D）A、0 1 B、1 3 C、1 2 D、2 349、在窗體中添加兩個文本框（其Name屬性分別為Text1和Text2）和一個命令按鈕（其Name屬性為Command1），然后編寫如下事件過程：Private Sub Command1_Click()x = 0Do While x < 10x = (x - 2) * (x + 3)n = n + 1LoopText1、Text = Str(

24、n)Text2、Text = Str(x)End Sub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為（ B ）A、1和0 B、2和24 C、3和50 D、4和6850、在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x,y End Sub 程序運行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是 （B）A、4 2 B、12 18 C、12 30 D、4 6 51、設有如下程序段：

25、 x=2 For i=1 To 10 Step 2 x=x+i Next 運行以上程序后，x的值是 (B)A、 26 B、 27 C、 38 D、 57 52、在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Option Base 1 Private Sub Command1_Click() Dim a a= Array(1,2,3,4,5) For i=1 To UBound(a) a(i) = a(i)+i-1 Next Print a(3) End Sub 程序運行后，單擊命令按鈕，則在窗體上顯示的內容是( B ) A、4 B、5 C、6 D、7 53、閱讀程序

26、Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum = 0 arr = Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3 = arr(i)3 Then Sum =Sum+arr(i) End If Next i Print Sum End Sub 程序運行后，單擊窗體，輸入結果為 (C)A、13 B、14 C、27 D、15 54、執(zhí)行以下程序段 a$="abbacddcba" For i=6 To 2 Step -2 X=Mid(a,i,i) Y=L

27、eft(a,i) z=Right(a,i) z=UCase(X&Y&z) Next i Print z 輸出結果為 （B）A、ABA B、BBABBA C、ABBABA D、AABAAB 55、在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序： Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5) Sum=0 For i=1 To 5 Sum = sum+a(i) Next i x=Sum/5 For i =1 To 5 If a(i)>x Then P

28、rint a(i); Next i End Sub 程序運行后，單擊命令按鈕，在窗體上顯示的內容是 （D）A、1 2 B、1 2 3 C、3 4 5 D、4 5 56、以下程序段的輸出結果是（A） num =0 While num<=5 num = num+1 Wend Print num A、 6 B、 2 C、 5 D、 157、Private Sub Form_Click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x < 28 x = x * 3 n = n + 1 Loop Print x, nEnd Sub

29、程序運行后，單擊窗體，輸出結果是(A) A、81 4 B、56 3 C、28 1 D、243 558、有如下程序： Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 程序運行后，單擊窗體，輸出結果為（A） A、12 B、30 C、24 D、1859、在窗體上畫一個名稱為Text1的文本框和一個名稱為Comm

30、and1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序運行后，單擊命令按鈕，在文本框中顯示的值是（ A ） A、12 B、3 C、14 D、1560、在窗體上畫一個命令按鈕，其名稱為Command1，然后

31、編寫如下事件過程：Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3)End Sub 程序運行后，單擊命令按鈕，在窗體上輸出的是（D） A、6 6 B、10 5 C、7 21 D、6 1261、有如下程序：Option Base 1Private Sub Form_Click() Dim arr, Sum Sum = 0

32、 arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i = 1 To 10 If arr(i) / 3 = arr(i) 3 Then Sum = Sum + arr(i) End If Next i Print SumEnd Sub 程序運行后，單擊窗體，輸出結果為（C） A、25 B、26 C、27 D、2862、在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() Dim a(5) As String For i = 1 To 5 a(i) = Chr(Asc("A"

33、) + (i - 1) Next i For Each b In a Print b; NextEnd Sub 程序運行后，單擊命令按鈕，輸出結果是（A） A、ABCDE B、1 2 3 4 5 C、abcde D、出錯信息63、設有以下函數過程：Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 sum = sum + k Next k fun = sumEnd Function若在程序中用語句 s = fun(10) 調用此函數，則s的值為

34、 （A） A、30B、26 C、27 D、2864、在窗體上畫一個命令按鈕和一個文本框，然后編寫命令按鈕的Click事件過程。程序運行后，在文本框中輸入一串英文字母（不區(qū)分大小寫），單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫方式降序顯示到Text1中。例如，若在Text1中輸入的是abDfdb，則單擊Command1按鈕后Text1中顯示的字符串是ZYXWVUTSRQPONMLKJIHGEC。請?zhí)羁?。Private Sub Command1_Click( ) Dim str As String, s As String, c As String str = UCase

35、(Text1) s = "" c = "Z" While c >= "A" If InStr(str, c) = 0 Then s = C End If c = Chr$(Asc(c)-1 ) Wend If s <> "" Then Text1 = s End IfEnd Sub A、1B、sC、s & cD、065、 在n個運動員中選出任意r個人參加比賽，選法有多種，用組合公式計算等于n！/r！/（n-r）！。窗體中有3個文本框的名稱依次是Text1、Text2、Text3。程序運行時

36、在Text1、Text2中分別輸入n和r的值，單擊Command1按鈕即可求出選法的個數，并顯示在Text3文本框中，請?zhí)羁?。Private Sub Command1_Click( ) Dim r As Integer, n As Integer n = Text1 r = Text2 Text3 = fun(n) / C / fun(r)End SubFunction fun(n As Integer) as long Dim t As Long t=1 For k = 1 To n t = t * k Next fun = tEnd FunctionA、fun（n）B、fun（m）C、fu

37、n（n-r）D、fun（r-n）66、以下是一個比賽評分程序。在窗體上建立一個名為Text1的文本框數組，然后畫一個名為Text2的文本框和名為Command1的命令按鈕。運行時在文本框數組中輸入7個分數，單擊“計算得分”命令按鈕，則最后得分顯示在Text2文本框中（去掉一個最高分和一個最低分后的平均分即為最后得分），請?zhí)羁铡?Private Sub Command1_Click( ) Dim k As Integer Dim sum As Single, max As Single, min As Single sum = Text1(0) max = Text1(0) min = Text

38、1(0) For k = _A_ To 6 If max < Text1(k) Then max = Text1(k) End If If min > Text1(k) Then min = Text1(k) End If sum = sum + Text1(k) Next k Text2 = (sum-max-min ) / 5End SubA、0B、1C、-1D、267、在列表框List1中已經有若干人的簡單信息，運行時在Text1文本框輸入一個姓或姓名，單擊“查找”按鈕，則在列表框中進行查找，若找到，則把該人的信息顯示在Text2文本框中。若有多個匹配的列表項，則只顯示第1個

39、匹配項；若未找到，則在Text2中顯示“查無此人”。請?zhí)羁?。Private Sub Command1_Click() Dim k As Integer, n As Integer, found As Boolean found = False n = Len(_A_ ) k = 0 While k < List1.ListCount And Not found If Text1 = Left$(List1.List(k), n) Then Text2 = List1.List(k).name found = True End If k = k + 1 Wend If Not found

40、Then Text2 = "查無此人" End IfEnd SubA、text1.textB、text1C、text2D、text2.text68、在窗體上畫一個命令按鈕和一個文本框，然后編寫命令按鈕的Click事件過程。程序運行后，在文本框中輸入一串英文字母（不區(qū)分大小寫），單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫方式降序顯示到Text1中。例如，若在Text1中輸入的是abDfdb，則單擊Command1按鈕后Text1中顯示的字符串是ZYXWVUTSRQPONMLKJIHGEC。請?zhí)羁?。Private Sub Command1_Click(

41、 ) Dim str As String, s As String, c As String str = UCase(Text1) s = "" c = "Z" While c >= "A" If InStr(str, c) = 0 Then s =s & c End If c = Chr$(Asc(c) _A_ ) Wend If s <> "" Then Text1 = s End IfEnd Sub A、-1B、0C、1D、+169、 在n個運動員中選出任意r個人參加比賽，選法有多種

42、，用組合公式計算等于n！/r！/（n-r）！。窗體中有3個文本框的名稱依次是Text1、Text2、Text3。程序運行時在Text1、Text2中分別輸入n和r的值，單擊Command1按鈕即可求出選法的個數，并顯示在Text3文本框中，請?zhí)羁铡rivate Sub Command1_Click( ) Dim r As Integer, n As Integer n = Text1 r = Text2 Text3 = fun(n) / fun(n-r) / fun(r)End SubFunction fun(n As Integer) as long Dim t As Long _B_ F

43、or k = 1 To n t = t * k Next fun = tEnd FunctionA、t=0B、t=1C、k=0D、k=170、以下是一個比賽評分程序。在窗體上建立一個名為Text1的文本框數組，然后畫一個名為Text2的文本框和名為Command1的命令按鈕。運行時在文本框數組中輸入7個分數，單擊“計算得分”命令按鈕，則最后得分顯示在Text2文本框中（去掉一個最高分和一個最低分后的平均分即為最后得分），請?zhí)羁铡?Private Sub Command1_Click( ) Dim k As Integer Dim sum As Single, max As Single, mi

44、n As Single sum = Text1(0) max = Text1(0) min = _C_ For k = 0 To 6 If max < Text1(k) Then max = Text1(k) End If If min > Text1(k) Then min = Text1(k) End If sum = sum + Text1(k) Next k Text2 = (sum-max-min ) / 5End SubA、text1(1)B、text(0)C、text1(0)D、text2(0)71、以下是一個比賽評分程序。在窗體上建立一個名為Text1的文本框數組，然后畫一個名為Text2的文本框和名為Command1的命令按鈕。運行時在文本框數組中輸