VB语言程序设计实验

课 程 号：10010402
适用专业：全校非计算机专业
制 定 人：
教 研 室：计算机公共基础教研室


计算机科学与信息工程学院
2007 年5 月

前言
VB语言是一种被广泛学习、普遍使用的计算机程序设计语言。它的高级语言行式、低级语言功能具有特殊的魅力。由于VB语言具有完整的编程语言特点，因而被大多数高等院校作为典型的计算机教学语言。在计算机等级、全国计算机应用证书考试等多种计算机知识考试中都有VB语言。此外，VB语言作为一门实用的、功能强大的程序语言，被程序设计人员广泛使用。因此，VB语言是一门十分重要的程序设计语言。
《VB语言程序设计》课程，面向全校非计算机专业的本科生开设计算机基础课。以VB语言为平台，介绍程序设计的思想和方法。通过学习，不仅使学生掌握高级编程语言的知识、编程技术和基本算法，更重要的是掌握程序设计的思想和方法，具备利用计算机求解实际问题的基本能力，能灵活应用高级语言进行程序设计。
本实验指导书中详细介绍了每个实验的目的、实验内容，并在方法上给出了指导，希望对同学们的学习能够有所帮助。
另外希望同学们对书中的错误和遗漏多提宝贵意见。可以登录网站:https://www.doczj.com/doc/ba4347320.html,/netteach。


实验要求
VB语言程序设计实验是VB语言程序设计课程的重要组成部分，属于学科基础实验范畴，是与相关教学内容配合的实践性教学环节。学生通过实验，验证课堂学习的知识，掌握算法设计、编程实现和程序调试的方法，从而形成一定的编程能力。
在《VB语言程序设计》的课程实验过程中，要求学生做到：
（1）预习实验指导书有关部分，认真做好实验内容的准备，就实验可能出现的情况提前作出思考和分析。
（2）仔细观察上机和上网操作时出现的各种现象，记录主要情况，作出必要说明和分析。
（3）认真书写实验报告。实验报告包括实验目的和要求，实验情况及其分析。对需编程的实验，写出程序设计说明，给出源程序框图和清单。
（4）遵守机房纪律，服从辅导教师指挥，爱护实验设备。
（5）实验课程不迟到。如有事不能出席，所缺实验一般不补。
实验的验收将分为两个部分。第一部分是上机操作，包括检查程序运行和即时提问。第二部分是提交书面的实验报告。

目 录


实验一 Visual Basic的集成开发环境 5
实验二 数据类型 9
实验三 顺序结构程序设计 11

实验四 选择控制结构 16
实验五 选择控制结构（2） 20
实验六 循环控制结构 21
实验七 数组 22
实验八 过程 25
实验九 界面设计和使用设计多窗体界面 26
实验十 文件操作编程 30
实验十一 图形编程 31
实验十二 数据库编程 32
实验十三 小规模实用软件的设计 33



实验一 Visual Basic的集成开发环境
【实验目的】
1．了解Visual Basic的集成开发环境
2．学会Visual Basic帮助系统的使用
3．了解可视化编程的一般步骤
4．掌握窗体界面风格设计方法

【实验内容】
1．设计一个窗体，包含两个标签和两个文本框，若在"输入"框中输入任意文字，将在"显示"框中同时显示相同的文字


2．编写一个简单的应用程序：只有一个窗体，窗体上有一个文本框和三个命令按钮，要求如下：
1) 单击第一个命令按钮，文本框显示"程序设计第一步：设计界面"
2) 单击第二个命令按钮，文本框显示"程序设计第二步：属性设置"
3) 单击第三个命令按钮，文本框显示"程序设计第三步：编写代码"



3．编写一个简单的应用程序：只有一个窗体，窗体上有两个文本框和两个命令按钮，要求如下：
1) 单击窗体的空白处，结束程序
2) 单击第一个命令按钮，第一个文本框显示"How are you！"，第二个文本框显示"你好！"
3) 单击第二个命令按钮，第一个文本框显示"你好！"，第二个文本框显示"How are you！"



4．编写一个简单的应用程序：只有一个窗体，窗体上有两个文本框和两个命令按钮，要求如下：
1) 单击窗体的空白处，结束程序
2) 单击第一个命令按钮，第一个文本框显示"Visual Basic 程序设计"，第二个文本框不显示任何信息
3) 单击第二个命令按钮，第一个文本框不显示任何信息，第二个文本框显示"Visual Basic 程序设计"



