第一章 单元测试
1、单选题：一个应用程序________窗体。
A:应该有两个
B:可包括多个
C:可以没有
D:只许有一个
正确答案:【可包括多个
】
2、单选题：在一个工程中可以有多个__________。
A:机器代码文件
B:资源文件
C:标准模块文件
D:工程文件
正确答案:【标准模块文件】
3、单选题：
工程资源管理器窗口标题栏下的________按钮用于切换到“窗体编辑窗口”，显示和编辑正在设计的窗体。
A:“查看代码”按钮
B:“切换文件夹”按钮
C:“查看对象”按钮
D:“查看文件夹”按钮
正确答案:【“查看对象”按钮】
4、单选题：在代码窗口中，当从对象列表框中选择了某一对象后，在______中会列出适用该对象的事件。
A:过程框
B:布局窗口
C:属性窗口
D:事件列表框
正确答案:【过程框
】
5、单选题：保存一个工程至少应保存两个文件，这两个文件分别是_______。
A:文本文件和工程文件
B:窗体文件和标准模块文件
C:窗体文件和工程文件
D:类模块文件和工程文件
正确答案:【窗体文件和工程文件
】
6、单选题：工程文件的扩展名是________。
A:frx
B:bas
C:vbp
D:frm
正确答案:【vbp 】
7、单选题：窗体文件的扩展名是________。
A:vbp
B:vbg
C:bas
D:frm
正确答案:【frm
】
8、单选题：标准模块文件的扩展名是________。
A:bas
B:frm
C:frx
D:vbp
正确答案:【bas
】
9、单选题：Visual Basi的MSDN帮助窗口最明显的特征是________。
A:保持了浏览器的特征
B:具有Microsoft Office应用程序窗口风格
C:与Visual Basic编辑窗口相似
D:具有Windows风格
正确答案:【保持了浏览器的特征
】
10、单选题：Visual Basic窗体设计器的主要功能是________。
A:建立用户界面
B:编写源程序代码
C:显示文字
D:画图
正确答案:【建立用户界面
】
第二章 单元测试
1、单选题：设有一名称为txtName的文本框，则下列能使其具有输入焦点的语句是________。
A:txtName=SetFocus
B:Focus=True
C:txtName.SetFocus=True
D:txtName.SetFocus
正确答案:【txtName.SetFocus】
2、单选题：下列说法中错误的是________。
A:一个对象可以识别一个或多个事件
B:事件过程是指响应某个事件后执行的一段程序代码
C:事件是Visual Basic预置的，且能够被对象识别的动作
D:Visual Basic是采用对象驱动编程机制的语言
正确答案:【Visual Basic是采用对象驱动编程机制的语言】
3、单选题：在运行时，如果按Tab键跳过了一个可以获得焦点的控件（如文本框），其原因可能是________。
A:该控件的TabStop属性值为True
B:该控件的TabStop属性值为False
C:该控件的Enabled属性值为True
D:该控件的Locked属性值为True
正确答案:【该控件的TabStop属性值为False】
4、单选题：设窗体上有一个文本框Text1，程序代码中有以下赋值语句（假定用到的控件和变量都存在），其中错误的是________。
A:Text1.MaxLength = 30
B:Text1.Caption = 89
C:Text1.Text = 89
D:Text1.FontBold = True
正确答案:【Text1.Caption = 89】
5、单选题：假定Picture1和Text1分别为图片框和文本框的名称，则下列语句中错误的是________。
A:Debug.Print 100
B:Print 100
C:Picture1.Print 100
D:Text1.Print 100
正确答案:【Text1.Print 100】
6、单选题：在设计阶段，当双击窗体上的某个控件时，所打开的窗口是_______。
A:布局窗口
B:工程资源管理器窗口
C:代码窗口
D:工具箱窗口
正确答案:【代码窗口
】
7、单选题：一个可执行的VB应用程序至少要包括一个_______。
A:窗体模块
B:辅助模块
C:标准模块
D:类模块
正确答案:【窗体模块
】
8、单选题：下列叙述中错误的是_______。
A:事件可以由用户引发，也可以由系统引发
B:打开一个工程文件时,系统自动装入与该工程有关的窗体文件
C:Visual Basic应用程序只能以解释方式执行
D:保存Visual Basic程序时,应分别保存窗体文件及工程文件
正确答案:【Visual Basic应用程序只能以解释方式执行
】
9、单选题：用户可通过_______模拟的屏幕小图像来布置应用程序界面。
A:窗体设计器
B:窗体布局窗口
C:立即窗口
D:快捷菜单
正确答案:【窗体布局窗口 】
10、单选题：在窗体上添加一个文本框，名称为text1，然后编写如下的load事件过程，则程序的运行结果是__________。
Private Sub Form_Load
Text1.Text=””
Text1.SetFocus
For k=1 to 5
t=t*k
Next k
Text1.Text=t
End Sub
A:文本框中仍为空
B:在文本框中显示120
C:在文本框中显示1
D:出错
正确答案:【出错
】
11、单选题：保存一个工程至少应保存两个文件，这两个文件分别是__________。
A:窗体文件和工程文件
B:文本文件和工程文件
C:类模块文件和工程文件
D:窗体文件和标准模块文件
正确答案:【窗体文件和工程文件】
12、单选题：标签控件能够显示文本信息，文本内容只能用__________属性来设置。
A:Alignment
B:Caption
C:Visible
D:BorderStyle
正确答案:【Caption
】
13、单选题：若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口设置__________。
A:Password属性值为空
B:Text属性值为*
C:Passwordchar属性值为*
D:Caption属性值为*
正确答案:【Passwordchar属性值为*
】
14、单选题：若要使用户不能修改文本框TextBox1中显示的内容，应设置__________属性。
A:MultiLine
B:ScrollBar
C:Locked
D:PassWordChar
正确答案:【Locked
】
15、单选题：能够获得一个文本框中被选取文本的内容的属性是__________。
A:SelStart
B:Seltext
C:Text
D:Length
正确答案:【Seltext
】
16、单选题：在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Move 500, 500
End Sub程序运行后，单击命令按钮，产生的结果为________。
A:将命令按钮移动到距窗体左边界、上边界各500的位置
B:将窗体移动到距屏幕左边界、上边界各500的位置
C:将窗体向左、上方向各移动500
D:将命令按钮向左、上方向各移动500
正确答案:【将窗体移动到距屏幕左边界、上边界各500的位置】
17、单选题：在设计阶段，通过属性窗口为命令按钮的Picture属性装入一个图形，但没有显示，其原因是________。
A:按钮的Default属性值为False
B:按钮的Enabled属性值为False
C:按钮的Style属性值为0
D:没有用按钮的DisabledPicture属性装入图形
正确答案:【按钮的Style属性值为0
】
18、单选题：对于命令按钮，下列说法中正确的是________。
A:Default属性设置为True时，表示按Esc键与单击该命令按钮作用相同
B:Cancel属性设置为True时，表示按Enter键与单击该命令按钮作用相同
C:通过Picture属性可以给命令按钮指定一个图形
D:支持DblClick事件
正确答案:【通过Picture属性可以给命令按钮指定一个图形
】
19、单选题：以下叙述中，错误的是________。
A:在设计阶段不能调整通用对话框控件的大小
B:当文本框失去焦点时，触发其LostFocus事件
C:可以将计时器控件的Enabled属性设置为False，使其不能自动触发Timer事件
D:如果文本框的TabStop属性值为False，则不能接收从键盘上输入的数据
正确答案:【如果文本框的TabStop属性值为False，则不能接收从键盘上输入的数据】
20、单选题：下列叙述中不正确的是_______。
A:注释语句是非执行语句，仅对程序的有关内容起注释作用
B:向程序代码中加入注释语句的目的是提高程序的可读性
C:注释语句可以放在程序代码中的任何位置
D:注释语句可以单独写在一行
正确答案:【注释语句可以放在程序代码中的任何位置】
第三章 单元测试
1、单选题：如果要在任何新建的模块中自动插入Option Explicit语句，则应采用下列__________ 操作步骤。
A:在“工具”菜单中选取“选项”命令，打开选项对话框，单击“编辑器选项卡”选中“要求变量声明”选项
B:在“编辑”菜单中执行“插入文件”命令
C:在“工具”菜单中执行“插入文件”命令
D:在“工程”菜单中执行“添加文件”命令
正确答案:【在“工具”菜单中选取“选项”命令，打开选项对话框，单击“编辑器选项卡”选中“要求变量声明”选项】
2、单选题：声明一个变量为局部变量应该用 __________。
A:Static
B:Private
C:Global
D:Public
正确答案:【Private】
3、单选题：以下能作为Visual Basic变量名的是__________。
A:12-E
B:E1
C:E-12
D:12.5
正确答案:【E1】
4、单选题：数学表达式3≤x<10在VB中的逻辑表达式为__________。
A:x>=3 OR x<10
B:3< =x AND < 10
C:3< =x AND x< 10
D:3< =x< 10
正确答案:【3< =x AND x< 10】
5、单选题：下列选项中，为字符串常量的是__________。
A:6／12／2001
B:#6，12，2001#
C:6，12，2001#
D:＂6／12／2001＂
正确答案:【＂6／12／2001＂】
6、单选题：用户自定义数据类型时，其成员不能是__________。
A:变长字符串
B:货币型和日期型
C:定长字符串和数组
D:变长字符串和货币型
正确答案:【变长字符串】
7、单选题：若要处理一个值为50000的整数，应采用哪种VB基本数据类型描述更合法？__________
A:Integer
B:String
C:Single
D:Long
正确答案:【Long】
8、单选题：下面__________是合法单精度型变量。
A:num!
B:sum%
C:xinte$
D:mm#
正确答案:【num!】
9、单选题：下面__________是不合法的整常数
A:&O100
B:&H100
C:100
D:%100
正确答案:【%100】
10、单选题：假设变量intVar是一个整型变量，则执行赋值语句intVar=”2″+3之后，变量intVar的值是 __________。
A:5
B:2
C:3
D:23
正确答案:【5】
11、单选题：下列各声明语句中错误的是________。
A:Public Sum As Integer
B:Const Country = ‘English’
C:Dim Test As String=’计算机等级考试’
D:Static v1
正确答案:【Dim Test As String=’计算机等级考试’】
12、单选题：设a=4，b=5，c=6，执行语句：Print a < b And b < c ，窗体上显示的是________。
A:True
B:0
C:出错信息
D:False
正确答案:【True
】
13、单选题：以下说法中，正确的是________。
A:表达式Chr(Asc(‘A’))=UCase(‘a’)的值为False
B:表达式Int(Rnd())的值是0
C:利用关系表达式x/2=Int(x/2)不能判断变量x的值为偶数
D:表达式-10 Mod 3的值为1
正确答案:【表达式Int(Rnd())的值是0】
14、单选题：设有如下的记录类型：
Private Type Employee
num As String
name As String
End Type则下列语句中正确的是________。
A:Dim e As Employee=’1001′ & ‘John’
B:Dim e As Employee
C:Employee.name = ‘Tom’
D:Dim e As Type Employee
正确答案:【Dim e As Employee】
15、单选题：Visual Basic中，日期”1999年6月18日”的表达形式为________。
A:{1999/6/18}
B:{6/18/1999}
C:#6/18/1999#
D:1999/6/18
正确答案:【#6/18/1999#】
16、单选题：执行语句Print Sgn(-2^3)+Abs(Int(-12.2) Mod 100Sqr(100))的输出结果为________。
A:1
B:3
C:4
D:2
正确答案:【2】
17、单选题：表达式 (-1) * Sgn(-100 + Int(Rnd * 100)) 的值是________。
A:0
B:-1
C:1
D:随机数
正确答案:【1】
18、单选题：下列逻辑表达式中，能正确表示条件”x和y都是奇数”的是________。
A:x Mod 2 = 1 And y Mod 2 = 1
B:x Mod 2 = 0 Or y Mod 2 = 0
C:x Mod 2 =0 And y Mod 2 = 0
D:x Mod 2 = 1 Or y Mod 2 = 0
正确答案:【x Mod 2 = 1 And y Mod 2 = 1】
19、单选题：表达式Int(Rnd()*11)+10的值的范围是________。
A:整数10~20（不含10和20）
B:整数10~20（含10和20）
C:整数0~20（含0和20）
D:整数0~11（含0和11）
正确答案:【整数10~20（含10和20）】
20、单选题：若变量P的值为 -3，则 -P^2的值是________。
A:9
B:-9
C:-6
D:6
正确答案:【-9】
21、单选题：Visual Basic数据类型中，占用内存最小的是________。
A:Single
B:Integer
C:Byte
D:Boolean
正确答案:【Byte】
22、单选题：下面是Visual Basic合法变量名的是________。
A:B#C
B:PrintA
C:10B
D:Debug
正确答案:【PrintA】
23、单选题：以下不是Visual Basic合法常量的是________。
A:&O12
B:&H12&
C:#1/20/2014#
D:’a’
正确答案:【’a’】
第四章 单元测试
1、单选题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer
Dim num As Integer
Dim n As Integer
n = 0
Randomize
For i = 1 To 10
num = Int(Rnd * 10) + 1
Select Case num Mod 2
Case 1
Exit For
Case 0
Print num
n = n + 1
End Select
Next i
Print “n=”; n
End Sub
下面有关描述中正确的是________。
A:程序运行过程中，变量num共被赋值10次
B:当num的值为偶数时，则For循环将被终止
C:变量n的作用是累计自过程运行开始到结束所产生的偶数个数
D:num的值是1~11之间的整数
正确答案:【变量n的作用是累计自过程运行开始到结束所产生的偶数个数】
2、单选题：
在窗体上画一个名称为Command1的命令按钮，并编写如下程序代码：
Private Const NUM As Integer = 10
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 1
b = NUM
Do Until b > NUM
a = a * NUM
b = b + 1
Loop
Print a
End Sub
则当程序运行时，单击Command1后，在窗体上的输出结果是________。
A:100
B:1
C:10
D:21
正确答案:【10】
3、单选题：
已知文本框Text1中输入了一篇英文短文，并编写了如下程序段：
Str_x = Text1.Text
n = Len(Str_x)
m = 0
t = 0
For i = 1 To n
w = UCase(Mid(Str_x, i, 1))
If w >= “A” And w <= “Z” Then
If t = 0 Then m = m + 1
t = t + 1
Else
t = 0
End If
Next
Print m
该程序段的功能为统计并输出英文短文中________。
A:字母的个数
B:大写字母的个数
C:首字母大写的单词的个数
D:单词的个数
正确答案:【单词的个数】
4、单选题：
设窗体上有文本框Text1和命令按钮Command1，并编写了下面的过程：
Private Sub Command1_Click()
ch$ = “”
x% = Val(Text1.Text)
k = 2
For k = 2 To x / 2
If x Mod k = 0 Then
ch = ch & ” ” & k
End If
Next k
Print ch
End Sub
程序运行后，在文本框中输入28，单击命令按钮，则输出是________。
A:14 7 4 2
B:2 4 6 8 10 12 14
C:2 4 7 14
D:1 3 5 7 9 11 13
正确答案:【2 4 7 14】
5、单选题：
设有如下程序段：
Dim x As Integer
x = Val(InputBox(“输入变量x的值”))
Select Case x
Case ________________
Print “*”
Case Else
Print “#”
End Select
以上程序段的功能是，当变量x的值在5到10之间，或者大于20时，输出”*”，其它情况输出”#”，则程序中横线处应填入的内容是________。
A:5-10 Or x>20
B:5 To 10, Is>20
C:x>= 5 And x <= 10=”” or=”” x=””> 20
D:5 To 10: x>20
正确答案:【5 To 10, Is>20】
6、单选题：
设a、b、c为整型变量，其值分别为4、5、6。以下程序段的输出结果是________。
a = b: b = c: c = a
Print a; b; c
A:4 5 6
B:5 6 4
C:6 5 4
D:5 6 5
正确答案:【5 6 5】
7、单选题：以下Case子句中错误的是________。
A:Case 3, 5, Is > 10
B:Case Is > 10
C:Case Is > 10 And Is < 50
D:Case 0 To 10
正确答案:【Case Is > 10 And Is < 50】
8、单选题：
有如下程序代码：
Private Sub Form_Click()
X = 8
If X > 8 Then
Print “X > 8”
ElseIf X < 10 Then
Print “X < 10”
ElseIf X = 8 Then
Print “X = 8”
End If
End Sub
运行程序，单击窗体，输出结果是________。
A:X < 10 X = 8
B:X = 8
C:不确定
D:X < 10
正确答案:【X < 10】
9、单选题：
在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Form_Click()
Dim S As Integer
S = 0
For i = 1 To 15
x = 2 * i – 1
If x Mod 3 = 0 Then
S = S + 1
End If
Next i
Label1.Caption = S
End Sub
运行程序，单击窗体，标签中显示的是________。
A:1
B:45
C:5
D:27
正确答案:【5】
10、单选题：
执行下面的程序段后，x的值为________。
x=5
For i=1 to 20 Step 2
x=x+i5
Next i
A:24
B:21
C:23
D:22
正确答案:【21
】
11、单选题：
在窗体中画一个命令按扭，然后编写以下事件过程：
Private Sub Command1_Click( )
For i=1 to 4
x=4
For j=1 to 3
x=3
For k=1 to 2
k=k+6
Next k
Next j
Next i
Print x
End Sub
程序执行结果为________。
A:3
B:158
C:157
D:15
正确答案:【3】
12、单选题：对语句 If x=1 Then y=1 ,下列说法正确________。
A:x=1 和 y=1 均为赋值语句
B:x=1 是关系表达式， y=1 是赋值语句
C:x=1 和 y=1 均为关系表达式
D:x=1 是赋值语句， y=1 是关系表达式
正确答案:【x=1 是关系表达式， y=1 是赋值语句】
13、单选题：
设有如下程序：
Private Sub Command1_Click ( )
Dim sum As Double ,x As Double
sum=0
For i=1 To 5
x=n/i
n=n+1
sum =sum +x
Next
End Sub
该程序通过For 循环计算一个表达式的值，这个表达式是________。
A:1+1/2 +1/3+1/4+1/5
B:1/2 +2/3+3/4+4/5
C:1+1/2 +2/3+3/4+4/5
D:1+1/2 +2/3+3/4
正确答案:【1/2 +2/3+3/4+4/5】
14、单选题：
在窗体上画一个名称为Command1的命令按扭和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程:
Private Sub Command1_Click( )
n %= Text1.Text
Select Case n
Case 1 to 20
x=10
Case 2,4,6
x=20
Case Is<10
x=30
Case 10
x=40
End Select
Text2.Text=x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按扭，则在Text2中显示的内容是________。
A:20
B:40
C:30
D:10
正确答案:【10】
15、单选题：以下叙述中，错误的是________。
A:InputBox函数的返回值类型由用户在输入对话框中输入数据的类型决定
B:有语句：x = InputBox(“输入：”, “输入整数”)，则该语句打开的对话框的标题是”输入整数”
C:MsgBox函数的返回值为一整数
D:可以用MsgBox函数输出一条信息
正确答案:【InputBox函数的返回值类型由用户在输入对话框中输入数据的类型决定】
16、单选题：在Do While…Loop循环结构中Loop语句的作用是________。
A:转移到Do While语句行，开始下一次判断和循环
B:退出循环，返回到程序开始处
C:该语句在Do While…Loop循环结构中不起任何作用
D:终止循环，将控制转移到本循环结构Loop后面的第一条语句继续执行
正确答案:【转移到Do While语句行，开始下一次判断和循环】
17、单选题：设 a=6，则执行x= IIf ( a<6 ,-1 ,0 ) 后，x的值是________。
A:0
B:-1
C:6
D:5
正确答案:【0
】
第五章 单元测试
1、单选题：在窗体模块的通用声明段中声明变量时，不能使用__________关键字。
A:Private
B:Static
C:Public
D:Dim
正确答案:【Static】
2、单选题：使用ReDim Preserve可以改变数组__________。
A:所有维的大小
B:第一维的大小
C:改变维数和所有维的大小
D:最后一维的大小
正确答案:【最后一维的大小】
3、单选题：下列关于ReDim的说法中错误的是__________。
A:可以用ReDim语句直接定义数组。
B:ReDim语句只能改变元素的个数，但不能改变数组的维数。
C:在一个程序中，可以多次用Redim 语句定义同一个数组。
D:ReDim语句可以改变数组类型。
正确答案:【ReDim语句可以改变数组类型。】
4、单选题：以Dim x(6，2 To 5)来声明一个二维数组，错误的选项是__________。
A:UBound(x,2)的返回值是5
B:LBound(x,2)的返回值是1
C:LBound(x,1)的返回值是0
D:UBound(x,1)的返回值是6
正确答案:【LBound(x,2)的返回值是1】
5、单选题：下面的数组声明语句中正确的是__________。
A:Dim gg[1:5,1:5] As String
B:Dim gg[1,5] As String
C:Dim gg(1 To 5) As String
D:Dim gg[1 To 5,1 To 5] As String
正确答案:【Dim gg(1 To 5) As String】
6、单选题：语句Dim abc(-2 To 4,0 To 4,5)As Long定义的三维数组，其数组元素有__________ 。
A:112个
B:96个
C:210个
D:140个
正确答案:【210个】
7、单选题：用Dim b(-2 To 4) As String 语句所定义的数组元素个数是__________个。
A:4
B:2
C:7
D:6
正确答案:【7】
8、单选题：定义10个单精度实型一维数组正确的语句是__________。
A:Dim a(9) As Single
B:Option Base 1：Dim a(9)
C:Dim a(10) As Integer
D:Dim #(9)
正确答案:【Dim a(9) As Single】
9、单选题：以下属于Visual Basic合法的数组元素是__________。
A:x8
B:s(0)
C:v[8]
D:x[8]
正确答案:【s(0)】
10、单选题：
在窗体上画一个名称为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:程序出错
C:19
D:0
正确答案:【19】
11、单选题：
运行如下程序
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:3
B:5
C:2
D:4
正确答案:【3】
12、单选题：
若在窗体上画了一个名称为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:化学外语语文
正确答案:【数学化学语文】
13、单选题：
设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是________。
A:List1.Index
B:List1.Text
C:List1.List
D:List1.ListIndex
正确答案:【List1.Text】
14、单选题：
假定列表框List1中没有被选中的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是________。
A:删除最后加入列表中的一项
B:出错
C:删除最后一项
D:删除第一项
正确答案:【出错】
15、单选题：设组合框 Combo1 中有5 个项目，则以下能删除最后一项的语句是________。
A:Combo1.RemoveItem 5
B:Combo1.RemoveItem 4
C:Combo1.RemoveItem Combo1.ListCount
D:Combo1.RemoveItem Combo1.ListCount+1
正确答案:【Combo1.RemoveItem 4】
16、单选题：设在程序开始处有语句：Option Base 0，则下面定义的数组中正好有12个元素的是________。
A:Dim s%( 3 , 4 )
B:Dim s%( 3 , 2 )
C:Dim a%( 12 )
D:Dim a%( -6 To 6 )
正确答案:【Dim s%( 3 , 2 )】
17、单选题：在窗体上画一个名称为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:400500
B:500400
C:900
D:0
正确答案:【400500】
18、单选题：
设窗体上有一个名称为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:被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示最前面一个单选按钮的标题
正确答案:【被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示该单选按钮的标题】
19、单选题：在窗体上画一个名称为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:15
B:5
C:10
D:20
正确答案:【15】
20、单选题：
在窗体上画一个名称为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:出错
B:zyxwv
C:12345
D:abcde
正确答案:【zyxwv】
21、单选题：
在窗体上画一个列表框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(1) + Combo1.ListIndex(1) End Sub
B:Private Sub Form_Click() Text1.Text = List1.ListIndex(2) + Combo1.ListIndex(2) End Sub
C:Private Sub Form_Click() Combo1.ListIndex = 1 List1.ListIndex = 1 Text1.Text = List1.Text + Combo1.Text End Sub
D:Private Sub Form_Click() Combo1.ListIndex = 2 List1.ListIndex = 2 Text1.Text = List1.Text + Combo1.Text End Sub
正确答案:【Private Sub Form_Click() Combo1.ListIndex = 1 List1.ListIndex = 1 Text1.Text = List1.Text + Combo1.Text End Sub】
22、单选题：组合框兼有两种控件的特性，这两种控件是________。
A:复选框和单选按钮
B:标签和列表框
C:标签和文本框
D:列表框和文本框
正确答案:【列表框和文本框
】
23、单选题：下列说法中正确的是________。
A:语句Dim x[1 To 5] As Double能够定义一个一维数组x
B:用Erase语句可以清除静态数组中各元素的值，但不释放其所占的内存空间
C:用Array函数可以对任何数组初始化
D:当按下键盘上任意键时都会触发KeyPress事件
正确答案:【用Erase语句可以清除静态数组中各元素的值，但不释放其所占的内存空间】
24、单选题：列表框控件List1中已有若干个列表项，以下能表示被选中列表项内容的表达式是________。
A:List1.ListIndex
B:List1.List(ListIndex)
C:List1.List(List1.ListIndex)
D:List1 (List1.ListIndex)
正确答案:【List1.List(List1.ListIndex)】
第六章 单元测试
1、单选题：定义过程的格式中，Static关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static关键字，则__________。
A:定义了该过程中定义的局部变量为“自动”变量
B:每次调用此过程，该过程中的局部变量都会被重新初始化
C:每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值
D:在本过程中使用到的，在其他过程中定义的变量也为Static型
正确答案:【每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值
】
2、单选题：
在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用__________关键字在过程中定义局部变量。
A:Public
B:Private
C:Dim
D:Static
正确答案:【Static】
3、单选题：根据变量的作用域，可以将变量分为3类，分别为__________。
A:局部变量、模块变量和标准变量
B:局部变量、模块变量和窗体变量
C:局部变量、模块变量和全局变量
D:局部变量、标准变量和全局变量
正确答案:【局部变量、模块变量和全局变量
】
4、单选题：下列关于过程叙述不正确的是__________。
A:过程的传址调用是将实参在内存的地址传递给形参
B:过程的传值调用是将实参的具体值传递给形参
C:过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D:无论过程传值调用还是过程传址调用，参数传递都是双向的
正确答案:【无论过程传值调用还是过程传址调用，参数传递都是双向的】
5、单选题：要想从子过程调用后返回两个结果，下面子过程语句说明合法的是__________。
A:Sub f1( n%,ByVal m%)
B:Sub f2(ByVal n%,ByVal m%)
C:Sub f1(ByVal n%,m%)
D:Sub f1(n%,m%)
正确答案:【Sub f1(n%,m%)】
6、单选题：下列定义为abc的过程定义语句中正确的是__________。
A:Dim Sub abc(x,y)
B:Public abc(x,y)
C:Sub abc(x,y)
D:Private Sub abc(x,y) As Integer
正确答案:【Sub abc(x,y)
】
7、单选题：
有如下函数过程：
Function gys(ByVal X As Integer, ByVal Y As Integer) As Integer
Do While Y <> 0
reminder = X Mod Y
X = Y
Y = reminder
Loop
gys = X
End Function
以下调用函数的事件过程，该程序的运行结果是__________。
Private Sub Command7_Click()
Dim a As Integer
Dim b As Integer
a = 100
b = 25
X = gys(a, b)
Print X
End Sub
A:100
B:25
C:0
D:50
正确答案:【25
】
8、单选题：
已知过程定义的首行为Sub sum(a As Integer, b As Integer)，则下面过程调用语句中正确的是________。
A:sum x; y
B:sum(x , y)
C:sum x, y
D:Call sum(x ; y)
正确答案:【sum x, y】
9、单选题：
设有如下程序代码：
Dim a%
Public b%, c%
Private Sub Form_Click()
Dim b%
Print a; b; c
End Sub
Private Sub Form_Load()
Dim a%
a = 5
b = 8
c = 10
End Sub
运行程序时单击窗体，则在窗体上显示的是________。
A:5 0 10
B:0 0 10
C:0 8 10
D:5 8 10
正确答案:【0 0 10】
10、单选题：
设有以下程序片段：
Public x%
Private y$
Private Sub Command1_Click()
Dim a
……
End Sub
Private Sub Command2_Click()
Static b
……
End Sub在Command1_Click过程中无法访问的变量是________。
A:x
B:a
C:b
D:y
正确答案:【b】
11、单选题：
编写如下程序代码：
如有任何疑问请及时联系QQ 50895809反馈
