vb实验指导书范文.doc

VB实验指导书范文 实验一Visual Basic环境和简单程序设计(验证型4学时)1掌握Visual Basic启动和退出的方法。 2熟悉Visual Basic的集成开发环境。 3掌握Visual Basic程序设计的基本步骤。 4掌握基本控件（标签、命令按钮和文本框）的基本使用方法。 启动Visual Basic，然后创建一个“标准EXE”工程。 了解Visual Basic集成开发环境下各组成部分及其作用。 【要求】 （1）在集成开发环境中分别寻找“窗体窗口”、“属性窗口”、“工程资源管理器”、“窗体布局窗口”、“工具箱窗口”，熟悉它们的默认位置。 （2）在“视图”或“工程资源管理器”中切换显示“代码窗口”和“窗体窗口”。 （3）在“视图”菜单中点击“立即窗口”，观察刚刚显示出来的“立即窗口”。 （4）尝试分别将各部分关闭，然后再用“视图”菜单中对应的菜单命令将其显示。 编写一个简单的应用程序。 要求窗体的标题为“简单VB实验”；窗体中有一个标题为“显示”的按钮；单击该按钮后在窗体上显示蓝色的“兰州理工大学”。 【步骤】 （1）设计应用程序的界面； （2）设置对象的属性； （3）编写事件代码； （4）程序的运行及保存。 【提示】在窗体上显示“兰州理工大学”有两种方法 （1）用Print方法颜色应该设置窗体的前景色。 （2）用一个标签控件颜色应该设置标签控件的前景色。 【思考】为什么在以上两种方法中在颜色的设置问题上有所不同？编写一个应用程序，界面如图1-1所示。 窗体中文字“VB应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB应用程序！”向该按钮所指向的方向移动50Twip。 Visual Basic实用程序设计教程300【提示】四种指向的图案可以在Visual Basic安装目录中的“graphicsiconArrows”子目录中找到，名称分别为arw07dn.ico、arw07lt.ico、arw07rt.ico和arw07up.ico。 图1-1实验1-3程序运行界面实验二顺序结构程序设计(设计型4学时)1掌握常量和变量、表达式的基本概念和正确书写格式。 2掌握赋值语句和常用函数的正确使用方法。 3掌握输入、输出对话框（InputBox和MsgBox）的基本使用方法。 假设有变量a=2,b=5,c=4,d=3,e=6，编写程序，计算表达式a+bc andd*a=e的值，将结果打印在窗体上。 【提示】注意复合表达式的运算顺序。 【思考】复合表达式按什么样的顺序运算？编写程序，界面如图2-1所示。 使得单击一次按钮可以产生一个60,90之间的随机数并显示在标签1上，再求出该数的正弦值，将结果写在标签2上。 【提示】 （1）使用Rnd函数产生随机数，注意，为了防止两次运行程序的随机数序列相同，调用Rnd之前先用Randomize语句进行初始化。 （2）产生某闭区间内的随机数的公式为(上限-下限+1)*rnd+下限。 （3）求正弦值函数为sin()。 【思考】怎样产生一个60,90之间的随机数？编写计算圆面积和球体积的程序，程序运行界面如图2-2所示。 要求输出结果只保留四位小数；如果半径的输入不合法，例如含有非数值字符，应该用MsgBox报告输入错误，并图2-2实验2-3程序运行界面图2-1实验2-2程序运行界面Visual Basic实用程序设计教程302在错误信息得到用户确认（点击MsgBox对话框上的“确定”按钮）之后，将输入焦点转移到输入半径的文本框中，且将当前的非法输入自动选定，反白显示。 【提示】 （1）判断输入值是否为数值类型可用函数IsNumber（）； （2）VB大部分数据类型之间在适当的时候会自动相互转换，此谓隐式转换。 例如，文本框的Text属性为字符串类型，当用Text属性值直接参加算术运算时，Text属性值先会自动转换为数值类型，然后再参加算术运算。 但是当Text属性值含有非数字字符时，会产生“类型不匹配”的运行时错误，因此有些情况下采用显示转换更为安全妥当。 当字符串类型向数值类型转换时用函数Val（）；而当数值类型向字符串类型转换时，可以用Str（）函数或格式化函数Format（）。 编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图2-3所示。 其中F与C之间9?CF的关系为325。 图2-3实验2-4程序运行界面实验三选择结构程序设计(设计型4学时)1掌握逻辑表达式的正确使用方法。 2掌握单分支、双分支和多分支条件语句结构的使用方法。 有函数?10?x?) (124)101 (23)1(xxxxxy写一个程序，输入x值后，则输出相应y值。 要求用“IfElseIfEndIf”和用“Select Case”两种方法完成该题目。 【提示】注意区分1x10和1=x Andx10有什么不同。 2编写一个判断给定坐标在第几象限的程序，界面如图3-1所示。 3编写一个简易学生成绩管理系统，要求输入姓名和成绩，点击“添加”按钮后，在文本框中追加并换行显示“姓名”、“成绩”和“合格”或“不合格”信息，如图3-2所示。 【提示】换行追加并且显示时，可用Text1.Text=Text1.Text&vbCrLf&（待追加并显示的字符串），同时应该将Text1的MultiLine属性设置为True，ScrollBars属性设置为Both。 图3-1实验3-2程序运行界面图3-2实验3-3程序运行界面Visual Basic实用程序设计教程304进一步要求按照90为“优”，80为“良”，70为“中”，60为“及格”，6000为止。 计算222214131211nS?的值，当第i项52101?i时结束。 将实验4-3用Do.While循环和Do While.Loop循环中的另外一种循环应该怎样实现？进一步地，要用Do.Loop Until循环或Do Until.Loop循环又该如何实现？使用双重循环，输出“九九乘法表”，如图4-3所示。 【提示】 （1）注意行号和该行乘法单元的个数之间的关系。 （2）注意乘法单元的规律“4312”中4为行号，3为列号，且列号不大于行号。 （3）乘号“”可从汉字输入法软键盘菜单的“数学符号”中找到；或从Word中菜单【插入】-【符号】中找到，再从Word中剪切或复制到VB代码中。 （4）可以将窗体的AutoRedraw属性设为True，以防初始大小的窗体显示不下全部内容。 显示所有的水仙花数。 所谓水仙花数，就是指一个3位正整数，其各位数字的立方和333351153?，153即为水仙花数。 【提示】等于该数本身。 例如，本题目解法有两种 （1）对3位数的各位数组合进行穷举利用3重循环，将3个个位数组成一个3位数进行判断。 例如，3位数的各位数从高位到低位依次为a、b、c，则对应的3位数为a*100+b*10+c。 （2）对所有3位数进行穷举利用单循环对所有3位数进行穷举，循环内将一个3位数拆成3个个位数进行判断。 例如，对s678进行拆解时个位数s Mod10；十位数（s10）图4-3实验4-7程序运行界面Mod10；百位数s100。 当然，也可以将上述拆解过程写为一个循环（这时就是利用双重循环，内层循环即为拆解过程）。 循环密文。 现有一个字符串，将该字符串内的每个英文字符都改为其后（前）的第n个字符，非英文字符的符号保持不变，修改之后的字符串即为密文，而修改之前的字符串称为明文。 当修改后的字符超出了“a”“z”或“A”“Z”字符序列范围后，应将其循环回字符序列的最开始或最末尾。 例如，n4时，“a”译为“e”，“w”译为“a”，“May！”就被译为“Qec！”。 反之，当知道n（正为向后，负为向前）后，即可恢复密文为可读文本。 给定一个任意由纯英文字符（ASCII字符）和标点符号组成的字符串，例如“I LoveThis ComputerGame!”，将其转换为密文（n自己给定）并显示，然后再将密文译为明文。 【提示】 （1）加密需逐个字符进行。 获取字符串中的某个字符可以从Left()、Mid()或Right()等函数里选取一个；Len()函数可以返回字符串的长度。 （2）应该判断从字符串中获取的字符是否为英文字符。 （3）获取某字符的ASCII码值使用Asc()函数，而获取某ASCII码值所对应的字符应使用Chr()函数。 Visual Basic实用程序设计教程308实验五数组及其应用(设计型4学时)1掌握数组的基本概念。 2掌握数组的声明、引用。 3掌握静态数组和动态数组的区别。 4掌握控件数组。 4掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。 用数组保存随机产生的10个介于20到50之间的整数，求其中的最大数、最小数和平均值，然后将10个随机数和其最大数、最小数以及平均值显示在窗体上。 随机产生10个介于0到100之间的整数，分别用选择法和冒泡法对其进行排序。 用数组求得Fibonai数列（112358132134）的前20项,并按照每行5个打印在图片框控件（PictureBox）中。 Fibonai数列数学描述式为F（i）=F（i-2）+F（i-1）。 【提示】为了便于控制，将打印内容打印到图片框中，例如，Picture1.PrintHello！。 有矩阵A，用二维数组求其转置矩阵B。 要求将两矩阵按照矩阵样式显示。 ?654321A，?635241B【提示】所谓转置，即b(i,j)=a(j,i)。 有34矩阵A，求其中值最大和值最小的那两个元素的值，以及它们所在的行号和列号。 其中，?735086792741A。 打印出如图5-1a所示的杨辉三角形，要求先输入行数n。 进一步要求如果要显示为图5-1b所示的样式，该如何改动原来的程序呢？【提示】 （1）杨辉三角形是nba)?（展开后各项的系数，具有如下规律各行的第一个和最后一个数都是1；从第三行起，除上面指出的第一个数和最后一个数之外，其它的数是上一行同,1,?iajia （2）为了便于控制，将内容显示在图片框（PictureBox）中。 列和前一列两个数之和，即1,1?jiaj，i为行，j为列。 （3）要显示为图5.1（b）所示的样式，应该利用TAB函数对每行显示的起始位定位。 已知数组AArray(7,6,5,1,8,5,3,9,4)，编写一程序，删除数组中值为x（例如为3）的第一个元素。 要求用户可以输入x。 【提示】 （1）首先要查找待删除的元素，没有则返回。 （2）如果找到待删除的元素，则从下一个元素到最后元素依次往前移位。 （3）最后利用ReDim Preserve语句将数组大小减1。 使用控件数组，产生如图5-2所示的QBColor颜色系统的16种标准色，每行显示8个。 【提示】图5-1（a）实验5.6程序运行界面图5-1（b）实验5.6程序运行界面图5-2实验5-8程序运行界面Visual Basic实用程序设计教程310 （1）首先创建一个显示一种颜色的控件，如Label1，设置其Index属性为0，将其作为控件数组的第0号元素。 （2）设置Lable1 （0）的BackColor属性为黑色（QBColor （0）。 （3）用代码Load Label1（k）（k1，2，,15）产生其余的15个控件数组元素，同时，将产生的Label1数组元素用Move方法或用Left、Top、Width、Height属性移开，以免后者将前者覆盖而使前者不可见；将产生的Label1数组元素用Label1（k）.BackColor=QBColor（k）设置其背景颜色。 在实验8的基础上，增加“New”和“Del”命令按钮，如图5-3所示。 每单击“New”按钮一次，就在原来色块数基础上增加一个新色块，直到第15个为止（第0个固有，从第1个开始）；每单击“Del”按钮一次，就在原来色块数基础上从最后减少一个色块，直到第0个为止。 【提示】增加一计数器I，取值范围为0到15。 每单击“New”一次，在当前I小于15的情况下，I=I+1，然后显示新色块，即Load label1(I)，对其进行设置；相应地每单击“Del”按钮一次，在I大于1的情况下，先将当前最后一色块去除，即Unload label1(I)，然后再有I=I-1。 图5-3实验5-9程序运行界面实验六过程(设计型4学时)1掌握过程的概念和使用方法。 2掌握形参和实参的概念以及在调用过程时两者的对应关系。 3掌握数值传递和地址传递，并注意区分这两种参数传递方式。 4掌握变量、过程的作用域5掌握递归的概念及其使用方法。 6熟悉程序设计中的常用算法。 编写一个判断素数的子过程或函数过程。 要求输入一个整数，就能够通过该子过程或函数过程求得该整数是否为素数。 编写一个在数组中查找最大值的过程。 要求给定或由机器产生一系列随机数构成一个一维数组，然后调用该过程，就可以找到并显示数组中的最大值。 编写一个函数过程，能够通过该函数过程求任意正整数的阶乘，并利用该函数过程分别求5的阶乘、8的阶乘、10的阶乘，将结果打印在窗体上。 【提示】考虑能保存较大的整数，函数的返回值类型应定为Long，但这样仍然存在稍大一些的整数阶乘结果超过Long所能表示的最大值。 使用函数过程求当a=3，b=5，c=7，d=9时，2+.+aa/(1+a+aa)+b/(1+b+b2+.+bb)+c/(1+c+c2+.+)+d/(1+d+d2+.+dd)的值。 编写一个类似Replace（）函数的SReplace（ss,sc,sr）函数。 要求输入一个字符串ss，通过调用该函数，将ss中的子字符串sc替换为字符串sr，并将结果字符串用函数名返回。 例如，ss=BBCA17553XWEBBC39U，sc=BBC，sr=ARX2，则函数返回值为ARX2A17553XWEARX239U。 【提示】 （1）首先利用标准函数InStr（）找到sc在ss中的位置。 考虑到sc在ss中的多处出现，用Do WhileInStr（ss，sc）0Loop循环来实现。 （2）使用Left()、Right()、Mid()等标准函数来重新构造结果字符串，以达到删除子字符串sc的目的。 编写一函数，使用递归法求n!。 用递归法求得Fibonai数列（112358132134）的第 20、200项。 Fibonai数列数学描述式为F（i）=F（i-2）+F（i-1）。 Visual Basic实用程序设计教程312实验七常用控件(设计型4学时)1掌握常用控件的重要属性、方法和事件，熟悉它们的使用。 2熟悉面向对象的可视化编程的框架。 如图7-1所示，用列表框、框架、单选按钮、复选框等控件实现对文本框中文字的字体、字号和粗斜体属性的设置。 在实验7-1的基础上，用计时器控件实现在窗体的标题栏上显示当前系统的日期和时间信息，刷新周期为1秒种。 如图7-2所示，用列表框保存省会城市名称。 点击“添加”按钮时，将文本框中内容加入到省会城市列表中最前面；如果省会城市列表中没有当前选中项，“删除”按钮则灰白显示，不可用；如果有当前选中项，“删除”按钮则正常显示，这时点击“删除”时，就将列表中当前选中项删除。 【提示】列表中有无当前选中项可利用列表框控件的ListIndex属性，若为-1则表示无当前选中项，若0则是当前选中项的Index值。 “删除”按钮的初始状态应该在Form_Load（）过程中设置为灰白显示，其显图7-1实验7-1程序运行界面图7-2实验7-3程序运行界面示状态的切换应该在列表框的单击事件中进行。 如图7-3所示，用列表框实现两个列表之间的增加和删除操作。 当点击标题为“”的按钮时，就将候选列表里当前被选中的项移动到选定列表最后；当点击标题为“【部件】中选择并加入【Microsoft WindowsCommon Controls6.0】，这时就可以看到控件栏中加入了好几个ActiveX控件，其中有工具栏控件、状态栏控件和图像列表控件（ImageList控件）。 工具栏中按钮的图标一般是从ImageList控件中选取，因而应先将选好的图片存入ImageList控件中。 图标可从“GraphicsBitmapsOffCtlBrLargeColor”子目录中选取。 编写一程序，要求响应键盘的4个方向键，如图8-4所示，当按一次某方向键，就使图片向相应的方向移动50单位距离。 图8-3实验8-3程序运行界面图8-4实验8-5程序运行界面实验九文件(设计型4学时)1掌握文件的概念及其使用方法，注意顺序、随机和二进制文件各自的特点和区别。 2掌握文件系统控件、文件与目录的相关函数和语句的使用。 3熟悉文件在应用程序中的作用和意义。 设计一个运行界面如图9-1所示的应用程序，单击“Write”可以将3个文本框中的信息用“Write”语句写入“D:aaa.txt”；单击“Print”可以将3个文本框中的信息用“Print”语句写入“D:bbb.txt”。 要求3个信息写在同一行。 程序运行后，用“记事本”同时打开“D:aaa.txt”和“D:bbb.txt”，比较它们结构有何不同？为什么？试说明“Write”和“Print”语句的相同和不同。 如图9-2所示，建立一个最简单的文本器。 文件的打开和保存可使用某一固定文件，例如，“d:test.txt”。 编写一图片浏览器，如图9-3所示，要求当单击某图形或图像文件后在图像框中显示该图形或图像，文件列表框中应只显示.bmp、.jpg、.wmf、.ico、.gif等几种常见类型的图形或图像文件。 图9-2实验9-2程序运行界面图9-1实验9-1程序运行界面Visual Basic实用程序设计教程318建立一个简易学生管理系统，如图9-4所示，用于输入、显示和修改学生的相关信息。 数据按随机访问模式存放。 【提示】随机文件的记录利用Type定义，字符串类型必须制定长度。 图9-4实验9-4程序运行界面图9-3实验9-3程序运行界面实验十图形图像程序设计(综合型4学时)1了解VB的图形功能。 2掌握几个重要的图形方法。 3掌握建立图形坐标系的方法。 4熟悉简单动画设计的方法。 用Pset方法在窗体上画出2000个随机点，点的颜色随机，点的大小也随机在14之间。 【提示】随机点坐标值应该与窗体大小相关。 如图10-1所示，对图形框（PictureBox）1中的彩色图片进行关于Y轴的镜像处理并显示到图片框2中。 【提示】首先保证两个图片框大小一致，然后用Point方法获取图形框1中的彩色图片