数组综合练习一.doc

数组综合练习友情提醒：1、 本次实验的中的理论题以红色标记答案，并按原名存盘，与程序作业一起提交。综合练习只要相应的程序文件与窗体文件。2、 上机作业均打包上传至规定的文件夹。文件名为：学号szzh1.rar若无特殊说明，所有程序都在form_click()事件中运行，其他控件其他控件由用户自己决定使用一、理论题 数组和自定义类型一、 单选题1. 下面数组声明语句，_正确。A） Dim a2,4 As Integer B） Dim a(2,4) As IntegerC） Dim a(n,n) As Integer D） Dim a(2 4) As Integer2要分配存放如下方阵的数据，可使用_数组声明语句来实现（不能浪费空间）。A） Dim x(9) As Single B） Dim x(3,3) As Single C） Dim x(-1 to 1, -5 to -3) As SingleD） Dim x(-3 to -1, 5 to 7) As Integer 3. 下面数组声明语句中，数组包含元素个数为 _。 Dim a(-2 to 2,5) A） 120 B） 30 C） 60 D） 204下面程序的输出结果是 _。 Dim a a = Array(1,2,3,4,5,6,7) For i = Lbound(A） to Ubound(A） a(i) = a(i) * a(i) Next i Print a(i)A） 36 B） 程序出错 C） 49 D） 不确定5下面程序的输出结果是 _。 Option Base 1Private Sub Command1_Click() Dim a%(3, 3) For i = 1 To 3 For j = 1 To 3 If j 1 And i 1 Then a(i, j) = a(a(i - 1, j - 1), a(i, j - 1) + 1 Else a(i, j) = i * j End If Print a(i, j); Next j Print Next iEnd SubA）1 2 3 B） 1 2 3 C） 1 2 3 D） 1 2 3 2 3 1 1 2 3 2 4 6 2 2 2 3 2 3 1 2 3 3 6 9 3 3 36以下定义数组或给数组元素赋值的语句中，正确的是_。A）Dim a As Variant B）Dim a(10) As Integera = Array(1,2,3,4,5) a = Array(1,2,3,4,5)C）Dim a%(10) D）Dim a(3),b(3) As Integera(1) = ABCDE a(0) = 0 a(1) = 1 a(2) = 2 b = a7设有如下的记录类型 Type Student number As String name As String age As Integer End Type则正确引用该记录类型变量的代码是_。A）S =张红 B）Dim s As Student =张红C）Dim s As Type Student D）Dim s As Type =张红 =张红8. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码：Option Base 1Private Sub Command1_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print sEnd Sub运行上面的程序，单击命令按钮，其输出结果是_。A）4321 B）1234 C）34 D）129. 执行以下Command1的Click事件过程在窗体上显示_。Option Base 0Private Sub Command1_Click( )Dim aa=Array(a,b,c,d,e,f,g)Print a(1);a(3);a(5)End SubA）abc B）bdf C）ace D）无法输出结果10. 在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4, 5)For i = 1 To UBound(A）a(i) = a(i) + i 1NextPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是_。A）4 B）5 C）6 D）711. 窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim M(10), N(10)I = 3For T = 1 To 5 M(T) = T N(I) = 2 * I + TNext TPrint N(I); M(I)End Sub窗体运行后，单击命令按钮，输出结果为_。A）3 11 B）3 15 C）11 3 D）15 312.下列程序段的执行结果为_。Dim M(10)For I=0 To 9 M(I)=2*INext IPrint M(M(3)A）12 B）6 C）0 D）413. 设有如下程序：Option Base OPrvate Sub Form_Click() Dim a Dim i As Integer a= Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5 -i); NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是_。A）4 3 2 1 B）5 4 3 2 C）6 5 4 3 D）7 6 5 414. 在窗体上面画一个命令按钮，其名称为Command1，然后编写如下事件过程：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程序运行后，单击命令按钮，在窗体上输出的是_。A）6 6 B）10 5 C）7 21 D）6 1215. 有以下程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2);arr(3,4)End Sub程序运行后，单击窗体，输出结果为_。A）8 13 B）0 13 C）7 12 D）0 016. 在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click() Dim A(4) As Integer, B(4) As Integer For k=0 To 2 A(k+1)=InputBox(请输入一个整数) B(3-k)=A(k+1) Next k Print B(k)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为_。A）0 B）2 C）3 D）417. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_click() Dim a(5)as String For i = 1 to 5 a(i)=Chr (Asc(A)+(i-1) Next i For Each b in a Print b; NextEnd Sub程序运行后，单击命令按钮，输出结果是_。A）ABCDE B）1 2 3 4 5 C） a b c d e D）出错信息18. 下面叙述中不正确的是_。A）自定义类型只能在窗体模块的通用声明段进行声明B）自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的自定义类型C）在窗体模块中定义自定义类型时必须使用Private关键字D）自定义类型必须在窗体模块或标准模块的通用声明段进行声明19. 在设定Option Base 0后，经Dim arr(3,4) As Integer 定义的数组arr含有的元素个数为_。A）12 B）20 C）16 D）920. 用下面语句定义的数组的元素个数是_ 。 Dim A (-3 To 5) As Integer A） 6 B） 7 C） 8 D） 9 21. 有如下程序代码，输出结果是_。Dim a() a=Array(1,2,3,4,5) for i=Lbound(A） to Ubound(A） print a(i); next IA）1 2 3 4 5 B）0 1 2 3 4 C）5 4 3 2 1 D）4 3 2 1 022. 窗体上已有命令按钮Command1和标签Label1，下列程序运行后，单击Command1按钮，标签Label1中显示的内容是_。Option base 0Private Sub Command1_Click()Dim a(5) As Integer, n As IntegerFor i = 1 To 5 a(i) = i n = n + a(i)Next iLabel1 = nEnd SubA）5 B）10 C）15 D）程序报错，Label1不能输出结果23. 在窗体上画一个名称为Label1的标签,然后编写如下事件过程_。Private Sub Form_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next j Next i Label1.Caption = Str(arr(2, 2) + arr(3, 3)End Sub程序运行后,单击窗体,在标签中显示的内容是_。A）12 B）13 C）14 D）1524. 设有如下程序，其功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请选择程序中空处应为_。Option Base 1Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = _ For i = 2 To 8 If arr1(i) c Then d=d+x(i) Else d=d-c End If Next i Print dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。A）10 B）16 C）12 D）2037. 阅读程序： Option Base 1 Dim arr() As IntegerPrivate Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4)End Sub程序运行后，单击窗体，输出结果为A）21 B）13 C）8 D）2538. 窗体中新建立一个命令按钮（Command1)，其事件代码如下： Private Sub Command1_Click()Dim a(4) As Integer, b(4) As IntegerFor K = 0 To 2 a(K + 1) = Val(InputBox(请输入数据) b(3 - K) = a(K + 1)Next KPrint b(K)End Sub窗体运行后，单击命令按钮，依次输入1、3、5，执行结果为_。A）0 B）1 C）3 D）539. 在窗体上画一个名称为Command1命令按钮，然后编写如下程序：Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next Print Next iEnd Sub程序运行后，单击命令按钮，窗体上显示的是_。A）1 2 3 B）2 3 4 C）1 4 7 D）1 2 3 2 4 6 3 4 5 2 5 8 4 5 6 3 6 9 4 5 6 3 6 9 7 8 940. 对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer) a=Array(237,126,87,48,498) m1=a(1) m2=1 If KeyAscii=13 Then For i=2 To 5 If a(i)m1 Then m1=a(i) m2=i End If Next iEnd IfPrint m1Print m2End Sub程序运行后，按回车键，输出结果为_。A）48 B）237 C）498 D）498 4 1 5 441由Array函数建立的数组，其变量必须是_类型。A）整型 B）字符串 C）变体 D）双精度42若定义一维数组为：Dim a(N To M)，则该数组的元素为_个。A）M-N B）M-N+1 C）M*N D）M+N43下列语句中（假定变量n有值），能正确声明可调数组的是_。 A）Dim a( ) As Integer B）Dim a( ) As Integer ReDim a(n) ReDim a(n