大学计算机基础实验指导教程电子版

目录

实验一熟悉Visual Basic 6.0编程环境 ....................................................................... 实验二Visual Basic语句基础 ............................................................................................ 实验三顺序结构 . (23)

实验四选择结构（一） ..................................................................................................... 实验五选择结构（二） ..................................................................................................... 实验六循环结构（一） ..................................................................................................... 实验七循环结构（二） ..................................................................................................... 实验八循环结构（三） ..................................................................................................... 实验九循环结构（四） ..................................................................................................... 实验十一维数组程序设计 ................................................................................................. 实验十一二维数组程序设计 ............................................................................................. 实验十二控件数组和自定义数组程序设计 ..................................................................... 实验十三过程程序设计（一） ......................................................................................... 实验十四过程程序设计（二） ......................................................................................... 实验十五窗体和常用控件（一） ..................................................................................... 实验十六窗体和常用控件（二） ..................................................................................... 实验十七窗体和常用控件（三） ..................................................................................... 实验十八用户界面设计（一） ......................................................................................... 实验十九用户界面设计（二） ......................................................................................... 实验二十用户界面设计（三） ....................................................................................... 实验二十一图形操作 .........................................................................................................

实验一熟悉Visual Basic 6.0编程环境

【实验目的】

（1）熟悉VB集成开发环境。

（2）掌握建立、编辑和运行一个VB应用程序的全过程。

（3）掌握窗体、文本框、标签和命令按钮控件的基本属性及其设置。

（4）掌握窗体、文本框、标签和命令按钮的应用。

（5）掌握每个控件的常用事件和方法。

【实验内容】

用事例介绍在VB集成环境下操作的整个过程。

【1-1】用VB设计一个应用程序，完成以下功能。

（1）单击“文字”命令按钮，显示出红色文字“面向对象的程序设计语言——VB”，如图1-4所示。

（2）单击“计算”命令按钮，计算并显示该门课程的学时，如图1-5所示。

（3）“文字”命令按钮和“计算”命令按钮可以多次使用。

（4）单击“结束”命令按钮，则结束程序的运行。

操作步骤：

(1)启动VB后，出现如图1-1所示的界面。在“新建工程”对话框中，在默认选项下，直接单击“打开”按钮，新建一个窗体Form1，如图1-2所示。

图1-1 Microsoft Basic 6.0中文版的启动界面

工具箱窗体

代码窗口

立即窗口工程资源管理窗口

属性窗口

窗口布局

图1-2 VB窗口的布局

（2）单击工具箱中的控件，在窗体设计窗口中添加一个标签和3个命令按钮，如图1-3所示。

图1-3 应用程序界面

（3）设置每个对象（控件）的属性如表1-1。

表1-1 窗体及各控件属性值设置

（4）输入代码

代码又称为命令或者语句。

◆双击“文字”按钮，进入代码窗口。

Private Sub Command1_Click() ‘Command1的Click（单击）事件过程

Form1.Cls

Label1.Caption = "面向对象程序设计--VB"

End Sub

说明：

Form1表示窗体这个对象。Cls是一个方法，功能是清除。

因为“文字”和“计算”两个命令按钮允许多次使用，为了不使结果在窗口上重复显示，用Form1.Cls方法，清屏。

1-4 单击“文字”命令按钮以下几个

◆双击“计算”按钮，进入代码窗口。

Private Sub Command2_Click()

Form1.Cls

Label1.Caption = ""

Print ‘输出一空行

Print Spc(6); "VB程序设计课程学时数为：" & 4 * 16 & "学时"

End Sub

1-5 运行“计算”命令按钮运行结果界面

双击Command3(结束)按钮，进入代码窗口

Private Sub Command3_Click()

End

End Sub

（5）保存过程

选择“文件”菜单中的“保存过程”命令，先保存窗体文件，然后保存过程文件。或使用标准工具栏上的“保存”按钮。

单击“标准”工具栏中的“保存工程”按钮 ，系统将打开“文件另存为”对话框，主要保存类型，保存窗体文件（*.frm）到指定文件夹中。窗体文件存盘后系统会弹出“工程另存为”对话框，保存类型为工程文件（*.vbp），默认工程文件名为“工程1.vpb”，保存工程文件到指定文件夹中。

工程文件保存后，随后弹出“Source Code Control”消息框，询问是否把当前工程添加到微软的版本管理器中，单击“No”按钮即可。

如果计算机上没有安装Visual Source Safe则不会出现“Source Code Control”消息框。

注意：由于一个工程可能会有多种文件，如工程文件和窗体文件，这些文件集合在一起才能构成应用程序。因此，建议在保存工程时将同一工程所有类型的文件存放在同一文件夹中，以便修改和管理工程文件。

保存VB工程文件的默认路径是VB98。

（6）运行程序

