VB高级语言程序

您现在的位置： VB高级语言程序设计 >> 实验指导

VB高级语言程序设计在线教程

实验一简单程序设计

上机练习内容
1．创建一个应用程序：显示信息。程序界面如图1-1所示。功能：单击【显示】按钮，在文本框中显示文本：“这是我的第一个VB程序”，同时在窗体的标题栏中显示你的班级和姓名；单击【退出】按钮则退出应用程序。

提示：窗体中显示的文字信息用标签实现，显示文字的字体、字形、字号通过该标签对象的Font属性设置；单击按钮发生该按钮对象的Click事件；程序中用代码修改文本框和窗体的Caption属性。
要求：修改程序中所用对象的名称使其有意义；将该程序以“显示信息”为工程和工程文件的名字保存在“A:\实验1-1”文件夹下。

2．创建应用程序：改变字型。功能：单击【显示】按钮，在文本框中显示：“Hello Visual Basic”；单击【粗体】按钮，文本框中的文本在粗体和非粗体之间转换；单击【斜体】按钮，文本在斜体非斜体之间转换；单击【下划线】按钮，文本带有下划线，再次单击取消下划线；单击【退出】按钮则退出应用程序。
提示：由于本题的基本功能与第一题类似，所以本题可在第一题的基础上修改，修改添加新功能后务必将窗体另存和将工程另存。也可创建一个新的工程，然后执行【工程】|【添加文件】菜单命令，添加第一题的窗体文件，删除本工程中创建的Form1窗体。在这个窗体上添加新功能，然后另存窗体。

要求：界面设计应美观；设置对象的Name属性使其有意义；将该程序以“改变字型”为名保存在“A:\实验1-2”文件夹下。

3．创建应用程序：颜色控制。使用第二题的窗体，添加三个命令按钮：【红】（用于显示单色）、【随机颜色】、【改变颜色】。功能：启动应用程序后，单击【红】按钮，文本框中的文字变为红色，同时【红】按钮的标题改为“绿”；单击【绿】按钮，文字变为绿色，同时【绿】按钮的标题改为“蓝”；单击【蓝】按钮，文字变为蓝色，同时【蓝】按钮的标题改为“红”，如此循环；单击【随机颜色】按钮，文字随机地改为一种颜色；单击【改变颜色】按钮，文字由红逐渐变成绿，又由绿逐渐变为蓝，再由蓝逐渐变为红。
提示：单色的转换用分支结构实现，通过判断按钮的Caption属性决定所作的操作；颜色的逐渐改变用循环结构实现。

要求：将此程序以“颜色控制”为名保存在“A:\实验1-3”文件夹下。

选作内容

4．对上机练习内容第2题作如下修改：改变应用程序的图标（自选定）；程序运行时，使窗体的的大小占计算机屏幕的一半，并居中显示；程序运行后，当鼠标指针移到命令按钮上时，使鼠标指针变为“手示图”。
5．使用安装向导创建第4题的安装程序，使用软磁盘作为安装介质。制作完成后，运行安装程序进行安装。

实验二分支结构

上机练习内容

1．计算分段函数。功能：从键盘上输入x的值，单击【计算】按钮，便显示出y的值。

提示：可以用文本框接受x的值，也可以用输入对话框（InputBox函数）来接受x的值。Y的值可以输出在标签、图片框、窗体或文本框中。
要求：将此程序以“计算分段函数”为名保存在“A:\实验2-1”文件夹下。

扩充练习：题目要求用单击命令按钮来启动代码的执行。读者可以练习用其它方法激活代码。如单击窗体或单其它控件，或者通过判断文本框中输入的字符是否特定的字符。如通过判断输入的是否回车符来决定是否启动执行代码。 2．计算某个学生所得奖学金的等级。以三门课的成绩M1、M2、M3为评奖依据，标准如下：

一等奖：符合下列条件之一者：
● 平均分大于95
● 有两门成绩是100分，且第三门成绩不低于80分。
二等奖：符合下列条件之一者：
● 平均分大于85
● 有一门成绩是100分，且其余两门成绩均高于70分。
三等奖：各门课程成绩均高于75分。
提示：可用复杂的逻辑表达式表示各等级奖学金的条件。也可以用If……Then…… ElseIf……End If来完成。

