程序设计基础VB

1、程序设计基础（ VB）实验指导书丽水学院计算机系2007年9月目录实验总体说明 2实验 1 简单的 VB 程序设计 4实验 2 基本的控制结构 7实验 3 数组 10实验 4 过程 11实验 5 常用控件 13实验 6 界面设计 15实验 7 文件 17实验 8 图形操作 18实验 9 数据库技术 20实验总体说明实验目的：通过实验教学主要培养学生程序调试与错误分析的能力，提高学生程序设计 与应用软件开发能力的水平， 掌握面向对象程序设计基本概念， 掌握窗体和常用控件的使用， 培养学生能较熟练地用 Visual Basic 语言开发 Windows 环境下一般应用程序的能力。以程序设计为主线，

2、全面掌握计算机语言的基本知识（包括数据类型、常量、变量、函 数、表达式、语句）和结构化程序设计的基本内容（包括程序的输入及输出、程序的三种基 本结构、子程序及文件的使用） ；通过常用控件及 ActiveX 控件的使用，熟练掌握可视化编 程的基本思想和方法。 结合理论知识部分的知识， 通过上机阅读案例程序、 编写和调试程序、 上机考试等手段，提高学生的实际动手能力。基本要求：1. 熟悉 VB6.0 的集成环境及基本操作；2. 掌握 VB 赋值语句、用户交互函数 Inputbox 与 Msgbox 的使用；3. 熟练掌握 IF 语句及 IF 语句的嵌套应用，掌握 Select Case 语句的使用

3、；4. 熟练掌握 ForNext 语句及 DoLoop 循环语句的使用，掌握循环结构的嵌套使用；5. 掌握数组的使用及用数组解决与数组有关的常用算法。 ；6. 掌握函数过程及子过程的定义、调用及参数传递方法；7. 理解过程及变量的作用范围，理解变量的生存期；8. 熟练掌握窗体及常用控件的使用；9. 掌握菜单的设计及文件操作、图形操作；10. 了解 VB 应用程序常见的错误类型， VB应用程序调试和排错的一般方法；11. 了解 VB 数据管理器及常用数据控件的使用方法。实验内容如下表：序 号实验项目名称实验类型计划学时各专业开出要求实验者 类别每组人数必做选做实验一简单的 VB程序设计验证型2本

4、专科1实验二基本的控制结构验证型6本专科1实验三数组验证型2本专科1实验四过程验证型2本专科1实验五常用控件验证型10本专科1实验六界面设计验证型4本专科1实验七文件验证型2本专科1实验八图形操作验证型4本专科1实验九数据库技术验证型2本专科1备注第二部分 实验内容实验 1 简单的 VB 程序设计一、实验目的1熟悉 Visual Basic 开发环境2掌握建立和编辑和运行一个简单的 Visual Basic 应用程序的全过程3掌握窗体对象、常用控件（文本框、标签、命令按钮）的属性、方法、事件二、实验内容1请参考如下图所示程序的运行结果，新建一个工程，完成“加法器”程序的设计。具 体要求如下：（

5、 1）窗体的标题为“加法器” ，固定边框。（2）在窗体上从到下依次引入 Text1 、Text2 、Text3 三个文本框，三个文本框的对齐 方式均为右对齐。（3）上面两个文本框用于输入加数，要求不接受非数字键（ 4）下面一个文本框用于显示和，它不能进行编辑操作。（ 5）单击“ =”按钮（ Command）1，将两个加数的和显示在下面一个文本框中。6）单击“清空”按钮（ Command）2，三个文本框内容都被清空，同时第一个文本框获得焦点提示：Text 文本框存放 string 类型数据，为了使程序正常运行，应通过 val （）函数将字符串 转化成数值类型。2请参考如下图所示程序的运行结果。新

