超星VB程序设计[321002214]_2课后答案(学习通2023完整答案)

超星VB程序设计[321002214]_2课后答案(学习通2023完整答案)

点击查看答案

第1讲 初始Visual Basic

1.1 模拟打字机效果——VB６.0集成开发环境和特点随堂测验

1、超星程序关于Microsoft Visual Basic 6.0集成开发环境的设计说法中，错误的课后是_______。
A、答案可以在集成开发环境中设计界面
B、学习可以在集成开发环境中编写程序
C、通完可以在集成开发环境中调试程序
D、整答可以在集成开发环境中出售软件

2、超星程序开发VB6程序，设计需要安装的课后软件是Microsoft Visual Basic 6.0

1.2 对象三要素——面向对象概念随堂测验

1、关于类的答案描述中，错误的学习是_______。
A、通完类是整答具体对象的抽象描述
B、类封装了属性、超星程序事件和方法
C、类就是具体的客观事物
D、类可以继承或派生

2、方法是对象处理事件的执行过程。

1.3计算三角形面积——简单的应用程序建立和概念随堂测验

1、关于VB6.0的语句书写规则中，正确的是______。
A、一行只能书写一条语句
B、语句中不能包含空格
C、语句中只能包含关键字和运算符
D、语句中可以包含常量

2、可以在通用声明段声明变量

第1讲 单元测验

1、属于VB6.0特点的是 __________。
A、事件驱动的编程机制
B、没有数据类型的程序设计语言
C、基于对象、不支持结构化
D、没有可视化设计工具
E、只能通过文本编辑工具编写程序
F、具有丰富的数据类型、类库

2、在VB6.0集成开发环境中，通过__________窗口编写程序。
A、立即
B、代码
C、监视
D、属性
E、资源管理

3、窗体文件的扩展名是__________。
A、.frm
B、.vb
C、.vbp
D、.exe
E、.frx

4、保存一个工程，至少应保存两个文件，分别是：________。
A、工程文件和窗体文件
B、工程文件和文本文件
C、模块文件和窗体文件
D、模块文件和文本文件
E、工程文件和模块文件

5、下列不属于VB6.0代码窗口程序结构内容的是________。
A、通用声明段
B、事件过程
C、用户自定义过程
D、菜单定义
E、工具栏定义

6、VB6.0程序代码编写的规则中，不正确的是________。
A、代码不区分字母的大小写
B、一行上可以写多条语句
C、一条语句可以分多行书写
D、代码中不能包含数字
E、代码中只能包含数字和字母

7、下列选项中，不属于程序设计过程的是________。
A、建立数学模型
B、模拟数据分析
C、分析问题
D、建立用户界面
E、编写事件过程
F、程序调试和运行
G、保存工程

8、对象的三要素是指——————。
A、对象的属性
B、对象的方法
C、对象的事件
D、对象的过程

9、下面属于VB集成开发环境中包括的主要窗口的是——————。
A、设计窗口
B、属性窗口
C、资源管理器窗口
D、代码窗口

10、在VB主窗口的标题栏中显示的VB的三种不同工作模式是————。
A、设计模式
B、运行模式
C、中断模式
D、调试模式

11、如果没有触发任何事件，程序是不会自动开始执行的。

12、对象的事件是存放对象的数据，用来决定对象的外观和功能。

第2讲 可视化编程基础

2.1 模拟小车行驶——控件基本属性和窗体随堂测验

1、在窗体的属性中，存放窗体标题的属性是______。
A、Name
B、Caption
C、Font
D、BoderStyle

2、下列方法中，可以在窗体上输出信息的是______。
A、Show
B、Print
C、Cls
D、Hide

2.2 简易文本编辑器——标签、文本框和命令按钮随堂测验

1、在下面关于文本框的说法中，错误的是______。
A、文本框可以接受信息输入也能显示信息
B、文本框也有Caption属性
C、文本框也有事件
D、文本框也有方法

2、标签和文本框一样都可以输入信息。

2.3 模拟热气球升空 —— 图片和图像框随堂测验

1、在图片框（PictureBox）控件中，用于存放图片的属性是______。
A、Image
B、Picture
C、Align
D、Caption

2、Image和PictureBox控件的对齐方式中，Image控件的Stretch属性设置为False与PictureBox控件的AutoSize属性设置为True效果相同

第2讲 单元测验

1、关于文本框的焦点叙述中，错误的是________。
A、文本框失去焦点时，不会引发自己的LostFocus事件
B、文本框当其Enabled属性为False时，不能获得焦点
C、利用TabIndex属性改变Tab顺序
D、文本框得到焦点时，会引发自己的GotFocus事件

2、要判断在文本框里是否按了回车键，应该在文本框的_______事件中判断。
A、KeyPress
B、Changed
C、Click
D、Enter
E、LostFocus

3、若要使命令按钮不可用，可对按钮的_______属性进行设置。
A、Enabled
B、Caption
C、Title
D、Click
E、Locked

4、若要使图像控件Image中的图像随着控件的大小自动放大或缩小，可对_______属性进行设置。
A、Stretch
B、AutoSize
C、Size
D、Location
E、Align

5、任何控件都具有的属性是_______。
A、Name
B、Text
C、Caption
D、Color
E、Font
F、Stretch

6、控件在窗体上的位置是由控件的Top和Left属性决定的，Top属性值的含义是_______。
A、控件离开上边框的距离，默认单位为缇（Twip）
B、控件离开上边框的距离，默认单位为像素
C、控件离开下边框的距离，默认单位为缇（Twip）
D、控件离开下边框的距离，默认单位为像素

7、若要使标签Label不遮盖背景图像，有效的设置是_______。
A、将BackStyle设置为Opaque
B、将BackStyle设置为Transparent
C、将BackStyle设置为Fixed
D、将BorderStyle设置为Transparent
E、将BorderStyle设置为Fixed

8、下面属性中输入文本框的属性的是___________。
A、Text
B、MaxLength
C、PassWordChar
D、Caption

9、下面关于VB常用控件描述正确的是————————。
A、标签用来显示信息，但不能输入信息；
B、文本框一般用来输入信息；
C、在程序执行期间，当用户选择某个命令按钮就会执行相应的事件过程；
D、标签和文本框均可以用来信息信息。

10、下面关于控件属性设置描述正确的是——————。
A、控件的属性可以在设计时通过属性窗口来设置；
B、有些控件的属性可以在代码设计窗口通过代码来设计；
C、Name属性是对象的名称属性，只能在设计时通过属性窗口来设置；
D、控件的属性只能通过属性窗口来设置。

11、文本框TextBox的MaxLength属性默认为0，其含义是不能输入字符。

12、Image控件与PictureBox控件都可以装入图片，所以两个控件的功能完全相同。

13、标签和文本框可以用来输入数据。

14、图片框和图像框均可以用来显示图形，但图片框属于容器控件。

第3讲 VB语言基础和顺序结构

3.1 数值计算问题——数据类型、常量和变量随堂测验

1、下列选项中，合法的变量名是__________。
A、2面积
B、S1
C、mian ji
D、S+V

2、vbCrLf 是VB6.0中的系统常量，它表示的是__________。
A、回车/换行
B、警告消息图标
C、默认按钮
D、提示消息

3、整型数据类型的关键字是 "Integer"，类型符是" % "。

3.2 谁是凶手——运算符和表达式随堂测验

1、下列关于关系运算符的说法中，正确的是__________。
A、"123" > "56" 结果是 True
B、123 > 45 结果是 False
C、"abcd" <> "abc" 结果是 False
D、"ABC" < "abc" 结果是 True

2、若 x = 365,则表达式 (x mod 100) \ 10 的值是 _______。
A、3
B、6
C、5
D、7

