VB上机实验指导书

vb上机实验

实验的总体要求与方法

实验是巩固课堂所学知识、掌握可视化程序设计的方法、提高分析问题和解决问题能力的最重要的途径。因此明确实验目的、内容与要求、实验步骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做好实验、认真写好实验报告三个阶段进行。

1． 实验的基本目的

（1） 通过实验熟悉面向对象程序设计的基本概念。

（2） 通过实验熟练掌握利用VB进行可视化程序设计的基本方法。

（3） 通过实验掌握应用程序的调试方法，加强应用能力的训练与培养，从而具有 计一般应用程序和解决事务管理问题的能力。

2． 实验的基本要求

（1） 上机实验之前，应认真预习有关实验内容及相应教材。

（2） 实验过程中应记录实验中的有关数据（包括出错信息等），以便课后进行分析。 （3） 所有实验都应具备下列条件：

① 硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。

② 软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。

（4） 除非特别指明，约定每个实验的相关窗体文件或模块文件都存放在“D:＼VBsy”

文件夹下（自己可以新建一个），窗体文件的命名规则为“frmSy_xx_xx.frm”，模块文件的命名规则为“Sy_xx_xx.bas”，如实验二第１题的窗体文件命名为“frmSy_2_1.frm”。

（5） 上机时要遵守实验室的规章制度，爱护实验设备。 ３．实验报告

每个实验结束后都应写出实验报告，报告中应包括下列内容： （１） 实验目的 （２） 实验内容与要求 （３） 实验步骤

1

zjh

vb上机实验

（４） 实验结果及分析讨论、实验心得体会等。

实验一 熟悉vb的开发环境、程序设计的基本步骤

【实验目的】

1．熟悉Visual Basic 6.0集成开发环境。 2. 学习怎样启动和退出VB

3．掌握开发一个简单程序的基本步骤。 4．掌握简单代码的编写。

【实验内容】

1．启动和退出VB

2．开发一个简单程序。

3．将Visual Basic工程编译生成可执行文件。

【实验要求及操作步骤】

一、启动和退出VB

1、进入VB集成开发环境

要进入VB应用程序，首先要运行VB的集成开发环境。启动VB的方法如下： [方法1]

◇单击任务栏上的“开始”按钮；

◇选择“程序”文件夹，接着选取“Microsoft Visual Basic 6.0中文版”文件夹，再选取“Microsoft Visual Basic 6.0中文版”项，如图1-1所示；

图1-1 启动VB的方法1

◇ 单击鼠标左键。 [方法2]

◇ 单击任务栏上的“开始”按钮； ◇ 选择“程序”文件夹；

◇ 使用“Windows 资源按理器”查找VB可执行文件 VB6.exe； ◇ 双击图标。 [方法3]

◇ 在桌面创建一个VB快捷键； ◇ 双击该快捷键。

2

zjh

vb上机实验

VB启动后，出现VB6.0的“新建工程”对话框（图１-2）单击“打开”按钮，带有一个窗体的新工程将被创建，并可以看到VB集成开发环境的界面，如图1-3所示。有的系统启动后可直接进入图1-3所示的界面。

图1-2 VB6.0的“新建工程”对话框

图1-3 VB的集成开发环境窗口

3

zjh

vb上机实验

1、退出VB方法：

（1） 单击主窗口右上角的“关闭”按钮。 （2） 执行“文件”菜单中的“退出”命令。 （3） 按Alt+Q键。

二、开发一个简单程序

要求：新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label）显示“床前明月光”。

实验步骤：

（1）新建工程

在桌面上双击Microsoft Visual Basic 6.0快捷方式图标，系统进入Visual Basic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。单击“打开”按钮，Visual Basic 6.0进入设计模式。如图1－4所示。

图1－4“新建工程”对话框

单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。 （2）设计界面

在系统提供的名为Form1的窗体上进行界面设计。单击工具箱上的标签（Label）控件，在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。初始界面如图1－5所示。

图1－5初始界面

4 zjh

vb上机实验

（3）设置属性 如表1－1所示。

表1－1 属性设置 对象 Form1 Label1 属性 Caption Caption 属性值 我的第一个VB程序 设置属性后的界面如图1－6所示。

图1－6设置属性后的界面 图1－7第一个程序

（4）编写程序代码

