第七章理论复习题1、阅读下列程序：Private Sub Form_Click()Dim m As IntegerStatic n As IntegerFor i = 1 To 3n = n + im = m + i ^ 2NextPrint m, nEnd Sub运行时两次单击窗体结果为（）。
A、14 614 6B、14 614 12 C、14 628 6D、14 628 122、窗体上的命令按钮编写如下事件过程：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i, j As IntegerFor i = 2 To 4For j = 3 To 5array1(i, j) = i * jNext jNext iPrint array1(2, 4) + array1(3, 4)End Sub运行时，单击命令按钮后输出的结果是（）。
A、9B、13C、程序出错D、205、以下数组声明语句中数组a包含的元素个数为（）。
Dim a(3,-2 to 1,5)A、96B、75C、60D、136、有声明Dim a(-3 to 1,3) As Integer，则下列叙述中正确的是（）。
A、数组a是二维动态数组B、数组a共有20个元素C、a（0,0）不是该数组的元素D、a（1,1）是该数组的第十个元素7、下列叙述中错误的是（）。
A、控件数组的每一个元素共享同样的事件过程B、控件数组的每一个元素都有与之相关联的下标值C、控件数组的每一个元素都有不同的name属性作为标识D、可在运行过程中删除控件数组的某个元素8、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是（）。
A、R eDim arr(7)B、R eDim Preserve arr(7)C、P ublic arr(1 to 7)D、S tatic arr(7)9、运行下列程序，单击窗体时在窗体上显示的结果是（）。
Private Sub Form_Click()Dim aDim s As Integer, i As Integera = Array(1, 2, 3)For i = 2 To 0 Step -1s = s + a(i) * a(i)Next iPrint sEnd SubA、13B、不确定C、14D、程序出错10、运行下列程序，单击窗体后输出的结果是（）。
Option Base 0Private Sub Form_Click()Dim aDim I as integerA=Array(1,2,3,4,5,6,7,8,9)For I=1 to 3Print a(5-I);Next IEnd SubA、3 2 1B、4 3 2C、5 4 3D、6 5 411、要将字符串数组a中所有学生姓名按数组下标顺序追加到列表框list1中，可以使用的程序段为（）。
A、F or i = 0 To UBound(a) - 1List1.AddItem a(i), 0 Next iB、F or i = 0 To UBound(a) - 1List1.AddItem a(i) Next i C、L ist1.AddItem aD、F or i = 0 To UBound(a) - 1List1.List(i) = a(i)Next I12、如下程序段中包含一个错误。
X＝4Dim a（X）For m＝4 to 0 step －1a（m）＝m +1Next m出错的原因是（）。
A、第四行，数组元素a（m）下标越界B、第四行，不能用循环变量m进行运算C、第二行，不能用变量定义数组下标D、第三行，循环语句格式不对13、下列语句错误的是（）。
A、P rivate a（－10 to 5）B、D im a(N)‘N为变量C、D im a() As IntegerD、D im a%(10,－10 to －10)14、能刚好存放如下方阵数据的数组声明语句是（不能浪费空间）（）。
1.12.23.34.45.56.67.78.89.9A、D im A(9) as SingleB、D im A(3,3) as SingleC、D im A(-1 to 1,-5 to -3) as SingleD、D im A(-3 to -1,5 to 7) as Integer15、以下定义数组或给数组元素赋值的语句中，正确的是（）。
A、D im a As Varianta=Array(1,2,3,4,5,6) B、D im a(10) As Integera=Array(1,2,3,4,5,6) C、D im %A(10)a(1)="ABCD"D、D im a(3),b(3)As Integera(0)=0:a(1)=1:a(2)=2: b=a16、在窗体上画三个单选按钮，组成一个名称为ChkOption的控件数组。
用于标识各个控件数组元素的属性是（）。
A、T agB、N ameC、I ndexD、V alue17、下列关于控件数组的说法中，正确的是（）。
A、控件数组可以由不同类型的控件组成B、同一个控件数组中各元素的Name属性值不同C、同一个控件数组中，每个元素的属性设置值都相同D、控件数组必须由同类型的控件组成18、阅读如下程序：Private Sub Command1_Click()Dim a(1 To 10) As Integer, p(1 To 3) As Integer, i%, k%k = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) * 2Next iPrint kEnd Sub运行上面的程序，单击命令按钮Command1，窗体显示的内容为（）。
A、22B、33C、44D、5519、以下程序段执行的结果是（）。
Private Sub Command1_Click()Dim aDim i As Integer, j As Integera = Array(1, 3, 5, 7, 9, 11)For i = 1 To a(4)j = j + 1Next iPrint jEnd SubA、7B、5C、9D、1120、如下数组声明语句中数组a包含的元素个数为（）。
Dim a(3,-1 to 1,6)A、84B、54C、72D、1821、窗体上有命令按钮Command1，编写下列事件过程：Private Sub Command1_Click()Dim a(10) As IntegerDim p(3) As Integerk = 1For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i * 3)Next iFor i = 1 To 3k = k + p(i) * 2Next iPrint kEnd Sub运行时单击命令按钮，窗体将显示（）。
A、15B、13C、30D、3722、以下程序段中有（）处错误。
ReDim a As Integern + 3 = na = 0 ;b = 1Print n + 3 = nA、1B、2C、3D、423、在通用声明中给出Option Base 1语句，则数组a包含（）个元素。
Dim a(3, -2 To 1, 5)A、120B、75C、60D、1324、运行下列程序，单击窗体后输出的结果是（）。
Private Sub Form_Click()Dim aDim s As Integer, i As Integera = Array(1, 2, 3, 4, 5, 6)s = 1For i = 5 To 1 Step -2s = s * a(i)Next iPrint sEnd SubA、15B、48C、120D、72025、对窗体上的命令按钮编写如下事件过程：Private Sub Command1_Click()Dim arr(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 10For j = 1 To 10arr(i, j) = i + 2 * jNext jNext iPrint arr(0, 1) + arr(2, 3)End Sub运行时，单击命令按钮后输出的结果是（）。
A、8B、10C、20D、下标越界26、窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()Dim s%, i%, j%Dim a(3, 3) As IntegerFor i = 1 To 3For j = 1 To ia(i, j) = js = s + a(i, j)Next j, iPrint sEnd Sub运行时，单击按钮，则窗体上显示的内容是（）。
A、6B、9C、10D、1827、运行下列程序，单击窗体后输出结果是（）。
Private Sub Form_Click()Dim aDim i As Integer, j As Integera = Array(1, 2, 3, 4, 5, 6)For i = 1 To a(5)j = j + 1Next iPrint jEnd SubA、0C、5B、6D、程序出错28、设arr是一个上界为K的一维动态数组。
能使arr元素个数增加1，但保留数组中原有数据的语句是（）。
A、R eDim arr(K + 1)B、R eDim Static arr(K + 1)C、P ublic arr(1 To K + 1)D、R eDim Preserve arr(K + 1)29、能使一维数组arr(6)元素个数加1，但不保留数组中原有元素的语句是（）。
A、R eDim Preserve arr(7)B、P ublic arr(1 to 7)C、S tatic arr(7)D、R eDim arr(7)30、以下关于控件数组的描述中，正确的是（）。
A、同一控件数组中的控件所有属性值都相同B、同一控件数组中的控件其Index属性值不同C、同一控件数组中的控件类型可以不同D、同一控件数组中的控件名称不同31、以下有关数组的说明中，正确的是（）。
A、用ReDim语句重新定义维数时，不得改变该数组的数据类型B、无论是动态数组还是静态数组，数组一旦定义，其维数是不能重新定义的C、用ReDim语句重新定义维数后，原有的数组元素内容将不予保留D、在过程中可以用Private语句定义数组1/4/5 BDA 11-15 BCBCA 21-25 DCCBA6-10 BCBCC 16-20 CDBCA 26-31 CBDDB C。