3、在表达式的书写中，乘号可以省略。例如 a 乘以 b 可写成 ab。

3.3 简易计算器——常用内部函数随堂测验

1、函数Abs(x) 的作用是_______。
A、对x进行四舍五入
B、对x进行取整
C、取x的平方根
D、计算x的绝对值

2、Mid("VB6.0程序设计",3,4)的结果是_______。
A、VB6.0
B、VB6
C、6.0程
D、程序设计

3、若要随机产生范围为[20，50]的整数，包括20和50，正确的表达式是_______。
A、Int(Rnd()*30 + 20)
B、Int(Rnd()*31 + 20)
C、Int(Rnd()*50 + 20)
D、Int(Rnd()*20 + 50)

3.4 身份证求年龄问题——顺序结构随堂测验

1、假设a、b、c都是已经定义好的单精度变量，则下列语句中，正确的赋值语句是_______。
A、a + b = c
B、36 = sin(a)
C、c = a / b
D、sin(a) = b * c

2、关于InputBox函数的说法中，错误的是_______。
A、InputBox函数的作用是打开一个对话框，让用户输入信息。
B、InputBox函数不需要设置参数，可直接使用。
C、InputBox函数可以设置默认值。
D、InputBox函数可以设置提示信息。

3、Print方法可以直接在窗体或图形框等对象上输出信息。

第3讲 单元测验

1、不属于VB6.0基本数据类型的是_______。
A、Char
B、Value
C、String
D、Integer
E、Single
F、Double

2、数学关系 3<=x<10 表示成正确的VB6.0表达式为_______。
A、3<=x And x<10
B、3<=x<10
C、x>=3 Or x<10
D、x>=3 XOR x<10
E、x>=3 MOD x<10

3、表示x是5的倍数的逻辑表达式为_______。
A、x Mod 5 = 0
B、x - 5 = 0
C、x / 5 = 0
D、x * 5 = 0

4、若要定义一个变量，用来保存某人的年龄，则最合适的数据类型是_______。
A、Date
B、Integer
C、Byte
D、String
E、Boolean
F、Object
G、Variant

5、下列关于IsNumeric()函数的描述中，错误的是_______。
A、IsNumeric("123a")的结果是 False
B、IsNumeric(123a)的结果是 语法错误
C、IsNumeric("-123a")的结果是 False
D、IsNumeric("-123.4")的结果是 False

6、表达式Chr(Int(Rnd*4+97))的结果是_______。
A、97 ～ 100 之间的整数
B、"a" ～ "d" 之间的小写字母
C、97.0 ～ 100.0 之间的小数
D、4 ～ 97 之间的整数
E、"A" ～ "D" 之间的大写字母

7、表达式Val("-1.2a3b4")的值是_______。
A、1.234
B、-1.234
C、-1.2
D、ab
E、2a3b

8、VB中的表达式包括——————。
A、算术表达式
B、关系表达式
C、逻辑表达式
D、字符串表达式

9、VB中的数据是具有一定的数据类型，最基本的数据类型包括————————。
A、整型
B、非整型
C、字符型
D、逻辑型

10、VB中常用的用算符包括——————。
A、关系运算符
B、算术运算符
C、逻辑运算符
D、字符串运算符

11、在为变量命名时不能使用VB语言中的关键字。

12、变量是指在程序运行过程中其值可以发生变化的量，变量的值保存在内存中。

13、表达式是将常量、变量、运算符、函数和圆括号按一定规则组成的式子。

第4讲 选择结构

4.1 三角形问题——If语句随堂测验

1、在关于下面程序段的说法中，正确的是 。 y = Sin(x) if x< 0 Then y = Cos(x)
A、当x>=0，y = Cos(x)；当x<0，y = Sin(x)。
B、无论x的值是什么，y =Cos(x)
C、当x>=0，y = Sin(x)；当x< 0，y = Cos(x)
D、无论x的值是什么，y = Sin(x)

2、在If语句中，如果表达式是一个算术表达式，则按算术表达式的值0为True，非0为False进行判断。

4.2 一个月有多少天——Select Case语句随堂测验

1、关于Select Case语句的说法中，错误的是_______。 Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 　　　　… [Case Else 语句块n+1] End Select
A、表达式列表可以是逗号分隔的枚举值
B、表达式列表可以是任何变量。
C、表达式列表可以是 下界　To　上界，如 1 to 10
D、表达式列表可以是　Is　表达式

4.3 闰年问题——嵌套选择结构随堂测验

1、关于如下图所示的If嵌套结构的说中，正确的是_______。 If 表达式1 Then If 表达式11 Then 语句块1 End If Else 语句块2 End If
A、只要表达式1为True，语句块1就执行。
B、只要表达式11为True，语句块1就执行。
C、只要表达式1或表达式11为True，语句块1就执行。
D、表达式1和表达式11同时为True，语句块1就执行。

4.4 成绩转换——综合应用随堂测验

1、多分支的If结构如下图，如果表达式1和表达式2都为True，下列说法正确的是_______。 If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 … [Else 语句块 n+1] End If
A、只会执行语句块1。
B、只会执行语句块2。
C、先执行语句块1再执行语句块2。
D、先执行语句块2再执行语句块1。

4.5 购物优惠——程序调试随堂测验

1、如果程序有语法错误，则下列说法正确的是_______。
A、程序可以忽略错误正常执行的。
B、程序是不能正常执行的。
C、程序不能编辑修改。
D、程序不能修改错误的语句。

2、如果程序有逻辑错误，则下列说法正确的是_______。
A、程序是不能执行的。
B、程序不能得到正确的结果。
C、不能生成可执行程序。
D、无法修改错误的语句。

4.6 个人简历——选择类控件随堂测验

1、单选按钮Option控件的__________属性值为True,表示选中该按钮。
A、Enabled
B、Value
C、Visible
D、Locked

2、复选框的CheckBox的Value属性有多种值，下列_________不属于该属性值。
A、vbUnchecked
B、vbSelected
C、vbChecked
D、vbGrayed

3、如果有多组相互独立的单选控件，应使用框架Frame控件，将各组单选控件放置在各个框架中。

第4讲 单元测验

1、有下列If语句，说法正确的是________。 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均为关系表达式

2、假设文本框Text1中输入了一个字母，要求判断输入的字母为"A"～"E"正确，否则显示输入错误信息，下列语句中正确的是_____________。
A、If "A" <= Text1.Text <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"
B、If A <= Text1.Text <= E Then MsgBox "输入正确" Else MsgBox "输入错误"
C、If "A" <= Text1.Text Or Text1.Text <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"
D、If A <= Text1.Text Or Text1.Text <= E Then MsgBox "输入正确" Else MsgBox "输入错误"
E、If "A" <= Text1.Text And Text1.Text <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"
F、If A <= Text1.Text And Text1.Text <= E Then MsgBox "输入正确" Else MsgBox "输入错误"

3、下面程序段的功能是求两个数中的大数,_____________是不正确的。
A、If x > y Then Max = x Else Max = y
B、Max = x : If y > x Then Max = y
C、Max = y : If x > y Then Max = x
D、If y > x Then Max = y : Max = x
E、If x > y Then Max = x : Max = y

4、假设x是一个整数变量，要求判断x的值为1～4之间。Select语句形式如下，则Case表达式列表写法正确的是_____________。 Select Case x Case 表达式列表
A、Case 4>=x>=1
B、Case x>=1 and x<=4
C、Case Is>=1 and Is<=4
D、Case 4>=Is>=1
E、Case 1 to 4
F、Case 1,2,3,4

