moocVisualBasic6期末答案(慕课2023课后作业答案)

点击查看答案

第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、文本框TextBox的MaxLength属性默认为0，其含义是不能输入字符。

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

10、若要使标签控件Lable的大小随着文字内容自动调整，可对_______属性进设置。

11、若要在属性窗口修改文本框Text1的字体，可选择_______属性进行设置。

第2讲 单元作业

1、参考文件编辑器案例，利用文本框和按钮，制作一个简单的文本编辑器，能实现复制、粘贴和剪切功能。界面及控件的属性设置可参考运行效果图，如下。 保存工程和窗体，窗体文件名为：昵称-2-1.frm;工程名为：昵称-2-1.vbp。将工程文件和窗体文件压缩成：昵称-2-1.rar，以附件形式提交。

2、利用文本框和按钮，制作一个简单的计算器，能实现加法和减法的运算。界面及控件的属性设置可参考运行效果图，如下。 保存工程和窗体，窗体文件名为：昵称-2-2.frm;工程名为：“昵称-2-2.vbp”。将工程文件和窗体文件压缩成：昵称-2-2.rar，以附件形式提交。

3、参照热气球升空和小车行驶案例，自行设计一个类似的例子（例如模拟太阳慢慢升空、随着升空太阳变小，窗体背景和太阳图片可从网上查找）。 保存工程和窗体，窗体文件名为：昵称-2-3.frm;工程名为：“昵称-2-3.vbp”。将工程文件和窗体文件压缩成：昵称-2-3.rar，以附件形式提交。

第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、保存一个工程，至少应保存两个文件，分别是：________。
A、工程文件和窗体文件
B、工程文件和文本文件
C、模块文件和窗体文件
D、模块文件和文本文件
E、工程文件和模块文件

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

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

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

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

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

第1讲 单元作业

1、启动Visual Basic 6.0，创建一个“标准EXE”类型的应用程序，要求：在屏幕上显示“欢迎登录”；在文本框Text1输入用户名；单击命令按钮“输入密码”， 则允许在文本框Text2输入密码，并以“*”号显示。程序运行效果如下图。 保存工程和窗体，窗体文件名为：昵称-1-1.frm;工程名为：昵称-1-1.vbp。以后每个实验项目的命名规则都是如此。将工程文件和窗体文件压缩成：昵称-1-1.rar，以附件形式提交。 提示 ① 所用的控件及属性设置见下表。 控件名 属性 Label1 Caption=“欢迎登录” ；Font属性：字体为华文楷体， 字号为小二 Label2 Caption=“输入用户名：” Text1 BackColor= &H00C0C0C0& Command1 Caption=“输入密码：” Text2 Locked=Ture ② 按钮 Command1的单击事件过程代码如下： Private Sub Command1_Click() Text2.Locked = False Text2.PasswordChar = "*" End Sub

2、启动Visual Basic 6.0，创建一个“标准EXE”类型的应用程序，模仿案例：求圆面积。输入圆的半径，计算圆面积，保留两位小数显示。程序运行效果如下图。 保存工程和窗体，窗体文件名为：昵称-1-2.frm;工程名为：昵称-1-2.vbp。将工程文件和窗体文件压缩成：昵称-1-2.rar，以附件形式提交。 提示 ① 所用的控件及属性设置见下表。 控件名 属性 Label1 Caption=“圆半径” Text1 Text=“” Command1 Caption=“圆面积” Text2 Locked=Ture；Text=“” ② 按钮 Command1的单击事件过程代码如下： Private Sub Command1_Click() Dim r, s As Single r = Val(Text1.Text) s = 3.14159 * r * r Text2.Text = Format(s, "0.00") '显示保留2位小数 End Sub

第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中，表达式4 * 3 \ 5 Mod 3的值是_______。
A、2
B、1
C、0
D、3
E、出现错误提示

2、以下选项中，不合法的变量名是_______。
A、and
B、1ab
C、xyz
D、_abc
E、a1b
F、ab1

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

4、数学关系 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

5、表达式Abs(-4.5)的值是_______。
A、4.5
B、-4
C、-5
D、4
E、5
F、-4.5

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

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

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

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

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

