循环结构及数组练习

1、循环结构及数组练习一、单选题1. 执行以下程序段后， i 的值为( B)For i = 1 To 10 Step 2 y = y + iNext iA) 10B)11C) 12D )252. 假定有如下语句：Private Sub Command1_Click() Counter = 0 For i = 1 To 4For j = 6 To 1 Step -2Counter = Counter + 1 Next jNext i Label1.Caption = Str(Counter)End Sub 程序运行后，结果为( B )A) 11B)12C) 16D )203. 假定有如下语句：Pri

2、vate Sub Command1_Click() For i = 1 To 4If i = 1 Then x = iIf i <= 4 Then x = x +1Print x;End Sub 程序运行后，结果为( B )D)3 4 5 6A) 1 2 3 4B)2 3 4 5C)2 3 4 44. 哪个程序段不能分别正确显示1!、2!、3!、4!的值( B)A ) For i = 1 To 4n = 1For j = 1 To i n = n * jNext jPrint nNext iB) For i = 1 To 4 For j = 1 To i n = 1n = n * jNe

3、xt jPrint nNext iC) n = 1For j = 1 To 4 n = n * j Print nNext jD) n = 1: j = 1Do While j <= 4 n = n * j Print n j = j + 1 Loop5. 编写如下的事件过程：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd SubD)AABBBCCCCDDDDD程序运行后，在窗体上显示的内容是(A )A)BBB)AC) BCCCBBCCDDDDC

4、CCDDDEEEEEDDDDEEEE6. 编写如下的事件过程：Private Sub Command1_Click()Dim x,n As Integer x = 1 n = 0 Do While x < 20x = x * 3n = n + 1 Loop Text1.Text = Str (x) Text2.Text = Str (n)End Sub运行程序后，在 2 个文本框中显示的值分别是( B )A) 20和 1B)27和3C) 195和 3D)600和 47. 编写如下的事件过程： Private Sub Command1_Click()Dim i,n As IntegerFo

5、r i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNextText1.Text = Str (n)End Sub 运行后，文本框中显示的值是( B ) A)2B)3C) 4D )58. 编写如下的事件过程：Private Sub Command1_Click()c = 1234c1 = Trim (Str(c)For i = 1 To 4Print NextEnd Sub 运行程序后，窗体上显示如下11 21 2 31 2 3 4 则应该在 处填写的表达式是( B )A)Right (c1,n)B)Left (c1,i)C)Mid

6、 (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 该事件过程的功能是： ( C) A)输出 n 以内的奇数B) 输出 n 以内的偶数C) 输出 n 以内的素数D ）输出 n 以内能被 j 整数的数10. 编写如下的事件过程：For i = 1 To 3For j

7、 = 5 to 1 Step -1Print i*j的执行次数是（ A）Next j,i 则语句 Print i*jA ) 15B )1611. 以下程序段输出结果为 x = 1 y = 4Do Until y > 4x = x * yy = y + 1Loop Print xA ) 1B )412. 执行下面的程序段后， x = 5For i = 1 To 20 Step 2x = x + i5 Next i A ) 21B )22C) 17D )18B)C）8D ）20x 的值为（ A ）C） 23D ）2413. 编写如下的事件过程：Private Sub Command1_Cli

8、ck()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub 程序运行后，输出结果是( B)D)538A)7B)15C) 15714. 有如下的程序段：For i = 1 To 3For j = 1 To ia = a + 1 Next jNext i执行上面程序后， a 的值为( C)D)21A)3B)9C) 615. 有如下的程序段： n = 0For i = 1 To 3 For j = 1 To iFor k = j To 3 n = n + 1Next

9、 kNext jNext iB)9D)21执行上面程序段后， n 的值为： A ) 3B )14C)16. 阅读程序Private Sub Form_Click()x = 50For i = 1 To 4y = InputBox ( “请输入 1个整数 ”) y = Val (y)If y Mod 5 = 0 Thena = a + y x = y Elsea = a + xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、 46，输出结果为( A)A ) 100B) 50C) 120D)701. 如有以下程序代码：Option

10、Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) > c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub 程序运行后，在窗体上输出的内容为(C )A)89B)99C) 23D )772. 下面语句定义的数组元素个数中(C)Dim arr(3 To 5, -2 To 2)A)20B)12C) 15D )243. 下面语句定义的数组元素个数中( D)Dim a(-3 To

11、4, 3 To 6)A)18B)28C) 21D )324. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10)For i = 1 To 10arr1(i) = 3 * iarr2(i) = arr1(i) * 3Next iText1.Text = Str(arr2(i / 2 - 0.1)End Sub程序运行后，在文本框显示的是( B)A)36B)45C) 54D )635. 如有以下程序代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3,

