数组与用户自定义类型练习.docxVIP

数组和自定义类型（二）选择题1. 下述语句定义的数组元素有______个。 　OPTION BASE 1 　DIM A(12,8) 　A）117 　B）128 　C）96 　D）20 2. 下列程序段的执行结果为______。 　　 Dim A(10,10) 　For I=1 To 8 　For J=6 To 8 　A(I,J)=I*J 　Next J 　Next I 　Print A(4,6)+A(3,8)+A(8,7) 　A）104 　B）114 　C）无法输出 　D）报错溢出 3. 阅读程序 　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 　程序运行后，单击窗体，输出结果为______。 　A）13 　B）14 　C）27 　D）15 4. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： 　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）15 　B）14 　C）13 　D）12 　5. 窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： 　Private Sub Command1_Click() 　Dim A(10), B(5) 　For I = 1 To 10 　A(I) = I 　Next I 　For J = 1 To 5 　B(J) = J * 20 　Next J 　A(5) = B(2) 　Print A(5)=, A(5) 　End Sub 　窗体运行后，单击命令按钮，输出结果是______。 　A）A(5)=40 　B）A(5)=20 　C）A(5)=10 　D）A(5)=5 6. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： 　Option Base 0 　Private Sub Command1_Click() 　Dim city As Variant 　city = Array(北京,上海,天津,重庆) 　Print city(1) 　End Sub 　程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。 　A）空白 　B）错误提示 　C）北京 　D）上海 7. 窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： 　Private Sub Command1_Click() 　Dim A(5, 5) 　For I = 1 To 3 　For J = 1 To 4 　A(I, J) = I * J 　Next J 　Next I 　For N = 1 To 2 　For M = 1 To 3 　Print A(M, N); 　Next M 　Next N 　End Sub 　窗体运行后，单击命令按钮，输入结果是______。 　A）1 2 3 4 2 4 　B）1 2 3 4 6 8 　C）1 2 3 2 4 6 　D）1 2 3 6 3 6 8. 设有命令按钮Command1的单击事件过程 　Private Sub Command1_Click() 　Dim a(3,3) AS Integer 　For i=1 To 3 　For j=1 To 3 　a(i,j)=i*j+i 　Next j 　Next i 　Sum=O 　For i=1 To 3 　Sum=Sum+a(i,4-i) 　Next i 　Print Sum 　End Sub 　运行程序，单击命令按钮，输出结果是______。 A）20 B）7 　C）16 　D）17 9. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： 　Option Base 1 　Private Sub Command1_Click() 　Dim c As Integer,d As Integer 　d=0 　c=6 　x=Arr