11、既可作算术相加，也可作字符串连接的运算符是_______。

第3讲 单元作业

1、随机生成三个正整数，分别是一个1位数、一个2位数、一个3位数，计算它们的平均值，保留2位小数。运行界面如下图所示。 保存工程和窗体，窗体文件名为：昵称-3-1.frm;工程名为：昵称-3-1.vbp。将工程文件和窗体文件压缩成：昵称-3-1.rar，以附件形式提交。 提示： ① 随机数生成某范围内的正整数公式：Int(Rnd*范围+基数) 其中：范围=数的上限-下限+1，基数=数的下限 例如要生成2位数：Int(Rnd*（99-10+1）+10)=Int(Rnd*90+10) ②保留两位小数，利用Format函数：形式Format(要显示的数值，"0.00")

2、利用InputBox函数（如图1)输入一个合法的3位正整数，然后求该数逆序并利用Print方法在窗体输出。例如，输入123，输出是321。 程序要求判断若输入的数不是3位数，用MsgBox显示提示信息，如图2所示，结束程序运行。 图1 图2 保存工程和窗体，窗体文件名为：昵称-3-2.frm;工程名为：昵称-3-2.vbp。将工程文件和窗体文件压缩成：昵称-3-2.rar，以附件形式提交。 提示： ① 利用 “Mod”和 “\” 运算符将3位数分离出它的百位、十位和个位，然后利用乘法和加法得到逆序的3位数。

3、验证转换函数的使用，Text1文本框输入字符串，Text2文本框显示调用所选函数的结果，4个命令按钮为转换函数，Label2显示对应的函数名，运行界面如下图所示。 保存工程和窗体，窗体文件名为：昵称-3-3.frm;工程名为：昵称-3-3.vbp。将工程文件和窗体文件压缩成：昵称-3-3.rar，以附件形式提交。

第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、任何Select Case语句都可以改写成If语句，同样，任何If语句也都可以改写成Select Case语句。

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

14、已知两个变量m和n，利用If语句，使得m大于n。在下列程序中填写合适的语句，使得功能完善(答案不要有空格)。 If m < n Then __________ n = m m = t End If

第4讲 单元作业

1、购买商品时，商品的总金额x和所要支付的钱y按如下图所示的对应关系折扣支付。现根据输入的总金额计算需要支付的钱。完成程序功能，界面自行设计。 保存工程和窗体，窗体文件名为：昵称-4-1.frm;工程名为：昵称-4-1.vbp。将工程文件和窗体文件压缩成：昵称-4-1.rar，以附件形式提交。 提示：用多分支结构实现，注意计算公式和条件表达式的正确书写。

2、输入x，y，z三个数，按从大到小的次序显示，程序运行结果如下图所示。 保存工程和窗体，窗体文件名为：昵称-4-2.frm;工程名为：昵称-4-2.vbp。将工程文件和窗体文件压缩成：昵称-4-2.rar，以附件形式提交。 提示： ① 利用InputBox输入三个数，存放到数值型变量中，然后进行比较；若放在字符串变量中，有时将会得到不正确的结果（因为字符串是从左到右的规则比较，例如会出现”34”>“2345”>“126789”的情况）。 ② 三个数排序，只能通过两两比较，一般可用3个单分支的If语句来实现。方法如下: 先x与y比较，使得x>y；然后可x与z比较使得x>z，此时x最大；;最后y与z比较使得y>z。 也可用1个单分支if语句和1个嵌套的if语句来实现。 ③ 要显示多个数据可以用”；”逐一显示，也可利用”&”字符串连接符将多个变量连接显示。例如要输出x、y、z: Print “ 排序后”; x; “ “; y; “ “; z ‘ 用分号将多个变量显示 也可 Print “ 排序后” & x & “ “ & y & “ “ & z ‘用”&”字符串连接符 思考：若要按从小到大的次序显示，程序作如何修改？

3、设计如下图所示的计算程序。输入参数，当选择函数和字型后按“计算”按钮，在标签Label3以选择的字型显示计算结果。 保存工程和窗体，窗体文件名为：昵称-4-3.frm;工程名为：昵称-4-3.vbp。将工程文件和窗体文件压缩成：昵称-4-3.rar，以附件形式提交。 提示：