要求：
（1）三门课程的成绩从键盘上输入，单击【确定】按钮后，显示出该学生的获奖情况。
（2）将此程序以“计算奖学金”为名保存在“A:\实验2-2”文件夹下。

3．设计一个简宜的电话收费系统。收费标准如下：通话时间在3分钟以内，收费0.5元，不足3分钟按3分钟计算；3分钟以上，则每超过1分钟加收0.15元，不足1分钟按1分钟计算；周一到周五的7:00至19:00之间通话，按上述收费标准收费。其余时间内通话，按半价收费。要求：

(1) 由文本框输入电话号码，按回车键后【开始通话】按钮才有效。单击【开始通话】按钮后开始计时，此时【开始通话】按钮无效，【结束通话】按钮有效。单击【结束通话】按钮结束通话，显示通话时间和费用。
(2) 电话号码以七位数字为准，不足七位按回车后显示“号码位数不足”。多于7位时文本框不接受。
(3) 若在文本框中输入的字符不是0~9的数字，也不是回车符，则系统显示信息：“电话号码必须是数字”。
(4) 将此程序以“电话收费系统”为名保存在“A:\实验2-3”文件夹下。
扩充练习：使用一个按钮完成本题的功能。按下【开始通话】按钮，则开始计时，此时按钮呈现按下状态，释放鼠标按键，则按钮抬起，通话结束，显示出通话时间和费用。
选作内容
1．从键盘上输入三条线段的长度，判断由这三条线段是否能组成一个三角形，如能组成三角形，求出三角形的面积，否则显示“不能组成三角形”的信息。
2．求任意一元二次方程aX2+bX+c=0的根。
3．对“电话收费系统”进行功能扩充，添加“查询话费”功能。单击【查询话费】按钮，显示本次运行程序后某号码的话费总和。

实验三循环结构

上机练习内容

1．计算S=1!+(1!+3!)+(1!+3!+5!)+……+(1!+3!+5!+……+(2*n-1)!)。n的值由键盘输入。
提示：（1）代码可放在文本框的KeyPress()事件过程中。
（2）设p为阶乘，t为每一项的值，s为累加和。pn = pn-1*n
tn = tn-1+pn，sn = sn-1+tn
要求：（1）由键盘输入n的值并回车后，马上显示出S的值。
（2）对n的值能进行有效性检验。当输入除回车符外的非数字字符时就弹出消息对话框显示出错信息。
（3）将此程序以“计算阶乘和”为名保存在“A:\实验3-1”文件夹下。
2．单击一个按钮，随机产生100个[100，999]间的三位素数，显示在文本框中。用代码查找113，如找到显示出顺序号，否则显示“没找到”。
要求：此程序以“查找素数”为名保存在“A:\实验3-2”文件夹下。
3．计算丌的近似值，丌的计算公式为：
要求：（1）输入小数点以后的位数及计算精度（或n值），则按要求输出计算结果。
（2）此程序以“丌的近似值”为名保存在“A:\实验3-3”文件夹下。
4．打印如图3-1所示的杨辉三角图案。
提示：（1）定义一个二维数组，数组中的每一行第一个和最后一个数均为1，其余每一个数正好等于它上面一行的同一列和前一列数之和。
（2）利用TAB函数定位每行显示的起始位。
（3）为了便于显示，显示内容可放在图片框中。
要求：此程序以“打印图案”为名保存在“A:\实验3-4”文件夹下。

选作内容

1．规范文章。对输入的任意大小写文本进行整理，规则是所有句子开头（句子结束符为“.”、“？”、“！”）为大写字母，其他都是小写字母。
2．设计一个计算器，具有进行二进制、八进制、十六进制的加、减、乘、除运算的功能。

实验四过程与常用算法

