报名本机构合作学校，赠送复习资料，复习课程，确保录取。并且可以申请学校奖学金500元～1500元不等！
Visual Basic简介测试题
1、【单选题】下列关于程序设计语言的叙述中，错误的是（ ）。
A、目前计算机还无法理解和执行自然语言编写的程序
B、程序设计语言是一种能被计算机准确理解和执行的语言
C、程序设计语言没有高级和低级之分，只是不同国家使用不同的编程语言而已
D、高级程序设计语言不依赖于具体的机器硬件
2、【单选题】下列关于Visual Basic的叙述中，错误的是（ ）。
A、Visual Basic是可视化程序设计语言
B、Visual Basic采用事件驱动编程机制
C、Visual Basic的应用程序是以顺序方式执行
D、Visual Basic的应用程序可以以编译方式执行
选择题
1、【单选题】Visual Basic的标题栏信息显示为“工程1-Microsoft Visual Basic[Break]”，表示当前的工作模式是（ ）。
A、设计
B、运行
C、代码
D、中断
2、【单选题】下列关于Visual Basic 6.0集成开发环境的叙述中，正确的是（ ）。
A、只有代码窗口和窗体窗口
B、不能设置代码的自动语法检测
C、可以编写程序代码
D、不能设置对象的属性
选择题
1、【单选题】下列叙述中，错误的是（ ）。
A、设置对象属性可以改变窗体和控件的外观
B、保存程序就是将程序有关文件保存在磁盘上
C、程序调试就是修正语法错误和逻辑错误的过程
D、编写程序代码是在窗体设计器窗口中实现
2、【单选题】在开发Visual Basic应用程序时，一个工程一般至少应含有（ ）。
A、标准模块文件和类模块文件
B、工程文件和窗体文件
C、工程文件和类模块文件
D、工程文件和标准模块文件
选择题
1、【单选题】下列关于类和对象的叙述中，错误的是（ ）。
A、一个类只能有一个对象
B、对象是类的具体实例
C、类是对同一类对象的抽象
D、类是一组具有共同特征的对象集合
2、【单选题】下列关于“事件”的叙述中，错误的是（ ）。
A、事件是系统预先为对象定义，能被对象识别的动作
B、事件可以分为用户事件和系统事件
C、Visual Basic为每个对象设置好各种事件，并定义好事件过程的过程名，但过程代码必须由用户自行编写
D、Visual Basic中的所有对象的默认事件都是Click
选择题
1、【单选题】下列叙述中，正确的是（ ）。
A、窗体的Name属性指定窗体的名称，用于标记一个窗体
B、窗体的Name属性的值是显示在窗体标题栏中的文本
C、可以在运行期间改变对象的Name属性的值
D、对象的Name属性值可以为空
2、【单选题】下列叙述中，正确的是（ ）。
A、Move属性只能用于移动窗体，不能用于改变其大小
B、Move属性不能用于移动窗体，但可改变其大小
C、Move方法不能用于移动窗体，也不能用于改变其大小
D、Move方法不仅能够用于移动窗体，也可用于改变其大小
第1讲 单元测试
1、【单选题】下列程序设计语言中，属于低级语言的是（ ）。
A、C语言
B、汇编语言
C、Visual Basic
D、Java
2、【单选题】Visual Basic采用了（ ）编程机制。
A、面向过程
B、面向对象
C、事件驱动
D、可视化
3、【单选题】Visual Basic的启动有多种方法，下面不能启动Visual Basic的是（ ）。
A、使用“开始”菜单中的“程序”命令
B、使用“开始”菜单中的“运行”命令，在打开的对话框中输入Visual Basic启动文件的名称
C、使用“我的电脑”窗口，在Visual Basic所在硬盘驱动器中找到相应的Visual Basic文件，然后运行该文件
D、打开Visual Basic的“文件”菜单，再按Alt＋Q组合键
4、【单选题】在Visual Basic集成开发环境中创建Visual Basic应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（ ）。
A、窗体布局窗口
B、立即窗口
C、代码窗口
D、监视窗口
5、【单选题】下列不能打开属性窗口的操作是（ ）。
A、选择“视图”→“属性窗口”命令
B、按F4键
C、按Ctrl＋T组合键
D、单击常用工具栏上的“属性窗口”按钮
6、【单选题】通过（ ）窗口可以在设计时直观地调整窗体在屏幕上的位置。
A、代码
B、窗体布局
C、窗体设计器
D、属性
7、【单选题】使用Visual Basic的工程资源管理器可管理多种类型的文件，下面叙述不正确的是（ ）。
A、窗体文件的扩展名为.frm，每个窗体对应一个窗体文件
B、标准模块是一个纯代码性质的文件，它不属于任何一个窗体
C、用户通过类模块来定义自己的类，每个类都用一个文件来保存，其扩展名为.bas
D、资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑
8、【单选题】新建一个标准EXE工程后，不在工具箱中出现的控件是（ ）。
A、单选按钮
B、图片框
C、通用对话框
D、文本框
9、【单选题】一个应用程序的窗体中含有图片框控件（已装入图像），则该Visual Basic应用程序从文件上看，至少应该包括的文件有（ ）。
A、窗体文件（.frm）、项目文件（.vbp/vbw）
B、窗体文件（.frm）、项目文件（.vbp/vbw）和代码文件（.bas）
C、窗体文件（.frm）、项目文件（.vbp/vbw）和模块文件（.bas）
D、窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（.frx）
10、【单选题】下列叙述中错误的是（ ）。
A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B、保存Visual Basic程序时，应分别保存窗体文件和工程文件
C、Visual Basic应用程序只能以解释方式执行
D、事件可以由用户引发，也可以由系统引发
11、【单选题】下列叙述中错误的是（ ）。
A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B、以.bas为扩展名的文件是标准模块文件
C、窗体文件包含该窗体及其控件的属性
D、一个工程中可以含有多个标准模块文件
12、【单选题】在开发Visual Basic应用程序时，一个工程一般至少应含有（ ）。
A、标准模块文件和类模块文件
B、工程文件和窗体文件
C、工程文件和类模块文件
D、工程文件和标准模块文件
13、【单选题】下列叙述中正确的是（ ）。
A、对象具有属性、方法和事件
B、对象的属性只能在属性窗口中设置
C、对象的属性只能在代码中进行设置
D、事件过程都要由用户单击对象来触发
14、【单选题】Visual Basic是一种面向对象的程序设计语言，下面（ ）不是面向对象包含的三要素。
A、变量
B、事件
C、属性
D、方法
15、【单选题】在面向对象方法中，类的实例称为（ ）。
A、集合
B、抽象
C、对象
D、模板
16、【单选题】在Visual Basic中，对象的行为被称作（ ），它是被事先编写好的相应的过程或函数，供用户直接调用。
A、属性
B、方法
C、事件
D、消息
17、【单选题】设有语句“Command1.Caption =确定”，则Command1、Caption和确定分别代表（ ）。
A、对象、属性、值
B、对象、方法、值
C、对象、值、属性
D、属性、对象、值
18、【单选题】设有语句“Form1.Print 欢迎使用Visual Basic 6.0!”，则Form1、Print和欢迎使用Visual Basic 6.0!则分别代表（ ）。
A、对象、属性、值
B、对象、方法、参数
C、对象、值、属性
D、属性、对象、值
19、【单选题】Visual Basic是一种面向对象的可视化程序设计语言，采取了（ ）的编程机制。
A、从窗体开始执行
B、按书写顺序执行
C、从主程序开始执行
D、事件驱动
20、【单选题】下列关于Visual Basic编程的说法中不正确的是（ ）。
A、属性是描述对象特征的数据
B、事件是能被对象识别的动作
C、方法指示对象的行为
D、Visual Basic程序采用的运行机制是面向对象
21、【单选题】下列关于事件的叙述中不正确的是（ ）。
A、事件是系统预先为对象定义，能被对象识别的动作
B、事件可以分为用户事件和系统事件
C、Visual Basic为每个对象设置好各种事件，并定义好事件过程的过程名，但过程代码必须由用户自行编写
D、Visual Basic中的所有对象的默认事件都是Click
22、【单选题】在Visual Basic中最基本的对象是（ ），它是应用程序的基石。
A、标签
B、窗体
C、文本框
D、命令按钮
23、【单选题】窗体的Caption属性的作用是（ ）。
A、确定窗体的名称
B、确定窗体的标题
C、确定窗体的边界类型
D、确定窗体的字体
24、【单选题】通过（ ）属性设置窗体的标题栏的图标。
A、Icon
B、Picture
C、MouseIcon
D、DownPicture
25、【单选题】若要取消窗体的最大化功能，则可设置窗体的（ ）属性为False来实现。
A、ControlBox
B、MinButton
C、MaxButton
D、Enabled
26、【单选题】下列窗体属性中，仅在程序运行时才有效果的是（ ）。
A、Left
B、Picture
C、BorderStyle
D、Caption
27、【单选题】要使窗体Form1的标题栏显示“欢迎使用Visual Basic 6.0!”，以下（ ）语句是正确的。
A、Form1.Caption ="欢迎使用Visual Basic 6.0! "
B、Form1.Caption ='欢迎使用Visual Basic 6.0! '
C、Form.Caption = "欢迎使用Visual Basic 6.0! "
D、Form.Caption = '欢迎使用Visual Basic 6.0! '
28、【单选题】下列不属于窗体事件的是（ ）。
A、DblClick
B、Click
C、Load
D、Move
29、【单选题】程序运行时，不是由系统触发的事件是（ ）。
A、Initialize
B、Click
C、Load
D、Terminate
30、【单选题】窗体不能调用的方法是（ ）。
A、Print
B、Move
C、Cls
D、Clear
31、【单选题】Visual Basic的标题栏信息显示为“工程1-Microsoft Visual Basic[Break]”，表示当前的工作模式是（ ）。
A、设计
B、运行
C、代码
D、中断
32、【单选题】1. 下列不属于创建Visual Basic应用程序的一般步骤的是（ ）。
A、创建用户界面
B、设置对象属性
C、编写程序代码
D、工程分类
33、【单选题】下列关于“方法”的叙述中，错误的是（ ）。
A、方法是对象的一部分
B、方法是预先定义好的操作
C、方法是对事件的响应
D、方法用于完成某些特定功能
选择题
1、【单选题】下列字符不属于Visual Basic字符集的是（ ）。
A、e
B、{
C、6
D、*
2、【单选题】下列（ ）是合法的Visual Basic标识符。
A、Int_Sum
B、Dim
C、6days
D、x
E、y
单选题
1、【单选题】Integer类型可表示的最大整数是（ ）。
A、255
B、32767
C、256
D、32768
2、【单选题】下列关于数据类型的叙述中，错误的是（ ）。
A、Variant可以存储系统定义的所有类型的数据
B、逻辑型数据只有两个值
C、Long型数据用于存储实数
D、标准数据类型是系统定义的
单选题
1、【单选题】下列（ ）不是合法的常量。
A、True
B、3.2e-3
C、"edu"
D、2018-06-01
2、【单选题】下列关于Visual Basic 6.0变量的叙述中，正确的是（ ）。
A、变量名中可以包含感叹号
B、变量一定要先声明再使用
C、变量名的第1个字符只能是字母
D、变量名中可以包含下划线
单选题
1、【单选题】下列（ ）是算术运算符。
A、Like
B、Mod
C、Not
D、Eqv
2、【单选题】表达式 5^2 Mod 6 + 15/30 And 203 的值是（ ）。
A、25
B、64
C、1
D、0
单选题
1、【单选题】表达式Int(-1.5) + Sgn(-28) + Exp(0)的值为（ ）。
A、-2
B、-1
C、1
D、0
2、【单选题】表达式Chr(Int(Rnd * 8 + 68))产生的英文字符所在的范围是（ ）。
A、"D"～"K"
B、"d"～"k"
C、"C"～"J"
D、"c"～"j"
第2讲 单元测试
1、【单选题】在Visual Basic中，如果一个变量未做类型声明而直接使用，则该变量的数据类型是（ ）。
A、字符串型
B、数值型
C、变体类型
D、可以是任何类型
2、【单选题】设有如下语句：Dim a, b As Integerc = Visual Basicd = #7/20/2005#以下关于这段代码的叙述中，错误的是（ ）。
A、a被定义为Integer类型变量
B、b被定义为Integer类型变量
C、c中的数据是字符串
D、d中的数据是日期类型
3、【单选题】下列关于变体数据类型的叙述中正确的是（ ）。
A、变体是一种没有类型的数据
B、给变体变量赋某一种类型数值后，就不能再赋给另一种类型数值
C、一个变量没有定义就赋值，该变量即为变体类型
D、变体的空值就表示该变体值为0
4、【单选题】下面（ ）是不合法的整常数。
A、100
B、&O100
C、&H100
D、%100
5、【单选题】下面（ ）是合法的字符常数。
A、ABC$
B、"ABC"
C、'ABC'
D、ABC
6、【单选题】下面（ ）是不合法的单精度常数。
A、100!
B、100.0
C、1E+2
D、100.0D+2
7、【单选题】下面（ ）是合法的单精度型变量。
A、num!
B、sum%
C、xint$
D、mm
E、
8、【单选题】下列不可作为Visual Basic变量名的是（ ）。
A、4*Delta
B、Alpha
C、ABC
D、ABT1
9、【单选题】以下合法的Visual Basic 标识符是（ ）。
A、ForLoop
B、Const
C、6abc
D、b
E、x
10、【单选题】设有如下变量声明：Dim TestDate As Date能为变量TestDate正确赋值的是（ ）。
A、TestDate =
B、1/1/2012
C、
D、TestDate=
E、"1/1/2012"
F、
G、TestDate = Date("1/1/2012")
H、TestDate = Format("m/d/yy", "1/1/2012")
11、【单选题】在Visual Basic的基本数据类型中，变体类型（Variant）可以表示任何类型的变量，如果有定义“Dim a”，则以下变量赋值中正确的是（ ）。
A、a="OK"
B、a$=OK
C、a=04/01/2011
D、a$="OK"
12、【单选题】如果变量a、b、c均为整型，下列程序段的输出结果为（ ）。a = 2b = 3c = a * bPrint a * b = c
A、c=6
B、a*b=c
C、2*3=6
D、a*b=6
13、【单选题】设a = 2、b = 3、c = 4、d = 5，则表达式3 2 * b Or a = c And b c Or c d的值是（ ）。
A、1
B、-1
C、False
D、True
14、【单选题】下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（ ）。
A、x Mod 2 = 1 Or y Mod 2 = 1
B、x Mod 2 = 0 Or y Mod 2 = 0
C、x Mod 2 = 1 And y Mod 2 = 1
D、x Mod 2 = 0 And y Mod 2 = 0
15、【单选题】表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是（ ）。
A、4
B、5
C、6
D、7
16、【单选题】设a=3、b=5，则以下表达式值为真的是（ ）。
A、a>=b And b>10
B、(a > b) Or (b > 0)
C、(a < 0) Eqv (b > 0)
D、(-3 + 5 > a) And (b > 0)
17、【单选题】在直角坐标系中，x、y是坐标系中任意点的位置，用x与y表示在第一或第三象限的表达式，以下不正确的是（ ）。
A、(x > 0 And y > 0) And (x < 0 And y < 0)
B、(x > 0 And y > 0) Or (x < 0 And y < 0)
C、x * y > 0
D、x * y = Abs(x * y)
18、【单选题】表达式Int(8 * Sqr(36 * (10 ^ (-2)) * 10 + 0.5)) / 10的值是（ ）。
A、1
B、16
C、1.6
D、0.16
19、【单选题】表达式2 * 3 ^ 2 + 2 * 8 / 4 + 3 ^ 2的值为（ ）。
A、64
B、31
C、49
D、22
20、【单选题】表达式2 + 3 * 4 ^ 5 + 1 / 2中最先进行的运算是（ ）。
A、4^5
B、3*4
C、x+1
D、1/2
21、【单选题】表达式Int(-17.8) + Sgn(17.8)的值是（ ）。
A、18
B、-17
C、-18
D、-16
22、【单选题】计算结果为0的表达式是（ ）。
A、Int(2.4) + Int(–2.8)
B、CInt(2.4) + CInt(–2.8)
C、Fix(2.4) + Int(–2.8)
D、Fix(2.4) + Fix(–2.8)
23、【单选题】用于获得字符串s从第二个字符开始的3个字符的函数是（ ）。
A、Mid$(s, 2, 3)
B、Middle(s, 2, 3)
C、Right$(s, 2, 3)
D、Left$(s, 2, 3)
24、【单选题】执行以下程序段后，变量c$的值为（ ）。a$ = Visual Basicb$ = Quickc$ = b$ UCase(Mid$(a$, 2, 3)) Right$(a$, 2)
A、Quick Visual
B、Quick Basic
C、Quickisuic
D、QuickISUic
25、【单选题】用于从字符串左边截取字符的函数是（ ）。
A、Ltrim()
B、Trim()
C、Left()
D、Instr()
26、【单选题】表达式Val(.123E2CD)的值是（ ）。
A、123
B、0
C、12.3
D、123E2CD
27、【单选题】表达式Str(Len(1234)) + Str(5.9)的值为（ ）。
A、45.9
B、4 5.9
C、12345.9
D、1234 5.9
28、【单选题】表达式Len(幸运52)的值是（ ）。
A、0
B、4
C、6
D、8
29、【单选题】可获得当前系统日期的函数是（ ）。
A、Date()
B、Time()
C、IsDate()
D、Year()
30、【单选题】产生[5, 46]之间随机整数的Visual Basic表达式是（ ）。
A、Int(Rnd(1) * 42) + 6
B、Int(Rnd(1) * 42) + 5
C、Int(Rnd(1)) + 41
D、Int(Rnd(1) * 41) + 5
31、【单选题】下列字符不属于Visual Basic字符集的是（ ）。
A、e
B、{
C、6
D、*
32、【单选题】下列关于Visual Basic关键字的叙述中，错误的是（ ）。
A、关键字是系统定义的
B、每个关键字都有固定含义
C、Private是Visual Basic的关键字
D、关键字可以由用户定义
33、【单选题】下列关于Visual Basic标识符的叙述中，错误的是（ ）。
A、标识符只能由字母、数字、汉字和下划线组成
B、标识符是系统定义的，不能由用户定义
C、Visual Basic关键字不能作为标识符
D、标识符只能以字母或汉字打头
34、【单选题】下列（ ）是合法的Visual Basic标识符。
A、Int_Sum
B、Dim
C、6days
D、x
E、y
判断题
1、【判断题】对于一个只包含顺序结构的程序来说，数据处理的一般流程为数据输入、数据加工处理及结果输出。
A、正确
B、错误
2、【判断题】顺序结构程序中有些语句可以被多次执行。
A、正确
B、错误
单选题
1、【单选题】语句x=x+1的正确含义是（ ）。
A、变量x的值与x+1的值相等
B、将变量x的值存到x+1中去
C、将变量x的值加1后赋给变量x
D、变量x的值为1
2、【单选题】如果将逻辑型常量值True赋值给一个整型变量，则整型变量的值为（ ）。
A、0
B、-1
C、True
D、False
单选题
1、【单选题】对于InputBox函数，下列说法错误的是（ ）。
A、InputBox函数值可以赋予一个变量，也可以不给任何变量赋值
B、InputBox函数可以指定默认值
C、InputBox函数可以省略“提示信息”参数
D、InputBox函数返回的是字符串数据
2、【单选题】设v是变体变量，执行语句v=InputBox(请输入圆半径,计算面积,3)，在弹出的对话框中输入10并按“确定”按钮后，v变量的内容为（ ）。
A、字符串"3"
B、数值型3
C、数值型10
D、字符串"10"
单选题
1、【单选题】有如下语句 MsgBox 文件不存在, 48, 打开文件其中，文件不存在、48、打开文件分别是消息框的（ ）。
A、对话框标题、对话框类型、提示信息
B、提示信息、对话框类型、对话框标题
C、提示信息、对话框标题、对话框类型
D、对话框标题、提示信息、对话框类型
2、【单选题】执行以下语句： Form1.Print **; Form1.Print *** Form1.Print ****, Form1.Print *****其输出结果中，第一行有（ ）个*。
A、2
B、3
C、4
D、5
单选题
1、【单选题】为使鼠标指针指向按钮时显示提示内容，应设置命令按钮的（ ）属性。
A、Caption
B、Default
C、ToolTipText
D、Tag
2、【单选题】程序运行时，不能触发命令按钮的Click事件的是（ ）。
A、单击命令按钮
B、在命令按钮的Cancel属性设置为True的条件下，按Enter键
C、操作命令按钮的快捷键
D、用Tab键将焦点转移到按钮上，然后按回车键
单选题
1、【单选题】下列属性不属于标签的是（ ）。
A、Text
B、Caption
C、BackStyle
D、AutoSize
2、【单选题】下列关于标签叙述中，错误的是（ ）。
A、标签AutoSize属性决定其大小是否自动适应内容的变化
B、标签BackStyle属性值为 0 时标签呈现透明
C、标签BorderStyle属性值为 1 时标签有边框
D、标签Appearance属性值为 0 时标签有3D效果
单选题
1、【单选题】清除文本框Text1中的内容，可以使用（ ）。
A、Text1.Cls
B、Text1.Clear
C、Text1.Caption=""
D、Text1.Text=""
2、【单选题】当焦点进入文本框Text1时，要自动选定文本框中第6到第8个位置上的3个字符，可通过以下（ ）代码实现。
A、Text1.SelStart = 6Text1.SelLength = 3
B、Text1.SelStart = 5Text1.SelLength = 3
C、Text1.SelLength = 6Text1.SelStart = 4
D、Text1.SelLength = 8Text1.SelStart = 6
第3讲 单元测试
1、【单选题】如果变量a、b、c均为整型，下列程序段的输出结果为（ ）。a = 2b = 3c = a * bPrint a * b = c
A、c=6
B、a*b=c
C、2*3=6
D、a*b=6
2、【单选题】语句“Print 5\5 * 5”的输出结果是（ ）。
A、5
B、25
C、0
D、1
3、【单选题】以下语句的输出结果是（ ）。Print Format$(1234.5, 00,000.00)
A、1234.5
B、01,234.50
C、01,234.5
D、1,234.50
4、【单选题】当执行以下过程时，在窗体上将显示（ ）。Private Sub Command1_Click() Print VB Print Hello!; Print VBEnd Sub
A、VB Hello! VB
B、VBHello!VB
C、VBHello! VB
D、VBHello!VB
5、【单选题】在窗体中添加一个命令按钮Command1，两个文本框Text1和Text2，然后编写如下程序：Private Sub Command1_Click() a = Text1.Text b = Text2.Text C = LCase(a) D = UCase(b) Print C; DEnd Sub程序运行后，在文本框Text1和Text2中分别输入AbC和Efg，显示结果是（ ）。
A、abcEFG
B、abcefg
C、ABCefg
D、ABCEFG
6、【单选题】在窗体上添加一个命令按钮Command1和一个文本框Text1，并在命令按钮的Click事件过程中编写如下代码：Private Sub Command1_Click() A = 1.2 C = Len(Str$(A) + Space(10)) Text1.Text = CEnd Sub程序运行后，单击命令按钮，在文本框中显示（ ）。
A、3
B、8
C、14
D、10
7、【单选题】InputBox()函数返回值的类型为（ ）。
A、数值
B、字符串
C、变体
D、数值或字符串（视输入的数据而定）
8、【单选题】设有语句：x = InputBox(输入数值, 0, 示例)程序运行后，在键盘上输入10后按Enter键，下列描述中正确的是（ ）。
A、变量x的值是"输入数值"
B、在InputBox对话框标题栏中显示的是"示例"
C、0是默认值
D、变量x的值是字符串"10"
9、【单选题】在窗体上添加一个命令按钮Command1和一个文本框Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox(Enter an Integer) b = InputBox(Enter an Integer) Text1.Text = b + aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是（ ）。
A、108
B、18
C、810
D、出错
10、【单选题】执行语句“x=MsgBox(数据类型不匹配,1,出错提示！)”，然后单击消息框中的“取消”按钮，x的值是（ ）。
A、True
B、False
C、1
D、2
11、【单选题】下列语句中正确的是（ ）。
A、MsgBox vbOKOnly, "Error"
B、MsgBox "Error", vbOKOnly
C、MsgBox(VbOkOnly,"Error")
D、MsgBox ("Error",VbOkOnly)
12、【单选题】执行语句“Msgbox 除数不为0,18,数据出错”，弹出的消息框中显示的图标是（ ）。
A、停止图标
B、问号图标
C、感叹号图标
D、消息图标
13、【单选题】MsgBox函数返回值的类型为（ ）。
A、整型数值
B、字符串
C、变体
D、数值或字符串（视输入的数据而定）
14、【单选题】下列程序运行过程中，信息框中显示的内容是（ ）。Private Sub Command1_Click() MsgBox Str(123 + 123)End Sub
A、123+123
B、123
C、246
D、显示出错信息
15、【单选题】命令按钮的Caption属性包含（ ），则按Alt+C组合键可激活该按钮。
A、&C
B、$C
C、
D、C
E、@C
16、【单选题】设置命令按钮的（ ）属性为True，可使按Enter键时，执行该按钮的单击事件过程。
A、Cancel
B、Enabled
C、Value
D、Default
17、【单选题】设置命令按钮的（ ）属性，可使鼠标指针指向该按钮时，显示提示内容。
A、Caption
B、ToolTipText
C、Font
D、Tag
18、【单选题】下列叙述中错误的是（ ）。
A、单击命令按钮可触发MouseDown事件
B、单击命令按钮可触发MouseUp事件
C、命令按钮支持单击事件
D、命令按钮支持双击事件
19、【单选题】窗体上有命令按钮“OK”，它的单击事件过程为CmdOK_Click，则该命令按钮的Name和Caption属性分别为（ ）。
A、OK、Cmd
B、Cmd、OK
C、CmdOK、OK
D、OK、CmdOK
20、【单选题】执行（ ）语句，可使命令按钮上显示“确定”。
A、Command1.Show = "确定"
B、Command1.Caption = "确定"
C、Command1.Name = "确定"
D、Command1.Visible = "确定"
21、【单选题】命令按钮不能响应以下（ ）事件。
A、DblClick
B、DragDrop
C、KeyPress
D、MouseMove
22、【单选题】设置标签Label1的（ ）属性可使它不可见。
A、Label1.Visible=0
B、Label1.Visible=1
C、Label1.Visible=True
D、Label1.Visible=False
23、【单选题】设置标签的（ ）属性可改变其文字的对齐方式。
A、Jusify
B、Font
C、Alignment
D、以上都不是
24、【单选题】下列叙述中错误的是（ ）。
A、标签和文本框都有Caption属性
B、标签和文本框的主要区别在于能否编辑其内容
C、标签具有Autosize属性，而文本框没有
D、文本框具有StrollBar属性，而标签没有
25、【单选题】触发文本框Change事件的操作是（ ）。
A、改变文本框的内容
B、改变文本框的大小
C、文本框获得焦点
D、文本框失去焦点
26、【单选题】在文本框的（ ）属性值设置为True后，设置ScrollBars属性后才可使文本框中出现滚动条。
A、Text
B、PasswordChar
C、Enabled
D、MultiLine
27、【单选题】文本框没有（ ）属性。
A、Enabled
B、Visible
C、BackColor
D、Caption
28、【单选题】要使命令按钮显示为图形样式，可设置该按钮的（ ）。
A、Style属性值为0，Picture属性选择要显示的图片文件
B、Style属性值为1，Picture属性选择要显示的图片文件
C、Style属性值为1，DragIcon属性选择要显示的图片文件
D、Style属性值为0，DragIcon属性选择要显示的图片文件
29、【单选题】程序运行时，要使用户的鼠标暂停在命令按钮上出现提示信息，应设置命令按钮的（ ）属性。
A、TabStop
B、Style
C、DragIcon
D、ToolTipText
30、【单选题】当焦点进入文本框Text1时，要自动选定文本框中第3到第8个位置上的6个字符，可通过（ ）代码实现。
A、Text1.SelStart = 3Text1.SelLength = 6
B、Text1.SelStart = 2Text1.SelLength = 6
C、Text1.SelStart = 4Text1.SelLength = 5
D、Text1.SelStart = 1Text1.SelLength = 6
单选题
1、【单选题】下列关于选择结构的叙述错误的是（ ）。
A、选择结构就是对给定条件进行判断，并根据判断结果选择执行不同的分支语句。
B、选择结构中的所有语句都会被执行
C、根据程序分支的数目，可以将选择结构分为单分支结构、双分支结构和多分支结构。
D、在Visual Basic中，可以使用If语句和Select Case语句来实现选择结构
If语句测试题
1、【单选题】执行下列事件过程，y的值为（ ）。Private Sub Command1_Click() x = 3 If x 10 Then y = x ^ 2 + 3 * x + 2 Else If x 5 Then y = 3 * x + 2 Else y = 5 End If End IfEnd Sub
A、20
B、11
C、5
D、3
2、【判断题】If语句的条件表达式只能是关系表达式或逻辑表达式
A、正确
B、错误
单选题
1、【单选题】有如下程序段： Private Sub Command1_Click() x = Val(InputBox(请输入整数x)) Select Case Sgn(x) + 2 Case 1 x = x + 1 Case 2 x = x + 2 Case 3 x = x + 3 End Select End Sub运行时在弹出的输入框中输入“-5”后，按“确定”按钮，则x的值是（ ）。
A、-5
B、-4
C、-3
D、-2
2、【单选题】下列程序段的执行结果是（ ）。 Dim x As Integer x = 76 Select Case x Case Is = 60 Form1.Print 及格 Case Is 75 Form1.Print 良好 Case Is = 90 Form1.Print 优秀 Case Else Form1.Print 不及格 End Select
A、优秀
B、良好
C、及格
D、不及格
测试题
1、【单选题】执行下列事件过程，y的值为（ ）。Private Sub Command1_Click() x = 3 If x 10 Then y = x ^ 2 + 3 * x + 2 Else If x 5 Then y = 3 * x + 2 Else y = 5 End If End IfEnd Sub
A、20
B、11
C、5
D、3
2、【判断题】选择结构的嵌套可以出现交叉。
A、正确
B、错误
单选题
1、【单选题】对于单选按钮和复选框，以下叙述错误的是（ ）。
A、Value表示单选按钮的状态时其值为逻辑型
B、Value表示复选框的状态时其值为整型
C、Alignment设置为1可以将单选按钮的标题显示在它的左边
D、 两者的Value属性的缺省值都为Unchecked
2、【单选题】关于框架（Frame）作用，以下说法错误的是（ ）。
A、在某控件上画框架，就可将控件置于该框架内
B、在框架内画控件，才能使控件置于该框架内
C、框架内单选按钮不受框架外单选按钮的影响
D、框架内单选按钮中只能被选中一个
第4讲 单元测试
1、【单选题】在窗体中添加一个命令按钮Command1，并编写如下程序：Private Sub Command1_Click() x = InputBox(x) If x ^ 2 = 9 Then y = x If x ^ 2 9 Then y = 1 / x If x ^ 2 9 Then y = x ^ 2 + 1 Print yEnd Sub程序运行时，单击命令按钮，在InputBox中输入3，然后单击“确定”按钮，程序的运行结果为（ ）。
A、3
B、0.33
C、17
D、0.25
2、【单选题】当Visual Basic执行下面语句后，a的值为（ ）。a = 1If a 0 Then a = a + 1If a 1 Then a = 0
A、0
B、1
C、2
D、3
3、【单选题】下列程序的运行结果为（ ）。Dim x%If x Then Print x + 1 Else Print x
A、1
B、0
C、True
D、显示错误信息
4、【单选题】下列语句中正确的是（ ）。
A、If x < 3 * y , x > y Then y = x3
B、If x < 3 * y And x > y Then y = x *3
C、If x < 3 * y : x > y Then y = x3
D、If x < 3 * y And x > y Then y = x* * 3
5、【单选题】下列程序执行后，变量x的值为（ ）。Private Sub command1_click() Dim a, b, c, d As Single Dim x As Single a = 100: b = 20: c = 1000 If b a Then d = a: a = b: b = d End If If b c Then x = b ElseIf a c Then x = c Else x = a End IfEnd Sub
A、100
B、20
C、1000
D、0
6、【单选题】下列程序的运行结果为（ ）。a = 75If a 60 Then i = 1ElseIf a 70 Then i = 2ElseIf a 80 Then i = 3ElseIf a 90 Then i = 4End IfPrint i=; i
A、i=1
B、i=2
C、i=3
D、i=4
7、【单选题】在窗体上添加一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click() a = Val(InputBox(请输入分数：, 计算的等级, 60)) If a 0 Or a 100 Then Print 输入错误 ElseIf a 60 Then Print 不合格 ElseIf a 80 Then Print 合格 Else Print 优秀 End IfEnd Sub运行时，单击按钮，在输入对话框中直接按Enter键，显示的结果为（ ）。
A、输入错误
B、不合格
C、合格
D、优秀
8、【单选题】以下Case语句中错误的是（ ）。
A、Case 0 To 10
B、Case Is > 10
C、Case Is > 10 And Is < 50
D、Case 3, 5, Is > 10
9、【单选题】有如下程序：Private Sub Command1_Click() xcase = 1 t = InputBox(请输入一个数：) Select Case t Case Is 0 y = xcase + 1 Case Is = 0 y = xcase + 2 Case Else y = xcase + 3 End Select Print xcase; yEnd Sub程序运行时，在对话框中输入-1，则显示的结果为（ ）。
A、1 4
B、1 3
C、1 2
D、1 1
10、【单选题】下列程序段的运行结果为（ ）。Dim xx = Int(Rnd) + 5Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print 及格 Case Else Print 不及格End Select
A、不及格
B、良好
C、及格
D、优秀
11、【单选题】在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() x = InputBox(Input) Select Case x Case 1, 3 Print 分支 1 Case Is 4 Print 分支 2 Case Else Print Else 分支 End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是（ ）。
A、分支1
B、分支2
C、Else 分支
D、程序出错
12、【单选题】下列程序的输入值为5，运行结果为（ ）。Private Sub Command1_Click() Dim a As Integer a = InputBox(请输入a的值) Select Case a Case 1 To 4 Print D Case 5 To 10 Print C Case 11 To 14 Print B Case Else Print A End SelectEnd Sub
A、A
B、B
C、C
D、D
13、【单选题】下列程序的运行结果为（ ）。Private Sub Command1_Click() Score = Int(Rnd * 10) + 80 Select Case Score Case ls 60 a$ = E 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
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 = xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。
A、10
B、20
C、30
D、40
15、【单选题】在窗体中添加一个命令按钮Command1，编写如下代码：Private Sub Command1_Click() x = 6 If x 6 Then If x = 6 Then Print a Else Print b End If Else If x 8 Then Print c Else If x = 6 Then Print d End If End If End IfEnd Sub运行后，单击命令按钮，则在窗体上显示的是（ ）。
A、a
B、b
C、c
D、d
16、【单选题】单选按钮被选中时，其Value属性为（ ）。
A、1
B、0
C、True
D、False
17、【单选题】单选按钮不具有的属性为（ ）。
A、Name
B、Checked
C、Caption
D、Style
18、【单选题】下列（ ）语句使复选框Check1变成灰色。
A、Check1.Value = 0
B、Check1.Value =1
C、Check1.Value = 2
D、Check1.Style = 0
19、【单选题】下列（ ）语句使复选框Check1的标题显示在左边。
A、Check1.Style = 0
B、Check1.Alignment = 0
C、Check1.Style = 1
D、Check1.Alignment = 1
20、【单选题】修改（ ）属性可更改复选框上显示的文字。
A、Text
B、Name
C、Index
D、Caption
21、【单选题】Style属性为（ ）时，单选按钮和复选框以图形方式显示。
A、0
B、1
C、2
D、3
22、【单选题】下列没有Caption属性的控件是（ ）。
A、文本框
B、复选框
C、框架
D、单选按钮
23、【单选题】在程序中可以通过复选框和单选按钮的（ ）属性值来判断它们的当前状态。
A、Caption
B、Value
C、Checked
D、Selected
24、【单选题】下列关于选择控件的叙述中错误的是（ ）。
A、复选框的Value属性为True时表示被选中
B、单选按钮的Value属性为False时表示未被选中
C、单选按钮和复选框都有Value属性，用于表示被选中的情况
D、单选按钮和复选框都可以像命令按钮那样加入图案背景以增强视觉效果
25、【单选题】如果将框架的（ ）属性设置为False，将屏蔽框架内的对象活动。
A、Caption
B、Name
C、Visible
D、Enabled
26、【单选题】如果将框架的（ ）属性设置为False，则框架及框架内的对象运行时不可见。
A、Caption
B、Name
C、Visible
D、Enabled
27、【单选题】要使两个单选按钮属于同一个框架，正确的操作是（ ）。
A、先添加一个框架，再在框架中添加两个单选按钮
B、先添加一个框架，然后用双击工具箱上单选按钮的方法添加两个单选按钮
C、先添加两个单选按钮，再添加框架将单选按钮框起来
D、 其他三种方法都正确
28、【单选题】下列程序段的执行结果是（ ）。Dim x As Integerx = 6Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print 通过 Case Else Print 不通过End Select
A、优秀
B、良好
C、通过
D、不通过
29、【单选题】执行下列事件过程，y的值为（ ）。Private Sub Command1_Click() x = 3 If x 10 Then y = x ^ 2 + 3 * x + 2 Else If x 5 Then y = 3 * x + 2 Else y = 5 End If End IfEnd Sub
A、20
B、11
C、5
D、3
测试题
1、【单选题】下列关于循环结构叙述错误的是（ ）。
A、循环体是指被重复执行的一组语句
B、循环结构一般可以分为计数循环和条件循环
C、For循环语句一般用于循环次数事先可预知的情况
D、While循环语句只能用于循环次数事先不可预知的情况
测试题
1、【单选题】关于下列For循环语句描述正确的是（ ）。For i = 1 To 10 Step 0 Form1.Print iNext i
A、循环无结束条件
B、无限次循环
C、循环体执行11次
D、循环体执行1次
2、【单选题】关于Exit For语句的使用说明正确的是（ ）。
A、Exit For语句可以退出任何类型的循环
B、一个循环只能有一个Exit For语句
C、Exit For表示返回For语句去执行
D、一个For循环中可以有多条Exit For语句
测试题
1、【单选题】在窗体上添加两个文本框Text1、Text2和一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click() x = 0 While x 50 x = (x + 2) * (x + 4) n = n + 1 Wend Text1.Text = CStr(n) Text2.Text = CStr(x)End Sub运行时，单击命令按钮，Text1和Text2分别显示（ ）。
A、0和0
B、1和8
C、2和120
D、3和15180
2、【单选题】执行下列程序段后，s的值是（ ）。s = 0: k% = 10While k s = s + 10 k = k / 2Wend
A、10
B、100
C、50
D、40
测试题
1、【单选题】执行下列程序段后，x的值是（ ）。n = 5: x = 1: i = 1Do x = x * i i = i + 1Loop While i n
A、10
B、15
C、24
D、120
2、【单选题】在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num 6 Print num; num = num + 2.4 LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
A、1 3.4 5.8
B、 1 3 5
C、1 4 7
D、无数据输出
测试
1、【单选题】在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击按钮，显示结果为（ ）。Private Sub Command1_Click() For i = 1 To 4 For j = 4 To 8 Sum = Sum + 1 Next j Next i Print SumEnd Sub
A、4
B、8
C、20
D、32
2、【单选题】在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击按钮，显示结果为（ ）。Private Sub Command1_Click() a = 0 For m = 1 To 3 a = a + 1 b = 0 For j = 1 To 3 a = a + 1 b = b + 2 Next j Next m Print a, bEnd Sub
A、6 6
B、6 18
C、12 6
D、12 18
测试题
1、【单选题】以下有关计时器的叙述中，错误的是（ ）。
A、 计时器的Interval属性值以毫秒为单位
B、将计时器的Enabled属性设置为False，会停止计时器的操作
C、计时器以设定的时间间隔一定会触发Timer事件
D、程序运行时计时器不可见，所以其位置无关紧要
2、【单选题】要使计时器控件能正常运行Timer事件过程，应具备的两个条件是（ ）。
A、Enabled属性为True和Interval属性为0
B、Enabled属性为True和Interval属性大于0
C、Enabled属性为False和Interval属性为0
D、Enabled属性为False和Interval属性大于0
测试题
1、【单选题】拖动滚动条滑块可触发滚动条的（ ）事件。
A、Change
B、Scroll
C、DragOver
D、ItemCheck
2、【单选题】使用滚动条控件的时候，以下说法错误的是（ ）。
A、使用Min和Max属性来定义滚动的范围
B、滚动条控件具有Scroll和Change事件
C、Value属性表示滑块所处位置代表的值
D、Min属性支持的最小值为0
第5讲 单元测试
1、【单选题】运行下列程序，单击窗体后显示结果为（ ）。Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print 3 + k; 3 k; Spc(3); NextEnd Sub
A、 31 31 4 31
B、 31 31 32 32
C、 4 31 5 32
D、 32 32 5 32
2、【单选题】如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（ ）。For i = a To b Print iNext i
A、0
B、1
C、2
D、3
3、【单选题】在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 0 Then m = m + n \ 3 Next n Print nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（ ）。
A、15
B、18
C、21
D、24
4、【单选题】设有如下程序段：x = 2For i = 1 To 10 Step 2 x = x + iNext运行以上程序后，x的值是（ ）。
A、36
B、27
C、38
D、57
5、【单选题】在窗体上添加一个文本框Text1和一个命令按钮Command1，然后编写如下事件 过程：Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50 i = i + 3 n = n + 1 If i 10 Then Exit For Next Text1.Text = Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
A、2
B、3
C、4
D、5
6、【单选题】下列程序段的执行结果为（ ）。x = 6For k = 1 To 10 Step -2 x = x + kNext kPrint k; x
A、 -1 6
B、 -1 16
C、 1 6
D、 11 31
7、【单选题】执行下列程序段后，x的值为（ ）。Dim x As Integer, i As Integerx = 0For i = 20 To 1 Step -2 x = x + i \ 5Next i
A、16
B、17
C、18
D、19
8、【单选题】在窗体上添加两个文本框Text1、Text2和一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click() x = 0 Do While x 50 x = (x + 2) * (x + 4) n = n + 1 Loop Text1.Text = CStr(n) Text2.Text = CStr(x)End Sub运行时，单击命令按钮，Text1和Text2分别显示（ ）。
A、0和0
B、1和8
C、2和120
D、3和15180
9、【单选题】在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num 6 Print num; num = num + 2.4 LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
A、1 3.4 5.8
B、1 3 5
C、1 4 7
D、无数据输出
10、【单选题】在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a - 1 Loop While a = 0 Print s; aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
A、7 9
B、34 0
C、9 7
D、死循环
11、【单选题】下列程序段的执行结果为（ ）。i = 4: a = 5Do i = i + 1 a = a + 3Loop Until i = 9Print i; a
A、 9 20
B、 10 20
C、 10 23
D、 9 23
12、【单选题】下列代码的运行结果为（ ）。Private Sub Command1_Click() x = 1: y = 4 Do Until y = 4 x = x / y y = y + 1 Loop Print xEnd Sub
A、1
B、4
C、8
D、20
13、【单选题】下列代码的运行结果为（ ）。Private Sub Command1_Click() n = 1 Do Until n 6 Print n; n = n + 2.4 LoopEnd Sub
A、 1 3.4 5.8
B、 1 3 5
C、 1 4 7
D、没有数据输出
14、【单选题】执行下列程序段后，x的值为（ ）。x = 0For i = 1 To 4 For j = 1 To i x = x + 1Next j, i
A、6
B、9
C、10
D、16
15、【单选题】执行下列程序段后，程序的运行结果为（ ）。s = 1For i = 1 To 3 For j = 0 To i - 1 s = s + s * j Next j Print s;Next i
A、 1 2
B、 2 1
C、 2 2 12
D、 1 2 12
16、【单选题】执行下列程序段后，i和m的值为（ ）。m = 0For i = 1 To 3 For j = 1 To i m = m + jNext j, i
A、 3 6
B、 3 10
C、 4 6
D、 4 10
17、【单选题】运行下列程序段，其中语句“n = n + 1”被执行的次数是（ ）。Dim m%, n%For m = 1 To 3 For n = 1 To 6 Step 2 n = n + 1 Print n NextNext
A、3
B、6
C、9
D、18
18、【单选题】在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击命令按钮，如果在输入对话框中输入3，则在窗体上显示的内容是（ ）。Private Sub Command1_Click() Dim i%, j%, x%, n% x = 0 n = InputBox(Input) For i = 1 To n For j = 1 To i x = x + j Next j Next i Print xEnd Sub
A、6
B、10
C、14
D、18
19、【单选题】下列程序代码执行时，内循环执行的次数是（ ）。Private Sub Command1_Click() For i = 1 To 3 For j = 1 To i For k = j To 3 s = s + 1 Next k Next j Next i Print sEnd Sub
A、3
B、14
C、9
D、21
20、【单选题】下列程序代码的运行结果为（ ）。Private Sub Command1_Click() For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print aEnd Sub
A、60
B、50
C、30
D、20
21、【单选题】在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print xEnd Sub程序运行后，单击命令按钮，显示结果为（ ）。
A、7
B、15
C、157
D、538
22、【单选题】在窗体上添加一个命令按钮Command1，并有如下代码，程序执行后，单击命令按钮，显示结果为（ ）。Private Sub Command1_Click() k = 0 For j = 1 To 2 For i = 1 To 3 k = i + 1 Next i For i = 1 To 7 k = k + 1 Next i Next j Print kEnd Sub
A、10
B、6
C、11
D、16
23、【单选题】为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（ ）。
A、Visible
B、Timer
C、Enabled
D、Interval
24、【单选题】在窗体上添加一个计时器控件Timer，要求每隔0.5s发生一次计时事件，则以下正确的属性设置语句是（ ）。
A、Timer.Interval = 0.5
B、Timer.Interval = 5
C、Timer.Interval = 50
D、Timer.Interval =500
25、【单选题】计时器控件以一定时间间隔触发（ ）事件。
A、Enabled
B、Interval
C、Click
D、Timer
26、【单选题】下列叙述错误的是（ ）。
A、计时器的Enabled属性为False时，会暂停计时器的计时操作
B、运行时计时器不可见，所以其位置和大小无关紧要
C、触发计时器Timer事件的时间间隔可设定
D、计时器的Interval属性以秒（s）为单位
27、【单选题】拖动滚动条中的滑块将触发滚动条的（ ）事件。
A、Slide
B、Scroll
C、DragOver
D、DragDrop
28、【单选题】单击滚动条两端的箭头按钮可触发滚动条的（ ）事件。
A、Change
B、Scroll
C、DragOver
D、DragDrop
29、【单选题】设置（ ）属性可以改变单击滚动条两端的箭头按钮时的滚动步长。
A、Max
B、Min
C、LargeChange
D、SmallChange
30、【单选题】表示滚动条控件取值范围最大值的属性是（ ）。
A、Max
B、LargeChange
C、Value
D、Min
31、【单选题】关于下列For循环语句描述正确的是（ ）。For i = 1 To 10 Step 0 Form1.Print iNext i
A、循环无结束条件
B、无限次循环
C、循环体执行11次
D、循环体执行1次
32、【单选题】执行下列程序段后，t的值是（ ）。Dim n As Integer, r As Integer, t As Stringn = 11Do While n 0 r = n Mod 2 n = n \ 2 t = r tLoop
A、1001
B、1100
C、1011
D、1010
测试题
1、【单选题】关于Visual Basic数组的叙述不正确的是（ ）。
A、静态数组通常用于存储个数范围可以确定的数据
B、动态数组常用于存储数据类型不断变化的数据
C、数组可以分为一维数组、二维数组和多维数组
D、根据数组元素数目是否可变，可将数组分为动态数组和静态数组
测试题
1、【单选题】以下不能声明静态数组的语句是（ ）。
A、Dim A(10)
B、Dim A(10) As Integer
C、Dim A(1 To 10) As Integer
D、Dim A
2、【单选题】若有数组声明语句:Dim t(1 To 5) As String,则t被定义为（ ）。
A、数值数组
B、逻辑数组
C、字符串数组
D、可变类型数组
测试题
1、【单选题】有数组声明语句“Dim a(-2 To 2, 5)”，则数组包含元素个数为（ ）。
A、120
B、30
C、60
D、20
2、【单选题】在通用声明中给出Option Base 1语句，有定义语句“Dim a(3, -2 To 1, 5)”，则数组a包括（ ）元素。
A、120
B、75
C、60
D、13
测试题
1、【单选题】能使动态数组SA(5)元素个数加1，且保留原有数组中元素内容的语句是（ ）。
A、ReDim SA(6)
B、ReDim Preserve SA(6)
C、Static SA(6)
D、 Array SA(6)
2、【单选题】下面的（ ）语句可以正确地声明一个动态数组。
A、Dim A() As Integer
B、Private A(n) As Integer
C、ReDim A() As Integer
D、Dim A(0 To 5) As Integer
测试题
1、【单选题】假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是（ ）。
A、数组中每个命令按钮的名称均为Command1
B、 数组中每个命令按钮的所有属性值都相同
C、数组中所有命令按钮可以使用同一个事件过程
D、可用Index属性值区别数组中每一个命令按钮
2、【单选题】以下关于控件数组的描述中，正确的是（ ）。
A、同一控件数组中的控件名称不同
B、同一控件数组中的控件所有属性值都相同
C、同一控件数组中的控件其Index属性值不同
D、同一控件数组中的控件类型可以不同
测试题
1、【单选题】引用列表框List1的最后一个数据项应使用（ ）。
A、List1.List(List1.ListCount)
B、List1.List(List1.ListCount-1)
C、List1.List(ListCount)
D、List1.List(ListCount-1)
2、【单选题】下列说法错误的是（ ）。
A、组合框的Style属性值为2，该组合框为下拉式列表框样式
B、组合框的Style属性值为0，该组合框为简单组合框样式
C、列表框的MultiSelect的属性为0，该列表框中不允许多项选择
D、列表框的MultiSelect的属性为1，该列表框中允许多项选择
第6讲 单元测试
1、【单选题】关于Visual Basic数组的叙述不正确的是（ ）。
A、静态数组通常用于存储个数范围可以确定的数据
B、动态数组常用于存储数据类型不断变化的数据
C、在设计数组时，其数组元素类型可以是数值类型、字符串类型或用户定义的类型
D、动态数组可以用Array(数据1,数据2,…,数据n)对其进行初始化
2、【单选题】下列程序段中包括一个错误，出错的原因（ ）。x = 4Dim a(x)For m = 4 To 0 Step -1 a(m) = m + 1Next m
A、第四行，数组元素a(m)下标越界
B、第四行，不能用循环变量m进行运算
C、第二行，不能用变量定义数组的下标
D、以上原因都不对
3、【单选题】下列程序的运行结果为（ ）。Private Sub Command1_Click() Dim a(5) As String Dim i As Integer For i = 0 To 5 a(i) = i + 1 Print a(i); Next iEnd Sub
A、123456
B、6
C、1 2 3 4 5 6
D、0
4、【单选题】以下程序的运行结果为（ ）。Option Base 1Private Sub command1_click() Dim a(10), 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 kEnd Sub
A、33
B、28
C、35
D、37
5、【单选题】在窗体上添加一个命令按钮Command1，然后编写如下代码：Option Base 1Private Sub Command1_click() Dim arr(4) As Integer Dim arr1(4) As Integer n = 3 For i = 1 To 4 arr(i) = i arr1(n) = 2 * n + i Next i Print arr1(n); arr(n)End Sub程序的运行结果为（ ）。
A、 3 11
B、 11 3
C、 10 3
D、 3 13
6、【单选题】在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim m(10) As Integer, n(10) As Integer i = 3 For t = 1 To 5 m(t) = t n(i) = 2 * i + t Next t Print n(i); m(i)End Sub窗体运行后，单击命令按钮，显示结果为（ ）。
A、 3 11
B、 3 15
C、 11 3
D、 15 3
7、【单选题】下列程序段的运行结果为（ ）。Dim m(10)For i = 0 To 9 m(i) = 2 * iNext iPrint m(m(3))
A、12
B、6
C、0
D、4
8、【单选题】有数组声明语句“Dim a(-2 To 2, 5)”，则数组包含元素个数为（ ）。
A、120
B、30
C、60
D、20
9、【单选题】在通用声明中给出Option Base 1语句，有定义语句“Dim a(3, -2 To 1, 5)”，则数组a包括（ ）元素。
A、120
B、75
C、60
D、13
10、【单选题】在窗体上添加一个命令按钮Command1，然后编写如下程序：Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next iEnd Sub程序运行后，单击命令按钮，窗体上显示的内容是（ ）。
A、 1 2 32 4 63 6 9
B、 2 3 43 4 54 5 6
C、 1 4 72 5 83 6 9
D、 1 2 3 4 5 6 7 8 9
11、【单选题】下列程序的运行结果为（ ）。Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 3 For j = 1 To 4 a(i, j) = i * j Next j Next i For n = 1 To 2 For m = 1 To 3 Print a(m, n); ; Next m Next nEnd Sub
A、 2 4 6 1 2 3
B、 1 2 3 2 4 6
C、 1 2 3 4 5 6
D、 6 5 4 3 2 1
12、【单选题】在窗体上面添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3)End Sub程序运行后，单击命令按钮，在窗体上输出的内容是（ ）。
A、 6 6
B、 10 5
C、 7 21
D、 6 12
13、【单选题】能使数组元素个数加1，但保留数组中原有元素的语句是（ ）。
A、ReDim arr(7)
B、ReDim Preserve arr(7)
C、Public arr(1 To 7)
D、Static arr(7)
14、【单选题】阅读程序：Option Base 1Dim arr() As IntegerPrivate 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 * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4)End Sub程序运行后，单击窗体，显示的结果为（ ）。
A、21
B、13
C、8
D、25
15、【单选题】设窗体上有一个列表框控件List1，且其中含有若干列表项，则以下能表示当前被选中的列表项内容的是（ ）。
A、List1.List
B、 List1.ListIndex
C、List1.Index
D、List1.Text
16、【单选题】执行了下面的程序后，列表框中的数据项有（ ）。Private Sub Form_Click() For i = 1 To 6 List1.AddItem i Next i For i = 1 To 3 List1.RemoveItem i Next iEnd Sub
A、 1，5，6
B、 2，4，6
C、 4，5，6
D、 1，3，5
17、【单选题】如果列表框List1中没有选定的项目，则执行语句“List1.RemoveItem List1. ListIndex”的结果是（ ）。
A、移去第一项
B、移去最后一项
C、移去最后加入列表中的一项
D、其他都不对
18、【单选题】列表框的MultiSelect属性设置为（ ）后，可用Shift键或Ctrl键配合鼠标在列表框中进行多项选择。
A、无
B、0
C、1
D、2
19、【单选题】使用（ ）语句将“北京奥运”添加到列表框List1的首项。
A、List1.Text= "北京奥运"
B、List1.AddItem "北京奥运"
C、List1.List(0)= "北京奥运"
D、List1.AddItem "北京奥运",0
20、【单选题】使用（ ）方法可以删除指定的项目。
A、Cls
B、Clear
C、Remove
D、RemoveItem
21、【单选题】设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（ ）。
A、Combo1.RemoveItem Text
B、Combo1.RemoveItem 2
C、Combo1.RemoveItem
D、Combo1.RemoveItem Combo1.ListCount
22、【单选题】能输出组合框Combo1中现有项目数的语句是（ ）。
A、Print Combo1.ListIndex
B、Print Combo1.Index
C、Print Combo1.Count
D、Print Combo1.ListCout
23、【单选题】使用（ ）语句将组合框Combo1的第三项设为当前项。
A、 Combo1.ListIndex=3
B、Combo1.Index=3
C、Combo1.ListIndex=2
D、Combo1.Index=2
24、【单选题】组合框Combo1中有三个项目，使用（ ）语句可以删除Combo1中选定的项目。
A、Combo1.RemoveItem Combo1.ListIndex
B、Combo1.RemoveItem Combo1.List(Index)
C、Combo1.RemoveItem Combo1.List(ListIndex)
D、Combo1.RemoveItem Combo1.Text
测试题
1、【单选题】 Function过程需要由函数名返回一个值，如果不使用“As类型”选项来指定函数的类型，函数类型默认为（ ）类型。
A、Integer
B、Variant
C、Long
D、String
测试
1、【单选题】 子过程和函数过程最根本的区别是（ ）。
A、两种过程参数传递方式不同
B、两种过程分别用于实现不同的程序功能
C、子过程不能返回值，而函数过程可以返回值
D、函数过程可以没有形参，而子过程不能没有形参
参数传递随堂测验
1、【单选题】在过程定义中，若形参采用值传递的方式，则应在形参前加的关键字是（ ）。
A、Var
B、ByRef
C、ByVal
D、Value
2、【单选题】下列关于参数和参数传递，错误的说法是（ ）。
A、形参没有具体的值，只代表了参数的个数、位置、类型。
B、在参数传递中，按实参的位置次序与形参的位置次序对应传送，与参数名没有关系。
C、参数传递的作用是主调过程和被调过程之间的数据交互。
D、在参数传递时，实参名与形参名相同才能实现数据传递
过程的嵌套调用随堂测试
1、【单选题】设有如下程序代码：Private Function Fc(ByVal n As Integer) As Integer Fc = n * Fj(5)End FunctionPrivate Function Fj(ByVal n As Integer) As Integer Fj = n + 3End FunctionPrivate Sub Command1_Click() Dim a As Integer a = 3 Form1.Print Fc(a)End Sub程序时单击命令按钮，在窗体上输出的结果为（ ）。
A、3
B、24
C、5
D、15
过程的递归调用随堂测试
1、【单选题】设有如下程序代码：Private Function Fib(ByVal n As Integer) As Integer If n = 2 Then Fib = 1 Else Fib = Fib(n - 1) + Fib(n - 2) End IfEnd FunctionPrivate Sub Command1_Click() Dim m As Integer m = 8 Form1.Print Fib(m)End Sub程序时单击命令按钮，在窗体上输出的结果为（ ）。
A、21
B、8
C、1
D、5
过程与变量的作用域随堂测试
1、【单选题】列关于过程的作用域的描述中，错误的是（ ）。
A、全局过程的作用域为整个应用工程
B、在某窗体上定义的全局过程，若被其它模块调用，必须在该过程名前加上窗体名称
C、在不同模块中定义的模块级过程可以同名
D、在不同模块中定义的全局过程不能同名
2、【单选题】在窗体模块的通用声明中声明变量时，不能使用的关键字是（ ）。
A、Dim
B、Private
C、Public
D、Static
第7讲 单元测试
1、【单选题】Sub过程和Function过程最根本的区别是（ ）。
A、两种过程参数传递方式不同
B、两种过程分别用于实现不同的程序功能
C、Sub过程不能返回值，而Function过程可以返回值
D、Function过程可以没有形参，而Sub过程不能没有形参
2、【单选题】Function过程需要由函数名返回一个值，如果不使用“As类型”选项来指定函数的类型，函数类型默认为（ ）类型。
A、Integer
B、Variant
C、Long
D、String
3、【单选题】在声明一个函数时不可能用到的关键字是（ ）。
A、Exit
B、As
C、Sub
D、End
4、【单选题】在过程定义中用（ ）表示形参的传值。
A、Var
B、ByRef
C、 ByVal
D、ByValue
5、【单选题】以下关于函数过程的叙述中，正确的是（ ）。
A、函数过程形参的类型与函数返回值的类型没有关系
B、在函数过程中，通过函数名可以返回多个值
C、在定义函数过程中使用的参数，称为实参
D、如果不指明函数过程参数的类型，则该参数没有数据类型
6、【单选题】要从子过程调用后返回两个结果，下列关于Sub过程语句定义正确的是（ ）。
A、Sub f(ByVal n%, ByVal m%)
B、Sub f(n%, ByVal m%)
C、Sub f(ByVal n%, m%)
D、Sub f(n%, m%)
7、【单选题】在过程调用中，参数的传递可以分为（ ）和按地址传递两种方式。
A、按值传递
B、指名传递
C、按参数传递
D、按位置传递
8、【单选题】下列子过程的定义语句中，正确的是（ ）。
A、Sub mySub(ByRef n%) As Integer
B、Sub mySub%(ByVal n As Integer)
C、Dim mySub as Sub(n%)
D、Sub mySub(ByVal n%)
9、【单选题】定义通用过程：Sub f(x As String, y As String, z As String) ，再设a、b、c为字符型变量，则调用该过程的正确语句为（ ）。
A、Call f
B、 Call f(a,b)
C、 f(a,b,c)
D、f a, b, c
10、【单选题】若已经编写一个Sort子过程，在该工程中有多个窗体，为了方便调用Sort子程序，应该将子过程放在（ ）中
A、窗体模块
B、 类模块
C、工程
D、标准模块
11、【单选题】下列程序运行的结果为（ ）。Public Sub f(n%, ByVal m%) n = n Mod 10 m = m \ 10End SubPrivate Sub Command1_Click() Dim x%, y% x = 12: y = 34 Call f(x, y) Print x, yEnd Sub
A、 2 34
B、 12 34
C、 2 3
D、12 3
12、【单选题】单击命令按钮时，下列程序代码的运行结果为（ ）。Public Sub Procl(ByVal n As Integer, m As Integer) n = n Mod 10 m = m \ 10End SubPrivate Sub Command1_Click() Dim x As Integer, y As Integer x = 23 y = 65 Call Procl(x, y) Print x; yEnd Sub
A、 3 65
B、 23 6
C、 3 60
D、 0 65
13、【单选题】单击窗体时，下列程序代码的运行结果为（ ）。Private Sub Test(x As Integer) x = x * 2 + 1 If x 6 Then Call Test(x) End If x = x * 2 + 1 Print x;End SubPrivate Sub Form_Click() Test 2End Sub
A、 5 11
B、 23 47
C、 10 22
D、 23 23
14、【单选题】在窗体上添加一个命令按钮Command1，然后编写如下程序：Function Func(ByVal x As Integer, y As Integer) y = y * x If y 0 Then Func = x Else Func = y End IfEnd FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = 3 b = 4 c = Func(a, b) Print a; b; cEnd Sub程序运行后，单击命令按钮，其显示结果为（ ）。
A、 3 4 12
B、 3 4 3
C、 3 12 3
D、 3 12 12
15、【单选题】在窗体上添加一个命令按钮Command1，编写代码如下：Function f(x As Integer) x = x + 3 f = xEnd FunctionPrivate Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i = 1 To 10 a(i) = 8 + i Next x = 2 Print a(f(x) + x)End Sub程序运行后，单击命令按钮，显示结果为（ ）。
A、12
B、15
C、17
D、18
16、【单选题】在Visual Basic应用程序中（ ）。
A、过程的定义可以嵌套，但过程的调用不能嵌套
B、过程的定义不可以嵌套，但过程的调用可以嵌套
C、过程的定义和过程的调用均可以嵌套
D、过程的定义和过程的调用均不能嵌套
17、【单选题】设有如下通用过程：Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * yEnd Function在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Static x As Integer x = 10 y = 5 y = f(x) Print x; yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A、 10 5
B、 20 5
C、 20 40
D、 10 40
18、【单选题】设有如下程序代码：Private Function Fib(ByVal n As Integer) As Integer If n = 2 Then Fib = 1 Else Fib = Fib(n - 1) + Fib(n - 2) End IfEnd FunctionPrivate Sub Command1_Click() Dim m As Integer m = 8 Form1.Print Fib(m)End Sub程序时单击命令按钮，在窗体上输出的结果为（ ）
A、21
B、8
C、1
D、5
19、【单选题】下列关于过程的作用域的描述中，错误的是（ ）。
A、全局过程的作用域为整个应用工程
B、在某窗体上定义的全局过程，若被其它模块调用，必须在该过程名前加上窗体名称
C、在不同模块中定义的模块级过程可以同名
D、 在不同模块中定义的全局过程不能同名
20、【单选题】设有如下程序代码：Private Function Fc(ByVal n As Integer) As Integer Fc = n * Fj(5)End FunctionPrivate Function Fj(ByVal n As Integer) As Integer Fj = n + 3End FunctionPrivate Sub Command1_Click() Dim a As Integer a = 3 Form1.Print Fc(a)End Sub程序时单击命令按钮，在窗体上输出的结果为（ ）。
A、3
B、24
C、5
D、15
测试题
1、【单选题】关于窗体缺省坐标系统，以下说法正确的是（ ）。
A、坐标原点在窗体的右下角
B、 坐标原点在窗体的左下角
C、水平坐标轴方向由左向右
D、垂直坐标轴方向由下往上
2、【单选题】设置（ ）属性可以更改窗体坐标的度量单位。
A、DrawStyle
B、ScaleLeft
C、ScaleTop
D、ScaleMode
测试
1、【单选题】以下叙述错误的是（ ）。
A、Pset方法如果没有颜色参数，则用容器对象的背景色画点
B、Circle方法用于画圆、椭圆、圆弧和扇形
C、Line方法用于画直线和矩形
D、Point方法用于返回指定点的RGB颜色
2、【单选题】指令“Circle(1000,1000),500,8, , ,1”将绘制（ ）。
A、圆
B、椭圆
C、 圆弧
D、扇形
测试
1、【单选题】要使图片框（PictureBox）可以自动改变大小以适应其中的图片，应设置（ ）。
A、Stretch属性为False
B、Stretch属性为True
C、Autosize属性为False
D、Autosize属性为True
2、【单选题】为了调整图形的大小以适应图像框（Image），应设置图像框的（ ）。
A、Stretch属性为False
B、Stretch属性为True
C、 Visible属性为False
D、 Visible属性为True
测试
1、【单选题】下列关于Shape控件说法错误的是（ ）。
A、FillStyle属性可以修改其填充方式
B、FillColor属性可以改变填充颜色
C、 BorderStyle属性可以改变其边框颜色
D、Shape属性用于设置显示的几何形状
2、【单选题】要绘制多种式样的直线，需要设置控件Line1的（ ）属性。
A、Shape
B、Style
C、 FillStyle
D、BorderStyle
第8讲 单元测试
1、【单选题】以下的属性和方法中，（ ）可重定义坐标系。
A、DrawStyle属性
B、DrawWidth属性
C、Scale方法
D、ScaleMode属性
2、【单选题】下列关于屏幕坐标系的叙述错误的是（ ）。
A、Visual Basic只有一个统一的、以屏幕左上角为原点的坐标系
B、在调整窗体上控件的大小和位置时，使用以窗体左上角为原点的坐标系
C、所有图形以及Print方法使用的坐标系均与容器有关
D、Visual Basic默认坐标系的Y轴，上端为0，越往下越大
3、【单选题】下列关于Visual Basic的颜色表示中，（ ）是错误的。
A、vbRed
B、QBColor(4)
C、RGB(255, 0, 0)
D、 RGB(-255, 0, 0)
4、【单选题】将当前目录下的图片文件Clock.jpg装入图片框Picture1的语句是（ ）。
A、Picture = "Clock.jpg"
B、Picture = LoadPicture("Clock.jpg")
C、Picture1.Picture = "Clock.jpg"
D、Picture1.Picture = LoadPicture("Clock.jpg")
5、【单选题】清除图片框中的图片，使用方法是（ ）。
A、选择图片框之后，按Del键
B、执行Picture1.Cls
C、执行Picture1.Clear
D、执行Picture1.Picture = LoadPicture()
6、【单选题】下列关于图片框控件的叙述错误的是（ ）。
A、可以在图片框上绘制矩形
B、图片框可以作为容器放置其他的控件
C、用Stretch属性可以自动调整图片框中图形的大小
D、清除图片框上使用Circle方法绘制的图形应使用Cls方法
7、【单选题】使用形状控件Shape无法得到的图形是（ ）。
A、矩形
B、圆形
C、椭圆
D、扇形
8、【单选题】通过设置Line控件的（ ）属性可以绘制多种形状的图形。
A、Shape
B、Style
C、FillStyle
D、BorderStyle
9、【单选题】下列叙述错误的是（ ）。
A、Pset方法用于绘制点
B、Circle方法用于画圆、椭圆、圆弧和扇形
C、Line方法用于画直线和矩形
D、Point方法用于绘制有颜色的点
10、【单选题】不属于Visual Basic作图方法的是（ ）。
A、Pset
B、Line
C、Shape
D、Circle
11、【单选题】Cls命令可清除窗体或图片框中（ ）的内容。
A、Picture属性设置的背景图案
B、设计时放置的图片
C、程序运行时产生的图形和文字
D、设计时放置的控件
12、【单选题】当使用Line方法画线后，当前坐标在（ ）。
A、(0, 0)
B、直线起点
C、直线终点
D、容器的中心
13、【单选题】执行指令“Line (1200, 1200)-Step(1000, 500), B”后，CurrentX=（ ）。
A、2200
B、1200
C、1000
D、1700
14、【单选题】当使用Line 方法时，参数B与F可组合使用，下列组合中（ ）不允许。
A、BF
B、 F
C、不使用B与F
D、B
15、【单选题】执行语句“Circle (100, 100), 500, , 5, 0”时，将绘制（ ）。
A、圆形
B、椭圆
C、扇形
D、圆弧
16、【单选题】执行语句“Circle (1000, 1000), 500, 8, -1, -3” 时，将绘制（ ）。
A、画圆
B、椭圆
C、圆弧
D、扇形
17、【单选题】关于下面程序，以下叙述正确的是（ ）。Private Sub Form_Click() Circle (300, 600), 300 Circle Step(600, 0), 300, , , , 2End Sub
A、程序绘制了两个圆形
B、两个图形的中心坐标分别是(300, 600)和(900, 600)
C、两个圆形的圆心坐标分别是(300, 600)和(600, 0)
D、程序绘制了一个圆形
测试
1、【单选题】下列关于顺序文件的叙述正确的是（ ）。
A、所有记录的长度不必相同
B、可以随机读取文件中的记录
C、不可使用文本编辑软件编辑
D、文件中记录按关键字顺序存放
2、【单选题】下列关于随机文件的描述，错误的是（ ）。
A、每条记录的长度不一定相同
B、可以通过编程对文件中的某条记录进行修改
C、随机文件中的每条记录有一个记录号
D、 随机文件的组织结构比顺序文件复杂
测试
1、【单选题】设有语句Open file.txt For Output As #2，以下叙述错误的是（ ）。
A、该语句以文件号2打开当前目录下文件file.txt
B、该语句打开当前目录下一个已存在的文件file.txt，进行读操作
C、该语句可以在当前目录下创建一个名为file.txt的文件
D、执行该语句后可以向当前目录下文件file.txt中写入信息
2、【单选题】打开在D盘根目录下一个名为AA.txt的顺序文件进行追加写入，应使用（ ）语句。
A、Open "D:\AA.txt" For Input As
B、1
C、Open "D:\AA.txt" For Output As
D、1
E、Open "D:\AA.txt" For Append As
F、1
G、Open "AA.txt" For Output Write As
H、1
测试
1、【单选题】要在文件列表框File1中显示所有扩展名为“.jpg”和“.bmp”的文件，应使用语句（ ）。
A、File1.Path = "*.jpg,*.bmp"
B、File1.Path = "*.jpg;*.bmp"
C、File1.Pattern = "*.jpg;*.bmp"
D、File1.Pattern = "*.jpg,*.bmp"
2、【单选题】使用目录列表框的（ ）属性可以返回或设置当前工作目录的完整路径。
A、Work
B、Drive
C、WorkPath
D、Path
第9讲 单元测试
1、【单选题】关于顺序文件的描述，下面正确的是（ ）。
A、每条记录的长度必须相同
B、可通过编程对文件中的某条记录方便地修改
C、数据以ASCII码形式存放在文件中，所以可通过文本编辑软件显示
D、文件的组织结构复杂
2、【单选题】在顺序文件中（ ）。
A、每条记录的记录号按从小到大顺序
B、每条记录的长度按从小到大顺序
C、按记录的某个关键数据项的排序组织文件
D、记录按写入的先后顺序存放，并按写入的先后顺序读出
3、【单选题】关于顺序文件和随机文件的说法错误的是（ ）。
A、顺序文件中记录的逻辑顺序与存储顺序是一致的
B、随机文件读写操作比顺序文件灵活
C、随机文件的结构特点是固定记录长度以及每条记录均有记录号
D、随机文件的操作与顺序文件相同
4、【单选题】在随机文件中（ ）。
A、记录号是通过随机数产生的
B、可以通过记录号随机读取记录
C、记录的内容是随机产生的
D、记录的长度是任意的
5、【单选题】由结构和长度一致的记录组成的文件是（ ）。
A、文本文件
B、格式文件
C、随机文件
D、二进制文件
6、【单选题】读文件时使用函数EOF()用于判断（ ）。
A、文件是否存在
B、文件是否已经打开
C、是否二进制文件
D、文件指针是否到达文件末尾
7、【单选题】执行语句“Open C:\StuData.dat For Input As #1”后，系统（ ）。
A、将C盘下名为StuData.dat的文件的内容读入内存
B、在C盘下建立名为StuData.dat的顺序文件
C、将内存数据存放在C盘下名为StuData.dat的文件中
D、将某个磁盘文件的内容写入C盘下名为StuData.dat的文件中
8、【单选题】如果在C盘下已存在名为StuData.dat的顺序文件，那么执行语句“Open C:\StuData.dat For Append As #1”之后将（ ）。
A、删除文件中原有内容
B、保留文件中原有内容，可在文件尾添加新内容
C、保留文件中原有内容，在文件头开始添加新内容
D、其他三项均不对
9、【单选题】以下关于文件的叙述中，错误的是（ ）。
A、使用Append方式打开文件时，文件指针被定位于文件尾
B、当以Input打开文件时，如果文件不存在，则建立一个新文件
C、顺序文件各记录的长度可以不同
D、当以Output打开文件时，如果文件不存在，则建立一个新文件
10、【单选题】可在属性窗口中设置文件列表框的（ ）属性。
A、Pattern
B、Path
C、FileName
D、FilePath
11、【单选题】为了使文件系统控件（DriveListBox、DirListBox和FileListBox）三者协调同步，可分别在驱动器列表框和目录列表框的（ ）事件中更新目录列表框和文件列表框的Path属性。
A、Click
B、Change
C、GotFocus
D、LostFocus
12、【单选题】文件的基本操作可以分为3个阶段，这3个阶段分别是（ ）。
A、建立文件、设置属性、运行
B、建立文件、打开文件、运行文件
C、打开文件、读写操作、关闭文件
D、打开文件、运行文件、关闭文件
13、【单选题】下列能够对顺序文件执行写操作的语句是（ ）。
A、Print
B、Put
C、Read
D、Get
14、【单选题】下列关于顺序文件读操作的叙述，错误的是（ ）。
A、对顺序文件进行读操作之前，需先使用Input方式打开顺序文件
B、使用Line Input语句可以从顺序文件中读出一条记录
C、使用Input语句可以从顺序文件中读出所有字符
D、使用Input()函数可以从顺序文件中读出1个字符
15、【单选题】文件列表框中用于设置或返回当前路径的属性是（ ）。
A、File
B、FilePath
C、Path
D、FileName
微信扫码添加好友
如二维码无法识别，可拨打 13662661040 咨询。