5．编写一个简单的应用程序：只有一个窗体，窗体上有一个标签，一个文本框和三个命令按钮，要求如下：
1) 在文本框内输入文字的同时，在标签上显示文本框中的文字
2) 单击第一个命令按钮，清除标签显示的文字
3) 单击第二个命令按钮，清除文本框显示的文字
4) 单击第三个命令按钮，结束程序



6．编写一个简单的应用程序：只有一个窗体，窗体上有一个标签，一个文本框和一个命令按钮，要求如下：
1) 文本框为密码框的形式
2) 在文本框中输入完成后，单击按钮一，则标签显示文本框中输入的以密码形式显示的文字



7．在新建的工程中，观察窗体Form1的属性窗口中的（名称）属性和Caption属性的值（应都默认为Form1）。按一下要求熟悉如何在属性窗口中修改属性
1) 将窗体的（名称）属性改为f1，标题（Caption）属性改为"我

的第一个工程"
2) 单击工具箱中的文本框控件（TextBox），在窗体上拖动鼠标画一个文本框Text1，在其属性窗口中修改Text属性值为"欢迎使用Visual Basic"
3) 用同样的方法在窗体上画另一个文本框Text2，将文本框Text2的MultiLine属性设置为True，以便显示多行文本。修改其Text属性，使其内容为"Visual Basic是一种可视化的、面向对象和采用事件驱动的结构化高级程序设计语言"，在Text属性中输入文本每行文本后用"Ctrl+Enter"组合键换行
4) 在窗体上画出三个命令按钮，修改它们的Caption属性，使按钮表面显示文字分别为"修改字体"、"修改颜色"、"退出"，观察三个按钮的（名称）属性，并将它们的名称分别改为C1、C2、C3，调整好界面中各控件的大小和位置
5) 同时选中窗体上的所有控件，观察属性窗口中的变化，使用Font属性将字号全部设置为五号

8．使用"文件"菜单下的"新建工程"命令新建一个标准EXE工程，按一下步骤操作，熟悉事件的概念
1) 在窗体中添加一个命令按钮"改变窗体颜色"，编写代码，使得运行时鼠标在该按钮上按下时，窗体背景颜色为红色（vbRed），鼠标抬起时窗体背景颜色为绿色（vbGreen）
提示：窗体的背景颜色属性为BackColor，鼠标按下事件为MouseDown，鼠标抬起事件为MouseUp

9．新建一个标准工程，在窗体上放置两个命令按钮"打印"和"清除"，界面如下图所示

其中，"打印"按钮Command1的Click事件过程如下：
Private Sub Command1_Click()
Form1.Print "对窗体使用打印方法Print"
Form1.Print "对窗体使用清除方法Cls"
End Sub
"清除"按钮Command2的Click事件过程如下：
Private Sub Command2_Click()
Form1.Cls
End Sub
运行该工程，检查对窗体Form1使用Print方法和Cls方法的效果


实验二 数据类型
【实验目的】
1．掌握窗体的Print方法
2．掌握数据类型、变量、运算符和表达式
3．掌握简单的输入、输出控件用法

【实验内容】
1．思考如下程序的输出结果
Private Sub Form_Click()
Dim str As String, i As Integer
str = "hello"
i = 100
Print 2 & 3
Print 2 + 3
Print 2 + "3"
Print str & "nihao"
Print str + "nihao"
Print str & i
Print str + i
Print i & "nihao"
Print i + "nihao"
End Sub
先思考，然后可以在计算机中测试，查看自己的思考结果与计算机输出的结果是否相同

2．编写一个程序，在第一个文本框和第二个文本框中输入两个数，并单击"确定"按钮后，在第三个文本框中输出两个数的和


3．按规律变化文本框中的数值，单击"加一"按钮文本框中的数值加一，单击"减一"按钮文本框中的数值减一


4．设计应用程序，输入圆柱体的底面半径和高，求底面积、侧面积

、体积，要求如下：
1) 界面如下图所示
2) 程序中将PI定义成符号常量（用Const pi=......）
3) 将输入的底面半径和高分别存于变量r和h中（r和h声明为单精度型）


5．设计界面如下图所示，单击"出题"按钮，产生任意两个[1,100]之间的随机整数，单击"计算"按钮，求这两个数的和



实验三 顺序结构程序设计
【实验目的】
1．掌握顺序结构程序设计方法
2．熟练使用各种数据类型、变量、运算符和表达式
3．能够设计出较复杂的顺序结构程序