5、分段函数：,下面程序段中正确的是__________。
A、If x < 0 Then y = 0 If x < 1 Then y = 1 If x < 2 Then y = 2 If x >= 2 Then y = 3
B、If x > =2 Then y = 3 ElseIf x > =1 Then y = 2 ElseIf x > =0 Then y = 1 Else y = 0 End If
C、If x >= 2 Then y = 3 If x >= 1 Then y = 2 If x > 0 Then y = 1 If x < 0 Then y = 0
D、If x < 0 Then y = 0 ElseIf x > 0 Then y = 1 ElseIf x > 1 Then y = 2 Else y = 3 End If
E、If x < 0 Then y = 0 If 0 <= x <1 Then y = 1 If 1 <= x < 2 Then y = 2 If x >= 2 Then y = 3

6、如果在文本框Text1输入80，程序运行后，显示的结果是_______。 Dim x% x = Val(Text1.Text) Select Case x\5 Case 18 to 20 MsgBox( "优秀") Case 16,17 MsgBox( "良好") Case 12 to 15 MsgBox( "通过") Case Else MsgBox( "不通过") End Select
A、优秀
B、良好
C、通过
D、不通过

7、如果在文本框Text1输入80，程序运行后，显示的结果是_______。 Dim x% x = Val(Text1.Text) If x >= 60 Then MsgBox ("通过") ElseIf x >= 80 Then MsgBox ("良好") ElseIf x >= 90 Then MsgBox ("优秀") Else MsgBox ("不通过") End If
A、优秀
B、良好
C、通过
D、不通过

8、在下列关于单选按钮的说法中，正确的是___________。
A、单选按钮的Value属性为Fasle时表示选中
B、一个单选按钮被单击一定会触发它的Click事件
C、一个单选按钮被选中不会影响其他单选按钮的状态
D、单选按钮的Value属性为vbGrayed时表示不可选择
E、用户可以同时选中一组单选按钮中的多个单选按钮

9、复选框CheckBox的___________属性表示是否被选中。
A、Value
B、Caption
C、Enabled
D、Visible
E、Text

10、关于复选框CheckBox的单击事件，下列正确的说法是___________。
A、不影响其他复选框的状态
B、一定使得当前复选框被选中
C、一定使得当前复选框不被选中
D、一定使得其他复选框不被选中
E、一定使得其他复选框被选中
F、不影响当前复选框的状态

11、程序运行后，要使单选按钮Option1为选中状态，下面语句正确的是_________。
A、Option1.Value = True
B、Option1.CheckState = True
C、Option1.Visible = True
D、Option1.Enabled = True

12、结构化程序设计的基本结构包括————
A、顺序结构
B、分支结构
C、循环结构
D、过程结构

13、在VB中用于实现分支结构程序设计的语句包括——————。
A、IF语句
B、Select Case语句
C、For语句
D、IIF函数

14、在用IF语句编写分支结构程序时常见的格式有——————。
A、IF单分支结构
B、IF双分支结构
C、IF多分支结构
D、IF嵌套结构

15、任何Select Case语句都可以改写成If语句，同样，任何If语句也都可以改写成Select Case语句。

16、简单 If 形式无 End If 时，Then 后面只能是一句语句或多条语句间用冒号分隔，而且必须在一行上书写。

17、单选按钮一次只能选择一个按钮，所以在设计用户界面时一个界面上只能有一组单选按钮。

第5讲 循环结构

5.1 数字之美——For 语句随堂测验

1、下列For循环语句中，使用错误的是_______。
A、For i = 2 to 10 ``` Next
B、For i = 2,4,6,8,10 ``` Next
C、For i = 10 to 2 Step -2 ``` Next
D、For i = 2 to 10 Step 2 ``` Next

2、若有如下For循环语句中，循环结束后x的值是_______。 s = 0 For x = 3 to 15 Step 3 s = s + 1 Next MsgBox(x)
A、15
B、16
C、14
D、18

5.2 猜数游戏——DO 语句随堂测验

1、下列Do ``` Loop 循环计算2～100 偶数和，正确的是_______。
A、Dim sum%, i% sum = 0 i = 2 Do While i <= 100 sum = sum + i i = i + 2 Loop MsgBox (sum)
B、Dim sum%, i% sum = 0 i = i + 2 Do While i <= 100 sum = sum + i Loop MsgBox (sum)
C、Dim sum%, i% sum = sum + i i = 2 Do While i >= 100 i = i + 2 Loop MsgBox (sum)
D、Dim sum%, i% sum = 0 i = 2 Do sum = sum + i i = i + 2 Loop While i > 100 MsgBox (sum)

2、若有如下循环，程序执行后显示______次MsgBox。 Dim s% Do While s<=3 s=s+1 MsgBox(s) Loop
A、2
B、3
C、4
D、5

第5讲 单元测验

1、下列正确的For语句结构是_______。
A、For 1 <= i <= 10 ``` Next
B、For 1 <= i and i <= 10 ``` Next
C、For i=1 to 10 ``` Next
D、For i=1,2,3,4 ``` Next
E、For i=10 to 1 step -1 ``` Next

2、下列循环语句能正常结束的是_______。
A、i = 5 Do While i > 0 i = i + 1 Loop
B、i = 1 Do i = i + 2 Loop Until i = 10
C、i = 10 Do i = i + 1 Loop Until i > 0
D、i = 6 Do i = i + 2 Loop While i > 2

3、从循环体 Do ... Loop中退出，跳出循环体，应使用______。
A、Exit Loop
B、Exit Do
C、Exit While
D、End Do
E、End Loop

4、从循环体中 For ... Next中退出，跳出循环体，应使用______。
A、Exit For
B、Exit Next
C、Exit
D、End For
E、End Next

5、循环语句 For i = 9 To -3 Step -3 的执行次数是__________。
A、0
B、1
C、4
D、5
E、6

6、从键盘输入一个正整数，将该数的各位分离出来。 请在_________处填入适当的内容，完善程序。 Dim s, s1 As Integer s = Val(InputBox("输入一个正整数：")) Do While s > 0 s1 = __________ s = s \ 10 MsgBox(s1) Loop
A、s / 10
B、s - 10
C、s * 10
D、s mod 10
E、s \ 100

7、窗体上有一标签Label1，将1~9连接成123456789的9位数,显示在标签中。请在_________处填入适当的内容，完善程序。 Dim i%, s& s = 0 For i = 1 To 9 s = ___________ Next Label1.Caption = s
A、s + 10 * i
B、s * 10
C、s + 10 + i
D、s * 10 + i
E、s * i

8、在VB中常见的循环结构语句包括——————。
A、For...Next
B、Do While...Loop
C、Do... Loop While
D、Select Case ...End Case

9、下面关于结构化程序设计描述正确的是——————。
A、在编写分支结构问题求解的程序时可以使用IF语句；
B、在编写分支结构问题求解的程序时可以使用Select Case语句；
C、在编写语句固定循环次数的循环结构程序时一般使用For循环结构；
D、在编写语句未知循环次数的循环结构程序时一般使用Do循环结构；

10、下面关于定时器（Timer）控件应用描述正确的是——————。
A、定时器控件的工作条件是Enabled= True ，Interval非零。
B、定时器控件的重要事件只有一个Timer事件
C、希望定时器每0.5s产生一个Timer事件时，应将Enabled= True ，Interval=500
D、希望定时器每0.5s产生一个Timer事件时，应将Enabled= True ，Interval=5000

11、For循环语句又称为计数型循环语句。通常用来编写循环次数已知的循环应用程序。

12、在循环结构中，循环体中出现Exit For或Exit Do 语句时将强制退出本层循环。

13、在循环结构中Exit 语句可以强制结束整个循环结构的执行。

第6讲 循环结构(续)

6.1 交通灯控制车辆行驶——循环类控件随堂测验

