315 用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是(). A) 6 B) 7 C) 8 D) 9 答案 D
316 若有数组说明语句为:Dim a(-3 to 8),则数组a包含元素的个数是(). A) 5 B) 8 C) 11 D) 12 答案 D
317 以下属于合法的数组元素是(). A) x8 B) x[A] C) x(3) D) x{6} 答案 C
318 若有数组说明语句为:Dim a(10),则数组a包含元素的个数是(). A) 10 B) 11 C) 8 D) 12 答案 B
319 如果TAB函数的参数小于1,则打印位置在第()列. A) 0 B) 1 C) 2 D) 3 答案 B
320 为了防止用户随意将光标置于控件上,应(). A) 将控件的TABINDEX属性设置为0 B) 将控件的TABSTOP属性设置为TRUE C) 将控件的TABSTOP属性设置为FALSE D) 将控件的ENABLED属性设置为FALSE 答案 D
321 如果要设置窗体的标题栏,应选择以下那种属性(). A) Name B) Caption C) Tips D) Text 答案 B
322 可以惟一标识控件数组中的每一个控件属性的是 A) Name B) Caption C) Index D) Enabled 答案 C
323 有以下的语句: Option Base 1
Dim xscj(3,4,5) As String
声明的数组xscj有 个数组元素. A) 120
B) 20 C) 12 D) 60 答案 D
324 下面程序段输出的结果是 Private Sub Command1_Click() Dim a(1 To 3, 4) As Integer Print LBound(a, 1), UBound(a, 1), LBound(a, 2), UBound(a, 2) End Sub
A) 1 3 0 4 B) 0 3 1 4 C) 1 3 1 4 D) 0 3 0 4 答案 A
325 设执行以下程序段时依次输入11、33、55,执行结果为 Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox(\请输入数据\ b(3 - K) = a(K + 1) Next K Print b(K) A) 11 B) 33 C) 55 D) 0 答案 A
326 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a = Array(1, 2, 3, 4, 5) Sum = 0
For i = 1 To 5
Sum = Sum + a(i) Next i
x = Sum / 5 For i = 1 To 5
If a(i) > x Then Print a(i); Next i End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是 A) 1 2 B) 1 2 3 C) 3 4 5 D) 4 5 答案 D
327 有以下程序: Option Base 1
Dim arr() As Integer Private 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*10+j Next j Next i
ReDim Preserve arr(3,4) For j=3 To 4
arr(3,j)=10*j+5 Next j
Print arr(3,2);arr(3,4) End Sub
程序运行后,单击窗体,输出结果为 A) 0 22 B) 31 35 C) 32 45 D) 0 0 答案 C
328 要分配存放如下方阵的数据： 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9
数组声明语句能实现（不能浪费空间）的是 A) Dim a(9) As Single B) Dim a(3,3) As Single
C) Dim a (-1 To 1,-5 To -3) As Single D) Dim a (-3 To 1,-5 To 7) As Integer 答案 C
329 如下数组声明语句:Dim a(3,-2 To 2,5),则数组a包含的元素的个数为 A) 120 B) 75 C) 60 D) 13 答案 A
330 以下程序 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) 49 B) 0
C) 不确定 D) 程序出错 答案 D
331 以下程序 Option Base 1
Private 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 i End Sub 输出结果是 A) 1 2 3 2 3 1 3 2 3 B) 1 2 3 1 2 3 1 2 3 C) 1 2 3 2 4 6 3 6 9 D) 1 1 1 2 2 2 3 3 3 答案 A
332 以下程序 Option Base 1
Private Sub Command1_Click() Dim a,B(3,3) a=Array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 B(i,j)=a(i*j) If(j＞=i) Then Print Tab(j*3);format(B(i,j),\ Next j Print Next I End Sub 输出结果是 A) 1 2 3 4 5 6 7 8 9 B) 1 4 5 7 8 9 C) 1 4 7 2 4 6 3 6 9 D) 1 2 3 4 6 9 答案 D
333 已知有数组声明:Dim a(-1 To 3,2 To 5)As integer,如下引用数组中的元素,正确的是 A) a(-1,2) B) a(4)
C) a[-1,2] D) a(0,6) 答案 A
334 下列有关控件数组与一般控件的区别的叙述中,最合理的是
A) 控件数组一定由多个同类型的控件组成,一般控件只有一个控件; B) 控件数组的Index为0,而一般控件的Index为空; C) 控件数组的Index为1,而一般控件的Index为0;
D) 控件数组的建立通过Dim语句声明,而一般控件不必声明. 答案 A
335 在窗体上添加一个命令按钮，编写如下代码： Private Sub Command1_Click
Dim Arr1(10) as Integer ,Arr2(10) As Integer N=3
For i=1 to 5
Arr1(i)=i
Arr2(n)=2*n+i Next i
Print Arr2(n), Arr1(n) End Sub
程序运行后，单击命令按钮，输出结果是 A) 11 3 B) 3 11 C) 13 3 D) 3 13 答案 A
336 在窗体上添加一个命令按钮，编写如下代码： Option Base 1
Private Sub Command1_Click
Dim a(10) As Integer,p(3) As Integer 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 k End Sub
程序运行后，单击命令按钮，输出结果是 A) 35 B) 28 C) 33 D) 37 答案 C
337 在窗体上添加一个命令按钮，编写如下代码： Option Base 1
Private Sub Command1_Click Dim a
A=Array(1,2,3,4) J=1