二级VB习题精选九.doc

习题九 一．选择题 1．语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是 : (A)12 (B)60 (C)120 (D)345 2．设有数组声明语句： Option base 0 Dim B(-1 to 10,2 to 9,20) as integer 则数组B中共有 个元素。 (A) 1700 (B) 1747 (C) 2016 (D) 2310 3．以下说法不正确的是 （A）使用Redim语句可以改变数组的维数 （B）使用Redim语句可以改变数组的类型 （C）使用Redim语句可以改变数组的每一维的大小 （D）使用Redim语句可以对数组中的所有元素进行初始化 4．设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是 。 (A) 命令按钮的所有Caption属性都是Command1 (B) 在代码中访问任意一个命令按钮只需使用名称Command1 (C) 命令按钮的大小都相同 (D) 命令按钮共享相同的事件过程 5．下列程序段的执行结果为 ． 　　　Dim M(10) For I=0 To 10 M(I)=2*I Next I Print M(M(3)) (A) 12 (B) 6 (C) 0 (D) 4 6．下列程序段的执行结果为 。 Dim A(5) For I = 1 To 5 A(I) = I * I Next I Print A(I－1) (A)5 (B)25 (C)0 (D)16 7．将Command1的单击事件过程显示在窗体上 。 　Option Base 0 Private Sub Command1_Click() Dim a a=Array(＂a＂, ＂b＂, ＂c＂, ＂d＂, ＂e＂, ＂f＂, ＂g＂) Print a(1);a(3);a(5) End Sub (A)abc (B)bdf (C)ace (D)错误 8．当程序运行时,在窗体上单击鼠标时,下面事件过程的执行结果为： Private Sub Form_Click() Dim a(1 To 20)As Integer Dim k As Integer For k=l To 20 a(k)=k*k Next k Print a(k) End Sub (A)400 (B)20 (C)441 (D)出错 9．在窗体上画一个命令按钮(将其名称定为Command1),编写其Click事件过程 代码： Private Sub Command1_Click() Dim m(1 To 10)As Integer,k As Integer For k=1 To 10 M(k)=11－K Next k For k=1 To 10 Print m(m(k)); Next k End Sub 程序运行时,单击命令按钮时,程序的输出结果是: (A)10 9 7 7 6 5 4 3 2 1 (B)1 3 5 7 9 2 4 6 7 10 (C)2 4 6 7 10 1 3 5 7 9 (D)1 2 3 4 5 6 7 7 9 10 10．在窗体上画一个命令按钮(将其名称定为Command1),编写其Click代码： Option Base l Private Sub Command1_Click（） Dim x As Variant Dim s As Integer,j As Integer , SPAN lang=EN-US style=mso-bidi-font-size: 10.5pts =0: j=1 x=Array(1,2,3,4,5) For i=4 To 1Step-1 s =s +x(i)*j j=j*10 Next i Print s End Sub 程序运行时,单击命令按钮时,程序的输出结果是z (A)1234 (B)4321 (C)12 (D)34 11．在窗体上画一个命令按钮(将其名称定为Commandl)，编写其Click事件过程 代码： Option Base 1 Pr