1、对于循环嵌套的说法中，正确的是_______。
A、多重循环的总循环次数是每一重循环次数之和。
B、外循环和内循环应使用不同的循环变量。
C、循环嵌套语句中，不能使用If条件语句。
D、For循环只能和For循环嵌套，不能和Do循环嵌套。

2、下列循环嵌套的结构中，正确的是_______。
A、For i = 2,4,6,8,10 ``` Do ``` Loop While s > 0 Next
B、For i = 2 To 10 ``` Do While s > 0 ``` Loop Next
C、For i = 2 To 10 ``` Do While s > 0 ``` Next Loop
D、For i = 2 To 10 ``` Do ``` Next Loop While s > 0

3、下列关于定时器(Timer)的Interval属性，正确的说法是___________。
A、Interval属性表示定时器是否产生Timer事件。
B、Interval属性表示定时器是否在界面上显示。
C、Interval属性表示定时器上所显示的文字。
D、Interval属性表示定时器触发Timer事件的时间间隔。

4、水平滚动条的__________属性表示滑块当前位置的值。
A、Caption
B、Value
C、Text
D、Name

5、滚动条(ScrollBar)的Scroll事件是在拖动滑块的时候触发的。

6.1 部分级数和、枚举法、迭代法、字符串处理——常用算法随堂测验

1、关于枚举法的说法中，正确的是_______。
A、枚举法得到的结果不一定全面，有可能遗漏答案。
B、枚举法的算法效率是最高的。
C、枚举法一般采用多重循环实现。
D、枚举法的算法效率和数据量有关，数据量越大，效率越高。

2、如下程序的功能是删除文本框Text1中的数字字符。请在_________处填入适当的内容，完善程序。 Private Sub Command1_Click() Dim i%, s$, c$ s = "" For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1) If _________ Then s = s + c End If Next Text1.Text = s End Sub
A、c >= "0" And c <= "9"
B、c >= 0 And c <= 9
C、c < "0" Or c > "9"
D、c <= 0 Or c >= 9

第6讲 单元测验

1、若有如下程序，在文本框中输入“VisualBasic”，程序运行后Label1显示的是__________。 Dim s$,ch$,k% s="" For k=1 TO Len(Text1.Text) ch = Mid(Text1.Text,k,1) s = ch+s Next k Label1.Caption = s
A、BasicVisual
B、VISUALBASIC
C、cisaBlausiV
D、visualbasic

2、有如下程序，用来求4个整数（从键盘输入）中的最小值。若程序运行后，依次输入56，88，23，14，则在Label1显示的是__________。 Private Sub Command1_Click() Dim min%, k%, a% For k = 1 To 4 a = Val(InputBox("输入一个整数")) If a < min Then min = a End If Next Label1.Caption = min End Sub
A、14
B、23
C、56
D、88
E、0

3、刑警在处置某案件时采用“地毯式”方式搜寻犯罪嫌疑人，相当于计算机中的_____方法。
A、枚举法
B、迭代法
C、递归法
D、选择法

4、下列关于定时器Timer控件的说法中，正确的是__________。
A、当Enabled属性为False时，不产生Timer事件
B、当Enabled属性为True时，不产生Tick事件
C、当Interval属性为False时，不产生Timer事件
D、当Interval属性为True时，不产生Timer事件
E、当Visible属性为False时，不产生Timer事件
F、当Visible属性为True时，不产生Timer事件

5、在嵌套的内循环中，可以利用Exit语句跳出循环，跳到最外层的循环之外。

6、要使定时器Timer1控件每隔1秒触发Timer事件，应将Interval属性设为10。

7、一个完整的循环结构中包含了另一个完整的循环结构称为循环的嵌套。

第7讲 数组

7.1 数组概念随堂测验

1、若要定义一个具有10个元素的整型数组，下列语句不正确的是___________。
A、Dim a(10) As Integer
B、Dim a%(9)
C、Dim a(0 To 9) As Integer
D、Dim a%(1 To 10)

2、数组中每个元素的数据类型是不同的。

3、数组中每个元素的下标是不同的。

7.2 数组的基本操作随堂测验

1、若有数组Dim a%(10)，每个元素的值都通过InputBox输入，则下列语句正确的是___________。
A、a(10) = Val(InputBox("请输入数据"))
B、Dim i% a(i) = Val(InputBox("请输入数据"))
C、Dim i% For i = 1 To 10 a(i) = Val(InputBox("请输入数据")) Next
D、Dim i% For i = 0 To 10 a(i) = Val(InputBox("请输入数据")) Next

2、若有数组Dim a%(10)且每个元素有值，求最小值并在Text1中显示，下列语句正确的是___________。
A、Dim i%, nMin% nMin = 0 For i = 1 To 10 If a(i) < nMin Then nMin = a(i) End If Next Text1.Text = nMin
B、Dim i%, nMin% nMin = 0 For i = 1 To 10 If a(i) < nMin Then nMin = i End If Next Text1.Text = nMin
C、Dim i%, nMin% nMin = a(0) For i = 1 To 10 If a(i) < nMin Then nMin = i End If Next Text1.Text = nMin
D、Dim i%, nMin% nMin = a(0) For i = 1 To 10 If a(i) < nMin Then nMin = a(i) End If Next Text1.Text = nMin

7.3 数组排序和维护随堂测验

1、若有数组Dim a%(10)且每个元素有值，用选择法升序排序，下列语句正确的是___________。
A、Dim i%, j%, iMin%, t% iMin = i For j = i To 10 If a(j) < a(iMin) Then iMin = j End If Next For i = 0 To 9 t = a(i) a(i) = a(iMin) a(iMin) = t Next
B、Dim i%, j%, iMin%, t% For i = 0 To 9 t = a(i) a(i) = a(iMin) a(iMin) = t Next iMin = i For j = i To 10 If a(j) < a(iMin) Then iMin = j End If Next
C、Dim i%, j%, iMin%, t% For i = 0 To 9 iMin = i For j = i To 10 If a(j) < a(iMin) Then iMin = j End If Next t = a(i) a(i) = a(iMin) a(iMin) = t Next
D、Dim i%, j%, iMin%, t% For i = 0 To 9 t = a(i) a(i) = a(iMin) a(iMin) = t iMin = i For j = i To 10 If a(j) < a(iMin) Then iMin = j End If Next Next

2、若有动态数组Dim a%()，11个元素，若要删除下标为k(k为0~10范围)的元素，下列语句正确的是___________。
A、Dim i% For i = 0 To k a(i) = a(i + 1) Next ReDim Preserve a(9)
B、Dim i% For i = 0 To k a(i) = a(i - 1) Next ReDim Preserve a(9)
C、Dim i% For i = k To 9 a(i) = a(i + 1) Next ReDim Preserve a(9)
D、Dim i% For i = k To 9 a(i) = a(i - 1) Next ReDim Preserve a(9)

第7讲 单元测验

1、下列数组声明语句中， 不正确的是___________。
A、Dim a(5) As Single
B、Dim a(1 To 5) As Single
C、Dim a(0) As Single
D、Dim a(5) As Single=(1，2，3，4，5，6)

2、若要定义一个10个元素的整数数组，每个元素的值均为5，则下列语句正确的是___________。
A、Dim a%(9) = 5
B、Dim a%(10) = 5
C、Dim a%(9) = (5)
D、Dim a%(9), i% For i = 0 To 9 a(i) = 5 Next

3、对于正在使用的动态数组a(n)，要增加3个数组元素，又要保留原来数组中的值，则下列语句正确的是___________。
A、Dim a(n+3)
B、ReDim a(n+3)
C、Dim Preserve a(n+3)
D、ReDim Preserve a(n+3)

4、下列定义二维数组的语句中，正确的是___________。
A、Dim a(3)(4) As Integer
B、Dim a(3, 4) As Integer
C、Dim a[3, 4] As Integer
D、Dim a{ 3, 4} As Integer

