第五章测试1.
在窗体模块的通用声明段中声明变量时，不能使用__________关键字。
A:Private B:Public C:Static D:Dim
答案:C
2.使用ReDim Preserve可以改变数组__________。
A:所有维的大小 B:最后一维的大小 C:改变维数和所有维的大小 D:第一维的大小 3.
下列关于ReDim的说法中错误的是__________。
A:可以用ReDim语句直接定义数组。 B:ReDim语句可以改变数组类型。 C:ReDim语句只能改变元素的个数，但不能改变数组的维数。 D:在一个程序中，可以多次用Redim 语句定义同一个数组。 4.以Dim x(6，2 To 5)来声明一个二维数组，错误的选项是__________。
A:UBound(x,1)的返回值是6 B:LBound(x,2)的返回值是1 C:LBound(x,1)的返回值是0 D:UBound(x,2)的返回值是5 5.下面的数组声明语句中正确的是__________。
A:Dim a[3;4] As Integer B:Dim A[3,4] As Integer C:Dim A(3,4) As Integer D:Dim A(3;4) As Integer 6.语句Dim abc(-2 To 4,0 To 4,5)As Long定义的三维数组，其数组元素有__________ 。
A:210个 B:112个 C:140个 D:96个 7.下面的数组声明语句中正确的是__________。
A:Dim gg[1:5,1:5] As String B:Dim gg[1 To 5,1 To 5] As String C:Dim gg(1 To 5) As String D:Dim gg[1,5] As String 8.
用Dim b(-2 To 4) As String 语句所定义的数组元素个数是__________个。
A:6 B:2 C:4 D:7 9.定义10个单精度实型一维数组正确的语句是__________。
A:Dim a(10) As Integer B:Dim a(9) As Single C:Dim #(9) D:Option Base 1：Dim a(9) 10.
以下属于Visual Basic合法的数组元素是__________。
A:v[8] B:s(0) C:x[8] D:x8 11.
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：
Option Base 1
Dim arr() As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim s As Integer
ReDim arr(4, 2)
s = 0
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i + j
Next j
Next i
ReDim Preserve arr(4, 4)
For j = 3 To 4
arr(3, j) = j + 10
Next j
For i = 1 To 4
s = s + arr(i, i)
Next i
Print s
End Sub
程序运行过程中，当单击Command1时，输出结果为________。
A:18 B:0 C:程序出错 D:19 12.
运行如下程序
Private Sub Command1_Click()
Dim a(5, 5) As Integer
For i = 1 To 5
For j = 1 To 4
a(i, j) = i * 2 + j
If a(i, j) / 7 = a(i, j) 7 Then
n = n + 1
End If
Next j
Next
Print n
End Sub
则n的值是________。
A:5
B:4
C:2 D:3 13.
若在窗体上画了一个名称为List1的列表框，并编写了如下事件过程：
Private Sub Form_Load ( )
List1.AddItem "数学"
List1.AddItem "物理"
List1.AddItem "化学"
List1.AddItem "外语"
List1.AddItem "语文"
End Sub
Private Sub Form_Click()
List1.RemoveItem 1
List1.RemoveItem 2
End Sub
运行程序后，单击窗体，则列表框中显示的项目是________A:化学外语语文 B:物理外语语文 C:数学化学语文 D:数学外语语文 14.
设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是________。
A:List1.ListIndex B:List1.Index C:List1.Text D:List1.List 15.
假定列表框List1中没有被选中的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是________。
A:删除最后加入列表中的一项 B:删除最后一项 C:出错 D:删除第一项 16.设组合框 Combo1 中有5 个项目，则以下能删除最后一项的语句是________。
A:Combo1.RemoveItem 5 B:Combo1.RemoveItem 4 C:Combo1.RemoveItem Combo1.ListCount+1 D:Combo1.RemoveItem Combo1.ListCount 17.
设在程序开始处有语句：Option Base 0，则下面定义的数组中正好有12个元素的是________。
A:Dim s%( 3 , 4 ) B:Dim a%( 12 ) C:Dim a%( -6 To 6 ) D:Dim s%( 3 , 2 ) 18.
在窗体上画一个名称为List1的列表框和一个名称为Text1的文本框，然后编写如下两个事件过程：
Private Sub Form_Load()
List1.AddItem "100"
List1.AddItem "200"
List1.AddItem "300"
List1.AddItem "400"
Text1.Text = ""
End Sub
Private Sub List1_DblClick()
a = List1.Text
Print a + Text1.Text
End Sub
程序运行后，在文本框中输入"500"，然后双击列表框中的"400"，则输出结果为________。
A:900 B:500400 C:400500 D:0
19.
设窗体上有一个名称为Option1的单选按钮数组（其下标从0开始），共有4个单选按钮，并有下面事件过程：
Private Sub Option1_Click(Index As Integer)
n = Index
If Index < 3 Then n = n + 1
Print Option1(n).Caption
End Sub
程序运行时，单击其中一个单选按钮，则在窗体上显示的是________。
A:被选中的单选按钮的标题 B:被选中单选按钮的上一个按钮的标题，但如果选中的是最前面的一个，则显示最后面按钮的标题 C:被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示最前面一个单选按钮的标题 D:被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示该单选按钮的标题 20.
在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如下程序代码：
Option Base 0
Private Sub Command1_Click()
Dim a(5) As Integer, n As Integer
For i = 0 To 5
a(i) = i
n = n + a(i)
Next i
Label1 = n
End Sub
运行程序，单击命令按钮，在标签中显示的内容是________。
A:10 B:5 C:15 D:20 21.
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：
Option Base 1
Private Sub Command1_Click()
Dim a(5) As String
Dim i As Integer
Dim b As Variant
For i = LBound(a) To UBound(a)
a(i) = Chr(Asc("a") + (26 - i))
Next i
For Each b In a
Print b;
Next
End Sub
程序运行时，单击Command1，则输出结果是________。
A:abcde B:zyxwv C:12345 D:出错 22.
在窗体上画一个列表框List1、一个组合框Combo1和一个文本框Text1，编写如下程序代码：
Private Sub Form_Load()
List1.AddItem "111"
List1.AddItem "222"
List1.AddItem "333"
Combo1.AddItem "444"
Combo1.AddItem "555"
Combo1.AddItem "666"
Text1.Text = ""
End Sub
程序运行后，如果单击窗体，要求在文本框中显示"222555"，以下能实现该操作的事件过程是________。
A:Private Sub Form_Click() Text1.Text = List1.ListIndex(2) + Combo1.ListIndex(2) End Sub B:Private Sub Form_Click() Combo1.ListIndex = 1 List1.ListIndex = 1 Text1.Text = List1.Text + Combo1.Text End Sub C:Private Sub Form_Click() Combo1.ListIndex = 2 List1.ListIndex = 2 Text1.Text = List1.Text + Combo1.Text End Sub D:Private Sub Form_Click() Text1.Text = List1.ListIndex(1) + Combo1.ListIndex(1) End Sub 23.
组合框兼有两种控件的特性，这两种控件是________。
A:标签和文本框 B:标签和列表框 C:复选框和单选按钮 D:列表框和文本框
24.下列说法中正确的是________。
A:用Erase语句可以清除静态数组中各元素的值，但不释放其所占的内存空间 B:用Array函数可以对任何数组初始化 C:语句Dim x[1 To 5] As Double能够定义一个一维数组x D:当按下键盘上任意键时都会触发KeyPress事件 25.列表框控件List1中已有若干个列表项，以下能表示被选中列表项内容的表达式是________。
A:List1.List(List1.ListIndex) B:List1 (List1.ListIndex) C:List1.ListIndex D:List1.List(ListIndex)