上机练习内容
1．定义一个求数n的阶乘的函数，并通过调用此函数计算S=1!+3!+5!+……+(2*m-1)!。m的值由键盘输入。
要求：此程序以“n的阶乘”为名保存在“A:\实验4-1”文件夹下。
2．定义一个判断x是否素数的子过程，并通过调用此过程打印出前100个素数。
提示：子过程的入口参数是x（整型数）；出口参数是F（布尔变量）F为True，表示x是素数，F为False，表示x不是素数。
要求：此程序以“判断素数”为名保存在“A:\实验4-2”文件夹下。
扩充练习：将子过程改为函数。
3．定义一个子过程，求一维数组中所有大于等于60的数据的个数及所有数据之和。将某班30名学生的计算机课程的成绩存入一个数组中，调用子过程，打印出不及格的人数及全班的平均分数。
提示：入口参数设计为一个数组；出口参数有两个：n(>=60的数据个数)，s（数据总和）。
要求：此程序以“一维数组”为名保存在“A:\实验4-3”文件夹下。
4．对某班VB课程的成绩排序。
要求：（1）分数和姓名通过文本框输入；定义输出成绩单子过程和分离数据子过程。并通过调用过程输出某班按降序排列的VB课程的成绩单，注意分数和姓名的对应关系。
（2）此程序以“成绩排序”为名保存在“A:\实验4-4”文件夹下

选作内容

1．编一函数，对给定的字符串S，找出最长的单词。假定字符串S中只含有字母和空格，空格用来分隔不同的单词。
提示：（1）程序中用到当前单词、最长单词、当前单词长度、最长单词长度等变量。
（2）首先求出输入的字符串的长度，对每个字符判断：若不为空格，将每个字符连接到当前单词的字符串变量，当前单词长度计数器加1；若为空格，表示一个单词结束，将当前单词长度与最长单词长度比较，若前者长，用当前单词替代最长单词，当前单词置空，当前单词计数器清0。
2．编一子过程，对于给定的正整数，判断是否回文数。回文数是指顺读与倒读数字相同，即最高位与最低位相同，次高位与次低位相同，依次类推。当只有一位数时，认为是回文数。
要求：（1）输入一系列数，每输入一个数，立即判断，并在图片框中显示。若是回文数，在该数后显示一个“√”。
（2）为了保证输入的是数值，对输入的数据要进行判断若有非法数据，显示出错信息，重新输入。

实验五窗体与标准控件（一）

上机练习内容

1．修改例2.7（蝴蝶飞过窗口），使蝴蝶飞出窗口后又从右下角飞向左上角，飞出窗口后又从左下角飞向右上角，如此反复。

提示：蝴蝶向右飞出窗口时，图象框的Left属性值大于窗体的Width属性值；蝴蝶向左飞出窗口时，图象框的Left属性值为负数。通过判断图象框的Left属性，决定Move方法中的参数。

要求：将此程序以“蝴蝶飞舞”为名保存在“A:\实验5-1”文件夹下。

2．创建应用程序：统计成绩。界面如图5-1所示。功能：窗体左边有五个成绩输入框供用户输入各科成绩。输入完一科成绩后，按回车键，如果输入数据有非数值，则显示出错对话框，要求重新输入，如果输入的数据小于0或大于100，也显示出错对话框，并要求重新输入，在要求重新输入的情况下，该输入框自动清空并具有焦点；如果输入值合理，则焦点自动转到下一个输入框，最后一个成绩输入完成后，焦点转到【合计】按钮上。从下面的五个复选框中选择需要统计的科目，单击【合计】按钮，则在【合计】文本框中显示选择统计的总分数。
提示：输入成绩的5个文本框作成一个控件数组，5个复选框也作成控件数组，并使其索引值相对应，可使代码大为简化。对输入数据的合法性检查可在文本框控件数组的LostFocus 或KeyPress事件过程中进行。出错对话框可用Msgbox函数或Msgbox语句实现。

要求：将此程序以“统计成绩”为名保存在“A:\实验5-2”文件夹下。

3．对实验一的第二题进行改进：对文本框中显示的文字的字型（粗体、斜体、下划线）改用复选框控制，并用两组单选按钮控制文字的字体和字号。界面如图5-2所示。提示：建立该工程后，执行【工程】|【添加文件】菜单命令，添加实验一第2题的窗体，修改后将窗体另存。

要求：将此程序以“控制字体”为名保存在“A:\实验5-3”文件夹下。

选作内容

4．使用应用程序向导创建一个多文档的文字处理器应用程序。带有【登录】对话框，以输入用户名和验证密码；带有【关于】对话框，以显示与程序相关的信息。密码设定为“123456”，只有输入正确的密码，才能进入程序。设计【关于】对话框的界面，使展示更确切的信息。