5、数组必须先定义后使用，在声明数组时需声明数组的——————
A、名称
B、类型
C、维数
D、大小

6、在定义数组时根据需要可以将数组定义为——————。
A、一维数组
B、二维数组
C、静态数组
D、动态数组

7、下面关于数组的基本操作描述正确的是——————。
A、一般通过InPutBox函数和For循环实现对数组元素的赋值；
B、一般通过Print方法和For循环实现对数组元素的输出；
C、在对有序数组插入数据时要先对数组进行排序。
D、要使二维数组的输出为一个矩阵，必须采用For循环嵌套，且在内外循环之间要使用换行语句。

8、在一维数组的定义中，Dim 数组名(上界) as 数据类型，默认的下界是1。

9、通过ReDim语句可以重新定义数组，重新定义数组的维数、下标的上下界和数据类型。

10、VB中的数据既可以定义为一维数组，也可以定义为二维数组，甚至多维数组。

第8讲 数组（续）

8.1 数据有序和维护——可视化数组类控件随堂测验

1、关于组合框ComboBox控件的List属性，下列正确的说法是___________。
A、表示组合框的样式。
B、它一个集合，存放多个可选的项目。
C、表示当前选定的项目。
D、表示是否显示可选项目。

2、下列___________不属于列表框List控件的常用方法。
A、AddItem
B、AppendItem
C、RemoveItem
D、Clear

3、列表框List控件是既可以输入内容也可以从选项中选择项目的控件。

8.2 常用算法——分类统计随堂测验

1、若有数组Dim a%(10)且每个元素有值，统计前一个元素大于后一个元素的次数，结果存放在变量n中。 则下列语句正确的是___________。
A、Dim i%, n% For i = 1 To 10 If a(i) > a(i + 1) Then n = n + 1 End If Next MsgBox(n)
B、Dim i%, n% For i = 1 To 10 If a(i) > a(i + 1) Then n = a(i) End If Next MsgBox(n)
C、Dim i%, n% For i = 0 To 9 If a(i) > a(i + 1) Then a(i) = n + 1 End If Next MsgBox(n)
D、Dim i%, n% For i = 0 To 9 If a(i) > a(i + 1) Then n = n +1 End If Next MsgBox(n)

第8讲 单元测验

1、引用列表框List1 最后一个数据项应使用代码_________。
A、List1.List(List1.ListCount - 1)
B、List1.List(List1.ListCount)
C、List1.List(ListCount)
D、List1.List(ListCount - 1)

2、数组a是个整数数组且已有数据，如要在a中查找InputBox中输入的数字，并输出其下标。程序如下，请在_________处填入适当的内容，完善程序。 Dim i%, idx%, key% key = Val(InputBox("输入要查找的数字")) idx = -1 For i = 0 To UBound(a) If a(i) = key Then _________ Exit For End If Next If idx >= 0 Then MsgBox ("下标为" & idx) Else MsgBox ("找不到此数字") End If
A、idx=i
B、idx=key
C、key=i
D、i=key

3、要将字符串“vb程序”添加到列表框List1中，下列代码正确的是___________。
A、List1 &= “vb程序”
B、List1.Text &= “vb程序”
C、List1.Caption &= “vb程序”
D、List1.AddItem(“vb程序”)
E、List1.InsertItem(“vb程序”)

4、如要删除列表框List1中第3个项目，下列代码正确的是___________。
A、List1.Delete 3
B、List1.Clear 2
C、List1.ClearAt 3
D、List1.RemoveItem 2
E、List1.DeleteItem 2

5、组合框ComboBox控件具有列表框类似的属性，它同样不允许用户输入内容，只能选择列表中的项目。

6、组合框ComboBox控件的List属性表示是否显示可选项目。

7、组合框控件是既可以输入内容也可以从选项中选择项目的控件。

第9讲 过程

9.1 求多边形面积 — 函数过程随堂测验

1、下列函数过程的定义语句中，正确的是_____________。
A、Dim fun1 as Function
B、Public fun1 as Function
C、Function fun1%(ByVal n%)
D、Sub fun1%(ByVal n%)

2、函数Fun1(x%,y%)已有定义，若要调用此函数，参数是3和5，调用结果显示在Label1中。正确的调用语句是_____________。
A、Label1 = Fun1(3,5)
B、Label1.Caption = Fun1(3,5)
C、Call Fun1(Label1)
D、Call Fun1(Label1.Caption,3,5)

3、函数过程一定有一个返回值。

9.2 打印图案 — 子过程随堂测验

1、下列子过程的定义语句中，正确的是____________。
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%)

2、从子过程退出，并返回到主调过程，可使用语句____________。
A、Return Sub
B、Exit Sub
C、Return Function
D、Exit Function

9.3 两数交换 — 参数传递随堂测验

1、过程定义如下，单击按钮后标签上的文字为________。 Sub ProcString(ByVal m$) m = Mid(m, 7, 2) End Sub Private Sub Command1_Click() Dim s$ s = "VB.NET程序设计" Call ProcString(s) Label1.Caption = s End Sub
A、VB.NET
B、程序
C、VB.NET程序
D、VB.NET程序设计

2、要求调用MyProc子过程后形参m不能被修改，而n要被修改, 则MyProc声明正确的为__________。
A、Sub MyProc(ByRef m%, ByVal n%)
B、Sub MyProc(ByRef m%, n%)
C、Sub MyProc(ByVal m%, n%)
D、Sub MyProc(m%,ByVal n%)

3、下列关于参数和参数传递，错误的说法是____________。
A、形参没有具体的值，只代表了参数的个数、位置、类型。
B、在参数传递中，按实参的位置次序与形参的位置次序对应传送，与参数名没有关系。
C、参数传递的作用是主调过程和被调过程之间的数据交互。
D、在参数传递时，实参名与形参名相同才能实现数据传递。

第9讲 单元测验

1、下面的函数过程的定义语句中，不正确的是____________。
A、Function F1( F1 ) as Integer
B、Function F1() as Integer
C、Function F1( n )
D、Function F1( n% ) as Integer

2、下列子过程的定义语句中，正确的是____________。
A、Sub S1(ByRef n%) As Integer
B、Sub S1%(ByVal n As Integer)
C、Sub S1(ByVal n%) As Integer
D、Sub S1(ByVal n%)
E、Sub S1(ByRef n As Integer)

3、在过程定义中，在形参前加_____________关键字表示传值方式。
A、Val
B、ByVal
C、ByRef
D、Value
E、as

4、设有如下函数定义： Function fun(ByVal a%) As Integer fun = 3 * a + 4 End Function Private Sub Command1_Click() Dim n%, m% n=3 m=4 … ' 调用fun语句 … End Sub 则在Command1_Click中正确的调用语句是____________。
A、3 = fun(4)
B、4 = fun(n)
C、3 = fun(m)
D、4 = fun(3)
E、m = fun(3)
F、n = fun(4+n)

5、设有如下的子过程： Public Sub p1(ByRef x%, ByVal y%) x = 3 * x y = y + 1 End Sub Sub Command1_Click() Dim a%,b% a = 1: b = 2 Call p1(a, b) MsgBox( "a=" & a & " b=" & b ) End Sub 则在Command1_Click中 MsgBox 显示的结果是____________。
A、a=1 b=2
B、a=3 b=2
C、a=3 b=3
D、a=1 b=3
E、a=4 b=4

6、设有如下的子过程： Public Sub F1(ByVal n%, ByRef m%) n = n Mod 10 m = m \ 10 End Sub Private Sub Command1_Click() Dim x%, y% x = 12: y = 34 Call F1(x, y) MsgBox( x & " " & y) End Sub 则在Command1_Click中 MsgBox 显示的结果是____________。
A、1 3
B、12 3
C、2 34
D、12 34
E、1 4

