第 3 章 实验指导
3.1 实验一 Visual Basic 语言环境实验
【实验目的】
1
．熟悉 Visual Basic 6.0 集成开发环境。
2
．学习用窗体和控件建立界面。
3
．学习用属性窗口设置对象的属性。
4
．掌握窗体的概念及相关操作。
5
．熟练掌握程序开发的基本步骤。
【相关知识】
1
．窗体
窗体是 Visual Basic 中的对象，具有自己的属性、事件和方法。窗体的属性包括：
（1）Name。该属性值即对象的名称，这也是所有对象都具有的属性，用来唯一标识该
对象。所有的控件在创建时，由 Visual Basic 自动提供一个默认名称。
（2）Height、Width、Top 和 Left。Height 和 Width 决定了控件的高度和宽度，Top 表示
控件到窗体顶部的距离，Left 表示控件到窗体左边框的距离。默认单位为 Twip，1Twip=1/20
点=1/1440 英寸=1/567cm。窗体的位置、大小如图 3-1 所示。
图 3-1 窗体位置、大小
（3）Caption。该属性的值是显示在窗体标题栏上的文字。
（4）BackColor 和 ForeColor。BackColor 用于返回或设置对象的背景颜色，ForeColor 用
Form1. Left Form1.Top Form1.Height Form1.Width O x y
于返回或设置在对象里显示的图片和文本的前景颜色。
（5）BorderStyle。此属性决定边框风格，通过改变 BorderStyle 属性值，可以控制窗体如
何调整大小。
（6）MaxButton、MinButton 和 ControlBox。MaxButton 控制窗体是否可用最大化按钮，
MinButton
控制窗体是否可用最小化按钮。当 MaxButton 或 MinButton 属性值为 True 时，有
最大化按钮或最小化按钮，False 则无。ControlBox 的值设置为 True 时，有控制菜单框；设置
为 False 时，则无控制菜单框，同时窗体也无最大化按钮和最小化按钮，即使 MaxButton 属性
和 MinButton 属性设置为 True。
（7）Picture。使用 Picture 属性可以指定一幅图片显示在窗体的表面上，作为控件的背景。
（8）WindowsState。其可能的属性值如下：
1
）0：正常窗口状态，有窗口边界。
2
）1：最小化状态，后台运行，同时在任务栏创建图标。
3
）2：最大化状态，窗口充满整个屏幕。
（9）Font 属性组。
FontName
属性是字符型，决定对象上正文的字体（默认为宋体）。
FontSize
属性是整型，决定对象上正文的字体大小（默认为 9 磅）。
FontBold
属性是逻辑型，决定对象上正文是否为粗体（默认为 False）。
FontItalic
属性是逻辑型，决定对象上正文是否为斜体（默认为 False）。
FontStrikeThru
属性是逻辑型，决定对象上正文是否加一删除线（默认为 False）。
FontUnderLine
属性是逻辑型，决定对象上正文是否带下划线（默认为 False）。
（10）AutoRedraw。该属性决定窗体被隐藏或被另一窗口覆盖之后重新显示时，是否还
原该窗体被隐藏部分或覆盖以前的画面。当属性值为 True 时，重新还原该窗体以前的画面；
当属性值为 False 时，则不重画。
窗体常用的事件有 Load、Click、DblClick、Activate、Resize 等。其中 Load 是当窗体被
装入工作区时触发的事件，常用来在启动应用程序时对属性和变量进行初始化。Activate 是当
一个窗体成为活动窗口时所触发的事件，Resize 是当窗体大小发生改变时所触发的事件。
窗体常用的方法有 Print（打印输出）、Cls（清除）、Show（显示）、Hide（隐藏）以及
Move
（移动）等。
2
．在窗体上添加控件
窗体是设计 Visual Basic 应用程序的一个基本平台，几乎所有的控件都是添加在窗体上
的。对于生成的控件，可以调整控件大小、移动控件位置、使用网格精确定位控件；对于多
个控件，还可以对它们进行排列、调整大小等操作。另外还允许可视化地创建和编辑控件数
组，这对于编组使用选择框、命令按钮等控件提供了很大方便。
3
．设置启动窗体
在默认情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此
窗体就被显示出来。如果想在应用程序启动时显示别的窗体，可以将其他窗体设置为启动窗
体。设置方法是在“工程”菜单或者“工程资源管理器”快捷菜单中，选择“属性”命令，
弹出“工程属性”对话框，如图 3-2 所示。在“启动对象”下拉列表中选择窗体名称，即可
把该窗体设为启动窗体。
图 3-2 设置启动窗体
【实验例题】
建立一个简单的应用程序，在窗体上输出“大家好！”和“欢迎来到这里！”。
设计思路：通常不直接在窗体上输出文本信息，而是通过窗体上的对象输出文本信息。
例如可以用标签输出“大家好！”，用文本框输出“欢迎来到这里！”。因此可以在窗体上放置
一个标签、一个文本框和一个命令按钮，单击命令按钮，则在标签上显示“大家好！”，在文
本框中显示“欢迎来到这里！”。
设计步骤：
（1）新建工程。单击 Windows 任务栏中的“开始”→“程序”→“Microsoft Visual Basic
6.0
中文版”→“Microsoft Visual Basic 6.0 中文版”命令，进入 Visual Basic 6.0 集成开发环境，
并显示“新建工程”对话框。默认选择是建立“标准 EXE”（即标准工程），单击“打开”按
钮，进入设计模式，并自动创建了一个窗体模块 Form1，这就是应用程序的窗体。在这个窗
体上添加控件，即可建立应用程序界面。
（2）设计应用程序界面。
1
）设置窗体属性。
①在属性窗口中双击 Caption 属性条，输入“我的第一个 VB 程序”。
②在属性窗口中选择 BackColor 属性条，然后单击右端的箭头，在所显示的调色板中选
择一种颜色（例如浅黄色）。
2
）在窗体上添加控件。
①单击工具箱中的标签（Label）控件类型图标，鼠标指针变为十字形。再在“对象”窗
口的窗体上单击并拖动鼠标然后释放，窗体上就会出现一个标签类型的控件对象，同时鼠标
指针恢复为箭头形状。
②用同样方法将文本框（TextBox）控件和命令按钮（CommandButton）放置在窗体上。
3
）设置控件属性。在窗体上选中命令按钮，然后在属性窗口中双击 Caption 属性条，输
入“显示”。
通过以上的几个简单操作，我们就建立了应用程序界面，如图 3-3 所示。
图 3-3 应用程序界面设计
（3）编写程序代码。程序具有这样的功能：当用户在应用程序窗体中单击“显示”按钮
时，窗体中的标签上会显示“大家好！”，文本框中会显示“欢迎来到这里！”。在这里要对“显
示”按钮（Command1）进行编程，在窗体上双击“显示”按钮（Command1），弹出代码编
辑窗口。在编辑窗口上部左侧的对象列表框中显示对象名为 Command1，在右侧的过程列表
框中显示的过程是 Click，如图 3-4 所示。此时在代码编辑窗口中会出现如下代码：
Private Sub Command1_Click()
End Sub
说明我们是对命令按钮 Command1 的单击事件进行编程。在这两条语句之间输入如下
代码：
Label1.Caption = "大家好！" Label1.FontName = "宋体" Label1.FontSize = 15 Label1.FontBold = True Text1.Text = "欢迎来到这里！" Text1.FontName = "黑体" Text1.FontSize = 16 Text1.FontBold = True 图 3-4 实验一代码编辑窗口至此，我们完成了对命令按钮 Command1 的编程。单击工具栏中的“启动”按钮，开始
运行程序。单击“显示”按钮，结果如图 3-5 所示。本例仅有一个窗体，因此在保存文件时，
只需保存一个窗体文件和工程文件。
图 3-5 实验一运行结果【实验内容】
1
．设计一个简单的应用程序，要求在窗体上画一个文本框和两个命令按钮，并把命
令按钮分别设置为“显示”和“清除”。程序运行后，单击“显示”按钮，在文本框中输
出一行文字信息—“我的第一个 VB 应用程序”；单击“清除”按钮，则清除文本框中
的内容。
2
．设计一个简易计算器的面板，如图 3-6 所示。
图 3-6 简易计算器面板3.2 实验二 顺序程序设计
【实验目的】
1
．掌握 Visual Basic 的常用数据类型。
2
．掌握 Visual Basic 的各种运算符及表达式。
3
．学习使用 Visual Basic 内部函数和数据输入、输出方法。
4
．掌握命令按钮、文本框和标签的使用。
5
．设计顺序程序。
【相关知识】
1
．数据类型
Visual Basic
的数据类型分为基本数据类型和自定义类型。基本数据类型有 11 种，包括
字节型、整型、长整型、单精度型、双精度型、货币型、日期型、逻辑型、字符型、对象类
型和变体型。按照各数据类型的特点又可以分为数值型、非数值型和变体型。
各个基本数据类型都有确定的表示范围，在通过赋值语句给各个数据类型的变量赋值时，
要注意所赋予的值要与变量的数据类型保持一致。
2
．常量
常量是指在程序执行的过程中不能改变其值的数据，分为文字常量和符号常量。文字常
量依照其数据类型，在字符型和日期型文字常量的外面要用相应的定界符括起来。
3
．变量
变量与符号常量的概念类似，都是用一个标识符表示一个数据。与符号常量不同的是变
量的值可以在程序执行的过程中进行修改。
在使用变量之前一般要用声明语句向系统说明其数据类型，如：
Dim x As Integer但是 Visual Basic 也允许用户直接使用变量不进行声明，这叫做隐式声明，且所有隐式声
明的变量都是 Variant 类型。
为了避免在隐式声明情况下由于变量名输入错误而引起的麻烦，可以在窗体模块的通用
区域中加入语句“Option Explicit”，以强制要求用户显式地声明变量。
4
．表达式
表达式是用运算符或圆括号将操作数连接起来的一个运算式。Visual Basic 中的表达式可
以分为算术表达式、关系表达式、逻辑表达式、字符串表达式、日期表达式和混合表达式。
表达式的书写应注意以下问题：
（1）各个运算符的操作数要完备，例如 a+*b 是错误的而 3+-2 却是正确的。VB 中只有
“-”（数值取反运算）和“Not”（逻辑取非）是单操作数的运算符。
（2）乘号以“*”代替且不可省略，如 3 乘以 x 应写成 3*x。
（3）不能出现上下标。例如 x
4要写成 x ^ 4，a
1-a
2应写成 a1-a2。
（4）书写繁分式的时候要写在一行。
（5）用圆括号设定运算的先后顺序，例如：
2b
b
4ac
2a
−
−
(b-Sqr(b*b-4*a*c))/(2*a)
5
．内部函数
VB
提供了大量的内部函数，这就给 VB 程序设计带来了极大的方便。内部函数可以分为
数学函数、转换函数、字符串函数、日期函数和格式输出函数。使用中要注意各个函数要求
的参数数量、参数的数据类型和函数返回值的数据类型。
6
．输入输出数据
使用 VB 控件进行数据的输入输出时要注意各个控件的不同用法，如标签对象常用其
Caption
属性输出数据；文本框控件可以利用 Text 属性进行数据的输入或输出。
除了采用控件的方式进行数据的输入和输出外，VB 还提供了 InputBox 函数和 MsgBox
函数，分别用于输入数据和输出数据。要注意输入输出函数的常用参数和调用格式。
在利用 Print 方法实现数据的输出时，一定要明确 Print 方法的语法格式：
[<对象名>.]Print [<表达式列表>][;|,]其中：
（1）对象名可以是窗体对象名、图片框对象名、Printer 对象、Debug 对象，如果缺省该
项，则默认对象为当前窗体。
（2）表达式列表是指一个或多个表达式。不写任何表达式的时候，默认输出一个空行；
如果要输出多个表达式，表达式之间要用“,”或“;”分隔符分隔。
如果使用“,”（逗号）分隔符，则分隔符后的表达式将以标准格式在下一个打印区（每
行以 14 个字符为单位划分为若干区段，每个区段称之为一个打印区）的起始位置输出。
如果使用“;”（分号）分隔符，则下一个表达式将按紧凑格式紧跟在上一个表达式后面
无间隔地输出。
7
．命令按钮控件
命令按钮（CommandButton）是 Windows 应用程序中最常用的控件，主要是利用其 Click
事件作为程序的执行入口。命令按钮控件图标如图 3-7 所示。
（1）命令按钮的属性。
1
）Caption。在设计界面时一般重新设置命令按钮的 Caption
属性，以说明该按钮的功能。
2
）Enabled。返回或设置控件是否响应事件，也就是该控件是
否可用。
3
）Style。用来设置命令按钮是标准的还是图形的。
4
）Cancel。返回或设置一个值，用来指示命令按钮是否为取消命令按钮。
5
）Default。返回或设置一个值，用来指示命令按钮是否为默认命令按钮。
6
）Visible。返回或设置一个值，决定控件运行时是否可见。
7
）Value。把 True 赋值给 Value 属性，可以引发 Click 事件，相当于“虚拟点击”或“软
触发”。
8
）ToolTipText。返回或设置鼠标在命令按钮上停留时的提示文本。这个属性对于图形按
钮特别有用，可以提示按钮的功能。
（2）命令按钮的事件。
命令按钮的常用事件是 Click 事件，命令按钮的功能是通过编写 Click 事件过程来实现的。
用户触发命令按钮事件的方式有以下几种：
1
）单击命令按钮。
2
）在命令按钮获得焦点时，按回车键。
3
）对于设计了访问键的命令按钮，按 Alt+访问键。
8
．文本框控件
文本框（TextBox）控件也称为编辑控件，常用其 Text 属性
来接收用户输入的信息，也可以输出信息。文本框控件图标如图
3-8
所示。
图 3-7 命令按钮控件图标 图 3-8 文本框控件图标（1）文本框的属性。
1
）Text。返回或设置文本框中的文本，该属性是文本框控件最重要的属性之一。可以在
设计时设置 Text 属性，也可以在运行时直接在文本框内输入，或通过程序代码对 Text 属性重
新赋值。
2
）MaxLength。返回或设置在文本框控件中能够输入字符的最大数。
3
）MultiLine。返回或设置文本框是否接受多行文本。
4
）ScrollBars。返回或设置文本框是否有垂直或水平的滚动条。当文本过长，可能超过
文本框的边界时，应该为该控件添加滚动条。
5
）PasswordChar。返回或设置一个值，该值指示所键入的字符在文本框中以何种形式
显示。
6
）文本编辑属性组。
①SelStart 属性。用来指定选定文本块的起始位置，如果没有选定的文本，则该属性指定
光标的位置。若 SelStart 值为 0，所指示的位置是在文本框第一个字符之前；若 SelStart 值等
于文本框中文本的长度，所指示的位置是在文本框最后一个字符之后。
②SelLength 属性。用来指定所选的字符个数。
③SelText 属性。用来指定选定的字符，如果没有字符被选定，则是空串。
注意：以上 3 个与文本选定操作有关的属性只能在程序代码中进行操作，设计时不可用。
（2）文本框的事件。
1
）Change。当文本框中的内容（即 Text 属性的值）发生改变时，将触发 Change 事件。
2
）KeyPress。在文本框获得焦点并且用户按下了键盘上的按键
后，将触发 KeyPress 事件。
9
．标签控件
标签（Label）控件主要用来在窗体相对固定的位置上显示文本
信息，它不能作为输入信息的界面，通常用于功能注释。标签控件
图标如图 3-9 所示。
标签的属性：
（1）Caption。该属性是标签最重要的属性，它用来设定标签上显示的文本内容。
（2）Alignment。决定文本的对齐方式。
（3）Autosize。决定标签是否可以根据文本内容自动调整大小。
（4）WordWrap。值为 True 的时候将根据标题文本内容自动调整标签的高度，但是不会
调整标签的宽度；为 False 的时候不会自动调整标签的高度，标签的宽度取决于 AutoSize 属
性的设置情况。
若要使 WordWrap 属性生效，必须把 AutoSize 属性的值设为 True。
10
．InputBox 函数
VB
程序设计的过程中可以通过 InputBox 函数调用用户输入框，以便用户在程序执行的
过程中输入待处理的数据。InputBox 函数的格式为：
InputBox(Prompt[, Title] [, Default] [, XPos] [, YPos] [, HelpFile, Context])
InputBox
函数的返回值就是用户在输入框中输入的内容，但是是字符串型的数据。因此，
实际使用的时候常常通过赋值语句把 InputBox()函数的值赋给某个变量。如果这个变量需要的
是一个数值型的值，那么要用 Val()函数把 InputBox 返回的值转换为数值型。
11
．MsgBox 函数
通过 MsgBox 函数可以调用消息框，并且可以指定该输入框的提示信息、消息框类型、
标题，以及相关的帮助信息，其语法格式如下：
MsgBox(Prompt[, Buttons] [, Title] [, HelpFile, Context])
如果要忽略 MsgBox()函数的返回值，还可以用如下方式调用 MsgBox()函数：
（1）
MsgBox Prompt[, Buttons] [, Title] [, HelpFile, Context]（2）
Call MsgBox (Prompt[, Buttons] [, Title] [, HelpFile, Context])【实验例题】
1
．随机给出两个[10,100]内的整数，让用户计算两个数的和，要求显示用户计算所花费
的时间。程序设计界面如图 3-10 所示。
图 3-10 程序界面的布局设计思路：
使用随机函数 Rnd()可以产生这两个随机整数。记录时间的起始点是在用户单击“开始做
题”按钮后，记录时间的结束是在用户单击“做好啦”按钮后，这完全是两个事件过程，要
想在“做好啦”按钮单击事件里使用由“开始做题”事件过程所创建的变量，那么这个变量
要至少是模块级变量（在窗体代码窗口的“通用”区声明）。
在单击“开始做题”按钮后要修改文本框 Text3 的 Locked 属性，使之可以输入数据；在
单击“做好啦”按钮后，要把文本框 Text3 的 Locked 属性重新修改为 True，使之不可再次输
入；单击“下一题”按钮实际上就是要重新生成数据。
设计步骤：
（1）创建新工程，按照图 3-10 的要求添加各控件，各对象的属性设置如表 3-1 所示。
表 3-1 各个对象的属性设置 对象名 属性名 属性值 Form1 Caption 整数加法运算题 Label1 Caption + Label2 Caption = Label3 Caption "" （空） Label4 Caption "" （空）续表 对象名 属性名 属性值 Text "" （空） Text1 Locked True Text "" （空） Text2 Locked True Text "" （空） Text3 Locked True Command1 Caption 开始做题 Caption 做好啦 Command2 Default True Command3 Caption 下一题
（2）编写程序代码如下：
Dim start_time As Date, end_time As Date Private Sub Command1_Click()
start_time = Now() Text3.Locked = False End Sub
Private Sub Command2_Click() Dim total_time As Date Text3.Locked = False end_time = Now()
total_time = end_time - start_time
Label3.Caption = "您总共花费的时间是：" & Format(total_time, "hh:mm:ss") Label4.Caption = "正确结果是：" & Val(text1.text)+ Val(text2.text)
End Sub
Private Sub Command3_Click() Randomize Text1.Text = Int(Rnd * (99 - 10 + 1) + 10) Text2.Text = Int(Rnd * (99 - 10 + 1) + 10) Text3.Text = "" Text3.Locked = True End Sub
Private Sub Form_Load() Randomize Text1.Text = Int(Rnd * (99 - 10 + 1) + 10) Text2.Text = Int(Rnd * (99 - 10 + 1) + 10) End Sub
程序运行结果如图 3-11 所示。
说明：本题还不具备自动判断用户计算结果是否正确的功能，请读者在学习到分支结构
时，完善本题，使之能够判断对错。
2
．让用户输入一元二次方程的系数（均不为 0），然后根据这个数据计算一元二次方程
的解，程序的界面设计如图 3-12 所示。
图 3-11 程序运行效果 图 3-12 程序的界面布局设计思路：
（1）建立数学模型。
本题的数学模型是一元二次方程 a*x^2+b*x+c = 0 。
（2）利用数学模型求解。
用一个变量 d 存放 Δ=b^2-4*a*c 的值，把这个值显示出来以由用户判断系数是否合理。
根据求根公式可知方程的解为：x1=(-b+sqr(d))/(2*a)；x2=(-b-sqr(d))/(2*a)。
设计步骤：
（1）创建新工程，为窗体添加各控件并设置属性，属性设置如表 3-2 所示。
表 3-2 各属性的设置 对象名 属性名 属性值 Form1 Caption 求一元二次方程的解 Label1 Caption 求解方程： Label2 Caption x^2+ Label3 Caption x+ Label4 Caption =0 Command1 Caption 1.看看方程的Δ值 Command2 Caption 2.开始求解 Text1 Text ""（空） Text2 Text ""（空） Text3 Text ""（空） Text4 Text ""（空） Text ""（空） Text5 Locked True Text ""（空） Text6 Locked true（2）为程序设计代码如下：
Dim a As Single, b As Single, c As Single, d As Single Private Sub Command1_Click()
a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = b ^ 2 - 4 * a * c Text4.Text = d End Sub
Private Sub Command2_Click()
Text5.Text = Format((-b + Sqr(d)) / (2 * a), "0.000") Text6.Text = Format((-b - Sqr(d)) / (2 * a), "0.000") End Sub
程序执行的结果如图 3-13 所示。
图 3-13 程序的执行结果3
．根据用户输入的电压数计算如图 3-14 所示电路中的总电流 I。已知电路图中电阻
R1=150
Ω，R2=230Ω，R3=260Ω。程序的界面设计如图 3-15 所示。
图 3-14 电路图 图 3-15 程序界面布局设计思路：首先要做的就是把问题尽可能转化为一个数学模型。这个题目是一个物理问
题，由于电流 I=U/R，电压是用户输入的值，是已知数，因此要通过计算求出另一个参数总
电阻 R。由欧姆定律可以推导出总电阻 R=R1+R2*R3/(R2+R3)。
设计步骤：
（1）创建新工程，加入两个按钮，一个用于打开输入对话框，一个用于开始计算；输入
220V R1 R2 R3 I的值放在标签里显示，输出结果放在一个文本框里显示。
各个对象的属性设置如表 3-3 所示。
表 3-3 各对象的属性值 对象名 属性 值 Form1 Caption 求电路总电流 Command1 Caption 输入电压值并计算 Text1 Text "" （空） Label1 Caption "" （空） Label2 Caption 总电流为：（2）编写程序代码如下：
Private Sub Command1_Click()
Dim U As Single, R As Single, I As Single Dim R1 As Single, R2 As Single, R3 As Single R1 = 150 R2 = 230 R3 = 260 U = InputBox("请输入电压 U 的值", "输入电压", 220) R = R1 + R2 * R3 / (R2 + R3) I = U / R
Text1.Text = Format(I, "0.000") & "A"
Label1.Caption = "您输入的电压是" & Format(U, "0.00") & "V" End Sub
程序执行的结果如图 3-16 所示。
4
．设计一个程序，要求用户通过输入对话框输入半径 R，根据 R 的值，求对应圆的面积、
球体的体积（体积公式为 V=4πR
3/3
）。程序界面设计如图 3-17 所示。
图 3-16 程序运行结果 图 3-17 程序界面布置设计思路：圆面积的公式为 S=R^2*π；球体积的公式为 4*π*R^3/3。
设计步骤：
（1）创建新工程，加入用于用户输入的按钮“输入半径并计算”按钮；加入 3 个标签和
3
个文本框控件，分别用于输出结果，其界面布局如图 3-17 所示。
各对象的属性如表 3-4 所示。
表 3-4 各对象的属性设置 对象名 属性名 属性值 Form1 Caption 根据半径求相应值 Command1 Caption 输入半径并计算 Label1 Caption 半径： Label2 Caption 圆的面积： Label3 Caption 球的体积： Text "" （空） Text1 Locked True Text "" （空） Text2 Locked True Text "" （空） Text3 Locked True（2）编写程序代码如下：
Private Const PI As Double = 3.1415926 Private Sub Command1_Click() Dim R As Single R = Val(InputBox("请输入半径的数值", "输入半径", 15)) Text1.Text = R Text2.Text = PI * R ^ 2 Text3.Text = 4 * PI * R ^ 3 / 3 End Sub
程序执行的结果如图 3-18 所示。
图 3-18 程序执行的结果【实验内容】
1
．程序界面设计如图 3-19 所示，编写程序，把 Text1 中的数据赋给变量 x，Text2 中的
数据赋给变量 y，并实现变量 x 和 y 值的交换，交换后 x 和 y 的值在各自对应的文本框中显
示出来。
2
．编写程序，要求输入同学的姓名和成绩后，在文本框中显示，可以输出成绩的平
均值和同学的总人数，并允许在程序界面中调用系统的计算器程序。程序的界面设计如图
3-20
所示。
图 3-19 “交换变量的值”程序的界面布局 图 3-20 “学生成绩处理”程序的界面布局3
．编写一个华氏温度和摄氏温度之间的转换程序，要求用 InputBox 函数输入华氏温度，
用 MsgBox 函数输出转换后的摄氏温度。转换公式为
C
5
(F-32)
9
=
。F 为华氏温度，C 为摄氏
温度。程序界面设计如图 3-21 所示。
图 3-21 “华氏度转换为摄氏度”程序的界面3.3 实验三 选择程序设计
【实验目的】
1
．掌握单分支结构和双分支结构。
2
．掌握多分支条件语句。
3
．掌握单选按钮、复选框和框架的使用。
【相关知识】
常用分支结构语句的格式如下。
（1）If…Then…Else 语句。
If 表达式 Then语句块 1 Else 语句块 2 End If
（2）If-Then 语句。
If 表达式 Then 语句块 End If（3）If-Then-ElseIf 语句（多分支结构）。
If 表达式 1 Then 语句块 1 ElseIf 表达式 2 Then 语句块 2 … Else 语句块 n End If注意：Else 和 If 之间没有空格。
（4）Select Case 语句（多分支结构）。
Select Case 表达式 Case 表达式列表 1 语句块 1 Case 表达式列表 2 语句块 2 … Case 表达式列表 n 语句块 n Case Else 语句块 n+1 End Select（5）IIf 函数。
result=IIf(条件,True 部分,False 部分)
（6）单选按钮控件。
单选按钮（OptionButton）控件图标如图 3-22 所示，用来表示一组互斥的选项。单选按
钮控件成组出现，而且只能有一个按钮被选中。
单选按钮控件的常用属性如下：
1
）Caption。用来设置单选按钮控件的显示文字。
2
）Value。返回或设置单选按钮是否被选中，True 表示选中，
False
表示未选中。
3
）Style。返回或设置控件的外观。0 表示 Standard，1 表示
图 3-22 单选按钮控件图标Graphical
。
4
）Alignment。该属性值为 0 时（默认值），单选按钮在标题文字左边；属性值为 1 时，
单选按钮显示在标题文字的右边。
（7）复选框控件。
复选框（CheckBox）控件图标如图 3-23 所示。在同一组选项
中，用户可以选择多个选项。
复选框控件的常用属性如下：
1
）Value 属性。返回或设置复选框的状态信息。0 表示未选中，
1
表示选中，2 表示禁止使用。
2
）复选框的 Caption 属性、Style 属性和 Alignment 属性与单选按钮控件相同。
（8）框架控件。
框架（Frame）控件图标如图 3-24 所示。它是一个容器控件，其
主要作用是对窗体上的控件进行分组。框架内控件的创建方法有两
种：一是单击工具箱上的图标，在框架中的适当位置拖曳出适当大小
的控件；二是将控件复制到剪贴板，然后粘贴（按 Ctrl+V 键）到框
架中。
【实验例题】
1
．从键盘上输入代表年、月、日的 3 个数字，判断该年是否为闰年，并根据月份判断该
月有多少天，根据日来判断是星期几。
设计思路：闰年的计算依据是年号能够被 4 整除但不能够被 100 整除，或能够被 400
整除。
设计步骤：
（1）创建用户界面，在窗体上创建 3 个文本框控件 Text1、Text2、Text3，6 个标签控件
Label1
～Label6，以及 2 个命令按钮。
（2）设置属性。各对象的属性设置如表 3-5 所示。
表 3-5 对象属性设置 对象名 属性 属性值 Form1 Caption 日期判断 Text1 Text "" （空） Text2 Text "" （空） Text3 Text "" （空） Label1 Caption "" （空） Label2 Caption "" （空） Label3 Caption "" （空） Label4 Caption 年份 Label5 Caption 月份 图 3-23 复选框控件图标 图 3-24 框架控件图标续表 对象名 属性 属性值 Label6 Caption 日期 Command1 Caption 判断 Command2 Caption 清除
（3）编写程序代码如下：
Private Sub Command1_Click()
Dim year As Integer, month As Integer, day As Integer Dim leapyear As Boolean
year = Val(Text1.Text) month = Val(Text2.Text) day = Val(Text3.Text) '判断是否为闰年
If (year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0) Then leapyear = True Label1.Caption = "该年为闰年" Else leapyear = False Label1.Caption = "该年不是闰年" End If
Select Case month '判断月份天数 Case 1, 3, 5, 7, 8, 10, 12 Label2.Caption = "31天" Case 4, 6, 9, 11 Label2.Caption = "30天" Case 2 If leapyear Then Label2.Caption = "29" Else Label2.Caption = "28" End If End Select
dd$ = Str$(year) & "," & Str$(month) & "," & Str$(day) '判断星期几
Label3.Caption = WeekdayName(Weekday(dd$)) End Sub
Private Sub Command2_Click() Text1.Text = ""
Text2.Text = "" Text3.Text = ""
Label1.Caption = "" Label2.Caption = "" Label3.Caption = "" End Sub
运行结果如图 3-25 所示。
图 3-25 程序执行的结果思考：本题还可以根据输入的月份判断是什么季节？（3～5 月为春季、6～8 月为夏季、
9
～11 月为秋季、11～2 月为冬季。）
2
．设计个人信息输入窗口，使用单选按钮输入性别和学历，使用复选框输入个人爱好。
设计步骤：
（1）创建用户界面，在窗体上创建 1 个文本框控件 Text1，4 个标签控件 Label1～Label4，
4
个单选按钮 Option1～Option4，4 个复选框 Check1～Check4，3 个框架 Frame1、Frame2、
Frame3
，一个命令按钮 Command1。
（2）设置属性。各对象的属性设置如表 3-6 所示。
表 3-6 对象属性设置 对象名 属性 属性值 Form1 Caption 个人信息 Text1 Text ""（空） Label1 Caption 姓名： Label2 Caption 性别： Label3 Caption 民族： Label4 Caption 个人信息： Option1 Caption 男 Option2 Caption 女 Option3 Caption 汉族 Option4 Caption 少数民族 Check1 Caption 音乐 Check2 Caption 跑步 Check3 Caption 小说续表 对象名 属性 属性值 Check4 Caption 上网 Frame1 Caption ""（空） Frame2 Caption ""（空） Frame3 Caption 爱好 Command1 Caption 确定
（3）编写程序代码如下：
Private Sub Command1_Click()
Dim s1 As String, s2 As String, s3 As String, s4 As String Dim s As String, m As String
If Text1.Text = "" Then m = InputBox("忘记输入姓名", "提示", "输入姓名") Text1.Text = m End If s1 = Text1.Text + "," '存储姓名信息 s2 = IIf(Option1, "男,", "女,") s3 = IIf(Option3, "汉族;", "少数民族;") '存储性别信息 s4 = "爱好:" If Check1.Value = 1 Then '存储个人爱好信息 s4 = s4 + Check1.Caption + "," End If If Check2.Value = 1 Then s4 = s4 + Check2.Caption + "," End If If Check3.Value = 1 Then s4 = s4 + Check3.Caption + "," End If If Check4.Value = 1 Then s4 = s4 + Check4.Caption End If s = s1 + s2 + s3 + s4 Label4.Caption = s Text1.SetFocus '光标置于文本框，准备下一次输入 End Sub
Private Sub Text1_Change() Label4.Caption = "" End Sub
运行结果如图 3-26 所示。
【实验内容】
图 3-26 程序的执行结果
2
．设计一个简易计算器的程序。要求：①输入两个操作数和一个操作符（＋、－、×、
/
、\、mod、^），根据操作符决定所进行的计算；②如果操作数中没有输入数字，用 MsgBox
提示出错信息，运行界面如图 3-28 所示。
图 3-27 “排序”程序运行结果 图 3-28 “简易计算器”程序运行结果3
．设计一个应用程序，界面设计如图 3-29 所示。要求当用户在两组不同的单选按钮和
一组复选框上作出选择后，文本框中正文的字体、字号和风格能够发生相应的变化。
图 3-29 设置字体运行结果3.4 实验四 循环程序设计
【实验目的】
1
．掌握用 While-Wend 语句、Do-Loop 语句和 For-Next 语句实现循环的方法。
2
．掌握如何在程序设计中用循环的方法实现一些常用算法。
3
．掌握循环结构程序设计的基本方法，能设计简单的循环结构程序。
4
．学会结合循环语句和图片框、图像框和计时器等控件设计简单的程序。
【相关知识】
常用的循环语句如下：
（1）For 语句。
For 循环变量 = 初值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next 循环变量（2）Do-Loop 语句。
Do While/Until 条件 Do 语句块 语句块 [Exit Do]或者
[Exit Do] 语句块 语句块Loop Loop While／Until 条件
（3）While-Wend 语句。
While <条件> 语句块 Wend
（4）Exit Do 语句。
Exit Do
语句必须放置在 Do-Loop 语句的循环体中。执行到 Exit Do 时，程序会立即结束
本层循环，跳到 Loop 后执行下面的语句。
（5）Exit For 语句。
同 Exit Do 类似，Exit For 语句用在 For-Next 循环中，用于强制跳出循环结构。
（6）循环嵌套。
外循环必须完全包含内循环，不能交叉。循环的转移遵循“允许循环内转移，允许转出，
禁止转入”的原则。
（7）图像框控件
图像框（Image）控件用于显示图像，不支持图形方法，也不能
当作容器来使用。图像框控件图标如图 3-30 所示。
1
）Picture 属性。该属性为图像框控件指定要显示的图像。
2
）Stretch 属性。如果属性值为 True，当所显示图像的原始大小
与控件大小不相同时，会缩放图像来填充整个控件；如果属性值为 False（默认值），图像会
以原始大小显示。
（8）图片框控件。
图片框（PictureBox）控件用于显示图片，此外还支持 Print 方法和绘图方法，可以绘制
自定义的函数图、曲线图和图片等，还可以作为其他控件的容器。
图片框控件图标如图 3-31 所示。
常用属性如下：
1
）Picture 属性。与图像框控件的 Picture 属性相同。
2
）AutoSize 属性。属性值为 True 时，图片框的边界会随着所
图 3-30 图像框控件图标 图 3-31 图片框控件图标载入图片大小的变化而变化。
（9）计时器控件。
计时器（Timer）控件又称时钟、定时器控件，时钟控件能在程序运行过程中不断地积累
时间，当达到给定的时间间隔时，自动引发 Timer 事件。它常常用于编写计时、动画等程序，
在程序运行阶段不可见。计时器控件图标如图 3-32 所示。
1
）常用属性。
①Interval 属性。取值范围为 0～65535，单位为 ms（0.001s），
表示计时间隔。例如，如果希望每 1s 产生一个计时器事件，那
么 Interval 属性值应设为 1000。这样每隔 1000ms 引发一次 Timer
事件，从而执行相应的 Timer 事件过程。若将 Interval 属性设置为 0 或负数，则计时器停
止工作。
②Enabled 属性。只要时钟控件的 Enabled 属性值被设置为 True，而且 Interval 属性值大
于 0，则计时器开始工作。把属性值设置为 False，可使时钟控件无效，即计时器停止工作。
2
）常用事件。
时钟控件只能响应 Timer 事件。该事件以 Interval 属性指定的时间间隔发生，可以把需要
定时执行的操作放在该事件过程中。
（10）图形和绘图操作。
这里只介绍实验涉及的一些概念，其他知识可参考相关资料。
（1）RGB 函数。RGB 颜色模型中的任何颜色都是由红（R）、绿（G）、蓝（B）三种颜
色按不同比例混合生成的。因此要设定一种颜色，只需指定其红、绿、蓝分量的大小即可。
RGB(Red,Green,Blue)
是内部函数，返回一个由长整型数表示的颜色值。此函数有三个整型参
数，取值都是 0～255，如 RGB(0,0,0)返回黑色，RGB(255,0,0)返回红色，RGB(255,255,0)返回
黄色。RGB 函数可以返回 255×255×255 种颜色。
（2）Line 方法。Line 方法可以在窗体或图片框上绘制一条直线或一个矩形。语法格
式如下：
Object.Line [[step](x1,y1)]-[step](x2,y2),[color],[B[F]]1
）Object 为窗体或图片框对象名。
2
）[step](x1,y1)指定起点坐标，[step](x2,y2)指定终点坐标。如果有参数 B，则绘制以给
定两点为对角的矩形，否则画出以给定两点为端点的直线段。
3
）color 指定直线或矩形边框的颜色。如果有参数 F，则用边框颜色填充矩形。无参数 B
时，不能使用参数 F。
4
）如果(x1,y1)参数前有 step 关键字，表示该坐标是相对于当前作图位置的偏移量。如果
(x2,y2)
参数前有 step 关键字，表示是以起点为基准的相对坐标。
（3）Circle 方法。Circle 方法可以在窗体或图片框上绘制圆形、椭圆或弧。语法格式
如下：
Object.Circle [[step](x,y),radius,[color],[start],[end],[aspect]1
）[step](x,y)指定圆心或椭圆中心的坐标。
2
）radius 指定圆的半径或椭圆的长半轴。
3
）color 指定线条颜色。
图 3-32 计时器控件图标4
）start 与 end 指定弧的起止角度（单位是弧度），如果被省略，则绘制出完整的圆或
椭圆。
5
）aspect 指定圆度（垂直半轴与水平半轴长度之比），当它为 1 或省略时，绘出一个正
圆，其他值时为椭圆。
【实验例题】
1
．求 1～100 之间的所有素数之和。
分析：显然应采用穷举法来解决这个问题。在程序中设置一个二重循环，其中外层循环
列举 1～200 之间所有的自然数，内层循环判断是否是素数。
程序代码如下：
Private Sub Command1_Click() Sum = 0
n = 0
For i = 2 To 100 Flag = True
For j = 2 To i - 1 'i-1也可以用"i/2,sqr(i)"代替 If i Mod j = 0 Then Flag = False Exit For '跳出内层循环 End If Next If Flag Then Print i, Sum = Sum + i n = n + 1
If n Mod 5 = 0 Then Print '每输出 5 个数换行 End If
Next
Print "Sum=", Sum End Sub
运行结果如图 3-33 所示。
图 3-33 “求素数之和”程序2
．利用循环和图像框控件输出一个月的日历（以 2010 年 1 月为例）。
设计步骤：
（1）新建工程，在窗体中添加一个命令按钮 Command1 和一个图像框 Picture1。
（2）将窗体的 Caption 设置为“日历”。
（3）将命令按钮的 Caption 设置为“打印”。
（4）编写程序代码如下：
Private Sub Command1_Click()
Dim month As Integer, day As Integer, week As Integer Dim s() As String Dim i% week = 5 '2010年 1 月 1 日是星期五 day = 31 '2010年 1 月有 31 天 s = Split("日 一 二 三 四 五 六") For i = 1 To 7
Picture1.Print Tab(4 * i - 1); s(i - 1); Next i
For i = 1 To day
If (i + week) Mod 7 = 0 Then Picture1.Print Tab(4 * 7 - 2); i; Else
Picture1.Print Tab(4 * ((i + week) Mod 7) - 2); i; End If
Next i End Sub
Private Sub Form_Load() Picture1.FontSize = 12 End Sub
运行结果如图 3-34 所示。
3
．编程实现图片的移动和缩放。
设计步骤：
（1）创建用户界面。新建一个工程，在 Form1 中放置 1 个图片框控件、5 个命令按
钮控件。
（2）设置属性。各对象属性如表 3-7 所示。
表 3-7 对象属性设置 对象 属性 属性值 Form1 Caption 图像操作Picture1 Picture d:\图片\pig.bmp
Command1 Caption 左移 Command2 Caption 右移 Command3 Caption 放大 Command4 Caption 缩小 Command5 Caption 还原 图 3-34 “日历”程序
（3）编写程序代码如下：
Public cmdIndex As Integer Private Sub Command1_Click() cmdIndex = 1
Timer1.Enabled = True End Sub
Private Sub Command2_Click() cmdIndex = 2
Timer1.Enabled = True End Sub
Private Sub Command3_Click() cmdIndex = 3
Timer1.Enabled = True End Sub
Private Sub Command4_Click() cmdIndex = 4
Timer1.Enabled = True End Sub
Private Sub Command5_Click() cmdIndex = 5
Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() Select Case cmdIndex Case 1 Picture1.Move (Picture1.Left - 100) Case 2 Picture1.Move (Picture1.Left + 100) Case 3 Picture1.Height = Picture1.Height * 1.1 Picture1.Width = Picture1.Width * 1.1 Case 4 Picture1.Height = Picture1.Height * 0.9 Picture1.Width = Picture1.Width * 0.9 Case 5 Timer1.Enabled = False Picture1.Left = 1320 Picture1.Width = 2775 Picture1.Height = 3255 End Select End Sub
程序运行结果如图 3-35 所示。
图 3-35 图片操作界面【实验内容】
1
．输出 100～999 之间的水仙花数。水仙花数即个位数的立方加十位数的立方加百位数
的立方，正好等于该数本身的数。
2
．设计一条滚动的广告字幕。
3
．设计一个闹钟。要求能显示当前时间，设置定时时间，当设定的时间到来时能发出报
警声，程序界面如图 3-36 所示。
图 3-36 “闹钟”程序界面3.5 实验五 数组程序设计
【实验目的】
1
．熟练掌握静态数组。
2
．掌握动态数组。
3
．了解控件数组。
4
．掌握列表框和组合框。
【相关知识】
1
．固定数组
Visual Basic
有两种类型的数组，即固定大小的静态组和在运行时大小可变的动态数组。
数组必须先定义，后使用。固定数组的定义形式为：
Dim数组名(下标 1 [,下标 2]…)[As 类型]
其中下标必须是常数，格式为：[下界 to]上界。下界的默认值为 0，例如：
Dim x(5) as Integer Dim score(3,4) As Integer
在具体操作时是针对每个数组元素进行的，因此数组的引用单位是元素。
2
．动态数组
动态数组的定义形式为：
Dim 数组名( )[As 类型]此时数组的大小是不确定的，可用 ReDim 语句指定数组的大小。
3
．自定义数据类型
除了标准数据类型之外，用户还可以自定义数据类型。定义形式为：
Type 自定义类型名 成员 1 As 类型 成员 2 As 类型 … End Type例如对于一个学生的学号、姓名、性别、年龄、成绩等数据，常常需要把这些数据定义
成一个 Student 类型。
Type Student Xh As String Xm As String Xb As String Nl As Integer Score As Single End Type4
．控件数组
控件数组由一组相同类型的控件组成，它们共用一个控件名，具有相同的属性，但通常
有不同的属性值。当建立控件数组时，系统给每个元素赋一个唯一的索引号（Index），即下
标，下标值由 Index 属性指定。通过属性窗口的 Index 属性，可以知道该控件的下标是多少，
例如第 1 个元素下标是 0，第 2 个元素下标是 1，依此类推。
控件数组共享同样的事件过程。例如控件数组 Command 有 3 个命令按钮，不论单击哪个
命令按钮，都会调用同一个事件过程。为了区分控件数组中的各个元素，系统会把下标值传
送给一个过程。例如单击控件数组 Command 中的任意 1 个命令按钮时，调用的事件过程如下：
Private Sub CmdNumber_Click(Index As Integer) End Sub
5
．列表框
列表框（ListBox）是以列表形式显示一系列数据，供用户
选择。如果选项较多，超出了列表框的显示区域，会自动加上
滚动条。列表框最主要的特点是只能选择，而不能直接添加或
修改其中的内容。列表框控件的图标如图 3-37 所示，默认的列
表框控件名为 ListX（X 为阿拉伯数字 1、2、3 等）。
图 3-37 列表框控件图标常用属性：
（1）List。该属性是一个字符数组，存放列表框的项。
（2）ListIndex。属性值表示执行时选中的列表项序号，如果第 1 个项目被选中，则此属
性值为 0；第 2 个项目被选中，则此属性值为 1，……如果没有项目被选中，则 ListIndex 的
值为-1。
（3）ListCount。属性值表示列表框中项目的数量，ListCount-1 表示列表中最后一项的序
号。使用 List 属性和 0～ListCount-1 之间的一个索引号，可以获得任何一个列表项的内容。
（4）Selected。该属性是一个逻辑数组，其元素对应列表框中相应的项，表示对应的项
是否被选中。如果 Selected(i)的值为 True，表示第 i+1 项被选中。
（5）Text。属性值是被选中列表项的文本内容。
列表框中的列表项可以在设计状态通过 List 属性设置，也可以在程序中用 AddItem 方
法来添加。使用 RemoveItem 方法或 Clear 方法，可以删除列表项。例如在窗体上建立一个
列表框 Listl，两个命令按钮 Command1、Command2，则用下面的过程可以向列表框添加和
删除项目。
Private Sub Commandl_Click() Listl.AddItem "One"，0 End Sub
Private Sub Command2_Click() Listl.RemoveItem 0 End Sub
单击命令按钮 Command1，可以把字符串"One"加到列表框 List1 的开头；而单击命令按
钮 Command2，则可删除列表框的第一项。
6
．组合框
组合框（ComboBox）控件具有文本框和列表框的大部分属性，
它可以像列表框一样，让用户通过鼠标选择需要的项目；也可以像
文本框那样，用键入的方法选择项目。组合框控件的图标如图 3-38
所示。
组合框与列表框具有相同的属性，例如 List、ListIndex、
ListCount
、Selected、Sorted、Text、MultiSelect 等。组合框的风格
是由 Style 属性值决定的，为 0 时是下拉式组合框（默认状态），为 1 时是简单组合框，为 2
时是下拉列表框。
组合框响应的事件依赖于其 Style 属性。只有简单组合框才能接收 DblClick 事件，下拉
组合框与下拉列表框可接收 Click 事件和 DropDown 事件。下拉组合框和简单组合框可以在文
本区输入文本，因此能够接收 Change 事件。
7
．直线控件
直线（Line）控件并不常用，它的主要作用是在窗体上显示一条直线段，对控件进行视
觉上的分组。
直线控件的常用属性如下：
（1）X1、Y1、X2、Y2。这四个属性决定了直线控件的两个端点在窗体上的位置。
图 3-38 组合框控件图标（2）BorderStyle。此属性决定直线控件的线形，即线条样式。
8
．形状控件
形状（Shape）控件图标如图 3-39 所示，它可以显示多种几
何形状。
形状控件常用属性如下：
（1）Shape。决定形状控件以何种形状显示，其取值及含义
如下所示：
0
或 VbShapeRectangle：矩形。
1
或 VbShapeSquare：正方形。
2
或 VbShapeOval：椭圆形。
3
或 VbShapeCircle：圆形。
4
或 VbShapeRoundedRectangle：圆角矩形。
5
或 VbShapeRoundedSquare：圆角正方形。
（2）BorderStyle。该属性定义图形边框样式。
（3）FillStyle。用于指定图形的填充样式。
【实验例题】
1
．通过 Array 函数输入 10 位学生的成绩，并输出最高分和最低分。
程序代码如下：
Option Base 1 Dim a As VariantPrivate Sub Command1_Click()
Dim max As Integer, min As Integer Dim i As Integer
max = a(1) '设定初值 min = a(1)
For i = 2 To 10
If max < a(i) Then '找最高分 max = a(i)
End If
If min > a(i) Then '找最低分 min = a(i)
End If Next i
Picture1.Print "最高分：" + Str(max) + Chr(13) + "最低分：" + Str(min) End Sub
Private Sub Form_Load()
a = Array(78, 95, 85, 77, 89, 92, 73, 85, 75, 96) End Sub
程序运行结果如图 3-40 所示。
图 3-40 程序的的执行结果
2
．矩阵转置，即将二维数组的行、列元素互换。
设计步骤：
（1）创建用户界面。新建一个工程，在 Form1 中放置 2 个标签控件、2 个文本框控件和
1
个命令按钮控件，如图 3-41 所示。
图 3-41 “转置操作”程序界面设计（2）设置属性。各控件属性如表 3-8 所示。
表 3-8 对象属性设置 对象 控件名称 属性名称 属性值 窗体 Form1 Caption 转置操作 标签 1 Label1 Caption 转置前 标签 2 Label2 Caption 转置后 Text ""（空） 文本框 1 Text1 MultiLine True Text ""（空） 文本框 2 Text2 MultiLine True 命令按钮 1 Command1 Caption 转置（3）编写程序代码如下：
Private Sub Command1_Click() Dim i, j As Integer Dim myString As String myString = ""
Const m = 4
Dim a(n, m), b(m, n) As Integer Randomize
For i = 1 To n For j = 1 To m
a(i, j) = Int(Rnd() * 90) + 10
myString = myString & Str(a(i, j)) & " " Next j
myString = myString & Chr(13) + Chr(10) Next i Text1.Text = myString For i = 1 To n For j = 1 To m b(j, i) = a(i, j) Next j Next i myString = "" For i = 1 To m For j = 1 To n
myString = myString & Str(b(i, j)) & " " Next j
myString = myString & vbCrLf Next i Text2.Text = myString End Sub
运行结果如图 3-41 所示。
3
．利用控件数组完成实验四中的例 3，编程实现图片的移动和缩放。
（1）创建用户界面。新建一个工程，在 Form1 中放置 1 个图片框控件、1 个命令按钮控
件数组，其中包括 5 个按钮。
（2）设置属性。各对象属性如表 3-9 所示。
表 3-9 对象属性设置 对象 属性 属性值 Form1 Caption 图像操作Picture1 Picture d:\图片\pig.bmp
Command1(0) Caption 左移 Command1(1) Caption 右移 Command1(2) Caption 放大 Command1(3) Caption 缩小 Command1(4) Caption 还原
（3）编写程序代码如下：
Public cmdIndex As Integer
Private Sub Command1_Click(Index As Integer) cmdIndex = Index
Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() Select Case cmdIndex Case 0 Picture1.Move (Picture1.Left - 100) Case 1 Picture1.Move (Picture1.Left + 100) Case 2 Picture1.Height = Picture1.Height * 1.1 Picture1.Width = Picture1.Width * 1.1 Case 3 Picture1.Height = Picture1.Height * 0.9 Picture1.Width = Picture1.Width * 0.9 Case 4 Timer1.Enabled = False Picture1.Left = 1320 Picture1.Width = 2775 Picture1.Height = 3255 End Select End Sub
程序运行结果同图 3-35，在此省略。
4
．编写程序删除一个字符串中的所有数字字符。
方法一：
Private Sub Command1_Click() Dim s As String, t As String, i%, j% s = Text1.Text
t = ""
For i = 1 To Len(s)
If Not (Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9") Then t = t + Mid(s, i, 1)
End If Next i
Picture1.Print t End Sub
Private Sub Form_Load() Text1.Text = "" End Sub
程序运行结果如图 3-42 所示。
方法二：
Private Sub Command1_Click()
Dim s As String, t As String, i%, j%
s = Text1.Text t = ""
j = Len(s) i = 1
Do While i <= j
If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then s = Left(s, i - 1) + Right(s, j - i) j = Len(s) '重新计算新串的长度 Else i = i + 1 '非数字字符时才将 i 加 1，使得 i 指向下一个字符 End If Loop Picture1.Print s End Sub
Private Sub Form_Load() Text1.Text = "" End Sub
【实验内容】
1
．设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。
2
．设计一个通讯录程序，用自定义数据类型定义通讯录各项的信息，如姓名、电话、手
机、地址等。在文本框中输入各个信息内容，在列表框中显示各个人员的信息，程序界面设
计如图 3-43 所示。
3
．设计一个日出和日落的动画场面，界面设计如图 3-44 所示。
图 3-43 通讯录程序界面布局 图 3-44 “日出日落”动画程序界面布局3.6 实验六 过程程序设计
【实验目的】
1
．掌握子过程的定义和调用方法。
2
．掌握函数过程的定义和调用方法。
3
．理解嵌套调用和递归调用。
4
．理解作用域和生存期。
5
．掌握滚动条控件的使用方法。
【相关知识】
1
．子过程的建立
可以被其他程序或主程序调用，并且可以完成特定功能的一段程序称为子过程，建立的
语法格式如下：
[Public|Private] Sub 子过程名([参数列表]) 变量定义语句 执行语句 [Exit Sub] End Sub2
．子过程的调用
子过程调用的语法格式如下：
Call 过程名[(参数列表)] 过程名 [参数列表]3
．函数过程
Visual Basic
不仅有内部函数，还可以编写自己的函数过程。语法格式如下：
[Public|Private] Function 过程名([形参列表]) [As 类型] <语句组 1> [函数名=返回值] [Exit Function] <语句组 2> [函数名=返回值] End Function
4
．函数过程的调用
函数过程的调用的语法格式如下：
变量=函数过程名([实参列表])5
．事件过程
事件过程的语法与子过程非常相似，其定义形式如下：
Private Sub 对象名_事件名([形参列表]) 变量定义语句 执行语句 End Sub6
．参数传递的方式
VB
语言的参数传递有传值、传引用和传数组三种方式，其中传数组方式可以归结为传引
用方式的一种特例。
值传递是单向的，形参的值发生变化，对实参毫无影响。传引用将实参的地址传给了形
参，形参和实参实际上使用的是同一个存储单元，这是默认的参数传递方式。所以传引用方
式与传值方式最大的区别在于，传引用调用时形参的值发生变化，会使实参的值也同步发生
变化。传数组把数组名作为实参传递给形参数组，使得形参数组和实参数组的起始地址相同。
按引用传递参数使过程用变量的引用去访问实际变量的内容，如果过程中不需改变参数
的值，应尽量采用按值传递。
7
．嵌套调用和递归调用
在程序中调用一子过程，而在子过程中又调用另外的子过程，称为嵌套调用，过程在执
行期间又调用自己，称为递归调用。递归调用中应注意递归的结束条件和递归的表达式。
8
．作用域和生存期
VB
实体的作用域由小到大可以划分为局部作用域、模块作用域和全局作用域三个层次。
变量按照生存期来划分，则可以分为动态变量和静态变量。
9
．滚动条
滚动条控件图标如图 3-45 所示。常用属性如下：
（1）Value。返回或设置滚动条上的滚动滑块所处的位置。
（2）Max 和 Min。返回或设置 Value 属性的最大值和最小值。
（3）LargeChange。返回或设置当用户单击滚动箭头和滑块之间的区域时，Value 属性值
的改变量。
（4）SmallChange。返回或设置当用户单击滚动箭头时 Value 属性值的改变量。
当拖动滑块时会触发 Scroll 事件，当改变 Value 属性时会触发 Change 事件。
10
．直线
直线控件用于在窗体上绘制直线，在 VB 的工具箱中，直线控件的图标如图 3-46 所示。
11
．形状
形状（Shape）控件用于在窗体上绘制简单的几何图形，它的初始状态是一个矩形。在
VB
的工具箱中，形状控件的图标如图 3-47 所示。
图 3-46 直线图标 图 3-47 形状图标Shape
是形状控件最重要的属性之一，用来确定具体的图形。
【实验例题】
1
．求 1!+2!+3!+…+n!的值。
设计步骤：
（1）创建用户界面，添加 2 个标签 Label1、Label2，1 个命令按钮 Command1 和 2 个文
本框 Text1 和 Text2。
（2）设置属性。各对象的属性设置如表 3-10 所示。
表 3-10 对象属性设置 对象名 属性 属性值 Text1 Text ""（空） Text2 Text ""（空） Label1 Caption n： Label2 Caption 1!+2!…+n!= Command1 Caption 计算 图 3-45 滚动条控件图标（3）编写事件过程。
Option Explicit Private fact As Long
Private Sub Command1_Click() Dim n As Integer, i As Integer Dim sum As Double
n = Val(Text1.Text) sum = 0
For i = 1 To n Call fac(i) sum = sum + fact Next i
Text2.Text = Str(sum) End Sub
Private Sub fac(ByVal x As Integer) Dim i As Integer fact = 1 For i = 1 To x fact = fact * i Next i End Sub
运行结果如图 3-48 所示。
图 3-48 程序的执行结果2
．编写一个二分法查找函数，在输入的 10 个数构成的数组运用二分法查找再次输入的
数，找到则返回该数在数组中的下标位置，找不到则返回-1。
设计思路：将数列有序（递增或递减）排列，查找过程中采用跳跃式方式查找，即先以
有序数列的中点位置为比较对象，如果要找的元素值小于该中点元素，则将待查序列缩小为
左半部分，否则为右半部分。通过一次比较，将查找区间缩小一半。二分查找是一种高效的
查找方法，它可以明显减少比较次数，提高查找效率。但是，二分查找的先决条件是查找表
中的数据元素必须有序。
程序代码如下：
'添加子过程 sort()，用于数据排序 Public Sub sort(a() As Integer)Dim temp As Integer, i As Integer, j As Integer For i = LBound(a) To UBound(a)
For j = i + 1 To UBound(a) If a(j) < a(i) Then temp = a(i) a(i) = a(j) a(j) = temp End If Next j Next i End Sub '添加查找函数 search 函数
Public Function search(a() As Integer, key As Integer) As Integer Dim upper As Integer, lower As Integer
Dim temp As Integer, intindex As Integer upper = UBound(a)
lower = LBound(a) Do
If a((upper + lower) \ 2) > key Then upper = (upper + lower) \ 2
ElseIf a((upper + lower) \ 2) < key Then lower = (upper + lower) \ 2
Else
search = (upper + lower) \ 2 Exit Function
End If
If upper = lower Then search = -1 Exit Function End If Loop End Function '在窗体的单击事件中添加代码，调用子过程和函数，对输入数据处理
Private Sub Form_Click()
Dim i As Integer, a(9) As Integer Dim str1 As String, index As Integer For i = 0 To 9
str1 = "请输入第" & CStr(i + 1) & "个数：" a(i) = CInt(InputBox(str1))
Next i sort a
index = search(a, CInt(InputBox("请输入要查找的数："))) If index = -1 Then
Print "你要查找的数不在数组中" Else
Print "你要查找的数："; a(index); "在数组中的下标为"; index End If