6、建一个工程，完成“编辑”程序的设计。具体要求如下：（1）窗体的标题为“编辑” ，固定边框。（2）窗体是上半部是一个文本框 Text1 ，可以多行显示文字。（ 3）文本框的下面从左到右依次排列 4 个命令按钮（ Command、1 Command、2 Command3 和 Command）4，标题分别为“复制” 、“剪切”、“粘贴”和“删除”。（ 4）编写各命令按钮的单击事件，分别实现“复制” 、“剪切”、“粘贴”和“删除”功能。提示：可以参照教材 p35 的例题 2.63请参考如下图所示程序的运行结果， ,新建一个工程，设计一个 密码检验 程序。具 体要求如下：（1）窗体的标题 密码检验 。固

7、定边框。（2）对文本框控件 Text1 进行设置，使得在文本框控件中输入的字符显示为 * ，并且最 多可以接受 7 个字符。（3）将标签控件 Label2 的对齐方式设置为居中对齐，大小随字体自动调整，不可见。（4）当在文本框中输入密码 “1234567”，并按回车后， 显示标签 Label2 为“欢迎光临！”； 如果输入的密码与“ 1234567”不吻合，显示标签 Label2 为“密码不符，请重新输入！ ”，同 时清空文本框的内容。（5）如果 3 次输入的密码都与“ 1234567”不吻合， 显示标签 Label2 为“非法用户， 请退出程序！”，文本框变为不可使用。（6）以标签代替 te

8、xt1 （通过输入框输入密码） , 以信息框代替 label2, 重做本题。提示：可以定义一个静态变量 s，用来存放输入密码的次数。 检验密码正确与否用循环结构完成，当 s3 时退出循环按回车键检验密码是否正确，利用 text 文本框的 keypress事件。三、实验环境软件： visual basic 6.0四、实验过程编写程序代码，进行上机验证，调试，出正确结果实验 2 基本的控制结构一、实验目的1掌握表达式、赋值语句的正确书写规则。2掌握常用函数的使用3掌握 inputbox 与msgbox的使用4掌握逻辑表达式的正确书写形式5掌握单分支与双分支条件语句的使用6掌握多分支条件语句的使用7

9、掌握情况语句的使用及与多分支条件语句的区别8掌握 for 语句和 do 语句的使用9掌握如何控制循环条件，防止死循环或不循环二、实验内容1请参考如下图所示程序的运行结果，新建一个工程，完成“健康称”程序的设计。具 体要求如下：（1）窗体的标题为“健康称” ，固定边框。（2）窗体的左边有两个标签， Label1 的标题为“身高”、Label2 的标题为“体重”；它 们的旁边分别有两个文本框， Text1 用于输入身高、 Text2 用于输入体重；在文本框的右边 有两个标签， Label3 的标题为“ cm”， Label4 的标题为“ kg”。（3）将两个文本框文字对齐方式均设置为右对齐，最多接

10、受3 个字符。（4）两个文本框均不接受非数字键。（5）单击“健康状况”按钮 （Command1，） 根据计算公式将相应的提示信息显示在标签 Label5 中。计算公式为：标准体重 =身高 -105；体重高于标准体重 *1.1 为偏胖，提示“偏胖，注意 节食”；体重低于标准体重 *0.9 为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示 “正常， 继续保持”。原密码”、“新密码（ N）”、“新密码（ S）”、提示：标准体重 =val（text1.text）-105实际体重 = vale（text2.text） 用 if elseif else 语句结构。条件一 : 实际体重 标准体重 * 1.1

11、偏胖条件二 : 实际体重 标准体重 * 0.9偏瘦其他： 正常2. 请参考如下图所示程序的运行结果，新建一个工程，完成“修改密码”程序的设计。 具体要求如下：（1）当单击 确定按钮后, 首先比较 用户名和原密码是否一致，若一致且都为admin, 则继续执行步骤 4；否则弹出消息框 ,提示用户出错 , 并让用户重新输入；（2）比较“新密码（ N）”和“新密码（ S）”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入3）所有消息框按 Design.exe 所示设计。4）当单击“取消”按钮时 , 程序终止执行（5）当按Tab 键时，保证按照“用户名” 确定”按钮