7、子过程是没有返回值的，因此调用子过程并不能得到任何结果。

8、数组作为参数，形参必须是ByRef方式。

第10讲 过程（续）

10.1 数据的共享——变量的作用域随堂测验

1、如下程序段，要计算s=1+（1+2）+（1+2+3），已知主调程序为： Private Sub Command1_Click() Dim s%, i% For i = 1 To 3 s = s + sum(i) Next MsgBox ("s=" & s) End Sub 则下列sum函数过程正确的是__________。
A、Function sum%(ByVal n%) Static c% c = c + n sum = c End Function
B、Function sum%(ByVal n%) Dim c% c = c + n sum = c End Function
C、Function sum%(ByVal n%) Public c% c = c + n sum = c End Function
D、Function sum%(ByVal n%) Private c% c = c + n sum = c End Function

2、要在多个过程享某变量，可以将该变量声明为模块级变量。

10.2 常用算法——数制转换、信息加密、数据查找随堂测验

1、数制转换的函数定义如下，将100转变成16进制并在Text1中显示结果，正确的调用是____________。 Function Trans(ByVal r%, ByVal n%) As String Dim a% Do While n > 0 a = n Mod r If a > 9 Then Trans = Chr(a + 55) & Trans Else Trans = a & Trans End If n = n \ r Loop End Function
A、Text1.Text = Trans(100, 16)
B、Text1.Text = Trans(16, 100)
C、Trans(Text1.Text,100, 16)
D、Trans(Text1.Text,16, 100)

2、加密的过程是加序数，解码是减序数，下列解码函数的定义正确的是____________。
A、Function Decoder(ByVal s$, ByVal key%) As String Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z","A" To "Z" n = Asc(c) - key If n < Asc("a") Then n = n + 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function
B、Function Decoder(ByVal s$, ByVal key%) As String Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z","A" To "Z" n = Asc(c) - key If n < Asc("a") or n < Asc("A") Then n = n - 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function
C、Function Decoder(ByVal s$, ByVal key%) As String Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z" n = Asc(c) - key If n < Asc("a") Then n = n - 26 Decoder = Decoder & Chr(n) Case "A" To "Z" n = Asc(c) - key If n < Asc("A") Then n = n - 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function
D、Function Decoder(ByVal s$, ByVal key%) As String Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z" n = Asc(c) - key If n < Asc("a") Then n = n + 26 Decoder = Decoder & Chr(n) Case "A" To "Z" n = Asc(c) - key If n < Asc("A") Then n = n + 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function

第10讲 单元测验

1、设有如下函数定义： Function fun() As Integer Static a% fun = 3 * a + 1 a = a + 2 End Function Private Sub Command1_Click() Dim n As Integer n = fun n = fun MsgBox (n) End Sub 则在Command1_Click中 MsgBox 显示的结果是____________。
A、7
B、5
C、3
D、1

2、下列Find函数的功能是在数组里查找数字key，返回该key在数组中的下标，如果找不到则返回-1。请在_________处填入适当的内容完善程序。 Function Find(ByRef a%(), ByVal key%) As Integer Dim idx%, i% idx = -1 For i = LBound(a) To UBound(a) If a(i) = key Then _________ Exit Function End If Next End Function
A、key = i
B、key = idx
C、i = idx
D、idx = i
E、idx = key

3、下列Encode函数的功能是对字符串s里的数字字符进行加密，加密方法是增加序数n（数字字符加n后还是在数字字符范围内），如n=3，"Text123789"-->"Text456012"。请在_________处填入适当的内容完善程序。 Function Encode(ByVal s$, ByVal n) As String Dim i%, c$, cvalue% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "0" To "9" cvalue = Val(c) + n If cvalue > 9 Then _________ c = CStr(cvalue) ' CStr()函数将数值转换成数字字符 End Select Encode = Encode & c Next End Function
A、cvalue = 10 - cvalue
B、cvalue = cvalue - 10
C、c = cvalue - 10
D、c = 10 - cvalue
E、cvalue = 10 + cvalue
F、c = 10 + cvalue

4、下列myDecimal函数的功能是字符串s表示的r进制数转变成十进制数。如s=“3a” , r=16，则结果是58。请在_________处填入适当的内容完善程序。 Function myDecimal(ByVal s$, ByVal r%) As Integer Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z" n = Asc(c) - Asc("a") + 10 Case "A" To "Z" n = Asc(c) - Asc("A") + 10 Case Else n = Val(c) End Select myDecimal = _________ Next End Function
A、myDecimal + n * r
B、myDecimal + n * 10
C、myDecimal * 10 + n
D、myDecimal * r + n
E、(myDecimal + n) * r
F、(myDecimal + n) * 10

5、静态变量的作用域和模块级变量的作用域相同。

6、用Static定义的变量是静态变量。

7、在VB中，实参和形参的结合可以是按值（传值），也可以按地址（传址）。

第11讲 界面设计

11.1 界面设计概述随堂测验

1、关于通用对话框，下面表述不正确的是__________。
A、通用对话框不是标准控件，通过添加部件将其添加到工具箱中。
B、在程序运行时，窗体上不显示通用对话框，需要使用相应的方法才能显示。
C、打开文件对话框属于通用对话框。
D、保存文件对话框属于通用对话框，它能将数据保存到磁盘中。

2、菜单一般分为两种：下拉式菜单和弹出式菜单

11.2 菜单设计随堂测验

1、在创建菜单时，建立热键的方法是在热键字符前插入_________符号。
A、#
B、@
C、！
D、&

2、在创建菜单时，建立分割线的方法是输入_________符号。
A、"+" （加号）
B、"-" （减号）
C、"×" （乘号）
D、"/" （除号）

11.3 对话框设计随堂测验

1、若有通用对话框控件CommonDialog1，要显示打开文件对话框，正确的是_________。
A、CommonDialog1.ShowOpen
B、CommonDialog1.Action
C、CommonDialog1.ShowOpen = 1
D、CommonDialog1.Action = ShowOpen

2、利用通用对话框控件CommonDialog1，设置文本框Text1文字的颜色，正确的是_________。
A、Text1.Color = CommonDialog1.Color
B、Text1.ForeColor = CommonDialog1.Color
C、Text1.Color = CommonDialog1.ForeColor
D、Text1.ForeColor = CommonDialog1.ForeColor

11.4 工具栏设计随堂测验

1、要在工具箱中出现工具栏控件ToolBar，需要添加“Microsoft Windows Common Control 6.0”部件。

11.5 多重窗体随堂测验

1、下列_________方法，可以隐藏窗体。
A、Cls
B、Reflash
C、Clear
D、Hide

2、一个应用程序，最多只能有一个窗体。

第11讲 单元测验

1、假定有一个菜单项，名为MenuItem1，要使该菜单项左边显示"√"，应使用的语句为___________。
A、MenuItem1.Caption = " √ "
B、MenuItem1.Enabled = True
C、MenuItem1.Checked = True
D、MenuItem1.Visible = True

2、关于菜单快捷键的说法，正确的是___________。
A、每个菜单项必须设置快捷键
B、菜单项和快捷键是一一对应关系
C、一个菜单项可以有多个快捷键
D、一个菜单项可以没有快捷键

3、显示弹出式菜单的方法是___________。
A、Show
B、PopupMenu
C、Visible
D、Action

4、在通用对话框控件CommonDialog1中，要去除“取消”按钮的错误提示，正确的是___________。
A、CommonDialog1.Message = False
B、CommonDialog1.CancelError = False
C、CommonDialog1.Visible = True
D、CommonDialog1.OnError = True

