计算机二级VB第7章选择题及答案.doc

第七章理论复习题1、 阅读下列程序：Private Sub Form_Click() Dim m As Integer Static n As Integer For i = 1 To 3 n = n + i m = m + i 2 Next Print m, nEnd Sub运行时两次单击窗体结果为（）。A、 146 14 6B、 146 14 12C、 146 28 6D、 14628 122、 窗体上的命令按钮编写如下事件过程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 2 To 4 For j = 3 To 5 array1(i, j) = i * j Next j Next i Print 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、 ReDim arr(7)B、 ReDim Preserve arr(7)C、 Public arr(1 to 7)D、 Static 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、 321B、 432C、 543D、 65411、 要将字符串数组a中所有学生姓名按数组下标顺序追加到列表框list1中，可以使用的程序段为（）。A、 For i = 0 To UBound(a) - 1 List1.AddItem a(i), 0Next iB、 For i = 0 To UBound(a) - 1 List1.AddItem a(i)Next iC、 List1.AddItem aD、 For i = 0 To UBound(a) - 1 List1.List(i) = a(i)Next I12、 如下程序段中包含一个错误。X4Dim a（X）For m4 to 0 step 1a（m）m +1Next m出错的原因是（）。A、 第四行，数组元素a（m）下标越界B、 第四行，不能用循环变量m进行运算C、 第二行，不能用变量定义数组下标D、 第三行，循环语句格式不对13、 下列语句错误的是（）。A、 Private a（10 to 5）B、 Dim a(N)N为变量C、 Dim a() As IntegerD、 Dim a%(10,10 to 10)14、 能刚好存放如下方阵数据的数组声明语句是（不能浪费空间）（ ）。 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9A、 Dim A(9) as SingleB、 Dim A(3,3) as SingleC、 Dim A(-1 to 1,-5 to -3) as SingleD、 Dim A(-3 to -1,5 to 7) as Integer15、 以下定义数组或给数组元素赋值的语句中，正确的是（ ）。A、 Dim a As Varianta=Array(1,2,3,4,5,6)B、 Dim a(10) As Integera=Array(1,2,3,4,5,6)C、 Dim %A(10)a(1)=ABCDD、 Dim a(3),b(3)As Integera(0)=0:a(1)=1:a(2)=2: b=a16、 在窗体上画三个单选按钮，组成一个名称为ChkOption的控件数组。用于标识各个控件数组元素的属性是（）。A、 TagB、 NameC、 IndexD、 Value17、 下列关于控件数组的说法中，正确的是（）。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 = 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print kEnd Sub运行上面的程序，单击命令按钮Command1，窗体显示的内容为（）。A、 22B、 33C、 44D、 5519、 以下程序段执行的结果是（）。Private Sub Command1_Click() Dim a Dim i As Integer, j As Integer a = Array(1, 3, 5, 7, 9, 11) For i = 1 To a(4) j = j + 1 Next i Print 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 Integer Dim p(3) As Integer k = 1 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * 3) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print kEnd Sub运行时单击命令按钮，窗体将显示（）。A、 15B、 13C、 30D、 3722、 以下程序段中有（ ）处错误。 ReDim a As Integer n + 3 = n a = 0 ; b = 1 Print 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 a Dim s As Integer, i As Integer a = Array(1, 2, 3, 4, 5, 6) s = 1 For i = 5 To 1 Step -2 s = s * a(i) Next i Print s End SubA、 15B、 48C、 120D、 72025、 对窗体上的命令按钮编写如下事件过程： Private Sub Command1_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 10 For j = 1 To 10 arr(i, j) = i + 2 * j Next j Next i Print 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 Integer For i = 1 To 3 For j = 1 To i a(i, j) = j s = s + a(i, j) Next j, i Print s End Sub运行时，单击按钮，则窗体上显示的内容是（ ）。 A、 6B、 9C、 10D、 1827、 运行下列程序，单击窗体后输出结果是（ ）。 Private Sub Form_Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6) For i = 1 To a(5) j = j + 1 Next i Print j End SubA、 0C、5B、 6D、程序出错28、 设arr是一个上界为K的一维动态数组。能使arr元素个数增加1，但保留数组中原有数据的语句是（ ）。A、 ReDim arr(K + 1)B、 ReDim Static arr(K + 1)C、 Public arr(1 To K + 1)D、 ReDim Preserve arr(K + 1)29、 能使一维数组arr(6)元素个数加1，但不保留数组中原有元素的语句是（）。A、 ReDim Preserve arr(7)B、 Public arr(1 to 7)C、 Static arr(7)D、 ReDim arr(7)30、 以下关于控件数组的描述中，正确的是（）。A、 同一控件数组中的控件所有属性值都相同B、 同一控件数组中的控件其Index属性值不同C、 同一控