【实验内容】
1．在窗体上设计两个标签，两个文本框，三个按钮，为这些控件设置相应的属性。要求如下：
1) 第一个文本框用来接收输入一个大写英文字母，点击按钮一，在第二个文本框中输出其相应的小写英文字母
2) 第二个文本框用来接收输入一个小写英文字母，点击按钮二，在第一个文本框中输出其相应的大写英文字母
3) 点击按钮三清除文本框一和文本框二中的内容



2．在窗体上设计两个标签，两个文本框，三个按钮，为这些控件设置相应的属性。要求如下：
1) 第一个文本框用来接收输入一个英文字母，点击按钮一，在第二个文本框中输出其相应的ASCII值
2) 第二个文本框用来接收输入一个英文字母的ASCII值，点击按钮二，在第一个文本框中输出其相应的英文字母
3) 点击按钮三清除文本框一和文本框二中的内容



3．点击窗体上的按钮显示如下的输入框，并将输入的数据赋值到一个变量中



4．点击窗体上的按钮显示如下的输入框，并将输入的数据赋值到一个变量中



5．点击窗体上的按钮显示如下的消息框



6．点击窗体上的按钮显示输入框，输入数据（不一定非得是数字），并用消息框显示出输入的数据



7．点击窗体上的按钮分别输入a和b两个整型变量的值，并在窗体上显示a和b两个变量的值，然后将a和b的值相交换，然后在窗体上显示出来









8．在窗体上设计两个标签，两个文本框，一个按钮，为这些控件设置相应的属性。要求如下：
1) 在两个文本框中分别输入一些数据（不一定非得是数字），然后单击按钮，将两个文本框中的数交换显示





9．设计一个计算购书价钱的程序，界面如下图所示，要求如下：
1) 界面上的文字全部为宋体五号
2) 编写代码，在输入单价与数量之后，单击"计算总价(C)"按钮，将计算出总价钱，显示于相应的文本框中，单击"退出(X)"按钮结束运行。


10．设计一个收款计算程序，界面如下图所示，要求如下：
1) 三个输入文本框依次取名为T1、T2、T3，应付款文本框取名为TRESULT
2) 单击"计算"按钮计算应付款
3) 单击

"清除"按钮清楚应付款内容
4) 单击"退出"按钮结束执行


实验四 选择控制结构
【实验目的】
1．理解选择结构在程序设计中的重要作用
2．学会使用选择结构解决问题的思维方法
3．能够设计出较简单的选择结构程序

【实验内容】
1．输入一个正整数，编写程序判断该数是奇数还是偶数，界面如下：

输入一个奇数后的输出结果的界面如下：

输入一个偶数后的输出结果的界面如下：


2．输入一年份，判断它是否为闰年，并显示相关信息，界面如下：

如果输入年份是闰年，则界面如下：

如果输入年份不是闰年，则界面如下：


3．某服装店经营套服，也单件出售。若买的不少于50套，每套80元；不足50套的每套90元；只买上衣的每件60元；只买裤子的每条45元。界面如下：



4．税务部门征收所得税，规定如下：
收入在200元以内，免征；
收入在200~400元内，超过200的部分纳税3%；
收入超过400元的部分，纳税4%；
当收入达500元或超过的时候，将4%税金改为5%
编程实现根据收入计算应纳税额，界面如下：


5．已知软件学院入学测试计分情况为：数学（math）满分50分；计算机（computer）满分100分；外语6级（lang6）为"优秀"加15分，"通过"加8分；外语4级（lang4）为"合格"加6分，外语只能记一次最高的分数，利用inputbox输入一个学生的对应课程的成绩，编写计算考试总分（sum）的程序。
注：括号内为对应课程的变量名，自行设计界面。

6．设计一个登陆界面功能如下：
1) 输入帐号和密码
2) 根据密码判断是否可以登陆，如果可以登录显示欢迎信息，如果不可以登录显示错误提示信息
登陆界面如下：

用户名为空的时候的提示信息：

成功登陆后的提示信息：

密码错误的提示信息：


7．用多分支选择语句实现：输入年份和月份，求该月的天数
提示：当月份为1、3、5、7、8、10、12时，天数为31天；当月份为4、6、9、11时，天数为30天；当月份为2时，如果为闰年则天数为29天，否则为28天。某年为闰年的条件是：年份能被4整除，但不能被100整除，或年份能被400整除