5、若有通用对话框控件CommonDialog1，要显示另存为对话框，正确的是_________。
A、CommonDialog1.ShowSave = Action
B、CommonDialog1.ShowSave = 2
C、CommonDialog1.Action = 2
D、CommonDialog1.Action = ShowSave

6、若要将窗体Form2隐藏，正确的是___________。
A、Form2.Close
B、Form2.Hide
C、Form2.UnLoad
D、Form2.Clear

7、工具栏控件ToolBar上的图片来自于ImageList控件，因此需要将ImageList控件绑定到ToolBar控件上。

8、启动窗体是指程序开始运行时首先运行的窗体。在VB6.0中，只能设置Form1为启动窗体。

9、在ＶＢ程序中可以设计下拉式菜单，也可以根据需要设计弹出式菜单。

第12讲 数据文件

12.1 文件概念随堂测验

1、按访问模式进行分类，文件可以分为________、随机文件和二进制文件。
A、数据文件
B、ASCII文件
C、程序文件
D、顺序文件

2、按存储信息的形式分类，文件可以分为二进制文件和ASCII文件。

12.2 顺序文件访问随堂测验

1、读文件的模式是___________。
A、Read
B、Input
C、Output
D、Append

2、Write 和 Input 方法都能进行写文件操作。

12.3 综合应用随堂测验

1、将文本框Text1里的内容添加到文件“c:\a.txt”中，下列程序正确的是__________。
A、Open "c:\a.txt" For Input As #1 Write #1 Text1.text Close #1
B、Open "c:\a.txt" For Input As #1 Input #1 Text1.text Close #1
C、Open "c:\a.txt" For Append As #1 Write #1 Text1.text Close #1
D、Open "c:\a.txt" For Append As #1 Input #1 Text1.text Close #1

2、Input可以从文件读取数据到变量中。

第12讲 单元测验

1、在执行语句: Open "a1.txt" For Output As #1 后，对文件a1.txt能够执行的操作是____________。
A、不能读出，也不能写入
B、可以读出，也可以写入
C、可以读出，不可以写入
D、不可以读出，可以写入

2、文件按照访问模式可以分为三类，分别是___________。
A、程序文件、ASCII文件和二进制文件
B、顺序文件、随机文件和二进制文件
C、磁盘文件、程序文件和数据文件
D、数据文件、磁盘文件和打印文件

3、利用通用对话框控件打开磁盘上的顺序文件中读取数据，下列打开文件语句正确的是__________。
A、Open CommonDialog1.FileName For Output As #1
B、Open "CommonDialog1.FileName" For Input As #1
C、Open CommonDialog1.FileName For Input As #1
D、Open CommonDialog1.FileName For Append As #1

4、若要将数据“张三”，95 写到文件号为1的文件中，下列Write方法正确的是__________。
A、Write 1，"张三"，95
B、Write #1，"张三"，95
C、Write "张三"，95 ，#1
D、Write "张三"，95 ，1

5、判断文件是否到达末尾的函数是__________。
A、LOF
B、EOF
C、SOF
D、TOF

6、若文件号为1的文件已完成操作，要关闭文件，下列方法正确的是__________。
A、Save #1
B、Close #1
C、OutPut #1
D、Hide #1

7、顺序文件中，每条记录的长度必须相同。

8、在对文件进行操作之前必须先用Open语句打开文件。

9、文件读写之后，必须使用Close语句关闭文件，否则有可能会造成数据丢失。

VB程序设计期末考试题

VB程序设计考试试题

1、可以将ASCII码值转换成字符的函数是______。
A、Asc
B、Chr
C、Val
D、Str
E、ToText

2、下列将数学表达式ab/3cd写成VB6.0表达式中，错误的是_______。
A、ab/3cd
B、a*b/3*c*d
C、a*b/(3*c*d)
D、a/3*b/c/d
E、a*b/3/c/d

3、在VB6.0程序设计语言中，下面_________不是类型符。
A、$
B、*
C、%
D、！
E、#

4、要使Timer1控件每隔1秒触发Timer事件，应将Interval属性设为_________。
A、1
B、2
C、10
D、100
E、1000

5、打开磁盘上的文件"C:\T1.txt"，清除原内容，写入新内容，应使用语句_________。
A、Open "C:\T1.txt" For New
B、Open New "C:\T1.txt" For Output
C、Open "C:\T1.txt" For Output As #1
D、Open #1 "C:\T1.txt" For Output

6、文本框不能输入多行文字，可能是因为_________。
A、文本框的ReadOnly属性值为False
B、文本框只能输入一行文字不能多行
C、文本框的Multiline属性值为False
D、文本框的高度不够
E、文本框的ScrollBars属性值为None

7、用If语句表示分段函数，不正确的程序段是__________。
A、If x >=1 Then f = Sqr(x+1) If x < 1 Then f = x*x+3
B、f = x*x+3 If x >=1 Then f = Sqr(x+1)
C、If x >=1 Then f = Sqr(x+1) f = x*x+3
D、If x < 1 Then f = x*x+3 Else f = Sqr(x+1) EndIf
E、f = Sqr(x+1) If x < 1 Then f = x*x+3

8、下列数组声明语句中，不正确的是_________。
A、Dim a(3) As Single = { 0, 1, 2, 3}
B、Dim a%(3)
C、Dim a(1, 4) As Single
D、Dim a(4) As Single

9、子过程MyProc定义如下，若a,b都是整型变量，则错误的调用是________。 Sub MyProc(ByVal x%, ByRef y%) y = x x = y + 2 End Sub
A、MyProc a,b
B、MyProc 4,a
C、Call MyProc(4,b)
D、Call MyProc(a+b,b)
E、b = MyProc(4,a)

10、Command1单击事件过程和ProcString子过程定义如下，当单击Command1后，标签 Label1中输出的结果是__________。 Private Sub Command1_Click() Dim s$ s = "中国大学MOOC" Call ProcString(s) Label1.Caption = s End Sub Sub ProcString(ByVal m$) m = Mid(m, 4, 2) End Sub
A、中国大学
B、MOOC
C、学M
D、MO
E、中国大学MOOC

11、编写多窗体应用程序时，关于启动窗体的设置，正确的是________。
A、可在“工程”|“工程属性”菜单中设置启动对象
B、只能是Form1
C、只能是第一个建立的窗体
D、应在Form_Load()事件中指定

12、下列过程定义语句中，正确的是__________。
A、Function fa( ByVal b!) As Double
B、Sub fa( ByVal b!) As Double
C、Function fa( ByRef fa!) As Double
D、Function fa( ByRef b!(5)) As Double
E、Sub fa( ByVal b!(5))

13、在程序运行期间，如果拖动滚动条的滑块，则该滚动条_________事件将被触发 。
A、GetFocus
B、Move
C、Scroll
D、Input
E、Change

14、对象的________是用来描述和反映对象特征的参数。
A、过程
B、事件
C、属性
D、行为
E、方法

15、下列赋值语句中，语法不正确的是_________。
A、Text1.Text = Now()
B、x = x + y
C、x + y = 5
D、3y = Sin(x)
E、y = y * 5

16、以下程序运行后，Text1的输出结果是___________ 。 Dim a%(5), i% For i = 0 To 5 a(i) = 2 * i + 1 Text1.Text = a(i) Next i
A、程序出错
B、1 3 5 7 9 11
C、11
D、9
E、1

17、为了使标签Label1不覆盖背景，应使用下面_________语句设置。
A、Label1.BackStyle = 0
B、Label1.ForeColor = 0
C、Label1.BackColor = Nothing
D、Label1.Color = Color.Nothing
E、Label1.ForeColor = Nothing

18、若有通用对话框控件CommonDialog1，要显示另存为对话框，正确的是_________。
A、CommonDialog1.Action = 1
B、CommonDialog1.ShowSave
C、CommonDialog1.Action = ShowSave
D、CommonDialog1.ShowSave = Action