12、和“取消”按钮顺序访问各控件。提示：消息框函数 msgbox（）设置各控件的 tabindex属性（ Tab键访问次序）3. 教材上 p267的实验 C 选择结构 中的第 7 题（用 Select Case 语句实现）提示：为了使程序运行正确，对存放操作符的文本框 text3 ，应使用 trim （text ）函数，去除 运算符两边的空格对于存放操作符的文本框 text3 ，利用 select case 语句实现。4请完成用于打印数字金字塔的程序。运行结果如下图所示：12223333344444445555555556666666777778889提示：用循环结构语句，循环体内的显示用 str

13、ing ()函数，找出循环控制变量与 string 函 数内字符个数的关系。例如 string(i) 表示将数据型 i 转换成字符串， trim 函数表示去除字 符串两边的空格，因为将数值转换成字符串后，系统自动在数字前加符号位，正数为空格、 负数为“ - ”，而 string 函数只取字符串中的第一个字符，本例为空格，因此需要用 trim 函 数。5. 请完成用于输出所有的水仙花数的程序。所谓水仙花数是指一个三位数等于它每位上 数字的立方和。例如： 371=33+73+13，那么 371 就是一个水仙花数。提示:检验的数字范围为三位数( 100-999 )定义三个变量分别为 x(个位数上的数

14、字)、y(十位数上的数字) 、z(百位数上的数字)把一个三位数 s 从右边开始逐位分离的程序代码如下：x=s mod 10y= (s10) mod 10z= (s100) mod 10用循环结构语句来求得符合条件的 x,y,z ，即 z3+y3+x3=zyx6请用 DO LOOP循环结构完成下面的 程序 ：该程序用于计算并打印 s=1+2+22+23+，直至 s 超过 1E+16。提示：找出规律，每一项是前面一项的基础上乘以 2。可以用循环把每一项表示出来。循环退出条件为多项式的和 =1E+16。三、实验环境软件： visual basic 6.0四、实验过程编写程序代码，进行上机验证，调试，