实验五 选择控制结构（2）
【实验目的】
1．进一步理解选择结构在程序设计中的重要作用
2．能够设计出较复杂的选择结构程序

【实验内容】
1．输入一个3位整数，计算该数是否水仙花数：
153=1^3+5^3+3^3

2．给出1个百分制成绩，要求如果输入成绩则输出对应的A、B、C、D、E等级
（90以上A，80-89 为B，70-79为C，60-69为D，60以下E）
要求使用if/else 和select case两种写法

3．根据输入的运算符进行计算（只进行加、减、乘、除运算，注意除法的除数如

果为零要报错），界面如下：


4．打印1~1000中所有能被3整除的数

5．打印1~1000中所有能被3整除的奇数


实验六 循环控制结构
【实验目的】
1．理解循环结构在程序设计中的重要作用
2．学会使用循环结构结合选择结构和顺序结构解决问题的思维方法
3．能够设计出较复杂的循环结构程序
4．思考几种不同循环语句间的区别，并找出不同情况下该使用何语句

【实验内容】

1．计算

2．打印1990~2000年中，所有闰年。

3。求所有水仙花数：153=1^3+5^3+3^3

4．编程计算1000内的所有完数。完数是指一个数恰好等于其因子之和。Eg:6=1+2+3

5．搬砖问题：36块砖，36人搬，男搬4块，女搬3块，2个小儿抬1块，要求1次搬完。问需男、女、小儿各多少人。

6．求整数m、n的最大公约数、最小公倍数

7．求Sn=a+aa+aaa+aaaa+...+aa...a （n个a）
EG:n=5 S=2+22+222+2222+22222

8．求分数序列，前20项之和：




9．计算

10．判定一个数是否素数

11．打印1~100以内所有的素数

实验七 数组
【实验目的】
1．理解数组的含义及其作用
2．掌握使用一维和多维数组编程的一般方法
3．熟练掌握与数组相关的各种算法

【实验内容】
1． 通过inputbox输入十个正整数，将这些正整数存放于一个数组内，求出数组中的最大值、最小值和平均值，并输出数组中的全部数据，界面如下：（注意inputbox中的文字）




2． 向一个有序数组中插入一个数据，并保持数组继续有序，例如：原数组为：1、2、3、4、6、7、8、9，插入5后，原数组变为：1、2、3、4、5、6、7、8、9，数组继续保持有序

3． 输入一个正整数，将该正整数从数组中删除，如果该正整数不在数组中则报错，否则删除该正整数，例如：原数组为：1、2、3、4、5、6、7、8、9，如果输入0，因为该正整数不在数组中，则报错

如果输入5，则删除该数，数组变为：1、2、3、4、6、7、8、9

4． 通过inputbox输入10个正整数，使用冒泡法对数组进行排序

5． 通过inputbox输入10个正整数，使用选择法对数组进行排序

6． 将数组2连接到数组1的后边，例如：数组1为：1、2、3、4，数组2为：5、6、7、8，将数组2连接到数组1的后边后，数组1变为：1、2、3、4、5、6、7、8

7． 生成一个4*4矩阵，按照矩阵的形式输出，并求出所有元素之和，主对角元素之和，每一行的最大值和整个矩阵的最小值

8． 生成一个4*4矩阵，将矩阵的上三角输出，然后将矩阵转置，并将转置后的矩阵输出

9． 生成一个4*4矩阵，将此4*4矩阵存储于一个一维数组中，并将改一维数组输出

10．打印杨辉三角

11．设计型题目设计，设计一个较

为复杂的一维数组操作程序，实现对一维数组的基本操作，具体要求如下：
（1）通过inputbox函数实现对一维数组的输入，可以将数组定义为100个整型元素，输入其中的10个元素
（2）在屏幕上将数组中的10个元素在屏幕上输出
（3）往数组中插入一个元素，并将插入后的11个元素在屏幕上输出
（4）从数组中删除一个元素，并将删除后的10个元素在屏幕上输出
（5）从数组中查找一个元素，并将查找后的元素下标在屏幕上输出，如果元素不存在，给出提示


实验八 过程
【实验目的】
1．掌握结构化程序设计方法
2．掌握函数和过程定义和调用方法
3．了解主调函数和被调函数之间的参数传递方式
4．熟练掌握数组作为函数参数的用法

【实验内容】
1．编写过程，输出1000以内的所有素数

2．编写过程，求出1000以内的所有完数

3．编写多个过程，分别计算圆柱表面积和圆柱体积