19、如果在文本框Text1输入85，程序运行后，显示的结果是_______。 Dim x% x = Val(Text1.Text) Select Case x\5 Case 18 to 20 MsgBox( "优秀") Case 16,17 MsgBox( "良好") Case 12 to 15 MsgBox( "通过") Case Else MsgBox( "不通过") End Select
A、优秀
B、良好
C、通过
D、不通过

20、如果在文本框Text1输入90，程序运行后，显示的结果是_______。 Dim x% x = Val(Text1.Text) If x >= 60 Then MsgBox ("通过") ElseIf x >= 80 Then MsgBox ("良好") ElseIf x >= 90 Then MsgBox ("优秀") Else MsgBox ("不通过") End If
A、优秀
B、良好
C、通过
D、不通过

21、有如下程序，若程序运行后，从键盘输入依次输入80，90，60，50，10,则在Label1显示的是__________。 Private Sub Command1_Click() Dim min%, k%, a% For k = 1 To 5 a = Val(InputBox("输入一个整数")) If a < min Then min = a End If Next Label1.Caption = min End Sub
A、0
B、10
C、90
D、100

22、设有如下的子过程： Public Sub F1(ByVal n%, ByRef m%) n = n Mod 10 m = m \ 10 End Sub Private Sub Command1_Click() Dim x%, y% x = 22: y = 55 Call F1(x, y) MsgBox( x & " " & y) End Sub 则在Command1_Click中 MsgBox 显示的结果是____________。
A、22 5
B、2 5
C、22 55
D、55 22

23、设有如下函数定义： Function fun() As Integer Static a% fun = 2 * a + 1 a = a + 2 End Function Private Sub Command1_Click() Dim n As Integer n = fun n = fun MsgBox (n) End Sub 则在Command1_Click中 MsgBox 显示的结果是____________。
A、7
B、5
C、3
D、1

24、下面的程序是将磁盘上的成绩文件（cj.txt）中的成绩读出，计算评均成绩并显示。请选择合适的语句填在横线上。 Private Sub Command2_Click() Dim i%, cj%, count% Open "d:\cj.txt" For ___________ As #1 Do While Not EOF(1) Input #1, cj count = count + 1 Sum = Sum + cj Loop MsgBox "平均成绩为：" & Sum / count Close #1 End Sub
A、Input
B、Output
C、Append
D、List

25、下面的程序段是输入学生某门课程的成绩，保存在CJ.TXT文件中，请选择合适的语句填在横线上。 Private Sub Command1_Click() Dim i%, cj% Open "d:\cj.txt" ———————— As #1 For i = 1 To 5 cj = Val(InputBox("请输入成绩:")) Write #1, cj Next i MsgBox "成绩输入结束" Close #1 End Sub
A、For Input
B、For OutPut
C、For append
D、Caption

26、结构化程序设计的三种基本结构是——————。
A、顺序结构
B、选择结构
C、循环结构
D、过程结构

27、VB程序设计语言的特点包括——————
A、具有基于对象的可视化设计工具，
B、事件驱动的编程机制
C、易学易用的集成开发环境
D、具有结构化的程序设计语言，并支持数据库、网络等环境编程功能。

28、VB集成开发环境（IDE）中包含的主要窗口有——————。
A、窗台设计窗口
B、属性窗口
C、资源管理器窗口
D、代码设计窗口

29、下面属于工具箱窗口上的控件是————。
A、组合框与列表框
B、单选按钮与复选按钮
C、标签与文本框
D、图片框与图像

30、用ＶＢ创建应用程序的主要步骤包括——————。
A、创建用户界面并设置窗体及控件的属性；
B、创建对象事件过程并编写代码；
C、保存应用程序；
D、运行并调试修改应用程序；

31、对象的三要素包括——————。
A、对象的属性
B、对象的方法
C、对象的事件
D、对象的过程

32、下面可以用来在应用程序中输入数据的是——————。
A、文本框
B、InPutBox函数
C、单选按钮和复选按钮
D、列表框和组合框

33、下面在应用程序中用来进行选择性输入数据的是——————
A、单选按钮
B、文本框
C、复选按钮
D、列表框

34、用IF语句编写选择结构程序时常用的格式有——————。
A、IF单分支结构
B、IF双分支结构
C、IF多分支结构
D、IF嵌套结构

35、下面关于程序设计中描述正确的是——————。
A、VB中用IF语句和Select Case 语句实现分支结构编程；
B、VB中用For语句和Do 语句实现循环结构编程；
C、VB中的自定义过程包括子过程和自定义函数过程；
D、一般用For循环结构的嵌套为二维数组赋值或将二维数组的值按矩阵形式输出。

36、在VB中，变量的作用域分为——————。
A、局部变量
B、模块级变量
C、全局变量
D、静态变量

37、在VB中，按访问模式将文件分为-————————。
A、顺序文件
B、随机文件
C、二进制文件
D、程序文件

38、在VB中，用来进行文件操作的命令主要有————————。
A、Open
B、Input
C、Write
D、Close

39、下面关于VB菜单设计描述正确的是——————。
A、通过“菜单设计器”来为应用程序设计菜单，
B、在VB应用程序中可以设计下拉式菜单，
C、在VB应用程序中可以设计弹出式菜单，
D、“菜单设计器”只能设计下拉式菜单，

40、VB中的表达式有——————。
A、关系表达式
B、算术表达式
C、逻辑表达式
D、字符串表达式

41、下面不是VB三种基本模式的是————————。
A、设计模式
B、中断模式
C、运行模式
D、查看模式

42、VB中的控件大致可以分为三类，分别是——————
A、标准控件
B、ActiveX控件
C、可插入对象
D、函数控件

43、列表框和组合框的主要方法有——————。
A、AddItem
B、Clear
C、RemoveItem
D、ListCount

44、调试VB应用程序时，常见的错误有——————。
A、逻辑错误
B、语法错误
C、运行错误
D、调试错误

45、常用的排序算法有————————。
A、选择法
B、冒泡法
C、插入法
D、二分法

46、常用的查询算法有——————。
A、顺序查找
B、选择法查找
C、二分法查找
D、模糊查找

47、过程是面向对象程序设计的核心，是创建对象的模板。

48、Val（）函数能将小数转换成整数。

49、可以使用ReDim 语句重新定义数组的上界。

50、If语句与Select语句的区别是：If语句是选择结构，而Select语句属于循环结构。

51、在For循环结构中，可以利用End For语句终止循环，程序跳到Next后面的语句。

52、列表框的RemoveItem方法可以删除列表框中的某一项。

53、在文件操作中，LOF（）函数的作用是返回文件的字节数。

54、程序运行后，要使单选按钮Option1为选中状态，则通过Option1.Value = True语句实现。

55、VB 是基于对象的程序设计语言。

56、ＶＢ采用事件驱动的编程机制。

57、VB是可视化的编程语言，不具有结构化程序设计语言的编程方法。

58、标签只能用来显示数据，因此标签上显示的信息在一个程序中是不能改变的。

59、变量是在程序运行过程中其值可以发生变量的量。

60、变量中的数据存储在内存中，而数组中的数据存储在外存中。

61、变量和数组中的数据存储在内存中，而文件中的数据存储在外存中。

62、VB程序设计中用IF语句或Selece Case语句实现选择结构程序设计。

63、VB程序设计中用For语句或Do语句实现循环结构程序设计。

64、数组必须先定义后使用，VB在定义数组时的默认的下标０。

65、组合框是兼有文本框的列表框。

66、子过程和函数过程的调用方法是相同的。

67、函数通过函数名来返回值，而过程是通过变量名来