Private Sub Form_Click( )

Label1.Caption = \床前明月光\End Sub （5）运行程序

运行VB程序有三种方法：①单击工具栏上的“启动”按钮；②从“运行”菜单中选择“启动”菜单项；③按F5键。

例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图1－7所示。

（6）保存程序

单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。

三、将Visual Basic工程编译生成可执行文件

单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。 退出Visual Basic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。

5 zjh

vb上机实验

实验二 命令按钮、文本框和标签

【实验目的】

1．掌握命令按钮、文本框和标签常用属性值的设置方法。

2．学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。 3．掌握命令按钮的主要事件的使用。

【实验内容】

1． 利用命令按钮、文本框和标签判断密码是否正确。 2． 建立应用程序，对两个文本框中输入的内容进行交换。

【实验要求与步骤】

1． 实验内容

要求: 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”；在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。 步骤：

（1）设计界面

在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图2－1所示。

图2－1初始界面 图2－2 设置属性后的界面

（2）设置属性

设置属性后的界面如图2－2所示。

表2－1属性设置

对象 Label1 属性 Caption 6

属性值 请输入密码： zjh

vb上机实验

Command1 Command2 Label2 Label2 Text1 Text1 Text1 Form1 （3）编写程序代码

Private Sub Command1_Click()

If Text1.Text=“goodbaby” Then

Label2.Caption=“欢迎使用本系统！” Else

Label2.Caption=“密码错误！请重新输入密码！” End If End Sub

Private Sub Command2_Click() End End Sub （4）运行程序

① 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。运行结果如图2－3所示。

Caption Caption Caption BorderStyle Text MaxLength PasswordChar Caption 登陆 退出 1-Fixed Single 16 * 登陆界面

图2－3 输入的密码正确

② 在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。运行结果如图2－4所示。

7 zjh

vb上机实验

图2－4 输入的密码错误

2． 实验内容 （1）设计界面

在窗体上放置两个Label 控件、两个TextBox控件和三个CommandButton控件。初 界面如图2－5所示。

图2－5 初始界面 图2—6 属性设置后的界面

（2）属性设置

设置属性后的界面如图2－6所示。

表2－2属性设置

对象 Form1 Label1 Label2 Text1 Text2 Command1 Command2 Command3

属性名称 Caption Caption Caption Text Text Name Caption Default Name Caption Name Caption

属性值 交换 输入第1个数 输入第2个数

空 空 CmdChange 交换 Ture CmdClear 清空 CmdExit 退出

（3）编写程序代码 Option Explicit

Private Sub CmdChange_Click( ) Dim temp As Integer

8

zjh

vb上机实验

temp=Text1.Text

Text1.Text=Text2.Text Text2.Text=temp End Sub

Private Sub CmdExit_Click( ) Unload Me End Sub

Private Sub CMdCLear_Click( ) Text1.Text=”” Text2.Text=”” Text1.SetFocus End Sub (4) 运行程序

执行结果如图2-7（a）、（b）所示。单击“清空”按钮并再数入数据，进行交换。

图2-7（a）交换前的界面 图2-7（b）单击交换后的界面

实验三 表达式、InputBox函数和MsgBox语句

9

zjh

vb上机实验

【实验目的】

1．掌握表达式的构成和如何求表达式的值。 2．掌握赋值语句的使用。

3．掌握InputBox函数的使用。 4．掌握MsgBox语句的使用。

【实验内容】

1.利用InputBox函数和MsgBox语句求圆的周长。

2.利用InputBox函数输入三角形的三边的长度a,b,c,计算三角形的面积并显示在窗体上。

【实验步骤与指导】

1．实验内容 (1) 设计界面

在窗体上添加一个命令按钮。初始界面如图3－1所示。

图3－1 初始界面 图3－2 设置属性后的界面 (2)．设置属性

表3－1 属性设置 对象 Command1 Form1 属性 Caption Caption 属性值 计算圆的周长 InputBox和MsgBox举例

设置属性后的界面如图3－2所示。 (3)．编写程序代码

Private Sub Command1_Click( )

Const pi = 3.14159

Dim r As Single, s As String, s2 As String Dim zhouchang As Single