4．编写过程，求出100-999之间水仙花数

5．编写过程，求出含有10个元素的一维数组的最大值

6．编写过程，对含有10个元素的一维数组进行排序

实验九 界面设计和使用设计多窗体界面
【实验目的】
1．掌握工具栏和状态栏的使用
2．掌握多窗体和多文档界面的设计
3．掌握常用控件的重要属性、事件和方法

【实验内容】
1．设计一个运行界面如下图所示，当用户在"操作选项"框架中选定操作后，文本框发生相应的变化，同时在"操作说明"框架中的标签上显示有关的操作说明


2．编写一个运行界面如下图所示的程序，用户能从"饭店菜单"把选定的"菜"添加到下面的列表框中


3．设计一个应用程序，当"计算机"和"操作系统"未被选定时，它们所在框架的其它控件不能使用。组合框能够将输入一个新的选项添加到下面的列表框中供下次选择。如果单击"确认"按钮显示所选择配制。


4．使用ProgressBar、Timer和CommandButton控件设计一个模拟的带动画的进度条，当用户单击"开始计算"按钮时开始进行，过30s后ProgressBar被填满，动画结束，界面如下图所示

5．编写一个字幕滚动程序，用时钟控件和滚动条调节和控制字幕滚动速度，文字的大小及距窗体顶端的距离是随机的，从右向左连续滚动]，界面如下所示


6．编写包含菜单的计算程序，界面如下所示


菜单项 名 称 快捷键 计算1 Cal1 ....加法 Add Ctrl + A ....减法 Sub Ctrl + B 计算2 Cal2 ....乘法 Mul Ctrl + C ....除法 Div Ctrl + D ....- Fenge ....清除 Clean Ctrl + E
7．建立如下文本编辑器界面，菜单项的建立可参阅Windows文本编辑器，工具栏使用ToolBar控件与ImageList控件联合建立




实验十 文件操作编程
【实验

目的】
1．文件系统控件的使用
2．掌握多窗体和多文档界面的设计
3．掌握RichTextBox的使用
4．掌握应用程序向导的使用

【实验内容】
1．文件管理控件的使用练习（显示指定的文件目录中的文件，并可以根据文件类型分类显示），界面如下所示


2．设计一个学生成绩管理应用程序，输入一个班10个学生的成绩，并将数据存放到磁盘文件中，记录号和总分自动显示，界面如下所示

实验十一 图形编程
【实验目的】
1．了解VB的图形功能
2．掌握建立图形坐标系的方法
3．掌握常用几何图形绘制

【实验内容】
1．设计一程序，自定义一个坐标并显示该坐标系，界面如下所示


2．随意画一些折线，界面如下


实验十二 数据库编程
【实验目的】
1．掌握VB中数据库的使用方法
2．掌握数据库管理器的使用
3．掌握Data数据库控件和ADO数据控件的使用
4．掌握书库邦定控件的使用

【实验内容】
1．设计一个简单的人员管理系统，其中分别使用Data控件和ADO控件，其中包括查看人员信息，添加人员和删除人员的基本功能，界面如下



实验十三 小规模实用软件的设计
【实验目的】
1．运用课程所学知识，设计一个小规模的实用程序。
2．进一步提高程序设计的能力。
3．理解和掌握函数、过程和文件在程序设计中的重要作用，熟悉常用算法，理解算法设计的作用。

【实验内容】
1．实验的基本内容
学生自行设计一个小规模实用软件，如学生成绩管理、日记管理等，运用数组的算法进行数据处理，以文件的方式保存和打开数据，各种功能要求使用函数或过程实现。
要求涉及以下内容及算法：
①自行设计界面，能够通过点击不同的Button或单选按钮，选择进行相应的操作，要求设计界面清晰明确，能够有相应的数据显示。
②一维数组的遍历、排序、插入、逆序、查找、删除、求max\min，字符串长度、比较大小、复制、连接等算法（自行选择所需算法）。
③二维数组遍历、求对角线元素之和、求max/min，转置、按行列方式输出等算法（自行选择所需算法）。
④字符串的相关函数使用。
⑤数据能够保存和打开。
2．实验的基本要求
本实验为设计型实验，学生在教师的指导下，从实验五开始进入设计阶段，实验过程一直延续到课程的最后。
实验学时：课内上机时间2学时，课外上机时间8学时。
实验结束后提交源程序和完整实验报告。
VB语言程序设计实验指导书

- 1 -