15、出正确结果实验 3 数组一、实验目的1. 掌握数组的声明、数组元素的使用2. 掌握静态数组和动态数组的区别3. 应用数组解决与数组有关的算法问题二、 实验内容1. 随机产生 10个任意的正整数，求最大值、最小值、平均值，并显示整个数组的值和结 果。提示:求元素和 , 通过循环将每个元素进行累加。求数组中最小元素 , 假设第一个元素为最小，然后将该数与其他元素逐一比较，若发现 小于最小值，就用新值替换最小值，同时记录下标值。求最大值的方法与求最小值相似。2. 输入整数 n，显示出具有 n行的杨辉三角形。用print 方法在图形框 picture 中输出杨辉三角。定义一个二维数组(若用定长数组实现

16、，则数组大一些，若用动态数组，则数组大小用 redim 函数在程序中重新定义。对于每个元素正好等于它上面一行的同一列和前一列的两个元素之和。即 a(i,j)=a(i-1,j-1)+a(i-1,j)利用tab 函数控制每列的宽度。三、实验环境软件： visual basic 6.0四、实验过程编写程序代码，进行上机验证，调试，出正确结果实验 4 过程一、实验目的1 掌握自定义函数过程和子过程的定义和调用方法。2 掌握形参和实参的对应关系。3 掌握值传递和地址传递的传递方式。4 掌握变量、函数和过程的作用域。5 掌握递归概念和使用方法。6 熟悉程序设计中的常用算法。二、实验内容1. 编写一子过程，

17、对于已知正整数，判断该数是否是回文数，所谓回文数是指顺读与倒 读数字相同， 即指最高位与最低位相同， 次高位与次低位相同， 依次类推，当只有一位数时， 也认为是回文数。提示： 所谓回文数是指顺读与倒读数字相同，即最高位和最低位相同，次高位与次低位相同， 依次类推，当只有一位数时，也认为是回文数。回文数的求法，只要对输入的数（按字符串类型处理），利用mid函数从两边往中间逐位比较，若不相同，就不是回文数。2. 如果一个整数的所有因子（包括 1，但不包括本身）之和与该数相等，则称这个数为 完数。例如 6=1+2+3，所以 6是一个完数，编写一个函数 isws（m）, 判断m是否为完数，函数的 返回

18、值是一个逻辑型，主调程序在列表框里显示 1000以内的完数。如图教材 p279的图F.4 所 示：提示：判断一个数 m是否是完数，算法思想是：将 m依次除以 1-m/2 ，如果能整除，就是 m 的一个因子，进行累加，循环结束，若 m与累加因子之和相等， m就是完数。3. VB 语 言 程 序 调 试 第 01 题 ， modify.bas 模 块 中 的 Summary过 程 是 用 于 计 算 1!+2!+.+20! ，并打印出计算结果。 Modify.Bas 模块中的 nFactor 函数过程用于计算 n! 。提示：用循环结构语句，在循环体中把每一项表示出来，每一项 i!= 前面一项 *I

19、;i=i+1, 再在循 环体中进行累加，求出和。4. VB语言程序调试第 17题，Modify.Bas 模块中的 Prime 过程是求出 100到 200之间所有的素数，并打印出来提示：素数m的定义：只能被 1和它本身 m整除的数，用循环结构判断是否能被 2-m-1之间的数整 除，如果有，则不是素数，如果没有，就是素数。三、实验环境软件： visual basic 6.0四、实验过程编写程序代码，进行上机验证，调试，出正确结果。实验 5 常用控件一、实验目的1. 掌握常用控件的重要属性、事件和方法。2. 了解常用 activx 控件的特性，应用这些高级控件进行编程。3. 初步掌握就图形用户界面

20、应用程序的过程。了解键盘事件，鼠标事件及其事件过程 的编写。二、实验内容1请参考如下图所示程序的运行结果，新建一个工程，完成“字体设置”程序的设计。 具体要求如下：（1）窗体的标题为“字体设置” ，固定边框。（2）窗体的上边有一个文本框 Text1 ，文字内容为“心想事成” 。（3）文本框下面的左边有一个标签 Label1 ，标题为“字体：”，标签下面是一个简单组 合框 Combo1，有三项内容，分别是“宋体、黑体、隶书” ，单击时文本框的字体进行设置。（4）文本框下面的中间有一个标签 Label2 ，标题为“字形：”，标签下面是一个简单组 合框 Combo2，有三项内容，分别是“常规、斜体、

21、粗体、粗斜体” ，单击时文本框的字体进 行设置（ 5）文本框下面的右边有一个标签 Label3 ，标题为“大小：”，标签下面是一个简单组 合框 combo3，有八项内容，分别是“ 10、12、16、20、 24、36、48、72”，单击时对文本框 的文字大小进行设置。提示：参考教材 p154 的例题 7.12. 请参考如下图所示程序的运行结果，新建一个工程，完成“改变大小”程序的设计 具体要求如下：（ 1）窗体的标题为“改变大小” ，固定边框。2）窗体上引入一个红色的圆形形状控件（ Shape1），圆的直径为 3400Twips（ 3）窗体的下面有一个水平滚动条 Hscroll1 ，将它的最大

22、值设置为与圆的直径相同， 初始值为最大值， SmallChange 和 LargeChange 均为 100Twips。（ 4）水平滚动条的下面有两个标签控件， Label1 的标题为“圆直径为： ”，Label2 的标 题为“ 3400”，两个标签均为固定边框。（ 5）改变滚动条的值可以控制圆形的直径， 同时在标签 Label2 中动态显示圆形的直径。（6）要求圆形直径在变化时要保持圆心位置不变。3. 请参考如下图所示程序的运行结果，新建一个工程，完成“字幕闪烁”程序的设计。 具体要求如下：（ 1）窗体的标题为“字幕闪烁” ，固定边框。（ 2）在属性窗口中将标签 （Label1） 的标题设为

23、“祝您考试成功” ，字体设置为“宋体”、 字形为“粗体”、大小为“二号”、文字颜色为“红色”。格式设置为在窗体中水平居中对齐。（ 3）单击“开始”按钮，标签文字在定时器控制下自动交替以红兰两种颜色显示。同 时“开始”按钮变为“停止”按钮。停止”按钮变为“开始”按钮4）单击“停止”按钮，标签文字停止闪烁。同时，5）定时器（ Timer1 ）的时间间隔为 0.3 秒。三、实验环境软件： visual basic 6.0四、实验过程编写程序代码，进行上机验证，调试，出正确结果实验 6 界面设计一、实验目的1. 掌握利用菜单设计器来建立、修改菜单项的方法；2. 掌握通用对话框的建立和功能；3. 掌握菜

24、单的常用属性：如 Caption ， Enabled，Index ，Visible 等；4. 掌握菜单的 Click 事件；5. 掌握通用对话框的常用属性和常用方法；6. 了解弹出式菜单的建立方法；7. 了解自定义对话框的使用。二、实验内容1请参考如下图所示程序的运行结果， 新建一个工程， 完成“字体设置” 程序的设计 具体要求如下：（1）窗体上的相同类型的控件按照从上到下， 从左到右的顺序放置，并按照默认方式命 。例如有 4个CommandButton类型的控件，命名按照如下方式：Command1 Command2Command3 Command4（2）窗体上引入一个通用对话框控件。（3）单

25、击菜单“字体” ，通用对话框控件显示为字体对话框，并对文本框字体进行修饰（4）单击菜单“文字颜色”，通用对话框控件显示为颜色对话框，并对文本框文字颜色 进行修饰。（5）单击菜单“背景颜色”，通用对话框控件显示为颜色对话框，并对文本框背景颜色 进行修饰。（6）文本框设计为带垂直滚动条。（7）界面及功能设计请参考 Design.exe 文件。2请参考如下图所示程序的运行结果，新建一个工程，完成“画板”程序的设计。具 体要求如下：（1）窗体上的相同类型的控件按照从上到下，从左到右的顺序放置，并按照默认方式 命名。例如有 4个CommandButton类型的控件，命名按照如下方式：Command1 C

26、ommand2 Command3 Command4（2）窗体的右部是图片框，可以用鼠标左键进行绘图。（3）“选项”框架中有两个单选钮控件， 选择“细” 时，绘图的线宽设置为 1，选择“粗” 时，绘图的线宽设置为 5。（4）“选项”框架中的 “颜色”按钮打开通用对话框为颜色对话框， 并设置绘图的颜色。（5）“选项”框架中的“清除”按钮用于清除图片框中的内容。（6）界面及功能设计请参考 Design.exe 文件。三、实验环境软件： visual basic 6.0四、实验过程编写程序代码，进行上机验证，调试，出正确结果实验 7 文件一、实验目的1. 掌握文件的概念；2. 熟练掌握顺序文件的操作：

27、打开、读出、写入、关闭；3. 掌握随机文件的操作：打开、读出、写入、关闭；4. 掌握驱动器列表框、目录列表框、文件列表框等三个文件操作控件的功能和建立；5. 掌握三个文件操作控件的常用属性、基本事件和常用方法。二、实验内容 1请参考如下图所示程序的运行结果，新建一个工程，完成“文本浏览器”程序的设 计。具体要求如下：（1）窗体上的相同类型的控件按照从上到下，从左到右的顺序放置，并按照默认方式命 名。例如有 4个 CommandButton类型的控件，命名按照如下方式：Command1 Command2Command3 Command4（2）文件列表框能过滤文本文件。（3）当单击某文本文件名后，

28、在 Text1 显示文件名（包括路径），在 Text2显示该文件内 容。（4）当双击某文件文件名后，调用记事本程序对文本文件进行编辑。界面及功能设计请 参考 Design.exe 文件。三、实验环境软件： visual basic 6.0四、实验过程编写程序代码，进行上机验证，调试，出正确结果实验 8 图形操作一、实验目的1. 理解 VB 中坐标系的概念；2. 掌握用 Line 控件、 Shape 控件画直线、矩形、圆 （ 弧） 、椭圆的方法；3. 掌握用 Pset 方法、 Line 方法、 Circle 方法画点、矩形、圆 （弧） 、椭圆的方法；4. 掌握图片框的建立和常用属性、常用方法、图片的载入；5. 了解图片框的常用事件；6. 掌握图象框的建立和常用事件；7. 了解图象框的常用事件和方法；8掌握简单动画设计的方法。二、实验内容1 请参考如下图所示程序的运行结果，新建一个工程，完成“反弹球