单击“标准”工具栏中的“启动”按钮 （或直接按F5功能键）。

反复按三个命令按钮，观察程序运行结果界面。

(7)生成可执行文件

选择“文件”菜单中的“生成工程 1.exe”命令，在打开的“生成工程”对话框中使用“工程1.exe”文件名，则工程就编译成可脱离VB环境的EXE文件。

注意：窗体的MDIChild属性设置为False。否则，无法运行。

（8）完整的源程序文件如下：

Private Sub Command1_Click()

Form1.Cls

Label1.Caption = "面向对象程序设计--VB"

End Sub

Private Sub Command2_Click()

Form1.Cls

Label1.Caption = ""

Print

Print Spc(6); "VB程序设计课程学时数为：" & 4 * 16 & "学时"

End Sub

Private Sub Command3_Click()

End

End Sub

【1-2】通过窗体的Caption（标题）、MaxButton(最大化按钮)和MinButton(最小化按钮)等属性设置，了解窗体属性设置的一般方法，运行结果如图1-6所示。

图1-6 运行结果

操作步骤：

(1)在属性列表中单击Caption属性，在文本框中输入标题“我的第一个窗体”。

(2)在属性列表中单击MaxButton属性，在属性值中选择False（用户也可双击改变该属性）。

(3)同样，在属性列表中单击MixButton属性，在属性值中选择False.

(4)单击“标准”工具栏中的“启动”按钮 （或直接按F5功能键），运行该程序。从运行结果图1-1看到应用程序窗口中没有最大化和最小化按钮。

【1-3】按以下操作步骤，利用标签创建如图1-7所示的“宿舍管理系统”界面的窗体。

图1-7 标签使用事例运行结果界面

操作步骤：

(1)创建一个新工程，在窗体中，使用控件工具箱中的“标签”按钮，分别创建3个标签控件。

按住Ctrl键同时按工具箱中的“标签”按钮，在窗口中可以拖曳无数个标签。按ESC 键取消。

(2)在属性窗口中，分别为窗体和控件设置如表1-2所示的属性值。

(3)按F5功能键，启动该程序，观察运行效果。

表1-2 窗体及各控件属性值设置

【1-4】利用命令按钮，创建如图1-8所示的应用程序。 窗体中有4个命令按钮，分别实现以下功能。 ● 窗体运行时，自动居中，且命令按钮Command2(白色)不可用。

● 单击命令按钮Command1(红色)时，要求改变窗口背景颜色为红色，且命令按钮Command3(图形按钮)不可用，其它命令按钮可用。

● 单击命令按钮Command2时，要求改变窗口背景颜色为白色，且命令按钮Command1、命令按钮Command3（图形按钮）和命令按钮Command4可用。 ● 当单击命令按钮Command3

时，窗体标题处显示单击该按钮的次数。 ●

单击命令按钮Command4（退出）时，退出窗体程序。

图1-8运行结果界面

操作步骤：

(1)新建一工程，在窗体中添加4个命令按钮。调整各控件的相互位置，窗体对象各属性如表1-2所示。

表1-3 窗体及控件属性值的设置

(2)在“窗体布局”窗口中，单击鼠标右键，依次选择快捷菜单中的“启动位置”——“屏幕中心”命令，可设置程序执行时窗口在屏幕中央的位置，如图1-9所示（或在“窗体布局”窗口中直接将窗体移动到中央）。

图1-9 “窗口布局”窗口和快捷菜单

（3）各命令按钮的事件代码如下。

◆在事件代码编辑窗口中，在“对象”列表框选择“通用”选项，定义一个模块

级变量sss，用于存储单击按钮的次数:

Dim sss As Integer '定义一个模块级变量，用于存储单击按钮的次数

◆窗体Form1的Load的事件代码为：

Private Sub Form_Load()

‘或Command2.Enabled = False

End Sub

◆命令按钮Command1的Click事件代码为：

Private Sub Command1_Click()

form1.BackColor = RGB(255, 0, 0) ‘设置窗体颜色为红色

Command1.Enabled = False ‘命令按钮Command1不可用

Command2.Enabled = True ‘命令按钮Command2可用

Command3.Enabled = False

Command4.Enabled = True

End Sub

◆命令按钮Command2的Click事件代码为：

Private Sub Command2_Click()

BackColor = vbWhite ‘设置窗体颜色为白色

Command1.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

End Sub

◆命令按钮Command3的Click事件代码为：

Private Sub Command3_Click()

sss = sss + 1

Form1.Caption = "你本次是第" & Trim(Str(sss)) & "次按下此按钮"

‘trim函数的功能：将字符串的前导空格和尾随空格都除去

‘str函数的功能：将数值转换为字符串

End Sub

◆命令按钮Command4的Click事件代码为：

Private Sub Command4_Click()

End