智慧树知到《VisualBasic程序设计》章节测试答案

智慧树知到《VisualBasic程序设计》章节测试答案
第一章单元测试
1、以下关于VB语言的说法中，正确的是（）。
A.VB是一种面向过程的语言
B.VB是一种面向对象的语言
C.VB是一种低级语言
D.VB是一种机器语言
正确答案：VB是一种面向对象的语言
2、在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（）。
A.编写代码
B.新建一个工程
C.打开属性窗口
D.进入Visual Basic环境
正确答案：新建一个工程
3、以下可以构成语句的是（）。
A.对象名.属性
B.对象名.方法名
C.对象名.事件名
D.对象名.函数名
正确答案：对象名.方法名
4、（）是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
A.文件
B.属性
C.方法
D.窗体
正确答案：方法
5、下列不是Visual Basic 文件的是（）。
A.*.frm文件
B.*.bas
C.*.cls文件
D.*.txt
正确答案：*.txt
6、下列不能打开工具箱窗口的操作是（）。
A.执行“视图”菜单中的“工具箱”命令
B.按Alt+F8键
C.单击工具栏上的“工具箱”按钮
D.按Alt+V，然后按Alt+X键
正确答案：按Alt+F8键
7、下列可以打开立即窗口的操作是（）。
A.Ctrl+D
B.Ctrl+E
C.Ctrl+F
D.Ctrl+G
正确答案：Ctrl+G
8、Visual Basic6.0集成环境的主窗口中不包括（）。
A.标题栏
B.菜单栏
C.状态栏
D.工具栏
正确答案：状态栏
9、在Visual；Basic中，不能关闭的窗口是（）。
A.窗体设计器窗口
B.工程窗口
C.属性窗口
D.立即窗口
正确答案：工程窗口
10、Visual Basic是一种面向对象的可视化程序设计语言，采取了（）的编程机制。
A.从窗体开始执行
B.按书写顺序执行
C.从主程序开始执行
D.事件驱动
正确答案：事件驱动
11、以下关于VB语言的说法中，正确的是（）。
A.VB是一种面向过程的语言
B.VB是一种面向对象的语言
C.VB是一种低级语言
D.VB是一种机器语言
正确答案：VB是一种面向对象的语言
12、在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（）。
A.编写代码
B.新建一个工程
C.打开属性窗口
D.进入Visual Basic环境
正确答案：新建一个工程
13、以下可以构成语句的是（）。
A.对象名.属性
B.对象名.方法名
C.对象名.事件名
D.对象名.函数名
正确答案：对象名.方法名
14、（）是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
A.文件
B.属性
C.方法
D.窗体
正确答案：方法
15、下列不是Visual Basic 文件的是（）。
A.*.frm文件
B.*.bas
C.*.cls文件
D.*.txt
正确答案：*.txt
16、下列不能打开工具箱窗口的操作是（）。
A.执行“视图”菜单中的“工具箱”命令
B.按Alt+F8键
C.单击工具栏上的“工具箱”按钮
D.按Alt+V，然后按Alt+X键
正确答案：按Alt+F8键
17、下列可以打开立即窗口的操作是（）。
A.Ctrl+D
B.Ctrl+E
C.Ctrl+F
D.Ctrl+G
正确答案：Ctrl+G
18、Visual Basic6.0集成环境的主窗口中不包括（）。
A.标题栏
B.菜单栏
C.状态栏
D.工具栏
正确答案：状态栏
19、在Visual；Basic中，不能关闭的窗口是（）。
A.窗体设计器窗口
B.工程窗口
C.属性窗口
D.立即窗口
正确答案：工程窗口
20、Visual Basic是一种面向对象的可视化程序设计语言，采取了（）的编程机制。
A.从窗体开始执行
B.按书写顺序执行
C.从主程序开始执行
D.事件驱动
正确答案：事件驱动
21、下面不是VB工作模式的是
A.设计模式
B.运行模式
C.汇编模式
D.中断模式
正确答案：汇编模式
22、可视化编程的最大优点是
A.具有标准工具箱
B.一个工程文件由若干个窗体文件组成
C.不需要编写大量代码来描述图形对象
D.所见即所得
正确答案：不需要编写大量代码来描述图形对象
23、下列不能打开属性窗口的操作是
A.执行“视图”菜单中的“属性窗口”命令
B.按F4键
C.按Ctrl+T
D.单击工具栏上的“属性窗口”按钮
正确答案：按Ctrl+T
24、Visual Basic的编程机制是
A.可视化
B.面向对象
C.面向图形
D.事件驱动
正确答案：事件驱动
25、Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是
A.属性；事件；事件过程
B.控件；窗体；事件
C.属性；过程；方法
D.属性；事件；方法
正确答案：属性；事件；方法
26、下列关于面向对象和可视化程序设计的叙述正确的是
A.面向对象的语言一定是可视化的
B.面向对象和可视化是一个意思
C.可视化的语言一定是面向对象的
D.面向对象是程序设计的思想方法，可视化是一种辅助手段，二者没有必然联系
正确答案：面向对象是程序设计的思想方法，可视化是一种辅助手段，二者没有必然联系
27、以下叙述中错误的是
A.打开一个工程文件时，系统自动装入与该工程有关的窗体､标准模块等文件
B.保存Visual Basic程序时，应分别保存窗体文件及工程文件
C.Visual Basic应用程序只能以解释方式执行
D.事件可以由用户引发，也可以由系统引发
正确答案：Visual Basic应用程序只能以解释方式执行
第二章单元测试
1、下列符号常量的声明中，（）是不合法的。
A.Const a As Single=1.1
B.Const a As Integer=“12”
C.Const a As Double=Sin（1）
D.Const a =“OK”
正确答案：Const a As Integer=“12”
2、表达式“Turbo”+“c”>；“Ture”+“Basic”的值是（）。
A.True
B.False
C.Null
D.出错信息
正确答案：False
3、执行下列语句后，V的值是（）。A=“56789”；V=Val（Mid（A，3，2））
A.89
B.78
C.67
D.0
正确答案：78
4、表达式4+56*7/8 Mod 4的值是（）。
A.4
B.5
C.6
D.7
正确答案：5
5、下列符号（）是Visual Basic中合法的变量名。
A.x23
B.8xy
C.END
D.X8[B]
正确答案：x23
6、在一行内写多条语句时，每个语句之间用（）来分隔。
A.，
B.：
C.、
D.
正确答案：：
7、在VB中，用Single来表示的数据类型是（）。
A.长整型
B.字符型
C.逻辑型
D.单精度型
正确答案：单精度型
8、下列程序段的运行结果是（）。
Dim A As Integer ， B As Integer
A = 15
B = 4
Print 4 + A B。
A.7
B.-7
C.7.75
D.8
正确答案：7
9、三种逻辑运算符号优先次序为（）。
A.AND、NOT、OR
B.NOT、OR、AND
C.NOT、AND、OR
D.OR、NOT、AND
正确答案：NOT、AND、OR
10、数学式3abc（d+e）改写为VB表达式为（）。
A.3a*b*c（d+e）
B.3abc（d+e）
C.3abcd +3abce
D.3*a*b*c*（d+e）
正确答案：3*a*b*c*（d+e）
11、下列符号常量的声明中，（）是不合法的。
A.Const a As Single=1.1
B.Const a As Integer=“12”
C.Const a As Double=Sin（1）
D.Const a =“OK”
正确答案：Const a As Integer=“12”
12、表达式“Turbo”+“c”>；“Ture”+“Basic”的值是（）。
A.True
B.False
C.Null
D.出错信息
正确答案：False
13、执行下列语句后，V的值是（）。A=“56789”；V=Val（Mid（A，3，2））
A.89
B.78
C.67
D.0
正确答案：78
14、表达式4+56*7/8 Mod 4的值是（）。
A.4
B.5
C.6
D.7
正确答案：5
15、下列符号（）是Visual Basic中合法的变量名。
A.x23
B.8xy
C.END
D.X8[B]
正确答案：x23
16、在一行内写多条语句时，每个语句之间用（）来分隔。
A.，
B.：
C.、
D.
正确答案：：
17、在VB中，用Single来表示的数据类型是（）。
A.长整型
B.字符型
C.逻辑型
D.单精度型
正确答案：单精度型
18、下列程序段的运行结果是（）。
Dim A As Integer ， B As Integer
A = 15
B = 4
Print 4 + A B。
A.7
B.-7
C.7.75
D.8
正确答案：7
19、三种逻辑运算符号优先次序为（）。
A.AND、NOT、OR
B.NOT、OR、AND
C.NOT、AND、OR
D.OR、NOT、AND
正确答案：NOT、AND、OR
20、数学式3abc（d+e）改写为VB表达式为（）。
A.3a*b*c（d+e）
B.3abc（d+e）
C.3abcd +3abce
D.3*a*b*c*（d+e）
正确答案：3*a*b*c*（d+e）
21、以下能够触发文本框Change事件的操作是（）
A.文本框失去焦点
B.文本框获得焦点
C.设置文本框的焦点
D.改变文本框的内容
正确答案：改变文本框的内容
22、若要求从文本框中输入密码时在文本框中只显示＃号，则应用在此文本框的属性窗口中设置（）
A.Text属性值为＃
B.Caption属性值为
C.Passwordchar属性值为＃
D.Passwordchar属性值为
正确答案：Passwordchar属性值为＃
第三章单元测试
1、结构化程序设计的三种基本结构不包括（）。
A.顺序结构
B.倒序结构
C.选择结构
D.循环结构
正确答案：倒序结构
2、下面四个语句中，能打印显示20*30字样的是（）。
A.Print“20*30”
B.Print 20*30
C.Print Chr（20）+“*”+Chr（30）
D.Print val（“20”）*val（“30”）
正确答案：Print“20*30”
3、关于MsgBox函数，以下说法不正确的是（）。
A.“提示”参数用于在MsgBox函数产生的对话框内显示提示信息
B.“按钮”参数是数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和
C.MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关
D.“标题”参数可选，显示在对话框标题栏中的字符串表达式
正确答案：MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关
4、语句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为赋值语句
5、下面程序段执行结果为（）。x = 5；：y = -6If not x >； 0 Then；x = y – 3；Else ；y = x + 3End IfPrint；x - y；y - x
A.-3 ；3
B.5 ；-9
C.3 ；-3
D.-6 ；5
正确答案：-3 ；3
6、编写如下事件过程：；Private Sub Form（）Click（） ；score=Int（Rnd*10）+80 ；Select Case score ；Case Is<；60 ；a$="；F"；Case 60 To 69 ；a$="；D"；Case 70 To 79 ；a$="；C"；Case 80 To 89 ；a$="；B"；Case Else ；a$="；A"；End Select ；Print a$ ；End Sub ；程序运行后，单击窗体，则窗体上显示的内容是（）。
A.A
B.B
C.C
D.D
正确答案：B
7、循环结构For I%= -1 to –17；Step –2 共执行（）次。
A.5
B.6
C.8
D.9
正确答案：9
8、下列程序段的执行结果为（）。a=0：b=1 Do；a=a+b ；b=b+1 Loop While a<；10 Print a；b。
A.10； 5
B.a； b
C.0； 1
D.10； 30
正确答案：10； 5
9、有如下程序，运行后输出的结果是（）。j=0：n=0 Do While ；n<；3 ；j=（j+1）*（j+2）；n=n+1 Loop Print j；n。
A.0； 1
B.182； 3
C.30； 4
D.3； 3
正确答案：182； 3
10、下列的程序段执行后，x的值为（）。x=0 For i=1 To 10；For j=i To 10 ；x=x+1 ；Next j Next i
A.50
B.55
C.5
D.105
正确答案：55
11、结构化程序设计的三种基本结构不包括（）。
A.顺序结构
B.倒序结构
C.选择结构
D.循环结构
正确答案：倒序结构
12、下面四个语句中，能打印显示20*30字样的是（）。
A.Print“20*30”
B.Print 20*30
C.Print Chr（20）+“*”+Chr（30）
D.Print val（“20”）*val（“30”）
正确答案：Print“20*30”
13、关于MsgBox函数，以下说法不正确的是（）。
A.“提示”参数用于在MsgBox函数产生的对话框内显示提示信息
B.“按钮”参数是数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和
C.MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关
D.“标题”参数可选，显示在对话框标题栏中的字符串表达式
正确答案：MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关
14、语句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为赋值语句
15、下面程序段执行结果为（）。x = 5；：y = -6If not x >； 0 Then；x = y – 3；Else ；y = x + 3End IfPrint；x - y；y - x
A.-3 ；3
B.5 ；-9
C.3 ；-3
D.-6 ；5
正确答案：-3 ；3
16、编写如下事件过程：；Private Sub Form（）Click（） ；score=Int（Rnd*10）+80 ；Select Case score ；Case Is<；60 ；a$="；F"；Case 60 To 69 ；a$="；D"；Case 70 To 79 ；a$="；C"；Case 80 To 89 ；a$="；B"；Case Else ；a$="；A"；End Select ；Print a$ ；End Sub ；程序运行后，单击窗体，则窗体上显示的内容是（）。
A.A
B.B
C.C
D.D
正确答案：B
17、循环结构For I%= -1 to –17；Step –2 共执行（）次。
A.5
B.6
C.8
D.9
正确答案：9
18、下列程序段的执行结果为（）。a=0：b=1 Do；a=a+b ；b=b+1 Loop While a<；10 Print a；b。
A.10； 5
B.a； b
C.0； 1
D.10； 30
正确答案：10； 5
19、有如下程序，运行后输出的结果是（）。j=0：n=0 Do While ；n<；3 ；j=（j+1）*（j+2）；n=n+1 Loop Print j；n。
A.0； 1
B.182； 3
C.30； 4
D.3； 3
正确答案：182； 3
20、下列的程序段执行后，x的值为（）。x=0 For i=1 To 10；For j=i To 10 ；x=x+1 ；Next j Next i
A.50
B.55
C.5
D.105
正确答案：55
21、以下哪个是合法的变量
A.right
B.abc@123
C.123（）abc
D.ab123c
正确答案：ab123c
22、在Visual Basic 中语句的续行号采用
A.空格与下划线
B.下划线与空格
C.空格与短线
D.短线与空格
正确答案：空格与下划线
23、假设变量BOOLVAR是一个布尔型变量，则下面正确的赋值语句是
A.BOOLVAR=‘TRUE’
B.BOOLVAR=.TRUE
C.BOOLVAR=#TRUE#
D.BOOLVAR=3<；4
正确答案：BOOLVAR=3<；4
24、变量未赋值时，数值型变量的值为
A.0
B.空
C.1
D.无任何值
正确答案：0
25、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为
A.0
B.-1
C.TRUE
D.FALSE
正确答案：-1
26、表达式4+5 6 * 7 / 8 Mod 9 的值是
A.4
B.5
C.6
D.7
正确答案：5
27、设x=4，y=8，z=7，表达式x<；y And （Not y>；z） Or z<；x的值是
A.1
B.-1
C.True
D.False
正确答案：False
28、表达式12000 + "；129"； &； 200的值是
A.12329
B."；12129200"
C."；12000129200"
D."；12329"
正确答案："；12129200"
29、下列可作为Visual Basic变量名的是
A.A#A
B.4A
C.？xy
D.constA
正确答案：constA
30、如果变量 a=2、b="；abc"；、c="；acd"；、d=5，则表达式 a<；d ；Or b>；c And b<；>；c 的值
A.True
B.False
C.Yes
D.No
正确答案：True
31、把字符串“123”转换为数值；123；时应该使用的函数是
A.Str
B.Val
C.Len
D.Log
正确答案：Val
32、表示条件“a是大于b的奇数”的逻辑表达式是
A.a>；b and Int（（a-1）/2）=（a-1）/2
B.a>；b or Int（（a-1）/2）=（a-1）/2
C.a>；b and a mod 2=0
D.a>；b or （a-1） mod 2=0
正确答案：a>；b and Int（（a-1）/2）=（a-1）/2
33、以下4类运算符，优先级最低的是
A.算术运算符
B.字符运算符
C.关系运算符
D.逻辑运算符
正确答案：逻辑运算符
34、以下4种描述中，错误的是
A.常量在程序执行期间其值不会发生改变
B.根据数据类型不同，常量可分为字符型常量、数值常量、日期/时间型常量和布尔型常量
C.符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质
D.符号常量的使用和变量的使用没有差别
正确答案：符号常量的使用和变量的使用没有差别
第四章单元测试
1、以下关于静态数组的描述正确的是（）。
A.静态数组的大小是固定的，可以有不同类型的数组元素
B.静态数组的大小是可变的，但所有数组元素的类型必须相同
C.静态数组的大小是固定的，所有数组元素的类型必须相同
D.静态数组的大小是可变的，可以有不同类型的数组元素
正确答案：静态数组的大小是固定的，可以有不同类型的数组元素
2、执行下面程序段后，输出的结果为（）。Dim m（5） As Integer；s = 0；For i = 0 To 5；m（i） = 5；Next i；For j = 0 To 5；s = s + m（j）；Next j；Print s
A.20
B.25
C.30
D.35
正确答案：30
3、下面程序：Private Sub Form（）Click（）；Dim a（100） As Integer；For i = 1 To 10；j = i * i；a（j） = j；Next i；Print a（25）End Sub运行后，单击窗体，则输出的结果是（）。
A.25
B.36
C.49
D.81
正确答案：25
4、有如下语句：Option Base 1
Private Sub Command1（）Click（）；Dim A（2， -1 To 1） As Integer；……End Sub 以上语句所定义的数组A为（）维数组，共有（）个元素，第一维下标从（）到（），第二维下标从（）到（）。
A.1，2，6，2，-1，1
B.6，2，1，2，-1，1
C.2，6，1，2，-1，1
D.2，1，6，-1，1，2
正确答案：2，6，1，2，-1，1
5、有如下程序：Const n = -5；Const m = 6；Dim a（n To m） As Integer；For i = LBound（a， 1） To UBound（a， 1）；a（i） = i；Next i；Print a（LBound（a， 1））； a（UBound（a， 1））运行后输出的结果为（）。
A.0 ；0
B.-5 ；0
C.-5 ；6
D.0 ；6
正确答案：-5 ；6
6、下面关于控件数组与一般控件的叙述中正确的是（）。
A.控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件
B.控件数组的索引属性值Index值为0，而一般控件的Index值为空
C.控件数组的Index值为1，而一般控件的Index值为0
D.控件数组的建立通过Dim语句声明，而一般控件不需要声明
正确答案：控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件
7、如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（）。
A.Dim
B.ReDim
C.Dim Preserve
D.ReDim Preserve
正确答案：ReDim Preserve
8、下列程序的输出结果为（）。Private；Sub；Command1（）Click（）；Dim；a；ReDim；a（6）；For；j=1；To；5；a（j）=j*j；Next；j；Print；a（a（2）*a（3）-a（4）*2）+a（5）；End；Sub。
A.36
B.25
C.16
D.41
正确答案：41
9、执行下面程序段后，输出的结果为（）。Dim a（10， 10） As Integer；For i = 2 To 4；For j = 4 To 5；a（i， j） = i * j；Next j；Next i； Print a（2， 5） + a（3， 4） + a（4， 5）
A.22
B.42
C.32
D.52
正确答案：42
10、要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（）。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
正确答案：Dim；a（-1；To；1， -5；To；-3）；As；Single
11、以下关于静态数组的描述正确的是（）。
A.静态数组的大小是固定的，可以有不同类型的数组元素
B.静态数组的大小是可变的，但所有数组元素的类型必须相同
C.静态数组的大小是固定的，所有数组元素的类型必须相同
D.静态数组的大小是可变的，可以有不同类型的数组元素
正确答案：静态数组的大小是固定的，可以有不同类型的数组元素
12、执行下面程序段后，输出的结果为（）。Dim m（5） As Integer；s = 0；For i = 0 To 5；m（i） = 5；Next i；For j = 0 To 5；s = s + m（j）；Next j；Print s
A.20
B.25
C.30
D.35
正确答案：30
13、下面程序：Private Sub Form（）Click（）；Dim a（100） As Integer；For i = 1 To 10；j = i * i；a（j） = j；Next i；Print a（25）End Sub运行后，单击窗体，则输出的结果是（）。
A.25
B.36
C.49
D.81
正确答案：25
14、有如下语句：Option Base 1
Private Sub Command1（）Click（）；Dim A（2， -1 To 1） As Integer；……End Sub 以上语句所定义的数组A为（）维数组，共有（）个元素，第一维下标从（）到（），第二维下标从（）到（）。
A.1，2，6，2，-1，1
B.6，2，1，2，-1，1
C.2，6，1，2，-1，1
D.2，1，6，-1，1，2
正确答案：2，6，1，2，-1，1
15、有如下程序：Const n = -5；Const m = 6；Dim a（n To m） As Integer；For i = LBound（a， 1） To UBound（a， 1）；a（i） = i；Next i；Print a（LBound（a， 1））； a（UBound（a， 1））运行后输出的结果为（）。
A.0 ；0
B.-5 ；0
C.-5 ；6
D.0 ；6
正确答案：-5 ；6
16、下面关于控件数组与一般控件的叙述中正确的是（）。
A.控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件
B.控件数组的索引属性值Index值为0，而一般控件的Index值为空
C.控件数组的Index值为1，而一般控件的Index值为0
D.控件数组的建立通过Dim语句声明，而一般控件不需要声明
正确答案：控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件
17、如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（）。
A.Dim
B.ReDim
C.Dim Preserve
D.ReDim Preserve
正确答案：ReDim Preserve
18、下列程序的输出结果为（）。Private；Sub；Command1（）Click（）；Dim；a；ReDim；a（6）；For；j=1；To；5；a（j）=j*j；Next；j；Print；a（a（2）*a（3）-a（4）*2）+a（5）；End；Sub。
A.36
B.25
C.16
D.41
正确答案：41
19、执行下面程序段后，输出的结果为（）。Dim a（10， 10） As Integer；For i = 2 To 4；For j = 4 To 5；a（i， j） = i * j；Next j；Next i； Print a（2， 5） + a（3， 4） + a（4， 5）
A.22
B.42
C.32
D.52
正确答案：42
20、要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（）。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
正确答案：Dim；a（-1；To；1， -5；To；-3）；As；Single
21、把MsgBox的返回值转换为数值应该使用的函数是
A.Log
B.Str
C.Len
D.Val
正确答案：Val
22、以下（）程序段可以实施X；Y变量值的变换
A.Y=X：X=Y
B.Z=X：Y=Z：X=Y
C.Z=X：X=Y：Y=Z
D.Z=X：W=Y：Y=Z：X=Y
正确答案：Z=X：X=Y：Y=Z
23、下列语句中正确的是
A.txt1.text+txt2.text=txt3.text
B.command1.name=cmdok
C.12label.caption=1234
D.a=inputbox（“hello”）
正确答案：a=inputbox（“hello”）
24、语句PRINT “INT（-13.2）=”；INT（-13.2）的输出结果为
A.INT（-13.2）= -13.2
B.INT（-13.2）= 13.2
C.INT（-13.2）= -13
D.INT（-13.2）= -14
正确答案：INT（-13.2）= -14
25、以下关于MsgBox的叙述中，错误的是
A.MsgBox函数返回一个整数
B.通过MsgBox函数可以设置信息框中图标和按钮的类型
C.MsgBox语句没有返回值
D.MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量
正确答案：MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量
26、在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1（）Click（）Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X，YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
A.15 ；16
B.15 ；6
C.15 ；15
D.5 ；6
正确答案：15 ；6
27、为了给x，y，z三个变量赋初值1，下面正确的赋值语句是
A.x=1∶y=1∶z=1
B.x=1，y=1，z=1
C.x=y=z=1
D.xyz=1
正确答案：x=1∶y=1∶z=1
第五章单元测试
1、假定有如下的Sub过程：Sub fun（x As Single， y As Single）；t = x；x = t / y；y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1（）Click（）；Dim a As Single；Dim b As Single；a = 6；b = 4；fun a， b；Print a， bEnd Sub程序运行后，单击命令按钮，输出结果为（）。
A.5 ；4
B.1 ；1
C.1.25 ；4
D.1.5 ；2
正确答案：1.5 ；2
2、假定有以下函数过程：Function Fun（s As String） As String；Dim s1 As String；For i = 1 To Len（s）；s1 = UCase（Mid（s， i， 1）） + s1；Next i；Fun = s1End Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1（）Click（）；Dim Str1 As String；Dim Str2 As String；Str1 = InputBox（"；请输入一个字符串"；）；Str2 = Fun（Str1）；Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（）。
A.Abcdefg
B.ABCDEFG
C.gfedcba
D.GFEDCBA
正确答案：GFEDCBA
3、有如下函数过程：Function secproc（x As Integer， y As Integer， z As Integer）；secproc = 3 * y + z + 2 * xEnd Function；Private Sub Command1（）Click（）；Dim a As Integer， b As Integer， c As Integer；a = 2：b = 3：c = 4；Print secproc（c， b， a）End Sub该程序的运行结果是（）。
A.17
B.18
C.19
D.20
正确答案：19
4、有如下函数过程：Function Cys（ByVal x As Integer， ByVal y As Integer） As Integer；Dim quotients；Do While y <；>； 0；quotients = x / y；x = y；y = quotients；Loop；Cys = xEnd Function以下是调用该函数的事件过程，该程序的运行结果是（）。Private Sub Command1（）Click（）；Dim a As Integer；Dim b As Integer；a = 10；b = 2；x = Cys（a， b）；Print xEnd Sub
A.0
B.25
C.5
D.100
正确答案：5
5、以下是一个能返回数组a中最大数的函数过程代码：Function；maxval（a（）；As；Integer）；As；Integer；Dim；max%；max；=；1；For；i；=；2；To；10；If；a（i）；>；a（max）；Then；max；=；i；Next；i；；maxval；=；max；End；Function；Private Sub Command1（）Click（）；Dim x（1 To 10） As Integer；For i = 1 To 10；x（i） = Int（Rnd（） * 100）；Print x（i）；；Next i；Print；Print maxval（x（））End Sub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（）。
A.语句“max；=；1”应改为“max；=；a（1）”
B.语句“For；i；=；2；To；10”应改为“For；i；=；1；To；10”
C.If语句“max；=；i”应改为“max；=；a（i）”
D.语句“maxval；=；max；”应改为“maxval；=；a（max）”
正确答案：语句“maxval；=；max；”应改为“maxval；=；a（max）”
6、在窗体上画一个命令按钮（名称为Command1），并编写如下代码：Function Fun1（ByVal a As Integer， b As Integer） As Integer；Dim t As Integer；t = a - b；b = t + a；Fun1 = t + bEnd Function；Private Sub Command1（）Click（）；Dim x As Integer；x = 10；Print Fun1（Fun1（x， （Fun1（x， x - 1）））， x - 1）End Sub程序运行后，单击命令按钮，输出结果是（）。
A.10
B.0
C.11
D.21
正确答案：0
7、下面程序的运行结果为（）。Dim a%， b%， c%Sub p1（x%， y%）；Dim c As Integer；x = 2 * x：y = y + 2：c = x + yEnd SubSub p2（x%， ByVal y%）；Dim c As Integer；x = 2 * x：y = y + 2：c = x + yEnd SubPrivate Sub Command1（）Click（）；a = 2：b = 4：c = 6；Call p1（a， b）；Call p2（a， b）；Print a； b； cEnd Sub
A.4； 6； 6
B.8； 6； 6
C.4； 6； 10
D.8； 8； 6
正确答案：8； 6； 6
8、下面程序：Function a（x）；Static b As Integer；b = b + x ^ 2；Print bEnd Function；Private Sub Command1（）Click（）；Dim c%；c = a（2）End Sub单击两次命令按钮，第二次显示的结果是（）。
A.2
B.4
C.6
D.8
正确答案：8
9、下列叙述中正确的是（）。
A.在窗体的Form（）Load事件中定义的变量是全局变量
B.局部变量的作用域可以超出所定义的过程
C.在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D.在调用过程时，所有局部变量被系统初始化为0或空字符串
正确答案：在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
10、若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在 （）中。
A.窗体模块
B.标准模块
C.类模块
D.工程
正确答案：标准模块
11、假定有如下的Sub过程：Sub fun（x As Single， y As Single）；t = x；x = t / y；y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1（）Click（）；Dim a As Single；Dim b As Single；a = 6；b = 4；fun a， b；Print a， bEnd Sub程序运行后，单击命令按钮，输出结果为（）。
A.5 ；4
B.1 ；1
C.1.25 ；4
D.1.5 ；2
正确答案：1.5 ；2
12、假定有以下函数过程：Function Fun（s As String） As String；Dim s1 As String；For i = 1 To Len（s）；s1 = UCase（Mid（s， i， 1）） + s1；Next i；Fun = s1End Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1（）Click（）；Dim Str1 As String；Dim Str2 As String；Str1 = InputBox（"；请输入一个字符串"；）；Str2 = Fun（Str1）；Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（）。
A.Abcdefg
B.ABCDEFG
C.gfedcba
D.GFEDCBA
正确答案：GFEDCBA
13、有如下函数过程：Function secproc（x As Integer， y As Integer， z As Integer）；secproc = 3 * y + z + 2 * xEnd Function；Private Sub Command1（）Click（）；Dim a As Integer， b As Integer， c As Integer；a = 2：b = 3：c = 4；Print secproc（c， b， a）End Sub该程序的运行结果是（）。
A.17
B.18
C.19
D.20
正确答案：19
14、有如下函数过程：Function Cys（ByVal x As Integer， ByVal y As Integer） As Integer；Dim quotients；Do While y <；>； 0；quotients = x / y；x = y；y = quotients；Loop；Cys = xEnd Function以下是调用该函数的事件过程，该程序的运行结果是（）。Private Sub Command1（）Click（）；Dim a As Integer；Dim b As Integer；a = 10；b = 2；x = Cys（a， b）；Print xEnd Sub
A.0
B.25
C.5
D.100
正确答案：5
15、以下是一个能返回数组a中最大数的函数过程代码：Function；maxval（a（）；As；Integer）；As；Integer；Dim；max%；max；=；1；For；i；=；2；To；10；If；a（i）；>；a（max）；Then；max；=；i；Next；i；；maxval；=；max；End；Function；Private Sub Command1（）Click（）；Dim x（1 To 10） As Integer；For i = 1 To 10；x（i） = Int（Rnd（） * 100）；Print x（i）；；Next i；Print；Print maxval（x（））End Sub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（）。
A.语句“max；=；1”应改为“max；=；a（1）”
B.语句“For；i；=；2；To；10”应改为“For；i；=；1；To；10”
C.If语句“max；=；i”应改为“max；=；a（i）”
D.语句“maxval；=；max；”应改为“maxval；=；a（max）”
正确答案：语句“maxval；=；max；”应改为“maxval；=；a（max）”
16、在窗体上画一个命令按钮（名称为Command1），并编写如下代码：Function Fun1（ByVal a As Integer， b As Integer） As Integer；Dim t As Integer；t = a - b；b = t + a；Fun1 = t + bEnd Function；Private Sub Command1（）Click（）；Dim x As Integer；x = 10；Print Fun1（Fun1（x， （Fun1（x， x - 1）））， x - 1）End Sub程序运行后，单击命令按钮，输出结果是（）。
A.10
B.0
C.11
D.21
正确答案：0
17、下面程序的运行结果为（）。Dim a%， b%， c%Sub p1（x%， y%）；Dim c As Integer；x = 2 * x：y = y + 2：c = x + yEnd SubSub p2（x%， ByVal y%）；Dim c As Integer；x = 2 * x：y = y + 2：c = x + yEnd SubPrivate Sub Command1（）Click（）；a = 2：b = 4：c = 6；Call p1（a， b）；Call p2（a， b）；Print a； b； cEnd Sub
A.4； 6； 6
B.8； 6； 6
C.4； 6； 10
D.8； 8； 6
正确答案：8； 6； 6
18、下面程序：Function a（x）；Static b As Integer；b = b + x ^ 2；Print bEnd Function；Private Sub Command1（）Click（）；Dim c%；c = a（2）End Sub单击两次命令按钮，第二次显示的结果是（）。
A.2
B.4
C.6
D.8
正确答案：8
19、下列叙述中正确的是（）。
A.在窗体的Form（）Load事件中定义的变量是全局变量
B.局部变量的作用域可以超出所定义的过程
C.在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D.在调用过程时，所有局部变量被系统初始化为0或空字符串
正确答案：在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
20、若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在 （）中。
A.窗体模块
B.标准模块
C.类模块
D.工程
正确答案：标准模块
21、If语句中的条件表达式只能使用关系或逻辑表达式。
A.正确
B.错误
正确答案：错误
22、在Select Case情况语句中，各分支（即Case表达式）的先后顺序无关。
A.正确
B.错误
正确答案：错误
23、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1（）Click（）x=InputBox（"；Input"；）Select Case xCase 1，3Print "；分支 1"；Case Is >；4Print "；分支 2"；Case ElsePrint "；Else 分支 "；End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是
A.分支1
B.分支2
C.Else分支
D.程序出错
正确答案：Else分支
24、以下Case语句中错误的是
A.Case 0 To 10
B.Case Is>；10
C.Case Is>；10 And Is<；50
D.Case 3，5，Is>；10
正确答案：Case Is>；10 And Is<；50
25、当VB执行下面语句后，A的值为（）。A=1
IF；A>；0；THEN；A=A+1
IF；A>；1；THEN；A=0
A.0
B.1
C.2
D.3
正确答案：0
26、阅读下面的程序段：n1=InputBox（"；请输入第一个数："；）n2=InputBox（"；请输入第二个数："；）Print n1+n2当输入分别为111和222时，程序输出为
A.111222
B.222
C.333
D.程序出错
正确答案：111222
27、设a=6，则执行x=IIF（a>；5，-1，0）后，x的值为
A.5
B.6
C.0
D.-1
正确答案：-1
28、关于语句“If s=1 then t=1”，下列说法正确的是
A.s必须是逻辑型变量
B.t不能是逻辑变量
C.s=1是关系表达式，t=1是赋值语句
D.s=1是赋值语句，t=1是关系表达式
正确答案：s=1是关系表达式，t=1是赋值语句
29、设有语句x=InputBox（“输入数值”，“0”，“示例”）程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
A.变量X的值是数值10
B.在InputBox对话框标题栏中显示的是“示例”
C.0是默认值
D.变量X的值是字符串“10”
正确答案：变量X的值是字符串“10”
第六章单元测试
1、若要求显示一个指定窗体，所用的方法是（）。
A.Show
B.Open
C.Hide
D.Load
正确答案：Show
2、确定一个窗体或控件大小的属性是（）。
A.Width和Height
B.Width和Top
C.Top和Right
D.Top和Left
正确答案：Width和Height
3、当一个工程含有多个窗体时，其中的启动窗体是（）。
A.启动 Visual Basic时建立的窗体
B.第一个添加的窗体
C.最后一个添加的窗体
D.在“工程属性”对话框中指定的窗体
正确答案：在“工程属性”对话框中指定的窗体
4、每建立一个窗体，工程管理器窗口中就会增加一个（）。
A.工程文件
B.窗体文件
C.程序模块文件
D.类模块文件
正确答案：窗体文件
5、当运行程序时，系统自动执行启动窗体的（）事件过程。
A.Load
B.Click
C.UnLoad
D.GotFocus
正确答案：Load
6、若要改变窗体中显示文本的颜色，应该使用的属性是（）。
A.Caption
B.BackColor
C.ForeColor
D.Font
正确答案：ForeColor
7、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。
A.工程资源管理器窗口
B.工具箱窗口
C.代码窗口
D.属性窗口
正确答案：代码窗口
8、如果要改变窗体的标题，需要设置窗体对象的哪一属性（）。
A.Name
B.Caption
C.BackColor
D.BorderStyle
正确答案：Caption
9、Cls方法可清除窗体或图片框中的信息是（）。
A.Picture属性设置的背景图案
B.在设计时放置的控件
C.程序设计时产生的图形和文字
D.以上方法都对
正确答案：程序设计时产生的图形和文字
10、窗体的Enable属性的属性值是（）类型的数据。
A.整型
B.字符型
C.逻辑型
D.实型
正确答案：逻辑型
11、若要求显示一个指定窗体，所用的方法是（）。
A.Show
B.Open
C.Hide
D.Load
正确答案：Show
12、确定一个窗体或控件大小的属性是（）。
A.Width和Height
B.Width和Top
C.Top和Right
D.Top和Left
正确答案：Width和Height
13、当一个工程含有多个窗体时，其中的启动窗体是（）。
A.启动 Visual Basic时建立的窗体
B.第一个添加的窗体
C.最后一个添加的窗体
D.在“工程属性”对话框中指定的窗体
正确答案：在“工程属性”对话框中指定的窗体
14、每建立一个窗体，工程管理器窗口中就会增加一个（）。
A.工程文件
B.窗体文件
C.程序模块文件
D.类模块文件
正确答案：窗体文件
15、当运行程序时，系统自动执行启动窗体的（）事件过程。
A.Load
B.Click
C.UnLoad
D.GotFocus
正确答案：Load
16、若要改变窗体中显示文本的颜色，应该使用的属性是（）。
A.Caption
B.BackColor
C.ForeColor
D.Font
正确答案：ForeColor
17、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。
A.工程资源管理器窗口
B.工具箱窗口
C.代码窗口
D.属性窗口
正确答案：代码窗口
18、如果要改变窗体的标题，需要设置窗体对象的哪一属性（）。
A.Name
B.Caption
C.BackColor
D.BorderStyle
正确答案：Caption
19、Cls方法可清除窗体或图片框中的信息是（）。
A.Picture属性设置的背景图案
B.在设计时放置的控件
C.程序设计时产生的图形和文字
D.以上方法都对
正确答案：程序设计时产生的图形和文字
20、窗体的Enable属性的属性值是（）类型的数据。
A.整型
B.字符型
C.逻辑型
D.实型
正确答案：逻辑型
21、下面程序运行时For m=1 To 3；For n=0 To m-1；s＝s＋n；Next nNext m内层循环的循环总次数是6次。
A.正确
B.错误
正确答案：正确
22、Do-LoopUntil语句实现循环时，只要条件是假，循环将一直进行下去。
A.正确
B.错误
正确答案：正确
23、下列循环语句所确定的循环次数（）。For k=200 to 100 Step -20
A.6
B.5
C.4
D.3
正确答案：6
24、假定有以下程序段：For i=1 to 3For j=5 to 1 Step –1 Print i*j；Next j，i则语句Print i*j的执行次数是
A.15
B.16
C.17
D.18
正确答案：15
25、VB中Do……Loop结构既可以构成当型循环，也可以构成直到型循环，根据下面的代码：Dim i，n as Integer n = 20 i = 1 DoPrint i； i = i + 2Loop Until i >；20判断循环结构的类型和循环体的执行次数，正确的选项是
A.当型循环，20次
B.直到型循环，10次
C.当型循环，10次
D.直到型循环，20次
正确答案：直到型循环，10次
26、设有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后，x的值是（）
A.26
B.27
C.38
D.57
正确答案：27
第七章单元测试
1、一般不用来触发事件的对象是（）。
A.标签
B.窗体
C.命令按钮
D.文本框
正确答案：标签
2、如果将文本框的Locked属性设置为True，则以下说法（）是正确的。
A.此时在属性窗口不可以修改文本框的Text属性值
B.运行时用户不可以在界面上修改文本框中的内容
C.在程序代码中不可以修改文本框的内容，如：不可以使用语句Text1.Text="；aa"
D.以上均不正确
正确答案：运行时用户不可以在界面上修改文本框中的内容
3、单击命令按钮Commandl必将调用的事件（）。
A.LostFocus
B.KeyPress
C.Dbclick
D.Click
正确答案：Click
4、能够改变复选框中背景颜色的属性是（）。
A.Value
B.FontColor
C.BackColor
D.Font
正确答案：BackColor
5、以下不属于同类的是（）。
A.Click
B.Name
C.Caption
D.Top
正确答案：Click
6、列表框中列表项的数目可通过（）属性的值获得。
A.Count
B.ListCount
C.SelCount
D.Index
正确答案：ListCount
7、组合框控件是将（）组合成一个控件。
A.列表框控件和文本框控件
B.标签控件和列表框控件
C.标签控件和文本框控件
D.复选框控件和选项按钮控件
正确答案：列表框控件和文本框控件
8、要在图片框P1中打印字符串"；How Are You"；，应使用语句（）。
A.Picture1.Print="；How Are You"
B.P1.Picture=LoadPicture（"；How Are You"；）
C.P1.Print"；How Are You"
D.Print"；How Are You"
正确答案：P1.Print"；How Are You"
9、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.1秒发生一次计时器事件，则以下正确的属性设置语句是（）。
A.Timer1.Enabled =0.1
B.Timer1.Interval =0.1
C.Timer1.Enabled=100
D.Timer1.Interval=100
正确答案：Timer1.Interval=100
10、以下控件中不属于容器的是（）。
A.Form
B.PictureBox
C.Image
D.Frame
正确答案：Image
11、一般不用来触发事件的对象是（）。
A.标签
B.窗体
C.命令按钮
D.文本框
正确答案：标签
12、如果将文本框的Locked属性设置为True，则以下说法（）是正确的。
A.此时在属性窗口不可以修改文本框的Text属性值
B.运行时用户不可以在界面上修改文本框中的内容
C.在程序代码中不可以修改文本框的内容，如：不可以使用语句Text1.Text="；aa"
D.以上均不正确
正确答案：运行时用户不可以在界面上修改文本框中的内容
13、单击命令按钮Commandl必将调用的事件（）。
A.LostFocus
B.KeyPress
C.Dbclick
D.Click
正确答案：Click
14、能够改变复选框中背景颜色的属性是（）。
A.Value
B.FontColor
C.BackColor
D.Font
正确答案：BackColor
15、以下不属于同类的是（）。
A.Click
B.Name
C.Caption
D.Top
正确答案：Click
16、列表框中列表项的数目可通过（）属性的值获得。
A.Count
B.ListCount
C.SelCount
D.Index
正确答案：ListCount
17、组合框控件是将（）组合成一个控件。
A.列表框控件和文本框控件
B.标签控件和列表框控件
C.标签控件和文本框控件
D.复选框控件和选项按钮控件
正确答案：列表框控件和文本框控件
18、要在图片框P1中打印字符串"；How Are You"；，应使用语句（）。
A.Picture1.Print="；How Are You"
B.P1.Picture=LoadPicture（"；How Are You"；）
C.P1.Print"；How Are You"
D.Print"；How Are You"
正确答案：P1.Print"；How Are You"
19、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.1秒发生一次计时器事件，则以下正确的属性设置语句是（）。
A.Timer1.Enabled =0.1
B.Timer1.Interval =0.1
C.Timer1.Enabled=100
D.Timer1.Interval=100
正确答案：Timer1.Interval=100
20、以下控件中不属于容器的是（）。
A.Form
B.PictureBox
C.Image
D.Frame
正确答案：Image
21、定长数组中的数组元素个数一旦定义好后，在程序运行过程中不再会发生变化；而动态数组的元素个数则是可变的。
A.正确
B.错误
正确答案：正确
22、语句DIM AA（3，4，5）中定义的数组有（）个元素
A.12
B.60
C.120
D.345
正确答案：120
23、动态数组因为在程序运行前无法确定数组的大小，所以经常根据程序的运行情况，对数组进行重新定义，以下关于VB中动态数组的叙述中不正确的是
A.可以用ReDim语句重新定义动态数组，并且可以进行多次重定义
B.首次用Dim进行动态数组声明的时候，必须指明它的类型和上下界
C.Preserve为ReDim语句的可选参数，用于保留动态数组原来的内容
D.当对动态数组使用Erase语句进行释放操作时，将释放其内存
正确答案：首次用Dim进行动态数组声明的时候，必须指明它的类型和上下界
24、下列程序段的运行结果是（）。Option Base 1；Private Sub Command1（）Click（）；Dim d；d=Array（1，2，3，4，5）；n=1；For k=5 To 3 Step –1s=s+d（k）*nn=n*10；Next k；Print s；End Sub
A.123
B.234
C.345
D.112
正确答案：345
25、下列语句所定义的数组的元素个数为（）。Dim ；Ary（3 to 6，-2 to 2）
A.20
B.16
C.24
D.25
正确答案：20
26、假设已经使用了语句Dim a（3，5），下列下标变量中不允许使用的是
A.a（1，1）
B.a（2-1，2*2）
C.a（3，1.4）
D.a（-1， 3）
正确答案：a（-1， 3）
第八章单元测试
1、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。
A.单选按钮
B.图片框
C.通用对话框
D.文本框
正确答案：通用对话框
2、将通用对话框类型，设置为字体对话框，可修改该控件的（）属性。
A.font
B.filename
C.filter
D.action
正确答案：action
3、下列属性属于颜色对话框的是（）。
A.FileName
B.Min
C.FontSize
D.Color
正确答案：Color
4、在窗体上建立通用对话框必须先将（）添加到工具箱中。
A.Data控件
B.Form控件
C.CommonDialog控件
D.VBComboBox控件
正确答案：CommonDialog控件
5、将通用对话框CommandDialog1的类型设置成另存为对话框，可调用该控件的（）方法。
A.ShowOpen
B.ShowSave
C.ShowColor
D.ShowFont
正确答案：ShowSave
6、下列事件过程可以将打开对话框的标题改为"；刑事案件卷宗"；的是（）。
A.Private Sub Command1（）Click（）
CommonDialogl.DialogTitle="；刑事案件卷宗"
；CommonDialogl.ShowOpen
；End sub
B.Private Sub Command1（）Click（）
CommonDialogl.Filter ="；刑事案件卷宗"
；CommonDialogl.ShowSave
；End sub
C.Private Sub Command1（）Click（）
CommonDialogl.DialogTitle="；刑事案件卷宗"
；CommonDialogl.Show
；End sub
D.Private Sub Command1（）Click（）
CommonDialogl.DialogTitle="；刑事案件卷宗"
；CommonDialogl.ShowColor
；End sub
正确答案：Private Sub Command1（）Click（）
CommonDialogl.DialogTitle="；刑事案件卷宗"
；CommonDialogl.ShowOpen
；End sub
7、窗体上有一公共对话框Commondialog1，和一个命令按钮Command1，当单击按钮时程序的功能是（）。Private Sub Command1（）Click（） Commondialog1.ShowColor End Sub
A.打开文件对话框
B.打开颜色对话框
C.打开字体对话框
D.打开保存对话框
正确答案：打开颜色对话框
8、在窗体上建立一个通用对话框，名称为 CommonDialog1，用下面的语句可以建立一个对话框，CommonDialog1.Action=2与该语句等价的语句是（）：
A.CommonDialog1.ShowOpen
B.CommonDialog1.ShowSave
C.CommonDialog1.ShowColor
D.CommonDialog1.ShowFont
正确答案：CommonDialog1.ShowSave
9、在窗体上画一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮，并编写如下事件过程：Private ；Sub ；Command1（）Click（）CommonDialog1.Filter = “all files（*.*）|*.*|text files|*.txt|bat files（*.bat）|*.bat”CommonDialog1.filterIndex = 2；CommonDialog1.ShowOpen；MsgBox CommonDialog1.FileNameEnd ；Sub ；程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（）：
A.All Files（*.*）
B.Text Files（*.txt）
C.Bath Files（*.bat）
D.不确定
正确答案：Text Files（*.txt）
10、以下叙述中错误的是（）。
A.在程序运行时，通用对话框控件是不可见的
B.在同一个程序中，用不同的方法，如 ShowOpen 或 ShowSave（） 等打开的通用对话框具有不同的作用
C.调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
D.调用通用对话框控件的ShowColor方法，可以打开颜色对话框
正确答案：调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
11、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。
A.单选按钮
B.图片框
C.通用对话框
D.文本框
正确答案：通用对话框
12、将通用对话框类型，设置为字体对话框，可修改该控件的（）属性。
A.font
B.filename
C.filter
D.action
正确答案：action
13、下列属性属于颜色对话框的是（）。
A.FileName
B.Min
C.FontSize
D.Color
正确答案：Color
14、在窗体上建立通用对话框必须先将（）添加到工具箱中。
A.Data控件
B.Form控件
C.CommonDialog控件
D.VBComboBox控件
正确答案：CommonDialog控件
15、将通用对话框CommandDialog1的类型设置成另存为对话框，可调用该控件的（）方法。
A.ShowOpen
B.ShowSave
C.ShowColor
D.ShowFont
正确答案：ShowSave
16、下列事件过程可以将打开对话框的标题改为"；刑事案件卷宗"；的是（）。
A.Private Sub Command1（）Click（）
CommonDialogl.DialogTitle="；刑事案件卷宗"
；CommonDialogl.ShowOpen
；End sub
B.Private Sub Command1（）Click（）
CommonDialogl.Filter ="；刑事案件卷宗"
；CommonDialogl.ShowSave
；End sub
C.Private Sub Command1（）Click（）
CommonDialogl.DialogTitle="；刑事案件卷宗"
；CommonDialogl.Show
；End sub
D.Private Sub Command1（）Click（）
CommonDialogl.DialogTitle="；刑事案件卷宗"
；CommonDialogl.ShowColor
；End sub
正确答案：Private Sub Command1（）Click（）
CommonDialogl.DialogTitle="；刑事案件卷宗"
；CommonDialogl.ShowOpen
；End sub
17、窗体上有一公共对话框Commondialog1，和一个命令按钮Command1，当单击按钮时程序的功能是（）。Private Sub Command1（）Click（） Commondialog1.ShowColor End Sub
A.打开文件对话框
B.打开颜色对话框
C.打开字体对话框
D.打开保存对话框
正确答案：打开颜色对话框
18、在窗体上建立一个通用对话框，名称为 CommonDialog1，用下面的语句可以建立一个对话框，CommonDialog1.Action=2与该语句等价的语句是（）：
A.CommonDialog1.ShowOpen
B.CommonDialog1.ShowSave
C.CommonDialog1.ShowColor
D.CommonDialog1.ShowFont
正确答案：CommonDialog1.ShowSave
19、在窗体上画一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮，并编写如下事件过程：Private ；Sub ；Command1（）Click（）CommonDialog1.Filter = “all files（*.*）|*.*|text files|*.txt|bat files（*.bat）|*.bat”CommonDialog1.filterIndex = 2；CommonDialog1.ShowOpen；MsgBox CommonDialog1.FileNameEnd ；Sub ；程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（）：
A.All Files（*.*）
B.Text Files（*.txt）
C.Bath Files（*.bat）
D.不确定
正确答案：Text Files（*.txt）
20、以下叙述中错误的是（）。
A.在程序运行时，通用对话框控件是不可见的
B.在同一个程序中，用不同的方法，如 ShowOpen 或 ShowSave（） 等打开的通用对话框具有不同的作用
C.调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
D.调用通用对话框控件的ShowColor方法，可以打开颜色对话框
正确答案：调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
21、在窗体上已经建立了一个文本框Txt1和一个命令按钮Comd1，运行程序后单击命令按钮，则在文本框Txt1中显示的内容是；；Dim a As Integer ；；Private Sub Comd1（）Click（）；Dim b As Integer；a = 1 ：b = 20；Call MySub（b）；Txt1.Text = a + b；End Sub；Sub MySub（x）；x = x Mod 7 + a；End Sub
A.6
B.7
C.8
D.9
正确答案：8
22、下面程序的运行结果是Dim m1 As Integer， p1 As Integer ；‘模块级变量；Private Sub Form（）Load（） ；Show；p1 = 1：m1 = 5 ；Call Sub1；Call Sub1；Print p1；End Sub；Private Sub Sub1（） ；If m1 >； 1 Then m1 = m1 - 1 ；p1 = p1 * 4；Print p1；；End Sub。
A.4； 16； 16
B.4； 4； 16
C.4； 16； 64
D.4； 16； 1
正确答案：4； 16； 16
23、下列关于过程叙述不正确的是
A.过程的传值调用是将实参的具体值传值递给形参
B.过程的传址调用是将实参在内存的地址传递给形参
C.过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D.无论过程传值调用还是过程传址调用，参数传递都是双向的
正确答案：无论过程传值调用还是过程传址调用，参数传递都是双向的
24、在Visual Basic应用程序中，以下描述正确的是
A.过程的定义可以嵌套，但过程的调用不能嵌套
B.过程的定义不可以嵌套，但过程的调用可以嵌套
C.过程的定义和过程的调用均可以嵌套
D.过程的定义和过程的调用均不可以嵌套
正确答案：过程的定义不可以嵌套，但过程的调用可以嵌套
25、假设已通过下列Sub语句定义了Mysub过程。若要调用该过程，可以采用（）语句
A.s= Mysub（2）
B.Mysub 32000
C.Print Mysub（120）
D.Call Mysub（40000）
正确答案：Mysub 32000
26、要使过程调用后返回两个参数s和t，下列的过程定义语句中，正确的是
A.Sub Mysub1（ByRef s，ByVal t）
B.Sub Mysub1（ByVal s， ByVal t）
C.Sub Mysub1（ByRef s， ByRef t）
D.Sub Mysub1（ByVal s， ByRef t）
正确答案：Sub Mysub1（ByRef s， ByRef t）
27、Sub过程不能通过其过程名返回值。
A.正确
B.错误
正确答案：正确
28、因为Function过程有返回值，所以只能在表达中调用，而不能使用call语句调用。
A.正确
B.错误
正确答案：正确
29、如果在定义过程时，一个形参使用传递地址方式说明的，则调用过程时与之对应的实参只能按地址方式传递。
A.正确
B.错误
正确答案：错误
30、在定义了一个函数后，可以象调用任何一个VB内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。
A.正确
B.错误
正确答案：正确
第九章单元测试
1、下列选项中不正确的是（）。
A.每个菜单项都是一个对象，所以也有属性和事件
B.菜单项的属性可以在属性窗口中设计
C.每个菜单项都只有一个Click事件
D.菜单编辑器中，标题可不输入，而名称必须输入
正确答案：菜单项的属性可以在属性窗口中设计
2、在用菜单编辑器设计菜单时，必须输入的项是（）。
A.快捷键
B.标题
C.索引
D.名称
正确答案：名称
3、假定有一个菜单项，名称为MenuItem，为了运行时使该菜单项失效（变灰），应使用的语句为（）。
A.MenuItem.Enabled=False
B.MenuItem.Enabled=True
C.MenuItem.Visible=True
D.MenuItem.Visible=False
正确答案：MenuItem.Enabled=False
4、一个菜单项是不是一个分隔条，由（）属性决定。
A.Name（名称）
B.Caption
C.Enabled
D.Visible
正确答案：Caption
5、要使用菜单项MentOne在程序运行时失效，使用的语句是（）。
A.MentOne.Visble=True
B.MentOne.Visble=False
C.MentOne.Enabled=True
D.MentOne.Enabled=False
正确答案：MentOne.Enabled=False
6、菜单控件仅支持下面哪一事件（）。
A.Click
B.MouseDown
C.KeyPress
D.Load
正确答案：Click
7、用键盘的光标键选中某一菜单项，并按回车将触发菜单的（）的事件。
A.KeyPress
B.KeyDown
C.Click
D.KeyUp
正确答案：Click
8、设菜单中有一个菜单项为"；Open"；.若要为该菜单命令设置访问键，即按下ALT及字母O 时，能够执行Open命令，则在菜单编辑器中设置"；Open"；命令的方式是（）。
A.把Caption属性设置为&；Open
B.把Caption属性设置为O&；pen
C.把Name属性设置为&；Open
D.把Name属性设置为O&；pen
正确答案：把Caption属性设置为&；Open
9、下列不能打开菜单编辑器的操作是（）。
A.按 Ctrl+E 健
B.单击工具栏中的“菜单编辑器”按钮
C.执行“工具”菜单中的“菜单编辑器”命令
D.按Shift+Alt+M键
正确答案：按Shift+Alt+M键
10、建立弹出式菜单使用的命令是（）。
A.CreateMenu
B.PopupMenu
C.BuildMenu
D.PopupItem
正确答案：PopupMenu
11、下列选项中不正确的是（）。
A.每个菜单项都是一个对象，所以也有属性和事件
B.菜单项的属性可以在属性窗口中设计
C.每个菜单项都只有一个Click事件
D.菜单编辑器中，标题可不输入，而名称必须输入
正确答案：菜单项的属性可以在属性窗口中设计
12、在用菜单编辑器设计菜单时，必须输入的项是（）。
A.快捷键
B.标题
C.索引
D.名称
正确答案：名称
13、假定有一个菜单项，名称为MenuItem，为了运行时使该菜单项失效（变灰），应使用的语句为（）。
A.MenuItem.Enabled=False
B.MenuItem.Enabled=True
C.MenuItem.Visible=True
D.MenuItem.Visible=False
正确答案：MenuItem.Enabled=False
14、一个菜单项是不是一个分隔条，由（）属性决定。
A.Name（名称）
B.Caption
C.Enabled
D.Visible
正确答案：Caption
15、要使用菜单项MentOne在程序运行时失效，使用的语句是（）。
A.MentOne.Visble=True
B.MentOne.Visble=False
C.MentOne.Enabled=True
D.MentOne.Enabled=False
正确答案：MentOne.Enabled=False
16、菜单控件仅支持下面哪一事件（）。
A.Click
B.MouseDown
C.KeyPress
D.Load
正确答案：Click
17、用键盘的光标键选中某一菜单项，并按回车将触发菜单的（）的事件。
A.KeyPress
B.KeyDown
C.Click
D.KeyUp
正确答案：Click
18、设菜单中有一个菜单项为"；Open"；.若要为该菜单命令设置访问键，即按下ALT及字母O 时，能够执行Open命令，则在菜单编辑器中设置"；Open"；命令的方式是（）。
A.把Caption属性设置为&；Open
B.把Caption属性设置为O&；pen
C.把Name属性设置为&；Open
D.把Name属性设置为O&；pen
正确答案：把Caption属性设置为&；Open
19、下列不能打开菜单编辑器的操作是（）。
A.按 Ctrl+E 健
B.单击工具栏中的“菜单编辑器”按钮
C.执行“工具”菜单中的“菜单编辑器”命令
D.按Shift+Alt+M键
正确答案：按Shift+Alt+M键
20、建立弹出式菜单使用的命令是（）。
A.CreateMenu
B.PopupMenu
C.BuildMenu
D.PopupItem
正确答案：PopupMenu
21、对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是
A.chkBoy.Checked = true
B.chkBoy.Value = true
C.chkBoy.Selected = true
D.chkBoy.Value = 1
正确答案：chkBoy.Value = 1
22、计时器（Timer）控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是
A.Interval
B.SmallChange
C.LargeChange
D.Max
正确答案：Interval
23、以下控件叙述正确的为
A.组合框包含了列表框的功能
B.列表框包含了组合框的功能
C.组合框和列表框的功能完全不同
D.组合框和列表框的功能完全相同
正确答案：组合框包含了列表框的功能
24、若想要建立一个学生管理的输入界面，其中要求选择学生的性别/政治面貌（党/团/群众）及选课情况（共有5门课，可任选），应如何在窗体中利用单选钮和选择框来实现
A.将5门课程用一组5个选择框来表示，将性别和政治面貌用5个单选钮来表示
B.将5门课程用一组5个选择框来表示，用两个框架分别将性别用2个单选钮，政治面貌用3个单选钮来表示
C.将5门课程用一组5个单选钮来表示，将性别和政治面貌用5个选择框来表示
D.用一组10个选择框来表示课程、性别和政治面貌
正确答案：将5门课程用一组5个选择框来表示，用两个框架分别将性别用2个单选钮，政治面貌用3个单选钮来表示
25、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是
A.Timer1.Interval=0.5
B.Timer1.Interval=5
C.Timer.Interval=50
D.Timer1.Interval=500
正确答案：Timer1.Interval=500
26、在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为
A.For i=0 To List1.ListCount-1
……
Next
B.For i=0 To ListCount-1
……
Next
C.For i=1 To List1.listCount
……
Next
D.For i=1 To ListCount
……
Next
正确答案：For i=0 To List1.ListCount-1
……
Next
27、设组合框Combo1中有3个项目，则能删除最后一个项的语句是
A.Combo1.RemoveItem ；Text
B.Combo1.RemoveItem ；2
C.Combo1.RemoveItem ；3
D.Combo1.RemoveItem ；Combo1.Listcount
正确答案：Combo1.RemoveItem ；2
28、读取列表框第3个表项值，把值赋给变量x，不可以采用
A.x=Listl.List（2）
B.x= Listl.text（2）
C.Listl.selected（2）=true
x=list1.text
D.Listl.listindex=2
x=list1.text
正确答案：x= Listl.text（2）
29、将数据项“计算机”添加到列表框List1中作为第8项的内容，应使用
A.List1.AddItem “计算机” ，8
B.List1.AddItem “计算机” ，7
C.List1.AddItem ；8 ，“计算机”
D.List1.AddItem ；7 ，“计算机”
正确答案：List1.AddItem “计算机” ，7
30、清除List1列表框对象内容的语句是List1.Cls， 清除Combo1组和框对象内容的语句是Combo1.Clear。
A.正确
B.错误
正确答案：错误
31、计时器（Timer）控件的Interval属性设为1000，Enabled属性为False，则每隔1秒的时间就产生一次Timer事件。
A.正确
B.错误
正确答案：错误
第十章单元测试
1、使用 Circle （1000， 1000）， 650；语句在窗体上绘制一个圆，则圆的线条颜色由窗体的（）属性决定。
A.BackColor
B.ForeColor
C.DrawWidth
D.Caption
正确答案：ForeColor
2、执行指令"；Line（1200，1200）-Step（1000，500），，B"；后，CurrentX=（）。
A.2200
B.1200
C.1000
D.1700
正确答案：2200
3、运行以下程序后，输出的图形是（）。For r=0 To 150 Circle（320，240），r For i=1 To l000 Next i Next r
A.一个半径逐渐变小的空心圆
B.一个固定的空心圆
C.一个半径逐渐变大的空心圆
D.一个固定的实心圆
正确答案：一个固定的实心圆
4、下面程序运行的输出是（）。Private Sub Command1（）Click（）Cls Line（60，60）-（70，70），5，B Line（50，50）-（80，80），1，B Line（40，40）-（90，90），2，B Line（30，30）-（100，100），3，B ；Line（20，20）-（110，110），4，B End Sub
A.同心的彩色正方形
B.同心的彩色圆
C.相交的彩色正方形
D.相交的彩色圆
正确答案：同心的彩色正方形
5、以下的属性和方法中，可重定义坐标系的是（）。
A.Drawstyle属性
B.DmwWidth属性
C.Scale方法
D.ScaleMode属性
正确答案：Scale方法
6、Line（100，100）-Step（400，400）将在窗体（）画一直线。
A.（200，200）到（400，400）
B.（100，100）到（300，300）
C.（100，100）到（500，500）
D.（100，100）到（400，400）
正确答案：（100，100）到（500，500）
7、vb 中的坐标圆点位于（）。
A.容器右上角
B.容器左上角
C.容器正中央
D.容器右下角
正确答案：容器左上角
8、可用来改变坐标度量单位的是（）。
A.Drawstyle属性
B.DrawWidth属性
C.Scale方法
D.ScaleMode属性
正确答案：ScaleMode属性
9、在VB的图形方法中，要绘制矩形，需要使用（）。
A.Pset方法
B.Line方法
C.Circle方法
D.Point方法
正确答案：Line方法
10、如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（）属性决定了该圆填充的颜色。
A.BackColor
B.ForeColor
C.FillColor
D.DrawStyle
正确答案：FillColor
11、使用 Circle （1000， 1000）， 650；语句在窗体上绘制一个圆，则圆的线条颜色由窗体的（）属性决定。
A.BackColor
B.ForeColor
C.DrawWidth
D.Caption
正确答案：ForeColor
12、执行指令"；Line（1200，1200）-Step（1000，500），，B"；后，CurrentX=（）。
A.2200
B.1200
C.1000
D.1700
正确答案：2200
13、运行以下程序后，输出的图形是（）。For r=0 To 150 Circle（320，240），r For i=1 To l000 Next i Next r
A.一个半径逐渐变小的空心圆
B.一个固定的空心圆
C.一个半径逐渐变大的空心圆
D.一个固定的实心圆
正确答案：一个固定的实心圆
14、下面程序运行的输出是（）。Private Sub Command1（）Click（）Cls Line（60，60）-（70，70），5，B Line（50，50）-（80，80），1，B Line（40，40）-（90，90），2，B Line（30，30）-（100，100），3，B ；Line（20，20）-（110，110），4，B End Sub
A.同心的彩色正方形
B.同心的彩色圆
C.相交的彩色正方形
D.相交的彩色圆
正确答案：同心的彩色正方形
15、以下的属性和方法中，可重定义坐标系的是（）。
A.Drawstyle属性
B.DmwWidth属性
C.Scale方法
D.ScaleMode属性
正确答案：Scale方法
16、Line（100，100）-Step（400，400）将在窗体（）画一直线。
A.（200，200）到（400，400）
B.（100，100）到（300，300）
C.（100，100）到（500，500）
D.（100，100）到（400，400）
正确答案：（100，100）到（500，500）
17、vb 中的坐标圆点位于（）。
A.容器右上角
B.容器左上角
C.容器正中央
D.容器右下角
正确答案：容器左上角
18、可用来改变坐标度量单位的是（）。
A.Drawstyle属性
B.DrawWidth属性
C.Scale方法
D.ScaleMode属性
正确答案：ScaleMode属性
19、在VB的图形方法中，要绘制矩形，需要使用（）。
A.Pset方法
B.Line方法
C.Circle方法
D.Point方法
正确答案：Line方法
20、如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（）属性决定了该圆填充的颜色。
A.BackColor
B.ForeColor
C.FillColor
D.DrawStyle
正确答案：FillColor
21、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。
A.正确
B.错误
正确答案：正确
22、在程序运行过程中，不可以重新设置菜单项的Visible属性。
A.正确
B.错误
正确答案：正确
23、在下列关于菜单的说法中，错误的是
A.每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件
B.除了Click事件之外，菜单项还能响应其他的如 DblClick等事件过程
C.菜单项的快捷键不可以任意设置
D.在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择
正确答案：除了Click事件之外，菜单项还能响应其他的如 DblClick等事件过程
24、对窗体编写如下事件过程：Private Sub Form（）MouseDown（Button As Integer，（）Shift As Integer， X As Single Y As Single）If Button =2 ThenPrint "；AAAAA"；End IfEnd SubPrivate Sub Form（）MouseUp（Button As Integer，（）Shift As Integer， X As Single， Y As Single）Print "；BBBBB"；End Sub程序运行后，如果单击鼠标右键，则输出结果为
A.AAAAA
BBBBB
B.BBBBB
AAAAA
C.AAAAA
D.BBBBB
正确答案：AAAAA
BBBBB
25、设菜单中有一个菜单项为"；Open"；。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行"；Open"；命令，则在菜单编辑器中设置“Open"；命令的方式是
A.把Caption属性设置为&；Open
B.把Caption属性设置为O&；pen
C.把Name属性设置为&；Open
D.把Name属性设置为O&；pen
正确答案：把Caption属性设置为&；Open
26、以下叙述中错误的是
A.下拉式菜单和弹出式菜单都用菜单编辑器建立
B.在多窗体程序中，每个窗体都可以建立自己的菜单系统
C.除分隔线外，所有菜单项都能接收Click事件
D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
正确答案：如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
27、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？
A.在标题项中输入＆然后打勾
B.在索引项中输入“√”
C.在复选项中输入“√”
D.在有效项中输人“√”
正确答案：在复选项中输入“√”
28、菜单控件仅支持下面哪一事件
A.Click
B.MouseDown
C.KeyPress
D.Load
正确答案：Click
29、设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A.Menu1.Enabled=True
B.Munu1.Enabled=False
C.Menu1.Visible=True
D.Menu1.Visible=False
正确答案：Menu1.Visible=False
第十一章单元测试
1、当用户按键时，KeyPress、KeyDown、KeyUp事件的执行顺序为（）。
A.KeyPress事件、KeyDown事件、KeyUp事件
B.KeyDown事件、KeyPress事件、KeyUp事件
C.KeyDown事件、KeyUp事件、KeyPress事件
D.D．KeyDown事件、KeyUp事件与KeyPress事件
正确答案：KeyDown事件、KeyPress事件、KeyUp事件
2、文本框Textl的KeyDown事件过程中参数KeyCode值表示（）。
A.是否按下了Alt键或Ctrl键
B.按下的是哪个数字键
C.所按的键盘键的键码
D.按下的是哪个鼠标键
正确答案：所按的键盘键的键码
3、编写如下两个事件过程：Private Sub Form（）KeyDown（KeyCode As Integer， Shift As Integer）Print Chr（KeyCode）End SubPrivate Sub Form（）KeyPress（KeyAscii As Integer）Print Chr（KeyAscii）End Sub一般情况下（即不按住Shift和锁定大写）运行程序，如按“A”键则输出（）。
A.A；a
B.a；A
C.A；A
D.a；a
正确答案：A；a
4、在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件，即Form优先）然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1（）Click（）Text1.Text=Ucase（SaveAll）End SubPrivate Sub Form（）KeyPress（KeyAscii As Integer）SaveAll= SaveAll+Chr（KeyAscii）End Sub程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框显示为（）。
A.abcdefg
B.不显示任何信息
C.ABCDEFG
D.出错
正确答案：ABCDEFG
5、在上题中，如果把窗体的KeyPreview设置为False，则文本框中显示的内容为（）。
A.abcdefg
B.不显示任何信息
C.ABCDEFG
D.出错
正确答案：不显示任何信息
6、下列关于MouseMove事件，描述正确的是（）。
A.与鼠标的灵敏度有关
B.每秒激发一次
C.伴随鼠标的移动而连续不断的发生
D.当鼠标移动时被激活一次然后等待下次移动
正确答案：伴随鼠标的移动而连续不断的发生
7、当鼠标左键按下时，下列哪个事件被激发（）。
A.KeyDown事件
B.KeyPress事件
C.MouseDown事件
D.MousePress事件
正确答案：MouseDown事件
8、在鼠标事件中，语句If Button=2 成立的条件是（）。
A.按键盘数字键2
B.单击鼠标左键
C.单击鼠标右键
D.双击鼠标左键
正确答案：单击鼠标右键
9、Private Sub Form（）MouseDown（Button As Integer， Shift As Integer， X As Single， Y As Single）If Shift = 6 And Button = 2 Then；Print "；BBBB"；End IfEnd Sub程序运行后，为在窗体上输出“BBBB”，应执行操作为（）。
A.同时按下Shift和鼠标左键
B.同时按下Shift和鼠标右键
C.同时按下Ctrl、Alt和鼠标左键
D.同时按下Ctrl、Alt和鼠标右键
正确答案：同时按下Ctrl、Alt和鼠标右键
10、编写如下事件过程：Private Sub Form（）Keydown（KeyCode As Integer， Shift As Integer）If （Button And 3） = 3 Then；Print "；AAAA"；End IfEnd Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为（）。
A.左
B.右
C.同时左，右
D.按什么键都不显示
正确答案：按什么键都不显示
11、当用户按键时，KeyPress、KeyDown、KeyUp事件的执行顺序为（）。
A.KeyPress事件、KeyDown事件、KeyUp事件
B.KeyDown事件、KeyPress事件、KeyUp事件
C.KeyDown事件、KeyUp事件、KeyPress事件
D.D．KeyDown事件、KeyUp事件与KeyPress事件
正确答案：KeyDown事件、KeyPress事件、KeyUp事件
12、文本框Textl的KeyDown事件过程中参数KeyCode值表示（）。
A.是否按下了Alt键或Ctrl键
B.按下的是哪个数字键
C.所按的键盘键的键码
D.按下的是哪个鼠标键
正确答案：所按的键盘键的键码
13、编写如下两个事件过程：Private Sub Form（）KeyDown（KeyCode As Integer， Shift As Integer）Print Chr（KeyCode）End SubPrivate Sub Form（）KeyPress（KeyAscii As Integer）Print Chr（KeyAscii）End Sub一般情况下（即不按住Shift和锁定大写）运行程序，如按“A”键则输出（）。
A.A；a
B.a；A
C.A；A
D.a；a
正确答案：A；a
14、在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件，即Form优先）然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1（）Click（）Text1.Text=Ucase（SaveAll）End SubPrivate Sub Form（）KeyPress（KeyAscii As Integer）SaveAll= SaveAll+Chr（KeyAscii）End Sub程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框显示为（）。
A.abcdefg
B.不显示任何信息
C.ABCDEFG
D.出错
正确答案：ABCDEFG
15、在上题中，如果把窗体的KeyPreview设置为False，则文本框中显示的内容为（）。
A.abcdefg
B.不显示任何信息
C.ABCDEFG
D.出错
正确答案：不显示任何信息
16、下列关于MouseMove事件，描述正确的是（）。
A.与鼠标的灵敏度有关
B.每秒激发一次
C.伴随鼠标的移动而连续不断的发生
D.当鼠标移动时被激活一次然后等待下次移动
正确答案：伴随鼠标的移动而连续不断的发生
17、当鼠标左键按下时，下列哪个事件被激发（）。
A.KeyDown事件
B.KeyPress事件
C.MouseDown事件
D.MousePress事件
正确答案：MouseDown事件
18、在鼠标事件中，语句If Button=2 成立的条件是（）。
A.按键盘数字键2
B.单击鼠标左键
C.单击鼠标右键
D.双击鼠标左键
正确答案：单击鼠标右键
19、Private Sub Form（）MouseDown（Button As Integer， Shift As Integer， X As Single， Y As Single）If Shift = 6 And Button = 2 Then；Print "；BBBB"；End IfEnd Sub程序运行后，为在窗体上输出“BBBB”，应执行操作为（）。
A.同时按下Shift和鼠标左键
B.同时按下Shift和鼠标右键
C.同时按下Ctrl、Alt和鼠标左键
D.同时按下Ctrl、Alt和鼠标右键
正确答案：同时按下Ctrl、Alt和鼠标右键
20、编写如下事件过程：Private Sub Form（）Keydown（KeyCode As Integer， Shift As Integer）If （Button And 3） = 3 Then；Print "；AAAA"；End IfEnd Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为（）。
A.左
B.右
C.同时左，右
D.按什么键都不显示
正确答案：按什么键都不显示
第十二章单元测试
1、按文件中数据的编码方式，文件分为（）。
A.顺序文件和随机文件
B.ASCII码文件和二进制文件
C.程序文件和数据文件
D.源程序文件和可执行文件
正确答案：ASCII码文件和二进制文件
2、关于顺序文件的描述，下面正确的是（）。
A.每条记录的长度必须相同
B.可通过编程对文件中的某条记录方便地修改
C.数据以ASCII码形式存放在文件中，所以可通过文本编辑软件显示
D.文件的组织结构复杂
正确答案：数据以ASCII码形式存放在文件中，所以可通过文本编辑软件显示
3、文件号最大可取的值为（）。
A.255
B.511
C.512
D.256
正确答案：512
4、下面哪个函数可测试文件指针是否到文件尾（）。
A.LOF
B.LOC
C.EOF
D.BOF
正确答案：EOF
5、下面哪个函数可得到文件的长度（）。
A.LOF
B.LOC
C.EOF
D.BOF
正确答案：LOF
6、对语句Open“c：Test.txt”For Output As #2，以下错误叙述是（）。
A.若C盘根目录下存在Test.txt，则打开名为Test.txt的文件
B.若C盘根目录下不存在Test.txt，则建立一个名为Test.txt的文件
C.通过该语句打开文件后，可以对文件进行读操作
D.执行该语句后，就可以通过Print语句向文件Test.txt中写入信息
正确答案：通过该语句打开文件后，可以对文件进行读操作
7、Print #1，STR$中的Print是（）。
A.文件的写语句
B.在窗体上显示的方法
C.子程序名
D.文件的读语句
正确答案：文件的写语句
8、在随机文件操作中，定义记录类型的语句（）。
A.Type…End Type
B.Dim
C.Private
D.Public
正确答案：Type…End Type
9、在二进制文件操作中，读数据使用的语句（）。
A.Input
B.Write
C.Put
D.Get
正确答案：Get
10、要获得当前驱动器，应使用驱动器列表框的属性为（）。
A.Path
B.FilePath
C.Drive
D.Change
正确答案：Drive
11、按文件中数据的编码方式，文件分为（）。
A.顺序文件和随机文件
B.ASCII码文件和二进制文件
C.程序文件和数据文件
D.源程序文件和可执行文件
正确答案：ASCII码文件和二进制文件
12、关于顺序文件的描述，下面正确的是（）。
A.每条记录的长度必须相同
B.可通过编程对文件中的某条记录方便地修改
C.数据以ASCII码形式存放在文件中，所以可通过文本编辑软件显示
D.文件的组织结构复杂
正确答案：数据以ASCII码形式存放在文件中，所以可通过文本编辑软件显示
13、文件号最大可取的值为（）。
A.255
B.511
C.512
D.256
正确答案：512
14、下面哪个函数可测试文件指针是否到文件尾（）。
A.LOF
B.LOC
C.EOF
D.BOF
正确答案：EOF
15、下面哪个函数可得到文件的长度（）。
A.LOF
B.LOC
C.EOF
D.BOF
正确答案：LOF
16、对语句Open“c：Test.txt”For Output As #2，以下错误叙述是（）。
A.若C盘根目录下存在Test.txt，则打开名为Test.txt的文件
B.若C盘根目录下不存在Test.txt，则建立一个名为Test.txt的文件
C.通过该语句打开文件后，可以对文件进行读操作
D.执行该语句后，就可以通过Print语句向文件Test.txt中写入信息
正确答案：通过该语句打开文件后，可以对文件进行读操作
17、Print #1，STR$中的Print是（）。
A.文件的写语句
B.在窗体上显示的方法
C.子程序名
D.文件的读语句
正确答案：文件的写语句
18、在随机文件操作中，定义记录类型的语句（）。
A.Type…End Type
B.Dim
C.Private
D.Public
正确答案：Type…End Type
19、在二进制文件操作中，读数据使用的语句（）。
A.Input
B.Write
C.Put
D.Get
正确答案：Get
20、要获得当前驱动器，应使用驱动器列表框的属性为（）。
A.Path
B.FilePath
C.Drive
D.Change
正确答案：Drive