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
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
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
For i=4 To1 Step -1
S=s+a(i)*j
J=j*10
Next i
Print s
End Sub
程序运行后,单击命令按钮,输出结果是
A) 4321
B) 12
C) 34
D) 1234
答案 D
338 以下程序输出的结果是:
Private Sub Form_Activate()
Dim a
a=Array(1,2,3,4,5)
For i=Lbound(A) To Ubound(A)
A(i)=i*a(i)
Next i
Print i, Lbound(A) , Ubound(A) , a(i)
End Sub
A) 4 0 4 20
B) 5 0 4 20
C) 不确定
D) 程序出错
答案 D
339 如下数组声明语句,正确的是
A) Dim a[3,4]As Integer
B) Dim a(3,4)As Integer
C) Dim a(n,n) As Integer
D)
答案 B
340 用下面语句定义的数组的元素个数是()
Dim A (-3 To 5) As Integer
A) 6
B) 5
C) 8
D) 9
答案 D
341 用下面语句定义的数组的元素个数是()
Dim A (-2 To 4) As Integer
A) 6
B) 5
C) 7
D) 8
答案 C
342 在窗体中添加一个命令按钮,然后编写如下代码: Private Sub Command1_Click()
ReDim this(4)
For i = 1 To 4
this(i) = i * 3
Next
ReDim this(6)
For i = 1 To 6
this(i) = this(i) + i
Next
Print this(3);this(6)
End Sub
程序运行后,则窗体上显示的内容为()
A) 3 6
B) 10 6
C) 12 6
D) 8 0
答案 A
343 激活属性窗口使用的键是().
A) F2
B) F3
C) F4
D) F5
答案 C
344 退出VisualBasic的快捷键是().
A) Ctrl+Q
B) Shift+Q
C) Alt+Q
D) Ctrl+Alt+Q
答案 C
345 除了系统默认的工具箱布局外,在VisualBasic中还可以通过()方法来定义选项卡组织安排控件.
A) 在工具箱单击鼠标右键,执行快捷菜单中的"添加选项卡"命令
B) 执行"文件"菜单中的"添加工程"命令
C) 执行"工程"菜单中的"添加窗体"命令
D) 执行"工程"菜单中的"部件"命令
答案 A
346 如果在图片框上使用绘图方法绘制一个圆,则图片框的()属性不会对该圆的外观产生影响.
A) BackColor
B) ForeColor
C) DrawWidth
D) DrawStyle
答案 B
347 下列()属性可返回目录列表框的路径.
A) path
B) drive
C) pathroad
D) initdir
答案 A
348 控件是().
A) 建立对象的工具
B) 设置对象属性的工具
C) 编写程序的编辑器
D) 建立图形界面的编辑窗口
答案 A