5．对本实验第2题进行改进：添加一个窗体作为选择合计确认对话框，单击【合计】按钮时，显示该对话框对要进行合计的科目进行确认。如果选择无误，则关闭该对话框后继续进行合计操作；如果选择有误，则关闭对话框后不进行合计操作，而要求重新选择要合计的科目。

实验六窗体与标准控件（二）

上机练习内容

1．对实验五的第3题（控制字体）进行改进：把对“粗体”、“斜体”、“下划线”的选择用列表框实现；对字符颜色的控制用列表框实现：从列表框中控制“红”、“绿”、“蓝”三种基色的数量，当从列表框中选中一个表项时，弹出一个输入对话框，输入该基色值后，该表项的文本后带有输入的基色值，单击【显示】按钮后，按所设置的颜色显示；对字符大小的控制用组合框实现，可从列表中选择，也可键入新值。
提示：基色值输入对话框用InputBox函数，关闭对话框后修改表项的文本，字符颜色的设置在【显示】按钮的Click事件中实现；字型的设置在列表框的Click事件中实现；字号的改变中组合框的Click事件和Change事件中完成。

要求：该程序以“控制文本显示”为名保存在“A:\实验6-1”文件夹下。

2．创建应用程序：用记事本打开文件。功能：利用文件系统控件查找磁盘上扩展名为TXT、BAT等标准的文本文件，文件列表框中显示的文件类型由一个组合框确定，选定一个文件后，在标签中显示被选中文件的路径和文件名，单击【打开】按钮，启动Windows的记事本应用程序，并打开选定的文件进行编辑。

提示：在VB程序中启动其它应用程序可使用Shell函数或Shell语句，Shell函数的语法格式为：

Shell (pathname [, windowstyle])

其中：pathname是必要的参数，表示要执行的程序名以及任何必要的参数或命令行变量，可包括驱动器、路径或文件夹；windowstyle是可选参数，表示在程序运行时窗口的样式，其取值有：
0 – 窗口隐藏
1 – 窗口具有焦点，且恢复到它原来的大小和位置
2 – 窗口以一个具有焦点的图标显示
3 – 窗口具有焦点，以最大化方式显示
4 – 窗口被还原为最近使用的大小和位置
5 – 窗口显示为一个图标，不具有焦点

要求：该程序以“用记事本打开文件”为名保存在“A:\实验6-2”文件夹下。

3．创建应用程序：滚动字幕。功能：类似于Windows98的滚动字幕屏幕保护程序，要求用一个计时器控件和一个滚动条调节和控制滚动速度，文字的大小及距窗体顶端的距离都是随机的，从左向右滚动。
提示：设置窗体的BorderStyle属性为0，使不带有标题栏；WindowState属性设置为2，程序运行时使窗体最大化；单击窗体退出。
要求：该程序以“滚动字幕”为名保存在“A:\实验6-3”文件夹下。

选作内容

4．设计一个用于输入教师信息的应用程序，界面如图6-4所示。【民族】和【政治面目】用下拉式组合框选择，其中的表项自设；【职称】用简单组合框；水平滚动条用于输入外语熟练成度（0-100）。输入完成并单击【确定】按钮时，在另一个窗体上输出这些信息�

br> 5．利用计时器和图象框控件，编写一个交通路口自动红、绿灯模拟程序。功能：在规定的时间内红、黄、绿灯自动开启和关闭。红、黄、绿灯显示的延迟时间可由滚动条控件设置；在晚9点到凌晨2点之间三个灯全亮，其余时间按设置的时间自动转换；在一个标签中显示下一次转换的剩余时间。