第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、下面程序的功能是在Label1中输出如图所示的图形。请在_________处填入适当的内容，完善程序。 Private Sub Command1_Click() Dim i%, j% Label1.Alignment = 2 For i = 1 To 6 For j = 1 To ___________ Label1.Caption = Label1.Caption + "*" Next j Label1.Caption = Label1.Caption + vbCrLf Next i End Sub
A、2 * i
B、2 * i - 1
C、2 * i + 1
D、5
E、3

9、下面程序段执行后，出了循环x的值为_______。 Dim x% x = 1 Do While x < 10 x = x * 3 Loop

10、找出1～100内被3或7除整除的整数个数。请在_________处填入适当的内容(不要空格!!)，完善程序。 Dim x%, i% x = 0 For i = 1 To 100 If i Mod 3 = 0 Or i Mod 7 = 0 Then x = _________ End If Next Text1.Text = x

第5讲 单元作业

1、利用循环和Print方法显示有规律图形，如下图所示。 保存工程和窗体，窗体文件名为：昵称-5-1.frm;工程名为：昵称-5-1.vbp。将工程文件和窗体文件压缩成：昵称-5-1.rar，以附件形式提交。 提示： ① 对于特殊字符“★”，通过汉字软键盘菜单中的“特殊符号”输入来实现。 ② 在String(n, "★")函数产生重复字符串，其中n为重复个数； 也可通过Mid(s,n)函数取子串，其中： Dim s As String = "★★★★★★★★★★★★★★★★★★★", ③然后通过循环结构确定显示的起始位Tab(20 - 2 * i) ，显示有规律的子串。

2、求s=1+(1+2)+(1+2+3)+(1+2+3+4)+…+（1+2+3+4+…+n)，运行效果如下图所示。 要求如下： （1）用For循环求前30项和。 （2）用Do···Loop Until 求多项式和，直到和大于5000为止。 保存工程和窗体，窗体文件名为：昵称-5-2.frm;工程名为：昵称-5-2.vbp。将工程文件和窗体文件压缩成：昵称-5-2.rar，以附件形式提交。

3、将Text1文本框输入的字母反序显示在Text2，运行效果如下图所示。 保存工程和窗体，窗体文件名为：昵称-5-3.frm;工程名为：昵称-5-3.vbp。将工程文件和窗体文件压缩成：昵称-5-3.rar，以附件形式提交。 提示： ①要考虑字母包括大写和小写。 ②首先利用Len函数求Text1.Text字符串长度，然后利用For循环结构和Mid函数逐一取字符进行判断是否为字母，若是字母则利用语句：Text2.Text =字母 & Text2.Text，将字母连接到Text2文本框前面，实现反序。

第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、两个小和尚合吃1个馒头，年轻和尚一次吃3个馒头，老和尚一次吃2个馒头。总共有40个和尚他们刚好吃40个馒头，问有多少个小和尚，年轻和尚和老和尚？程序如下，请在_________处选择适当的内容，完善程序。 Dim y%, s%, x% For x = 1 To 40 For y = 1 To 40 s = _________ If s / 2 + y * 3 + x * 2 = 40 Then Print x & "个老和尚， " & y & " 年轻和尚，" & s & " 个小和尚。" & vbCrLf End If Next Next
A、x + y
B、40 - y
C、40 + x
D、40 - x - y

5、若有程序，显示有规律的图形，效果如下图。 请在_________处选择适当的内容，完善程序。 Private Sub Command1_Click() Dim n%, s$ s = Text1.Text n = _________ Cls For i = 1 To n Print Tab(2 * n - i); Mid(s, n - i + 1, i) Next End Sub
A、Val(Text1.Text)
B、Len(s)
C、Mid(s, i, 1)
D、n + 1
E、Val(Mid(s, i, i))

6、下列关于定时器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事件

7、拖动滚动条(ScrollBar)的滑块，下列_________事件将被触发 。
A、Scroll
B、GetFocus
C、LostFocus
D、DragDrop

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

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