12、 4)j = 1For i = 1 To 4s = s + a(i) * jj = j * 10Next iPrint sEnd Sub 运行程序后，在窗体上输出的内容为（ D ）A ) 1234B) 12C) 34D ) 43216. 如有以下程序代码： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As IntegerFor i = 1 To 3For j = 2 To 4 array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + arra

13、y1(3, 4)End Sub 运行程序后，在窗体上输出的内容为(A )A)12B)13C) 14D)157. 假设通过复制、粘贴建立了一个命令按扭数组Command1 ，则以下说法错误的是（ D）A ）数组中每个命令按扭的名称（ Name 属性）均为 Command1B）数组中每个命令按扭的大小都一样C）数组中每个命令按扭可以使用同一个时间过程D ）用名称 Command1 可以访问数组中每个命令按扭8. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10) As Integern = 3For i = 1 To 5 arr1

14、(i) = i arr2(n) = 2 * n + iNext iPrint arr2(n); arr1(n)End Sub 运行程序后，在窗体上输出的内容为(A )D) 313A)11 3B)311C) 13 39. 如有以下程序代码：Private Sub Command1_Click() Dim arr(3, 3) As IntegerFor i = 1 To 3For j = 1 To 3If j = i Or j = 3 - i + 1 Then arr(i, j) = 1Elsearr(i, j) = 0 End IfNext jNext iPrint arr(1, 1) + ar

15、r(2, 2) + arr(3, 3)End Sub 运行程序后，在窗体上输出的内容为( D )A)0B)1C) 2D )310. 如有以下程序代码：Option Base 1Dim a() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim a(3, 2)For i = 1 To 3For j = 1 To 2a(i, j) = i * jNext jNext iReDim Preserve a(3, 4)For i = 3 To 4a(3, i) = i + 5Next iPrint a(3, 2);

16、a(3, 4)End Sub 运行程序后，在窗体上输出的内容为( B )D) 813A)0 0B)69C) 71211. 在窗体上话 3 个单选按扭， 组成 1 个名为 chkOption 的控件数组。 用于标识控件数组各元 素的参数是（ B ）A)TagB) IndexC) ListIndexD ) Name12. 如有以下程序代码：Option Base 0 Private Sub Command1_Click（）Static city As Variantcity = Array（" 北京", "上海", "天津", "

17、;重庆"）Print city（1）End Sub 运行程序后，在窗体上输出的内容为（D ）A ）空白B）错误提示C ）北京D）上海13. 如有以下程序代码：Option Base 1 Private Sub Form_click()Dim i As IntegerDim a(8) As StringFor i = 1 To 8a(i) = LCase(Chr(Asc("A") + (i - 1)Next iFor Each b In aPrint UCase(b);Next bEnd Sub 运行程序后，在窗体上输出的内容为(C )A)1 2 3 4 5 6 7

18、 8B) abcdefghC) ABCDEFGHD)出错信息14. 如有以下程序代码：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 12arr1(i) = iNext iFor i = 1 To 3arr2(i) = arr1(i * i)Next iFor i = 1 To 3sum = sum + arr2(i)Next iPrint sumEnd Sub 运行程

19、序后，在窗体上输出的内容为( A )A)16B)24C) 32D )3615. 如有以下程序代码：Option Base 1Private Sub Command1_Click()Dim arrDim start As Integer, finish As IntegerDim sum As Integerarr = Array(12, 4, 8, 16) start = LBound(arr) finish = UBound(arr) sum = 0For i = start To finish sum = sum + arr(i)Next ic = sum / finishText1.Te