实验八对话框设计
上机练习内容
1．为一应用程序使用窗体设计一个登录对话框，如图8-1所示。程序运行时先显示该登录对话框，要求用户输入密码，若输入的密码不对，则显示一个消息对话框，提示密码错误；若连续三次输入错误，则显示非法用户信息，使不再接收输入；若在三次之内输入了正确的密码，则关闭登录对话框，启动该应用程序。
提示：接收密码输入文本框的PasswordChar属性设置为“*”。
要求：该程序以“登录对话框”为名保存在“A:\实验8-1”文件夹下。
2．创建应用程序：图象浏览器。界面如图8-2所示。功能：单击【浏览】按钮，显示【打开】文件对话框，供选择用浏览器程序显示的图片文件，要求对话框中显示的文件类型为*.bmp;*.ico等图片文件。用两个UpDown控件调整显示图象的宽度和高度，并将宽度和高度值显示在文本框中。
提示：两个文本框分别作为UpDown控件的伙伴控件，使其Text属性与UpDown控件同步，并通过Text属性设置图象框的宽度和高度；程序运行时先读取图象框的宽度和高度属性值，为文本框的Text属性赋初值。
要求：该程序以“图象浏览器”为名保存在“A:\实验8-2”文件夹下。
3．把实验七第2题（文本编辑器）【设置】菜单下的所有子菜单删除，添加【选项】菜单项，将原来【设置】菜单下的所有菜单项功能用SSTab控件通过选项卡对话框实现。其中颜色的设置用Slider控件调整。

提示：在设置前景颜色和背景颜色的选项卡中，用三个Slider控件调整红、绿、蓝三种基色的数量。
要求：该程序以“图象浏览器”为名保存在“A:\实验8-3”文件夹下。

选作内容

4．参考教材例9.1对实验七第2题（文本编辑器）添加一个用窗体制作的【关于】对话框、一个用窗体制作的【查找】对话框和一个【替换】对话框，用于显示应用程序的信息和查找替换主窗体文本区中的文本字符。
要求：（1）在主窗体的【编辑】菜单中添加【查找】、【替换】菜单项逻辑组，用于打开【查找】和【替换】对话框。
（2）在【帮助】菜单中添加【关于…】菜单项，用于打开【关于】对话框。
（3）执行【查找】菜单命令，显示【查找】对话框，输入要查找的字符串后，单击【确定】按钮，则把光标定位到找到的字符串处。（4）在【替换】对话框中用两个文本框输入要替换的字符和被替换的字符，单击【确定】按钮完成替换操作，并用一个消息对话框显示有多少处被替换，当没有要替换的字符时，用一个消息对话框显示找不到的信息。
（5）对话框显示为模态类型，对话框中不显示控制菜单、最大化按钮和最小化按钮。
5．对上题实现【文件】菜单下的【打开】和【保存】菜单项的功能；并在适当的菜单下添加【打印】、【颜色】和【字体】菜单项，使能够利用公共对话控件，通过标准对话框完成相应的设置。
提示：打开或保存一个文本文件可用Open语句。语法格式为：
Open “文件名” For 方式 As [# ]文件号
其中：“文件名”参数用于指定打开或保存的文件名字符串；“方式”用于指定文件的打开方式，若是打开文件后，从文件中读取数据，则指定为Input，若是打开文件后，向文件中写入数据，则指定为Output或Append；“文件号”为打开的文件指定一个文件号。打开文件后，再用相关的方法读写数据。

实验九综合练习

1．仿照Windows记事本编写一个“文本编辑器”程序。要求具有新建文件、打开现有文件、保存和另存文件、打印，剪切、复制、粘贴，设置字体、字型、字号、文字颜色，查找、替换，帮助等功能。
提示：为了使文件的格式更丰富，可使用RichTextbox控件，该控件是ActiveX控件，部件名为Microsoft Rich Textbox Control6.0。
2．设计一个计算器应用程序。功能：能进行加、减、乘、除、乘方、开方、十进制与二进制的转换、十进制与十六进制的转换等运算。
3．设计一个指法练习程序。功能：用户可选择练习方式，如单字符、双字符、三字符、三字符以上的词组等；随机产生字符；字符键入错误时有提示音；显示正确率及速度。
4．设计一个通信录系统。要求具有录入新友、按姓名查询、编辑修改、删除记录、打印等功能。
5．仿照Windows画笔编写一个图象编辑器应用程序。功能：打开现有图片进行浏览、编辑；保存或另存；绘制各种几何图形，并能对颜色、线条进行设置。
6．仿照“超级解霸”设计一个媒体播放器。功能：可播放音频、CD、VCD等媒体文件；可选择播放方式，如播放一次、循环播放等。
7．仿照IE编写一个Web浏览器程序。功能：输入网址，浏览Web页，并动态显示当前打开的Web页的状态。
8．建立以上各程序的EXE文件和发行介质。