10、如下程序的功能是计算自然对数e的近似值。请在_________处填入适当的内容(不要空格，字母小写)，完善程序。 e的近似公式： Dim e!, i%, s!, t! e = 1: i = 1: s = 1 Do s = _________ t = 1 / s e = e + t i = i + 1 Loop While t > 0.0001 Print e

第6讲 单元作业

1、计算 的近似值，的计算公式为： 界面自己设计。 保存工程和窗体，窗体文件名为：昵称-6-1.frm;工程名为：昵称-6-1.vbp。将工程文件和窗体文件压缩成：昵称-6-1.rar，以附件形式提交。 【提示】 ① 显示当n=50时、当n=1000时的结果。 ② 要防止大数相乘时溢出问题，将变量类型和常数2改为双精度型（即2#）。

2、编写程序，显示所有的水仙花数，程序的界面自行设计。所谓水仙花数，是指一个3位数，其各位数字的立方和等于该数字本身。例如，153是水仙花数，。 保存工程和窗体，窗体文件名为：昵称-6-2.frm;工程名为：昵称-6-2.vbp。将工程文件和窗体文件压缩成：昵称-6-2.rar，以附件形式提交。 提示： 解该题的方法有两种： ①利用三重循环，将三个一位数连接成一个3位数进行判断。 例如，将i,j,k三个一位数连成一个三位数的表达式为： i*100+j*10+k ‘ i、j、k分别为三重循环的循环控制变量 ② 利用单循环将一个3位数逐位分离后进行判断。例如x是一个三位数，分离为三个一位数i、j、k： X=357 i= x \100 ‘ i获得百位数结果 3 j= (x Mod 100) \10 ‘ j获得十位数结果 5 k=x Mod 10 ‘ k获得个位数结果 7

3、求Sn=a+aa+aaa+aaa+…aa…aaa(n个a)，其中a是通过滚动条获得的一个1~9(包括1，9)中的一个正整数，n是通过滚动条获得的5~10(包括5，10)中的一个数。 例如：当a=2，n=5时，Sn=2+22+222+2222+22222。 保存工程和窗体，窗体文件名为：昵称-6-3.frm;工程名为：昵称-6-3.vbp。将工程文件和窗体文件压缩成：昵称-6-3.rar，以附件形式提交。 提示： ①为了得到不断重复a的n位的数Temp，可用如下程序段实现： Temp=0 For i=1 To n Temp=Temp*10+a Next i

第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、在一维数组的定义中，Dim 数组名(上界) as 数据类型，默认的下界是1。

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

7、如下程序的功能是随机产生10个大写字母保存到数组。请在_________处填入适当的内容(不要空格)，完善程序。 Private Sub Command1_Click() Dim a(9) As String, i% For i = 0 To 9 a(i) = Chr(Rnd * 26 + _________) Next End Sub

8、数组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

学习通VisualBasic6.0

Visual Basic 6.0是一种基于对象的事件驱动编程语言，是微软公司开发的一款应用程序开发工具。它是微软公司的一款重要产品，具有易学、易用、易部署等优点，使得它在各个领域都有广泛的应用。

学习Visual Basic 6.0可以帮助程序员们更好地理解各种编程语言的基本思想和开发方法，为他们今后开发其他编程语言打下扎实的基础。下面，我们来深入了解学习通Visual Basic 6.0的相关知识。

Visual Basic 6.0的语法特点

Visual Basic 6.0的语法特点简单明了，易学易用。它采用了类似英语的语法结构，使得程序员可以更容易地理解和使用它。下面是Visual Basic 6.0的一些基本语法特点：

• Visual Basic 6.0是基于对象的编程语言，所有程序都由对象构成。
• Visual Basic 6.0是事件驱动的编程语言，程序的执行是由外部事件触发的。
• Visual Basic 6.0采用了面向过程和面向对象相结合的编程方法。
• Visual Basic 6.0是一种强类型语言，所有变量都必须先声明再使用。
• Visual Basic 6.0支持常量、变量、数组、函数和子过程等基本元素。

Visual Basic 6.0的应用领域

Visual Basic 6.0在各个领域都有广泛的应用，下面是几个常见的领域：

