VB对口升学循环结构及数组练习.doc

VB循环结构及数组练习一、单选题1.执行以下程序段后，i的值为（ ）For i = 1 To 10 Step 2y = y + iNext iA）10B）11C）12D）252.假定有如下语句：Private Sub Command1_Click()Counter = 0For i = 1 To 4For j = 6 To 1 Step -2Counter = Counter + 1Next jNext iLabel1.Caption = Str(Counter)End Sub程序运行后，结果为（ ）A）11B）12C）16D）203. 假定有如下语句：Private Sub Command1_Click()For i = 1 To 4If i = 1 Then x = iIf i = 4 Then x = x +1Print x;End Sub程序运行后，结果为A）1 2 3 4B）2 3 4 5C）2 3 4 4D）3 4 5 64.哪个程序段不能分别正确显示1!、2!、3!、4!的值（ ）8A）For i = 1 To 4 n = 1 For j = 1 To in = n * j Next j Print n Next iB）For i = 1 To 4 For j = 1 To i n = 1n = n * j Next j Print n Next iC）n = 1 For j = 1 To 4 n = n * j Print n Next jD）n = 1: j = 1 Do While j = 4n = n * jPrint nj = j + 1Loop5. 编写如下的事件过程：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd Sub程序运行后，在窗体上显示的内容是（ ）A）BBB）AC）BD）AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD6. 编写如下的事件过程：Private Sub Command1_Click()Dim x,n As Integerx = 1n = 0Do While x 10 Then Exit ForNextText1.Text = Str (n)End Sub运行后，文本框中显示的值是（ ）A）2B）3C）4D）58. 编写如下的事件过程：Private Sub Command1_Click()c = 1234c1 = Trim (Str(c)For i = 1 To 4Print _NextEnd Sub运行程序后，窗体上显示如下11 2 1 2 31 2 3 4则应该在_处填写的表达式是（ ）A）Right (c1,n)B）Left (c1,i)C）Mid (c1,n,1)D）Mid (c1,n,n)9. 编写如下的事件过程：Private Sub Command1_Click()n = Val (Text1.text)For i = 2 To nFor j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNext jIf j Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是：（ ）A）输出n以内的奇数 B）输出n以内的偶数 C）输出n以内的素数 D）输出n以内能被j整数的数10. 编写如下的事件过程：For i = 1 To 3For j = 5 to 1 Step -1Print i*jNext j,i则语句 Print i*j 的执行次数是（A）A）15B）16C）17D）1811.以下程序段输出结果为（ ）x = 1y = 4Do Until y 4x = x * yy = y + 1LoopPrint xA）1B）4C）8D）2012.执行下面的程序段后，x的值为（ ）x = 5For i = 1 To 20 Step 2x = x + i5Next iA）21B）22C）23D）2413. 编写如下的事件过程：Private Sub Command1_Click()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序运行后，输出结果是（ ）A）7B）15C）157D）53814.有如下的程序段：For i = 1 To 3For j = 1 To ia = a + 1Next jNext i执行上面程序后，a的值为（ ）A）3B）9C）6D）2115.阅读程序Private Sub Form_Click()x = 50For i = 1 To 4y = InputBox (“请输入1个整数”)y = Val (y)If y Mod 5 = 0 Thena = a + yx = yElsea = a + xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（A）A）100B）50C）120D）7016.下面语句定义的数组元素个数中（ ）Dim arr(3 To 5, -2 To 2)A）20B）12C）15D）2417. 下面语句定义的数组元素个数中（ ）Dim a(-3 To 4, 3 To 6)A）18B）28C）21D）3218. 如有以下程序代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 1 To 4 s = s + a(i) * j j = j * 10Next iPrint sEnd Sub运行程序后，在窗体上输出的内容为（D）A）1234B）12C）34D）432119. 如有以下程序代码：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i, j As IntegerFor i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub运行程序后，在窗体上输出的内容为（A）A）12B）13C）14D）1520. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10) As Integern = 3For i = 1 To 5 arr1(i) = i arr2(n) = 2 * n + iNext iPrint arr2(n); arr1(n)End Sub运行程序后，在窗体上输出的内容为（ ）A）113B）311C）133D）31321.如有以下程序代码：Private Sub Command1_Click()Dim arr(3, 3) As IntegerFor i = 1 To 3 For j = 1 To 3 If j = i Or j = 3 - i + 1 Then arr(i, j) = 1 Else arr(i, j) = 0 End If Next jNext iPrint arr(1, 1) + arr(2, 2) + arr(3, 3)End Sub运行程序后，在窗体上输出的内容为（ ）A）0B）1C）2D）322.如有以下程序代码：Option Base 1Dim a() As IntegerPrivate Sub Form_Click() Dim i As Integer, j As Integer ReDim a(3, 2) For i = 1 To 3 For j = 1 To 2 a(i, j) = i * j Next j Next i ReDim Preserve a(3, 4) For i = 3 To 4 a(3, i) = i + 5 Next i Print a(3, 2); a(3, 4)End Sub运行程序后，在窗体上输出的内容为（ ）A）00B）69C）712D）81323.如有以下程序代码：Option Base 0Private Sub Command1_Click()Static city As Variantcity = Array(北京, 上海, 天津, 重庆)Print city(1)End Sub运行程序后，在窗体上输出的内容为（D）A）空白B）错误提示C）北京D）上海24.如有以下程序代码：Option Base 1Private Sub Form_click()Dim i As IntegerDim a(8) As StringFor i = 1 To 8 a(i) = LCase(Chr(Asc(A) + (i - 1)Next iFor Each b In a Print UCase(b);Next bEnd Sub运行程序后，在窗体上输出的内容为（ ）A）12345678B）abcdefghC）ABCDEFGHD）出错信息25.如有以下程序代码：Option Base 1Private Sub Command1_Click(index As Integer)Dim arr1(12) As Integer, arr2(3) As IntegerDim sum As Integersum = 2For i = 1 To 12 arr1(i) = iNext iFor i = 1 To 3 arr2(i) = arr1(i * i)Next iFor i = 1 To 3 sum = sum + arr2(i)Next iPrint sumEnd Sub运行程序后，在窗体上输出的内容为（ ）A）16B）24C）32D）36二、简答题1. 如有以下程序代码，填写空格处：Option Base 1Private Sub Command1_Click() Dim arr arr = Array(358, 32, 46, 73, 23, 59, 26, 91, 583, 12) For i = For j = If arr(i) arr(j) Then a = arr(j) arr(i) = a End If Next j Next i For i = 1 To 10 Print arr(i); Next iEnd Sub程序运行后，将把数组arr中的10个数按选择排序法按照升序排列。2. 如有以下程序代码，填写空格处：Option Base 1Private Sub Command1_Click() Dim arr(10) As Integer Dim max As Integer Randomize For i = 1 To 10 arr(i) = Int( ) Next i = arr(1) For i = 2 To 10 If Then max = arr(i) End If Print arr(i) Next i Print max:; End Sub程序运行后，产生10个01000之间的随机整数，放入数组arr中，然后输出其中最大值。3.编写程序，实现矩阵转置，将1个nm的矩阵的行和列互换。其中n和m元素的值为随机产生。并输出两个矩阵。例如：A矩阵为A = 12 3 4 5 6转置后的B矩阵为 1 4 B = 2 5 3 6程序代码：Option Base 1Private Sub Form_click() Const n = 3 Const m = 4 Dim a(n, m), As Integer For i = 1 To n For j = 1 To m a(i, j) = Int(Rnd * 90) + 1