大学MOOC 计算机程序设计（VB）(沈阳航空航天大学)1450326250 最新慕课完整章节测试答案
第1讲VisualBasic程序设计概述
文章目录
VisualBasic简介测试题
1、单选题：
下列关于程序设计语言的叙述中，错误的是（ ）。
选项：
A: 目前计算机还无法理解和执行自然语言编写的程序
B: 程序设计语言是一种能被计算机准确理解和执行的语言
C: 程序设计语言没有高级和低级之分，只是不同国家使用不同的编程语言而已
D: 高级程序设计语言不依赖于具体的机器硬件
答案: 【 程序设计语言没有高级和低级之分，只是不同国家使用不同的编程语言而已】
2、单选题：
下列关于Visual Basic的叙述中，错误的是（ ）。
选项：
A: Visual Basic是可视化程序设计语言
B: Visual Basic采用事件驱动编程机制
C: Visual Basic的应用程序是以顺序方式执行
D: Visual Basic的应用程序可以以编译方式执行
答案: 【 Visual Basic的应用程序是以顺序方式执行】
第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组合键
答案: 【 打开Visual Basic的“文件”菜单，再按Alt＋Q组合键】
4、单选题：
在Visual Basic集成开发环境中创建Visual Basic应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（ ）。
选项：
A: 窗体布局窗口
B: 立即窗口
C: 代码窗口
D: 监视窗口
答案: 【 代码窗口】
5、单选题：
下列不能打开属性窗口的操作是（ ）。
选项：
A: 选择“视图”→“属性窗口”命令
B: 按F4键
C: 按Ctrl＋T组合键
D: 单击常用工具栏上的“属性窗口”按钮
答案: 【 按Ctrl＋T组合键】
6、单选题：
通过（ ）窗口可以在设计时直观地调整窗体在屏幕上的位置。
选项：
A: 代码
B: 窗体布局
C: 窗体设计器
D: 属性
答案: 【 窗体布局】
7、单选题：
使用Visual Basic的工程资源管理器可管理多种类型的文件，下面叙述不正确的是（ ）。
选项：
A: 窗体文件的扩展名为.frm，每个窗体对应一个窗体文件
B: 标准模块是一个纯代码性质的文件，它不属于任何一个窗体
C: 用户通过类模块来定义自己的类，每个类都用一个文件来保存，其扩展名为.bas
D: 资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑
答案: 【 用户通过类模块来定义自己的类，每个类都用一个文件来保存，其扩展名为.bas】
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）
答案: 【 窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（.frx）】
10、单选题：
下列叙述中错误的是（ ）。
选项：
A: 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B: 保存Visual Basic程序时，应分别保存窗体文件和工程文件
C: Visual Basic应用程序只能以解释方式执行
D: 事件可以由用户引发，也可以由系统引发
答案: 【 Visual Basic应用程序只能以解释方式执行】
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程序采用的运行机制是面向对象
答案: 【 Visual Basic程序采用的运行机制是面向对象】
21、单选题：
下列关于事件的叙述中不正确的是（ ）。
选项：
A: 事件是系统预先为对象定义，能被对象识别的动作
B: 事件可以分为用户事件和系统事件
C: Visual Basic为每个对象设置好各种事件，并定义好事件过程的过程名，但过程代码必须由用户自行编写
D: Visual Basic中的所有对象的默认事件都是Click
答案: 【 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
答案: 【 Icon】
25、单选题：
若要取消窗体的最大化功能，则可设置窗体的（ ）属性为False来实现。
选项：
A: ControlBox
B: MinButton
C: MaxButton
D: Enabled
答案: 【 MaxButton 】
26、单选题：
下列窗体属性中，仅在程序运行时才有效果的是（ ）。
选项：
A: Left
B: Picture
C: BorderStyle
D: Caption
答案: 【 Left】
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! '
答案: 【 Form1.Caption ="欢迎使用Visual Basic 6.0! "】
28、单选题：
下列不属于窗体事件的是（ ）。
选项：
A: DblClick
B: Click
C: Load
D: Move
答案: 【 Move】
29、单选题：
程序运行时，不是由系统触发的事件是（ ）。
选项：
A: Initialize
B: Click
C: Load
D: Terminate
答案: 【 Click】
30、单选题：
窗体不能调用的方法是（ ）。
选项：
A: Print
B: Move
C: Cls
D: Clear
答案: 【 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、单选题：
下列叙述中，正确的是（ ）。
选项：
A: 窗体的Name属性指定窗体的名称，用于标记一个窗体
B: 窗体的Name属性的值是显示在窗体标题栏中的文本
C: 可以在运行期间改变对象的Name属性的值
D: 对象的Name属性值可以为空
答案: 【 窗体的Name属性指定窗体的名称，用于标记一个窗体】
2、单选题：
下列叙述中，正确的是（ ）。
选项：
A: Move属性只能用于移动窗体，不能用于改变其大小
B: Move属性不能用于移动窗体，但可改变其大小
C: Move方法不能用于移动窗体，也不能用于改变其大小
D: Move方法不仅能够用于移动窗体，也可用于改变其大小
答案: 【 Move方法不仅能够用于移动窗体，也可用于改变其大小】
第2讲VisualBasic程序设计基础
单选题
1、单选题：
表达式Int(-1.5) + Sgn(-28) + Exp(0)的值为（ ）。
选项：
A: -2
B: -1
C: 1
D: 0
答案: 【 -2】
2、单选题：
表达式Chr(Int(Rnd * 8 + 68))产生的英文字符所在的范围是（ ）。
选项：
A: "D"～"K"
B: "d"～"k"
C: "C"～"J"
D: "c"～"j"
答案: 【 "D"～"K"】
第2讲单元测试
1、单选题：
在Visual Basic中，如果一个变量未做类型声明而直接使用，则该变量的数据类型是（ ）。
选项：
A: 字符串型
B: 数值型
C: 变体类型
D: 可以是任何类型
答案: 【 变体类型】
2、单选题：
设有如下语句：Dim a, b As Integerc = "Visual Basic"d = #7/20/2005#以下关于这段代码的叙述中，错误的是（ ）。
选项：
A: a被定义为Integer类型变量
B: b被定义为Integer类型变量
C: c中的数据是字符串
D: d中的数据是日期类型
答案: 【 a被定义为Integer类型变量】
3、单选题：
下列关于变体数据类型的叙述中正确的是（ ）。
选项：
A: 变体是一种没有类型的数据
B: 给变体变量赋某一种类型数值后，就不能再赋给另一种类型数值
C: 一个变量没有定义就赋值，该变量即为变体类型
D: 变体的空值就表示该变体值为0
答案: 【 一个变量没有定义就赋值，该变量即为变体类型】
4、单选题：
下面（ ）是不合法的整常数。
选项：
A: 100
B: &O100
C: &H100
D: %100
答案: 【 %100】
5、单选题：
下面（ ）是合法的字符常数。
选项：
A: ABC$
B: "ABC"
C: 'ABC'
D: ABC
答案: 【 "ABC"】
6、单选题：
下面（ ）是不合法的单精度常数。
选项：
A: 100!
B: 100.0
C: 1E+2
D: 100.0D+2
答案: 【 100.0D+2】
7、单选题：
下面（ ）是合法的单精度型变量。
选项：
A: num!
B: sum%
C: xint$
D: mm#
答案: 【 num!】
8、单选题：
下列不可作为Visual Basic变量名的是（ ）。
选项：
A: 4*Delta
B: Alpha
C: ABC
D: ABT1
答案: 【 4*Delta】
9、单选题：
以下合法的Visual Basic 标识符是（ ）。
选项：
A: ForLoop
B: Const
C: 6abc
D: b#x
答案: 【 ForLoop】
10、单选题：
设有如下变量声明：Dim TestDate As Date能为变量TestDate正确赋值的是（ ）。
选项：
A: TestDate = #1/1/2012#
B: TestDate=#"1/1/2012"#
C: TestDate = Date("1/1/2012")
D: TestDate = Format("m/d/yy", "1/1/2012")
答案: 【 TestDate = #1/1/2012#】
11、单选题：
在Visual Basic的基本数据类型中，变体类型（Variant）可以表示任何类型的变量，如果有定义“Dim a”，则以下变量赋值中正确的是（ ）。
选项：
A: a="OK"
B: a$=OK
C: a=04/01/2011
D: a$="OK"
答案: 【 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
答案: 【 2*3=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
答案: 【 False】
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
答案: 【 x Mod 2 = 1 And y Mod 2 = 1 】
15、单选题：
表达式4 + 5 6 * 7 / 8 Mod 9的值是（ ）。
选项：
A: 4
B: 5
C: 6
D: 7
答案: 【 5】
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)
答案: 【 (a > b) Or (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)
答案: 【 (x > 0 And y > 0) And (x < 0 And y < 0)】
18、单选题：
表达式Int(8 * Sqr(36 * (10 ^ (-2)) * 10 + 0.5)) / 10的值是（ ）。
选项：
A: 1
B: 16
C: 1.6
D: 0.16
答案: 【 1.6】
19、单选题：
表达式2 * 3 ^ 2 + 2 * 8 / 4 + 3 ^ 2的值为（ ）。
选项：
A: 64
B: 31
C: 49
D: 22
答案: 【 31】
20、单选题：
表达式2 + 3 * 4 ^ 5 + 1 / 2中最先进行的运算是（ ）。
选项：
A: 4^5
B: 3*4
C: x+1
D: 1/2
答案: 【 4^5】
21、单选题：
表达式Int(-17.8) + Sgn(17.8)的值是（ ）。
选项：
A: 18
B: -17
C: -18
D: -16
答案: 【 -17】
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)
答案: 【 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)
答案: 【 Mid$(s, 2, 3)】
24、单选题：
执行以下程序段后，变量c$的值为（ ）。a$ = "Visual Basic"b$ = "Quick"c$ = b$ & UCase(Mid$(a$, 2, 3)) & Right$(a$, 2)
选项：
A: Quick Visual
B: Quick Basic
C: Quickisuic
D: QuickISUic
答案: 【 QuickISUic】
25、单选题：
用于从字符串左边截取字符的函数是（ ）。
选项：
A: Ltrim()
B: Trim()
C: Left()
D: Instr()
答案: 【 Left()】
26、单选题：
表达式Val(".123E2CD")的值是（ ）。
选项：
A: 123
B: 0
C: 12.3
D: 123E2CD
答案: 【 12.3】
27、单选题：
表达式Str(Len("1234")) + Str(5.9)的值为（ ）。
选项：
A: 45.9
B: 4 5.9
C: 12345.9
D: 1234 5.9
答案: 【 4 5.9】
28、单选题：
表达式Len("幸运52")的值是（ ）。
选项：
A: 0
B: 4
C: 6
D: 8
答案: 【 4】
29、单选题：
可获得当前系统日期的函数是（ ）。
选项：
A: Date()
B: Time()
C: IsDate()
D: Year()
答案: 【 Date()】
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
答案: 【 Int(Rnd(1) * 42) + 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#y
答案: 【 Int_Sum】
选择题
1、单选题：
下列字符不属于Visual Basic字符集的是（ ）。
选项：
A: e
B: {
C: 6
D: *
答案: 【 {】
2、单选题：
下列（ ）是合法的Visual Basic标识符。
选项：
A: Int_Sum
B: Dim
C: 6days
D: x#y
答案: 【 Int_Sum】
第3讲顺序结构程序设计
判断题
1、判断题：
对于一个只包含顺序结构的程序来说，数据处理的一般流程为数据输入、数据加工处理及结果输出。
选项：
A: 正确
B: 错误
答案: 【 正确】
2、判断题：
顺序结构程序中有些语句可以被多次执行。
选项：
A: 正确
B: 错误
答案: 【 错误】
单选题
1、单选题：
清除文本框Text1中的内容，可以使用（ ）。
选项：
A: Text1.Cls
B: Text1.Clear
C: Text1.Caption=""
D: Text1.Text=""
答案: 【 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
答案: 【 Text1.SelStart = 5Text1.SelLength = 3】
第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*3=6】
2、单选题：
语句“Print 55 * 5”的输出结果是（ ）。
选项：
A: 5
B: 25
C: 0
D: 1
答案: 【 0】
3、单选题：
以下语句的输出结果是（ ）。Print Format$(1234.5, "00,000.00")
选项：
A: 1234.5
B: 01,234.50
C: 01,234.5
D: 1,234.50
答案: 【 01,234.50】
4、单选题：
当执行以下过程时，在窗体上将显示（ ）。Private Sub Command1_Click() Print "VB" Print "Hello!"; Print "VB"End Sub
选项：
A: VB Hello! VB
B: VBHello!VB
C: VB Hello! VB
D: VBHello!VB
答案: 【 VB Hello! 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
答案: 【 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
答案: 【 14】
7、单选题：
InputBox()函数返回值的类型为（ ）。
选项：
A: 数值
B: 字符串
C: 变体
D: 数值或字符串（视输入的数据而定）
答案: 【 字符串】
8、单选题：
设有语句：x = InputBox("输入数值", "0", "示例")程序运行后，在键盘上输入10后按Enter键，下列描述中正确的是（ ）。
选项：
A: 变量x的值是"输入数值"
B: 在InputBox对话框标题栏中显示的是"示例"
C: 0是默认值
D: 变量x的值是字符串"10"
答案: 【 变量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: 出错
答案: 【 108】
10、单选题：
执行语句“x=MsgBox("数据类型不匹配",1,"出错提示！")”，然后单击消息框中的“取消”按钮，x的值是（ ）。
选项：
A: True
B: False
C: 1
D: 2
答案: 【 2】
11、单选题：
下列语句中正确的是（ ）。
选项：
A: MsgBox vbOKOnly, "Error"
B: MsgBox "Error", vbOKOnly
C: MsgBox(VbOkOnly,"Error")
D: MsgBox ("Error",VbOkOnly)
答案: 【 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: 显示出错信息
答案: 【 246】
15、单选题：
命令按钮的Caption属性包含（ ），则按Alt+C组合键可激活该按钮。
选项：
A: &C
B: $C
C: #C
D: @C
答案: 【 &C】
16、单选题：
设置命令按钮的（ ）属性为True，可使按Enter键时，执行该按钮的单击事件过程。
选项：
A: Cancel
B: Enabled
C: Value
D: Default
答案: 【 Default】
17、单选题：
设置命令按钮的（ ）属性，可使鼠标指针指向该按钮时，显示提示内容。
选项：
A: Caption
B: ToolTipText
C: Font
D: Tag
答案: 【 ToolTipText】
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
答案: 【 CmdOK、OK】
20、单选题：
执行（ ）语句，可使命令按钮上显示“确定”。
选项：
A: Command1.Show = "确定"
B: Command1.Caption = "确定"
C: Command1.Name = "确定"
D: Command1.Visible = "确定"
答案: 【 Command1.Caption = "确定"】
21、单选题：
命令按钮不能响应以下（ ）事件。
选项：
A: DblClick
B: DragDrop
C: KeyPress
D: MouseMove
答案: 【 DblClick】
22、单选题：
设置标签Label1的（ ）属性可使它不可见。
选项：
A: Label1.Visible=0
B: Label1.Visible=1
C: Label1.Visible=True
D: Label1.Visible=False
答案: 【 Label1.Visible=False】
23、单选题：
设置标签的（ ）属性可改变其文字的对齐方式。
选项：
A: Jusify
B: Font
C: Alignment
D: 以上都不是
答案: 【 Alignment】
24、单选题：
下列叙述中错误的是（ ）。
选项：
A: 标签和文本框都有Caption属性
B: 标签和文本框的主要区别在于能否编辑其内容
C: 标签具有Autosize属性，而文本框没有
D: 文本框具有StrollBar属性，而标签没有
答案: 【 标签和文本框都有Caption属性】
25、单选题：
触发文本框Change事件的操作是（ ）。
选项：
A: 改变文本框的内容
B: 改变文本框的大小
C: 文本框获得焦点
D: 文本框失去焦点
答案: 【 改变文本框的内容】
26、单选题：
在文本框的（ ）属性值设置为True后，设置ScrollBars属性后才可使文本框中出现滚动条。
选项：
A: Text
B: PasswordChar
C: Enabled
D: MultiLine
答案: 【 MultiLine】
27、单选题：
文本框没有（ ）属性。
选项：
A: Enabled
B: Visible
C: BackColor
D: Caption
答案: 【 Caption 】
28、单选题：
要使命令按钮显示为图形样式，可设置该按钮的（ ）。
选项：
A: Style属性值为0，Picture属性选择要显示的图片文件
B: Style属性值为1，Picture属性选择要显示的图片文件
C: Style属性值为1，DragIcon属性选择要显示的图片文件
D: Style属性值为0，DragIcon属性选择要显示的图片文件
答案: 【 Style属性值为1，Picture属性选择要显示的图片文件】
29、单选题：
程序运行时，要使用户的鼠标暂停在命令按钮上出现提示信息，应设置命令按钮的（ ）属性。
选项：
A: TabStop
B: Style
C: DragIcon
D: ToolTipText
答案: 【 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
答案: 【 Text1.SelStart = 2Text1.SelLength = 6】
第4讲选择结构程序设计
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
答案: 【 5】
2、判断题：
If语句的条件表达式只能是关系表达式或逻辑表达式
选项：
A: 正确
B: 错误
答案: 【 错误】
单选题
1、单选题：
对于单选按钮和复选框，以下叙述错误的是（ ）。
选项：
A: Value表示单选按钮的状态时其值为逻辑型
B: Value表示复选框的状态时其值为整型
C: Alignment设置为1可以将单选按钮的标题显示在它的左边
D: 两者的Value属性的缺省值都为Unchecked
答案: 【 两者的Value属性的缺省值都为Unchecked】
2、单选题：
关于框架（Frame）作用，以下说法错误的是（ ）。
选项：
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
答案: 【 5】
2、判断题：
选择结构的嵌套可以出现交叉。
选项：
A: 正确
B: 错误
答案: 【 错误】
第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
答案: 【 3】
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
答案: 【 0】
3、单选题：
下列程序的运行结果为（ ）。Dim x%If x Then Print x + 1 Else Print x
选项：
A: 1
B: 0
C: True
D: 显示错误信息
答案: 【 0】
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
答案: 【 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
答案: 【 100】
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
答案: 【 i=1】
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
答案: 【 Case Is > 10 And Is < 50】
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
答案: 【 1 4】
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: 程序出错
答案: 【 Else 分支】
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
答案: 【 C】
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
答案: 【 B】
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
答案: 【 10】
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
答案: 【 c】
16、单选题：
单选按钮被选中时，其Value属性为（ ）。
选项：
A: 1
B: 0
C: True
D: False
答案: 【 True】
17、单选题：
单选按钮不具有的属性为（ ）。
选项：
A: Name
B: Checked
C: Caption
D: Style
答案: 【 Checked】
18、单选题：
下列（ ）语句使复选框Check1变成灰色。
选项：
A: Check1.Value = 0
B: Check1.Value =1
C: Check1.Value = 2
D: Check1.Style = 0
答案: 【 Check1.Value = 2】
19、单选题：
下列（ ）语句使复选框Check1的标题显示在左边。
选项：
A: Check1.Style = 0
B: Check1.Alignment = 0
C: Check1.Style = 1
D: Check1.Alignment = 1
答案: 【 Check1.Alignment = 1】
20、单选题：
修改（ ）属性可更改复选框上显示的文字。
选项：
A: Text
B: Name
C: Index
D: Caption
答案: 【 Caption】
21、单选题：
Style属性为（ ）时，单选按钮和复选框以图形方式显示。
选项：
A: 0
B: 1
C: 2
D: 3
答案: 【 1】
22、单选题：
下列没有Caption属性的控件是（ ）。
选项：
A: 文本框
B: 复选框
C: 框架
D: 单选按钮
答案: 【 文本框】
23、单选题：
在程序中可以通过复选框和单选按钮的（ ）属性值来判断它们的当前状态。
选项：
A: Caption
B: Value
C: Checked
D: Selected
答案: 【 Value】
24、单选题：
下列关于选择控件的叙述中错误的是（ ）。
选项：
A: 复选框的Value属性为True时表示被选中
B: 单选按钮的Value属性为False时表示未被选中
C: 单选按钮和复选框都有Value属性，用于表示被选中的情况
D: 单选按钮和复选框都可以像命令按钮那样加入图案背景以增强视觉效果
答案: 【 复选框的Value属性为True时表示被选中】
25、单选题：
如果将框架的（ ）属性设置为False，将屏蔽框架内的对象活动。
选项：
A: Caption
B: Name
C: Visible
D: Enabled
答案: 【 Enabled】
26、单选题：
如果将框架的（ ）属性设置为False，则框架及框架内的对象运行时不可见。
选项：
A: Caption
B: Name
C: Visible
D: Enabled
答案: 【 Visible】
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
答案: 【 5】
第5讲循环结构程序设计
测试
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
答案: 【 20】
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
答案: 【 12 6 】
测试题
1、单选题：
拖动滚动条滑块可触发滚动条的（ ）事件。
选项：
A: Change
B: Scroll
C: DragOver
D: ItemCheck
答案: 【 Scroll】
2、单选题：
使用滚动条控件的时候，以下说法错误的是（ ）。
选项：
A: 使用Min和Max属性来定义滚动的范围
B: 滚动条控件具有Scroll和Change事件
C: Value属性表示滑块所处位置代表的值
D: Min属性支持的最小值为0
答案: 【 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
答案: 【 4 31 5 32】
2、单选题：
如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（ ）。For i = a To b Print iNext i
选项：
A: 0
B: 1
C: 2
D: 3
答案: 【 0】
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
答案: 【 21】
4、单选题：
设有如下程序段：x = 2For i = 1 To 10 Step 2 x = x + iNext运行以上程序后，x的值是（ ）。
选项：
A: 36
B: 27
C: 38
D: 57
答案: 【 27】
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
答案: 【 3】
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
答案: 【 1 6】
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
答案: 【 18】
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
答案: 【 2和120】
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: 无数据输出
答案: 【 1 3 5】
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: 死循环
答案: 【 9 7】
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
答案: 【 9 20】
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
答案: 【 1】
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: 没有数据输出
答案: 【