s = InputBox(\请输入半径\输入半径\

r = Val(s)

10

zjh

vb上机实验

zhouchang = 2 * pi * r

s2 = \半径=\圆的周长=\ MsgBox s2, 64, \确认窗口\

End Sub (4)．运行程序

单击工具栏上的“启动”按钮，进入运行模式。单击“计算圆的周长”命令按钮，在输入框中输入圆的半径（例如，输入“2”），在消息框中输出半径和计算出来的圆的周长，如图3－3所示。

(a)

(b) (c)

图3－3 计算圆的周长

2．实验内容 (1)．设计界面

初始界面如图3－4所示。 (2)．设置属性

表3－1 属性设置

Form1

对象

属性 Caption

属性值 求三角形的面积

11 zjh

vb上机实验

图3-4 初始界面

(3)．编写程序代码

Private Sub Form_click()

Dim a As Single, b As Single, c As Single Dim s As Single, p As Single

a = InputBox(\请输入三角形的边a：\输入\b = InputBox(\请输入三角形的边b：\输入\c = InputBox(\请输入三角形的边c：\输入\

If (a + b <= c Or a + c <= b Or b + c <= a) Or (Abs(a - b) >= c Or Abs(a

- c) >= b Or Abs(b - c) >= a) Then

MsgBox (\你输入的数据有误！\Else

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c)) Print \三角形的面积为：\End If End Sub （4） 运行程序 如图3—5（a）（b）（c）（d）所示

(a) (b)

（c） （d）

图3－5 计算三角形的面积

12 zjh

vb上机实验

实验四 选择结构

【实验目的】

1．掌握逻辑表达式的正确书写形式。

2．掌握单分支与双分支条件语句的用法，熟悉If?.Then?..Else语句。 3．掌握选择结构中多条件，多分支程序的用法，熟悉Select Case语句。

【实验内容】

1. 编写程序，利用文本框检查用户密码。提示：可以用文本框的PasswordChar属性来隐蔽用户输入的字符。提示：设密码是“123456”，利用文本框的PasswordChar属性可以隐蔽用户输入的字符。

2．输入一个数字（0-6），用中英文显示星期几。提示：用多条件多分支选择语句Select Case来解决。

【实验步骤与指导】

1．实验内容 （1）建立用户界面。 （2）设置对象属性。

表4－1 属性设置

对象 Frame1 Text1 Label1 属性 Caption Text PasswordChar Caption FontName fontSize （3）编写事件代码。

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then '回车字符的Ascii为13

If Text1.Text = \

Label1.Caption = \欢迎使用本系统！\ Else

属性值 请输入您的密码： * 黑体 三号 说明 清空 只显示字符“*” 字体名称 字体大小 13 zjh

vb上机实验

Label1.Caption = \对不起，密码错！\ End If

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End If End Sub （4）运行程序

程序输出界面如图4－1，图4－2所示。

图4－1 验证密码正确 图4－2 验证密码不正确

2．实验内容

（1）建立用户界面。参考图4－3所示。

图4－3 界面设计

（2）设置对象属性。

14

zjh

vb上机实验

表4－2 属性设置

对象 属性 属性值 说明 Form1 Caption 星期 Label1 Caption 输入一个数字（0-6） Label2 Caption 空 BorderStyle 1-Fixed Single 边框样式 Caption 星期 Default True 缺省命令按Command1 钮 Text1 Text “” 空 3）编写事件代码。

Private Sub Command1_Click() Dim n As Integer, m As String n = Val(Text1.Text) Select Case n

Case 1

m = \星期一（Monday）\Case 2

m = \星期二（Tuesday）\Case 3

m = \星期三（Wednesday）\Case 4

m = \星期四（Thursday）\Case 5

m = \星期五（Friday）\Case 6

m = \星期六（Saturday）\Case 0

m = \星期日（Sunday）\Case Else

m = \重新输入\

End Select

Label2.Caption = m

End Sub

程序输出界面如图4－4所示。

15 zjh

（

vb上机实验

图4－4 程序运行结果

16

zjh

vb上机实验

实验五 循环结构

【实验目的】

1．掌握For语句的使用。 2．掌握Do语句的使用。

3．掌握如何控制循环条件，防止死循环或不循环。

【实验内容】

1. 利用For循环求S=1+(1+2)+(1+2+3)＋．．．+(1+2+3+．．．+n)的值。提示：本题是先进行内循环累加，再进行外循环累加，因此需要两个累加器．也可用一个循环来实现．括号内每累加一个数，就往S中累加一次。

2．输入一个正整数，利用“当型”循环判断是否素数。提示：“素数”是除了1和该数本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次2～n用做除数去除n，若n不能被其中任何一个数整除，则n为素数。

【实验步骤与指导】

1．实验内容 （1）建立用户界面。

（2）设置对象属性。参考图5－1所示。

图5－1 属性设置 图5－2 程序运行结果 （3）编写事件代码。

Private Sub Command1_Click( )

Dim n As Integer, i As Integer, j As Integer, s As Long

17

zjh

vb上机实验

n = Val(Text1.Text) j = 0: s = 0 For i = 1 To n j = j + i s = s + j Next i

Label2.Caption = \和数S=\Text1.SelLength = Len(Text1.Text) End Sub （4）运行程序

程序输出界面如图5－2所示。

2．实验内容

（1）建立用户界面。参考图5－3所示。

图5－3 界面设计

（2）设置对象属性。 （3）编写事件代码。

Private Sub Text1_GotFocus( )

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text) End Sub

Private Sub Command1_Click() Dim n As Long

Select Case Val(Text1.Text)

Case Is < 3

18

zjh

vb上机实验

MsgBox \请输入一个大于2的整数\注意\Case Is > 2147483647

MsgBox \该数太大\注意\Case Else

n = Val(Text1.Text) s = 0 i = 2

Do While i <= Sqr(n) And s = 0 If n Mod i = 0 Then

s = 1

Else: i = i + 1 End If Loop

If s = 0 Then

a = \是一个素数\Else

a = \不是一个素数\End If

Label1.Caption = Str(n) & a End Select Text1.SetFocus End Sub （4）运行程序

程序运行结果如图5－4所示。

图5－4 程序运行结果

19

zjh

vb上机实验

实验六 Sub过程

【实验目的】

1．掌握Sub过程的定义。 2．掌握Sub过程的调用。

3．掌握Sub过程参数传递规则。

【实验内容】

编写一个求阶乘的过程，调用该过程求4！和6！。

【实验步骤与指导】

1．设计界面

在窗体上添加两个命令按钮和两个标签。初始界面如图6－1所示。

图6－1 初始界面 图6－2 设置属性后的界面 2．设置属性

表6－1 属性设置

对象 Command1 Command2 Label1 Label1 Label2 Label2 属性 Caption Caption Caption BorderStyle Caption BorderStyle 求4！ 求6！ 1-Fixed Single 1-Fixed Single 属性值

设置属性后的界面如图6－2所示。

3．编写程序代码

20

zjh

vb上机实验

Private Sub jiecheng(n As Integer, result As Long) Dim i As Integer result = 1 For i = 1 To n result = result * i Next i End Sub

Private Sub Command1_Click( ) Dim x As Integer, t As Long x = 4

Call jiecheng(x, t)

Label1.Caption = Str(x) + \End Sub

Private Sub Command2_Click( ) Dim x As Integer, t As Long x = 6

Call jiecheng(x, t)

Label2.Caption = Str(x) + \End Sub

4．运行程序

分别单击“4！”命令按钮和“6！”命令按钮，程序运行效果如图6－3所示。

图6－3 求4！和6！

21 zjh

vb上机实验

实验七 Function过程

【实验目的】

1．掌握Function过程的定义。 2．掌握Function过程的调用。

3．掌握Function过程参数传递规则。

【实验内容】

编写一个求任意数的平方的函数，调用该函数求1～10的平方数。

【实验步骤与指导】

1．设计界面

在窗体上添加一个标签和一个列表框。初始界面如图7－1所示。

图7－1 初始界面 图7－2 设置属性后的界面 2．设置属性

表7－1 属性设置

对象 Label1 List1 List 属性 Caption 属性值 求1～10的平方数

设置属性后的界面如图7－2所示 3．编写程序代码

Private Function power(x As Integer) As Integer power = x * x

22

zjh

vb上机实验

End Function

Private Sub Form_Click( ) Dim a As Integer For a = 1 To 10

List1.AddItem power(a) Next a

End Sub 4．运行程序

运行程序后，单击窗体，程序运行效果如图7－3所示。

图7－3 求1～10的平方数

23

zjh

vb上机实验

实验八 单选框和复选框的应用

【实验目的】

1．掌握单选框,复选框的定义。 2．掌握单选框,复选框的区别。

【实验内容】

建立一个标准工程实现单选框和复选框的组合应用。

【实验步骤与指导】

1．设计界面

在窗体上添加一个单选框组(包含三个单选框),一个复选框组(包含三个复选框),两个标签框。初始界面如图6－1所示。

图8－1 初始界面 图8－2 设置属性后的界面 2．设置属性，如表8－1所示。

表8－1 属性设置

对象 Optionbutton1(0) Optionbutton1(1) Optionbutton1(2) Checkbox1(0) Checkbox1(1) Checkbox1(2) Label1 Label2 属性 Caption Caption Caption Caption Caption Caption caption caption 属性值 张文 王雪 林非 VB6.0语言程序设计 汇编语言 单片机原理 无 无

设置属性后的界面如图8－2所示。

24

zjh

vb上机实验

3．编写程序代码

Private Sub Check1_Click(index As Integer)

Dim k As String Dim i As Integer k = \

For i = 0 To 2

If Check1(i).Value = 1 Then

k = k & Check1(i).Caption & \End If Next i

k = \你选择了\Label2.Caption = k End Sub

Private Sub Option1_Click(index As Integer) Dim i As Integer For i = 0 To 2

If Option1(index).Visible = True Then

Label1.Caption = \你选择了\End If Next i End Sub

4．运行程序

分别单选框中的某一项和复选框中的某几项，程序运行效果如图8－3所示。

图8－3 运行结果

25 zjh

vb上机实验

实验九 组合框的应用

【实验目的】

1．掌握组合框的常用属性。 2．了解列表框和组合框的区别。

【实验内容】

运用组合框实现学校的添加与删除功能。

【实验步骤与指导】

1．设计界面

在窗体上添加四个命令按钮,一个标签,一个组合框和一个文本框。初始界面如图9－1所示。

图9－1 初始界面 图9－2 设置属性后的界面

2．设置属性，如表9－1所示。

表9－1 属性设置

对象 Command1 Command2 Command3 Command4 Label1 Text1 属性 Caption 名称 Caption 名称 Caption 名称 Caption 名称 Caption text 名称 设置属性后的界面如图9－2所示。

26

zjh

属性值 删除 CmdDel 添加 CmdAdd 清除 CmdClear 关闭 CmdEnd 学校 无 TxtInfor vb上机实验

3．编写程序代码

Private Sub CmdAdd_Click() CboMsg.Text = TxtInfor.Text End Sub

Private Sub CmdClear_Click()

CboMsg.Clear

End Sub

Private Sub CmdDel_Click() Dim IntIndex As Integer

IntIndex = CboMsg.ListIndex CboMsg.Text = \ Call Del(IntIndex)

End Sub

Private Sub CmdEnd_Click()

End

End Sub

Private Sub Form_Load() With CboMsg

.AddItem \盐城师范学院\

.AddItem \盐城生物工程高等学校\ .AddItem \盐城工学院\ .AddItem \盐城师范学校\ .ListIndex = 0 End With

End Sub 4．运行程序结果如图9－3所示

图9－3 程序运行结果

27

zjh

vb上机实验

实验十 图像框的应用

【实验目的】

1．熟悉图像框与图片框的区别。 2．掌握图像框的属性与特点。

【实验内容】

将一个图形文件放到图像框中，改变图像框的大小，观察图形是否随之改变。

【实验步骤与指导】

1．设计界面

在窗体上添加五个命令按钮和一个图像框。初始界面如图10－1所示。

图10－1 初始界面 图10－2 设置属性后的界面 2．设置属性，如表10－1所示。

表10－1 属性设置

对象 Command1 Command2 Command3 Command4 Command4 Image1 Image1 属性 Caption Caption Caption Caption Caption picture stretch 属性值 改变宽度 改变高度 改变高度和宽度 恢复原始尺寸 退出 E:\\vb\\ 65203483.wmf true

设置属性后的界面如图10－2所示。

28 zjh

vb上机实验

3．编写程序代码

Private Sub Command1_Click()

Image1.Left = Image1.Left - Image1.Width / 2 Image1.Width = Image1.Width * 2 End Sub

Private Sub Command2_Click()

Image1.Top = Image1.Top - Image1.Height / 2 Image1.Height = Image1.Height * 2 End Sub

Private Sub Command3_Click()

Image1.Left = Image1.Left - Image1.Width / 2 Image1.Width = Image1.Width * 2 Image1.Height = Image1.Height * 2 End Sub

Private Sub Command4_Click() Image1.Left = 2225 Image1.Top = 666 Image1.Height = 1515 Image1.Width = 1515 End Sub

Private Sub Command5_Click() End End Sub 4．运行程序

分别单击五个命令按钮，程序运行效果如图10－3 ~ 10－6所示。

图10－3 改变宽度后运行结果 图10－4 改变高度后运行结果

29 zjh

vb上机实验

图10－5 改变高度和宽度后的运行结果

图10－6 恢复原始尺寸

30

zjh

vb上机实验

实验十一 滚动条

【实验目的】

1．掌握滚动条的应用。 2．熟悉滚动条的属性。

【实验内容】

设计一程序，当拖动或单击水平和垂直滚动条使窗体上的文本框将随之上下或者左右移动。

【实验步骤与指导】

1．设计界面

在窗体上添加一个垂直滚动条，一个水平滚动条，一个文本框，一个命令按钮。初始界面如图11－1所示。

图11－1 初始界面

2．设置属性

表11－1 属性设置

对象 Hscroll1 Hscroll1 Hscroll1 Vscroll1 Vscroll1 Vscroll1 Text1 Command1 属性 max min largechange max min largechange text caption 31

属性值 1200 100 300 800 50 300 Vb6.0程序设计语言 退出 zjh

vb上机实验

设置属性后的界面如图11－2所示。

图11－2 设置属性后的界面

3．编写程序代码

Private Sub Command1_Click() End End Sub

Private Sub HScroll1_Change()

Text1.Left = 800 + HScroll1.Value End Sub

Private Sub VScroll1_Change()

Text1.Top = 300 + VScroll1.Value End Sub

4．运行程序

分别拖动水平滚动条或者垂直滚动条，程序运行效果如图11－3所示。

图11－3 程序运行效果

32

zjh

vb上机实验

实验十二 定时器

【实验目的】

1．掌握定时器控键的用法。 2．熟悉定时器控键的属性。

【实验内容】

编写一个程序利用计时器计时。 制作一个日历时钟应用程序。

【实验步骤与指导】

1．设计界面

在窗体上添加四个命令按钮，一个标签，一个计时器控件。初始界面如图12－1所示。

图12－1 初始界面

2．设置属性，如表11－1所示。

表12－1 属性设置

对象 Command1 Command2 Command3 Label1 Label1 Timer1 Timer1

33

zjh

属性 Caption Caption Caption BorderStyle Caption enable interval 属性值 开始计时 停止 重新开始 1-Fixed Single 0 true 400 vb上机实验

设置属性后的界面如图12－2所示

图12－2 设置属性后的界面

编写程序代码

Private Sub command1_Click() Timer1.Enabled = True End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Command3_Click() Label1.Caption = \End Sub

Private Sub Command4_Click() End End Sub

Private Sub Form_Load()

Me.Caption = Format(Now, \End Sub

Private Sub Timer1_Timer() Dim count As Long count = Label1.Caption count = count + 1

Label1.Caption = count End Sub

34 zjh

３．vb上机实验

4．运行程序

单击“开始计时”命令按钮，程序运行效果如图12－3所示。

图12－3 程序运行效果

35

zjh

vb上机实验

实验十三 数组

【实验目的】

1．了解一维数组的用法。

2．学会声明，使用一维数组。应用数组解决有关数组常用算法问题。 3．了解二维数组的用法。

4．学会声明，使用二维数组。应用数组解决有关数组常用算法问题。

【实验内容】

1．将下列文字“盐城生物工程高等学校计算机系”存放到数组中，并以倒序打印出来。要求把这14个字符存放到数组C(14)中，首先依此读取，然后利用循环，设置步长为－1初值为14，终值为1，实现倒序输出。

2．编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1，其余元素为0。提示：由于矩阵由行，列组成，需要双下标才能确定一元素位置，所以，使用二维数组来表示矩阵。设行用n表示，列用m表示，则主对角线元素即为行与列相等的元素（即n=m）,而次对角线的下标满足：n=11-m。 【实验步骤与指导】

1．实验内容 （1）设计界面。

（2）设置属性。如图13－1所示。

图13－1 将字符倒序输出

（3）编写程序代码。

Private Sub Command1_Click()

Dim x As Integer, c(1 To 14) As String

c(1) = \盐\城\生\物\工\

36

zjh

vb上机实验

c(6) = \程\高\等\学:c(10) = \校\c(11) = \计\算\机\系\For x = 1 To 14

Label1.Caption = Label1.Caption + c(x) Next x

For x = 14 To 1 Step -1

Label2.Caption = Label2.Caption + c(x) Next x

End Sub

（4）运行程序

程序输出界面如图13－2所示。

图13－2 将字符倒序输出结果 图13－3 界面设计 2．实验内容 （1）建立用户界面。

在窗体中使用图片框控件Picture1，参见图13－3所示，当然也可用列表框控件来显示矩阵的元素。

（2）设置对象属性。 （3）编写事件代码。

Private Sub Form_Activate() Dim z(10, 10) As Integer For n = 1 To 10

For m = 1 To 10

If n = m Or n = 11 - m Then z(n, m) = 1 Else

37

zjh

vb上机实验

z(n, m) = 0 End If Next

Next

Picture1.Print For n = 1 To 10

For m = 1 To 10

Picture1.Print Tab(m * 3); z(n, m); '输出各元素的值 Next

Print '换行Next End Sub

（4）运行程序

程序输出界面如图13－4所示。

图13－4 程序运行结果

38

zjh

vb上机实验

实验十四 菜单设计

【实验目的】

1．掌握菜单设计器窗口的操作技术。

2．掌握下拉式菜单和弹出式菜单的设计方法。

【实验内容】

1．建立一个窗体菜单，测试快捷键和访问键的功能。在窗体上放置一个文本框，根据菜单中选择的颜色，变换文本框的背景色。

2．在上题的基础上添加一个弹出式菜单，并测试弹出式菜单的执行情况。

【实验步骤与指导】

1．实验内容

（1）建立用户界面

利用“工具”菜单中的“菜单编辑器”菜单项，建立如图14-1所示的菜单。

图14-1 初始菜单

（2）属性设置

表14-1 菜单设计

标题 颜色（&C） ?红色 ?蓝色 ?绿色 ?— ?白色 ?黑色 退出（&X）

名称 mnuColor mnuRed mnuBlue mnuGreen Line mnuWhite mnuBlack mnuExit

快捷键 Ctrl+R Ctrl+B Ctrl+G Ctrl+W Ctrl+K

(3) 编写事件代码

Private Sub mnuExit_Click() End End Sub

39

zjh

vb上机实验

Private Sub mnuBlack_Click() Text1.BackColor=RGB(0,0,0) End Sub

Private Sub mnuBlue_Click() Text1.BackColor=RGB(0,0,255) End Sub

Private Sub mnuGreen_Click() Text1.BackColor=RGB(0,255,0) End Sub

Private Sub mnuRed_Click()

Text1.BackColor=RGB(255,0,0)

End Sub

Private Sub mnuWhite_Click()

Text1.BackColor=RGB(255,255,255) End Sub

(4) 运行程序

测试程序，测试快捷键和访问键，观察运行结果。

2．实验内容

（1） 在实验1的菜单中增加一个菜单项，如表14-2所示

表14-2 新增菜单项

标题 弹出菜单 ?打印星号 ?打印字母

名称 mnuPop mnuPopStar mnuPopNum

可见性 False

（2） 修改属性

将Text1的对齐属性Alignment设为“2”（居中），多行属性MultiLine设为“Ture”，字体Font属性设为“小三”。

（3）添加程序代码

Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single, Y As Single)

If Button =2 Then Form1.PopupMenu mnuPop,4 End Sub

Private Sub mnuPopNum_Click() Text1.Text=””

Text1.Text=”1 2 3 4 5 6 7 8 9 0”& Chr(13) & Chr(10) &”0 9 8 7 6 5 4 3 2 1 “

40 zjh

本文来源：https://www.bwwdw.com/article/gyd3.html