• Windows操作系统编程。
• 数据库应用开发，如Access、SQL Server等。
• Web应用程序开发，如ASP、ASP.NET等。
• 图形用户界面（GUI）程序开发，如各种桌面应用程序。
• 游戏开发。
• 机器人控制。
• 自动化控制。

学习Visual Basic 6.0的方法

学习Visual Basic 6.0需要掌握一些基本方法和技巧，下面是几个常见的学习方法：

• 阅读Visual Basic 6.0的相关书籍，如《Visual Basic 6.0程序设计入门与提高》。
• 观看Visual Basic 6.0的相关教学视频。
• 下载Visual Basic 6.0的开发工具进行实践操作。
• 阅读Visual Basic 6.0的官方文档。
• 参加Visual Basic 6.0的培训课程。

Visual Basic 6.0的开发工具

Visual Basic 6.0的开发工具是微软公司开发的一款集成开发环境（IDE），包括了编辑器、编译器、调试器、窗体设计器等工具。它的界面友好，功能齐全，可以大大提高编程效率和质量。

Visual Basic 6.0的开发工具可以在Windows操作系统上运行，支持Windows 98、Windows 2000、Windows XP等多个版本。如果需要学习Visual Basic 6.0，可以从微软官网上下载安装包，安装后即可使用。

总结

Visual Basic 6.0是一款重要的应用程序开发工具，具有易学、易用、易部署等优点，使得它在各个领域都有广泛的应用。如果想要学习Visual Basic 6.0，需要掌握一些基本的语法特点和开发方法，同时需要熟练掌握Visual Basic 6.0的开发工具。通过不断地实践和学习，可以逐渐提高编程水平，成为一名优秀的Visual Basic 6.0程序员。

中国大学VisualBasic6.0

VisualBasic6.0是一种基于Windows操作系统的编程语言，于1998年发布，由微软公司开发。该语言非常易学易用，适合初学者使用。在中国大学中，VisualBasic6.0也是一门非常重要的课程。

VisualBasic6.0的特点

• 易学易用：VisualBasic6.0的语法非常简单，易于理解，对初学者非常友好。
• 可视化编程：VisualBasic6.0支持可视化编程，可以通过拖拽控件进行界面设计，非常方便。
• 功能强大：VisualBasic6.0可以构建各种类型的应用程序，包括桌面应用、数据库应用、Web应用等。
• 支持COM组件：VisualBasic6.0支持COM组件，可以方便地调用其他程序的功能。

VisualBasic6.0的学习内容

在中国大学里学习VisualBasic6.0，通常会学习以下几个方面的内容：

• VisualBasic6.0的基础语法。
• 控件的使用：包括文本框、按钮、列表框、组合框等。
• 事件的处理：如按钮的点击事件、文本框的改变事件等。
• 界面设计：如何通过拖拽控件实现界面设计。
• 文件操作：如何读写文件。
• 数据库的使用：如何连接数据库、查询数据等。
• Web编程：如何使用VisualBasic6.0开发Web应用程序。

VisualBasic6.0的应用

VisualBasic6.0可以应用于各种类型的应用程序开发，如：

• 桌面应用程序：如计算器、音乐播放器、图像编辑器等。
• 数据库应用程序：如学生信息管理系统、图书管理系统等。
• Web应用程序：如在线商城、社交网站等。
• 游戏开发：如棋牌游戏、角色扮演游戏等。

VisualBasic6.0的未来

虽然VisualBasic6.0已经老旧，但仍有很多人在使用它进行开发。微软公司已经停止对VisualBasic6.0的支持，也没有推出新的版本。不过，VisualBasic.net作为VisualBasic6.0的继承者，已经发布多年，并且得到了广泛应用。VisualBasic.net是一种全新的语言，与VisualBasic6.0相比，更加强大、更加灵活，也更加适合现代应用程序的开发。

结语

无论是在中国大学中还是在工业界中，VisualBasic6.0都是一门非常重要的编程语言。学习VisualBasic6.0可以帮助初学者轻松入门编程，并且为以后的学习打下良好的基础。虽然VisualBasic6.0已经老旧，但它的重要性和影响力不容忽视。