20、xt = cEnd Sub 运行程序后，在窗体上输出的内容为(B )A)40B)10C) 12D )16二、简答题1. 下面程序的功能是：计算 f=1-1/(2*3)+1/(3*4)-1/(4*5)+ +1/(19*20) Private Sub Form_Click()Dim f,i,sign As Integersign=1f = 1_for i=2 to 19f = f + sign / (i * (i + 1)_sign=-1*signNext iPrint “f= ”;fEnd Sub没有找到2. 下面的程序是在一个字符串变量中查找 “ at”，并用消息框给出查找结果的报告： 或找到

21、的个数，程序如下：Public Sub Findat()Dim Str1 As StringDim length As IntegerDim sum As IntegerDim i As IntegerStr1 = InputBox ( “请输入一个字符串 ”) length = _len(Str1)i = 1sum = 0Do While i <= _lengthIf _mid(Str1,i,2) = “at” Thensum = sum + 1 End If i = i + 1LoopIf _sum=0 ThenMsgBox “没有找到！ ”ElseMsgBox “找到了 ” &am

22、p; Str (sum) & “个 ”End IfEnd Sub3. 下面程序的功能是找出 11000 之间所有的同构数。所谓同构数是指一个数出现在它的平 方数右端，如 25 在25 平方 625的右端，则 25 为同构数。Private Sub Form_Click()Dim i As IntegerDim x1 As String , x2 As StringFor i = 1 To 1000 x1 = _str(i)_ x2 = _str(i2)_ If _x1=right(x2,1) or x1=right(x2,2) or x1=right(x2,3) _ ThenPrint

23、 i ; “是同构数 ”End IfNext iEnd Sub1. 如有以下程序代码，填写空格处：Option Base 1Private Sub Command1_Click()Dim arrarr = Array(358, 32, 46, 73, 23, 59, 26, 91, 583, 12)For i = 1 To 9For j = i + 1 To 10If arr(i) >= arr(j) Then a = arr(j) arr(j) = arr(i) arr(i) = aEnd IfNext jNext iFor i = 1 To 10Print arr(i);Next i

24、End Sub 程序运行后，将把数组 arr 中的 10 个数按照升序排列。2. 如有以下程序代码，填写空格处： Option Base 1Private Sub Command1_Click()Dim arr(10) As IntegerDim max As IntegerRandomizeFor i = 1 To 10arr(i) = Int(Rnd * 1000)Next imax = arr(1)For i = 2 To 10 If arr(i) > max Then max = arr(i) End IfPrint arr(i)Next iPrint "max:&qu

25、ot; maxEnd Sub程序运行后，产生 10个 01000之间的随机整数，放入数组 arr 中，然后输出其中最大值。3. 如有以下程序代码：Option Base 1Private Sub Command1_Click()Dim i As IntegerDim a(5) As IntegerDim b(5) As IntegerDim c(5) As Integern = 4For i = 1 To n a(i) = i m = n + i - 1 b(i) = mNext ic(5) = 0For k = 1 To nc(k) = a(k) * b(k) c(5) = c(5) + c

26、(k)Next kPrint a(3); b(4); c(5)End Sub 运行程序后，在窗体上输出的内容为 3 7 604. 如有以下程序代码，填写空格处：Option Base 1Private Sub Command1_Click()Dim arr1(3, 3) As IntegerDim arr2(3) As IntegerRandomizeFor i = 1 To 3For j = 1 To 3 arr1(i, j) = Int(Rnd * 100)Next jNext iFor i = 1 To 3For j = 1 To 3 arr2(i) = arr2(i) + arr1(i

27、, j)Next jNext iFor i = 1 To 3For j = 1 To 3Print arr1(i, j);Next jPrintNext i sm = arr2(1) ns = 1For i = 2 To 3If arr2(i) > sm Then sm = arr2(i) ns = iEnd IfNext iPrintPrint "数值最大的一行是 :第" ns; "行," "该行的和是 :" smEnd Sub以上程序功能：用随机数生成一个3×3 的矩阵，然后求出该矩阵 3行中元素之和最大的那一行，

28、并输出该行的行号及该行的和。三、编程题1.编写程序，把下面的数据输入1 个二维数组中：25 36 78 1312 26 88 9375 18 22 32 56 44 36 58 然后执行以下操作(1) 输出矩阵 2 个对角线上的数(2) 分别输出各行和各列的和(3) 交换第 1 行和第 3 行的位置( 4)交换第 2 列和第 4 列的位置(5)输出处理后的数组程序代码：Option Base 1Private Sub Form_click()Dim mat(4, 4) As IntegerDim n, m As Integer n = 4 m = 4'输入矩阵For i = 1 To

29、nFor j = 1 To mmat(i, j) = InputBox(" 请输入数组第 " & i & " 行第" & j & " 列元素值 ") Val (mat(i, j)Next jNext i'输入初始化矩阵PrintPrint " 初始矩阵为 :"PrintFor i = 1 To nFor j = 1 To mPrint Tab(6 * j); mat(i, j);Next jPrintNext i'输出矩阵对角线上的数PrintPrint " 矩阵对角线上的数为 :"PrintFor i = 1 To nFor j = 1 To mIf i = j ThenPrint Tab(6 * j); mat(i, j); End IfNext jNext iPrintFor i = 1 To nFor j = 1 To mIf i + j = 5