VB试验参考指导书专业资料.doc

计算机程序设计基本VB语言实 验 指 导 书武 汉 理 工 大 学计算机科学与技术学院信息技术系 年 3 月目 录1课程简介21.1 基本信息21.2 实验目的21.3 实验内容及要求21.4 实验项目及学时分配32. Visual Basic 6.0集成开发环境42.1 Visual Basic 6.0 的安装42.2 Visual BASIC 6.0开发环境概述82.3 Visual BASIC 6.0程序调试方法93. 实验项目123.1 实验项目1：编制一个简单的计算收款的界面123.2 实验项目2：设计求三角函数绝对值的程序（按钮、文本框和标签的使用）143.3 实验项目3：根据不同参数的值求分段函数的函数值（If语句的使用）163.4 实验项目4：设计一个根据成绩给出评分的程序（Select Case语句的使用）173.5 实验项目5：设计一个计算的近似值的程序（For语句的使用）193.6 实验项目6：设计求给定条件的数列最值的程序和在给定范围内找符合条件的数的程序（DoLoop语句的使用）203.7 实验项目7：根据某班n个学生成绩求成绩的标准差 （一维数组的应用）213.8 实验项目8：设计一个用数组统计最大数的程序（一维数组的应用）233.9 实验项目9： Function过程的定义和调用243.10 实验项目10： Sub过程的定义和调用263.11 实验项目11：根据单选按钮的值改变图形的颜色和形状（控件的使用1）273.12 实验项目12：设计一个弹跳球的程序（控件的使用2）293.13 实验项目13：设计一个选课的界面（控件的使用3）303.14 实验项目14：菜单设计（选做）313.15 实验项目15：工具栏，状态栏设计（选做）343.16 实验项目16：可视化数据管理器VisData的使用（选做）383.17 实验项目17：绘图程序设计（选做）431课程简介1.1 基本信息课程名称：计算机程序设计基本（VB语言） 实验总学时数：12学时 适应专业：文科各专业 先修课程：大学计算机基本1.2 实验目通过实验熟悉面向对象程序设计基本概念。通过实验纯熟掌握运用VB进行可视化程序设计基本办法。通过实验掌握应用程序调试办法，加强应用能力训练与培养，从而具备普通应用程序和解决事务管理问题能力。1.3 实验内容及规定实验是巩固课堂所学知识、掌握可视化程序设计办法、提高分析问题和解决问题能力最重要途径。因而明的确验目、内容与规定、实验环节及实验规则，一方面有助于实验任务顺利完毕，另一方面也有助于养成严谨科学作风。每个实验都要遵循认真预习准备、认真做好实验、认真写好实验报告三个阶段进行。每项实验内容均规定学生编写两个程序项目，并上机调试通过。实验结束后，按照实验报告中规定完毕报告，设计解题算法，给出程序源代码，记录所使用测试数据，提供程序最后运营成果。实验分组人数依机房计算机数目进行分组，规定每人一台计算机。其中第10个实验属于综合型实验，可采用3-5人分组形式完毕，规定综合应用顺序、选取、循环构造和数组及函数等知识点进行程序设计，并提交涉及如下内容设计报告： 1设计题目2功能描述3设计界面图4测试数据和程序运营成果 5完整源程序代码（恰当注释） 6浮现问题和解决办法总结 1.4 实验项目及学时分派序号实验项目名称实验学时实验类型实验内容1编程环境与程序基本2设计型 （）掌握集成开发环境安装、配备与使用（）掌握程序编辑、编译、连接及运营过程（）掌握基本数据类型变量、常量定义和赋值办法（）掌握赋值语句和输入输出语句用法（）掌握查看联机协助信息办法2选取构造程序设计2设计型（）掌握分支、多分支构造程序设计办法（）掌握排除语法错误基本技能3循环构造程序设计2设计型（）掌握 种循环语句、循环构造程序设计办法（）掌握程序调试基本技能（如设立断点、单步执行、查看中间运营成果等）4数组应用2设计型（）掌握一维和二维数组定义、赋值和输入输出办法（）掌握用字符数组解决字符串和字符串解决函数用法（）掌握数组中惯用查找和排序算法5函数设计2设计型（）掌握函数定义办法，掌握函数调用和参数传递机制和办法（）掌握函数嵌套调用与递归调用办法（）掌握全局变量和局部变量用法6模块化程序设计2摸索型（）以 人为一种小组，综合应用所学知识，完毕较大、有实际价值程序设计题目（）让学生深刻体会程序开发全过程，培养学生团队协作精神2. Visual Basic 6.0集成开发环境Visual Basic 6.0是Microsoft公司推出可视化编程产品，它既保存了Basic语言简朴易学长处，又充分运用了Windows提供图形环境，使得Basic进入到可视化编程领域，为广大计算机兴趣者提供了新编程工具。Visual Basic 随着Windows发展，不断推出新版本，到1998年已经发展到6.0版，功能上进一步完善和扩充，特别在数据库管理和网络应用方面。2.1 Visual Basic 6.0 安装Visual Basic安装环节如下：(1) 第一步：先解压vb6.0安装文献后打开VB60CHS文献夹找到setup.exe，双击打开，如图一所示。(2) 第二步：在弹出窗口中选取 “接受合同”后，进行“下一步”。(3) 第三步：在输入ID窗口中都输入1，然后下一步。(4) 第四步：选取“安装visual basic6中文公司版”，然后下一步。在弹出窗口中点击“继续”。(5) 第五步：在弹出窗口中选取“否”。(6) 第六步：选取“自定义安装”，如图六红框位置所示。(7) 第七步：点击“所有选中”按钮。然后点击“继续”，如图七红框位置所示。(8) 第八步：在弹出窗口中选取“否”，然后程序会自行安装。(9) 第九步：安装完毕，如图点击“重新启动Windows（R）”。(10) 第十步：重启后浮现“安装MSDN”窗口，把勾去掉，然后点击“下一步”，如图十红框标注位置”。(11) 第十一步：在“当前注册“窗口中不打勾，点击“完毕”。如图十一红框标注位置。(12) 安装结束。2.2 Visual BASIC 6.0开发环境概述一、启动和退出VB1、进入VB集成开发环境要进入VB应用程序，一方面要运营VB集成开发环境。启动VB办法如下：办法1 单击任务栏上“开始”按钮；选取“程序”文献夹，接着选用“Microsoft Visual Basic 6.0中文版”文献夹，再选用“Microsoft Visual Basic 6.0中文版”项，如图所示； 单击鼠标左键。办法2 单击任务栏上“开始”按钮； 选取“程序”文献夹； 使用“Windows 资源按理器”查找VB可执行文献 VB6.exe； 双击图标。办法3 在桌面创立一种VB快捷键； 双击该快捷键。VB启动后，浮现VB6.0“新建工程”对话框（图-2）单击“打开”按钮，带有一种窗体新工程将被创立，并可以看到VB集成开发环境界面。有系统启动后可直接进入下图所示界面。图 VB集成开发环境窗口1、退出VB办法：（1） 单击主窗口右上角“关闭”按钮。（2） 执行“文献”菜单中“退出”命令。（3） 按Alt+Q键。2.3 Visual BASIC 6.0程序调试办法VB程序调试技术，其中涉及VB编程过程中常用错误类型产生和体现，以及运用VB提供调试工具和语句对程序错误进行捕获、解决和修改办法。VB为广大顾客提供了功能强大程序调试工具，使顾客可以迅速排除编程中浮现问题。 VB程序错误种类有语法错误、逻辑错误和运营错误。在提示错误处修改语法和逻辑后依然运营有错状况下，可以使用单步执行和监视办法来查找错误根源进行错误解决。Visual Basic为顾客提供了功能强大调试工具，对于错误程序改正有很大协助，并且可以跟踪程序执行过程。调试工具包括【设立断点】、【单步执行】、【显示变量内容】等。用于中断程序执行和进行跟踪操作。一方面，单击【视图】菜单中【工具栏】命令，打开【调试】工具栏。如下图所示。中断程序执行是指当程序运营到某一行语句时，就进入中断状态，不再继续执行。这样咱们就可以在中断状态下调试程序。惯用办法是通过设立断点来实现，下面咱们来看看关于断点操作。 1. 设立断点 将插入点放在要设立断点行，然后使用下述操作之一便可为该行设立断点： 选取【调试】菜单中【切换断点】命令。 单击调试工具栏中按钮。 按F9键。 为某一行设立了断点后，该行代码将以红底白字显示，并在边界批示条中浮现一种红色圆圈，表达这一行代码已被设立了断点。如图所示。 2. 清除断点对已设立断点行，再执行和上面相似操作便可清除断点。3. 清除所有断点选取【调试】菜单中【清除所有断点】命令。或按【Ctrl+Shift+F9】键。而跟踪操作就是逐条语句执行代码，即每次运营一行代码。当进入到过程中时，也将在该过程中逐条语句执行代码。如果Visual Basic正在等待应当事件发生，就不会执行任何语句。 1.逐条语句执行代码有下面3种办法。 选取【调试】菜单中【逐语句】命令。 单击调试工具栏中 按钮。 按F8键。 当逐语句执行代码时，执行点将移动到下一行，且该行将以黄底黑字显示，并且，在边界批示条中还会浮现一种黄色箭头。如下图所示。2. 逐过程执行 此项操作单步执行代码，如果遇到过程调用，则不进入该过程，也就是说，将过程调用看作一行语句来执行。 逐过程执行代码有下面3种办法。 选取【调试】菜单中【逐过程】命令。 单击调试工具栏中 按钮。 按Shift+F8键。 3. 跳出过程此项操作将当前过程中执行点背面语句所有执行，并将下一执行点定位在调用该过程语句下一行。 跳出过程有下面3种办法。 选取【调试】菜单中【跳出】命令。 单击调试工具栏中 按钮。 按Ctrl+Shift+F8键。 注意是，如果在执行点背面语句中存在断点，那么跳出过程命令将使程序执行到下一断点。也就是说，断点级别要高于跳出过程命令。3. 实验项目3.1 实验项目1：编制一种简朴计算收款界面一、实验目1. 熟悉Visual BASIC程序设计开发环境，掌握设计运营一种VB工程基本环节，涉及设计界面、编写程序、调试运营、保存工程。2. 掌握命令按钮、文本框和标签惯用属性值设立办法。3. 掌握VB语言程序设计基本框架，可以编写简朴VB程序。4. 理解程序调试思想，能找出并改正VB程序中语法错误。二、实验任务开发一种简朴程序。规定：设计一种收款计算程序，界面如图所示。规定：（1）三个输入文本框依次命名为T1、T2、T3，应付款文本框命名为Tresult，且设为只读。（2）运营时，单击“计算”按钮计算应付款，单击“清除”按钮能清除应付款内容，并且焦点定位在“折扣”框内。（3）单击“退出”按钮结束运营。三、实验环节与指引1设计界面在窗体上添加标签、按钮和文本框。并修改按钮和标签Caption属性值，文本框Text属性清空，并按规定修改文本框Name属性值。2 编写程序代码(1) 实验所用到控件及属性设立见表。控件名属 性控件名属性Label1Caption=单价：Form1Caption=收款计算Label2Caption=数量 Text1，Text2,Text3Text=Label3Caption=折扣Text1Name=T1Label4Caption=应付款：Text2Name=T2Command1Caption=计算Text3Name=T3Command2Caption=清除Text4Text=Command3Caption=退出Text5Name=Tresult(2)界面如图所示，程序代码如下。Private Sub Command1_Click() Tresult.Text = Val(T1.Text) * Val(T2.Text) * Val(T3.Text)End SubPrivate Sub Command2_Click() Tresult.Text = T3.SetFocus T3.SelStart = 0 T3.SelLength = Len(T3.Text)End SubPrivate Sub Command3_Click() EndEnd Sub（3）调试程序并保存。程序运营效果如图所示。程序以“学号-1.frm”和“学号-1.vbp”文献名保存。后来每个实验项目命名规则都是如此，即“学号-实验号”。（如某同窗学号为A10414001，所完毕是实验2，那么程序文献名为“A10414001-2.frm”和“A10414001-2.vbp”）（4）实验成果与分析：当单价、数量、折扣分别取下列值时，运营程序，写出应付款数值。单价数量折扣应付款115100.92280150.75315300.95425850.7518550.99将源程序、运营成果和分析以及实验中遇到问题和解决问题办法写在实验报告上。3.2 实验项目2：设计求三角函数绝对值程序（按钮、文本框和标签使用）一、实验目1掌握文本框作为输入、多行文本框做为输出时惯用属性值设立办法。2学会使用惯用内部数学函数计算三角函数值办法。3掌握控制输出列表办法以及设立选中文本办法。 二、实验任务设计求三角函数绝对值程序，界面如图所示。1.当输入某一角度后，单击“计算”按钮可以计算出相应三角函数绝对值。2.规定每次计算成果附加在上次成果之后，显示在带垂直滚动条文本框中。3.所有数据保存3位小数（注意输入为角度）。4.每次计算之后，选中输入文本，以便继续输入。三、实验环节与指引1设计界面（1）在窗体上添加四个标签、两个文本框和一种命令按钮。初始界面和运营后界面如图所示。 （2）设立属性设立属性后界面如图所示。对象属性属性值Label1Caption请输入X：Label2CaptionXLabel3Caption|sinX|Label4Caption|cosX|Text1,Text2Text“”Text2MultilineTrueCommand1Caption计算Form1Caption求三角函数绝对值2.编写程序代码Private Sub Command1_Click() X = Val(Text1.Text) X1 = X * 3.1416 / 180 SX = Abs(Sin(X1) CX = Abs(Cos(X1) Text2.Text = Text2.Text & _ Format(X，0.000) & & _ Format(SX，0.000) & & _ Format(CX，0.000) & Chr(13) & Chr(10) Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub3.调试并运营程序：当X输入下列角度时，运营此程序，写出文本框中显示。XX|sinX|cosX|11522033044556069071004.实验成果与分析将源程序、运营成果和分析以及实验中遇到问题和解决问题办法写在实验报告上。3.3 实验项目3：依照不同参数值求分段函数函数值（If语句使用）一、实验目1掌握逻辑表达式对的书写形式。2掌握单分支与双分支条件语句及其嵌套用法，熟悉IfThenElse语句。3掌握标签作为输出时用法。二、实验任务用块构造条件语句实现：从文本框输入a、b值（角度为单位），单击“计算”按钮按下列公式计算y值，用标签显示计算成果。界面自定。y=sinacosb a0,b0sina+cosb a0,b0sinacosb a0三、实验环节与指引1设计界面：新建一种窗体，窗体上如图有四个标签，两个文本框和一种按钮，单击窗体驱动程序运营。文本框作为输入，标签作输出。提示：对于作为输出标签Label2BorderStyle属性值设为1。2. 编写程序代码Private Sub Command1_Click() a = Val(Text1.Text) * 3.1416 / 180 b = Val(Text2.Text) * 3.1416 / 180 If a 0 And b 0 Then y = Sin(a) * Cos(b) ElseIf a 0 And b = 0 Then y = Sin(a) + Cos(b) Else y = Sin(a) - Cos(b) End If Label4.Caption = Format(y，0.0000)End Sub3.调试并运营程序。给出条件分支所有也许数据得出相应成果写在实验报告上。当a、b输入下列值时，运营此程序，写出y值。aby10011530230303450460305060620804.实验成果与分析将源程序、运营成果和分析以及实验中遇到问题和解决问题办法写在实验报告上。3.4 实验项目4：设计一种依照成绩给出评分程序（Select Case语句使用）一、实验目1. 掌握选取构造中多条件，多分支程序用法，熟悉Select Case语句。2. 掌握If语句和Select Case语句嵌套用法。3. 掌握选取构造程序设计办法.二、实验任务用多分支选取语句实现：用文本框输入学生某门课程分数后，给出五级评分。评分原则如下：优 90成绩100良 80成绩90中 70成绩80及格 60成绩70不及格 0成绩60如果输入分数不在0,100范畴内，使用消息框给出错误提示，并将焦点定位在输入分数文本框，选中其中所有文本。三、实验环节与指引1设计界面 新建一种窗体，窗体上添加两个标签、一种文本框和一种按钮，并修改相应属性。提示：对于作为输出标签Label2BorderStyle属性值设为1。2.编写程序代码Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Case Is 100 Label2.Caption = MsgBox 输入数据超过范畴，请重新输入 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Case Is = 90 Label2.Caption = 优 Case Is = 80 Label2.Caption = 良 Case Is = 70 Label2.Caption = 中 Case Is = 60 Label2.Caption = 及格 Case Else Label2.Caption = 不及格 End SelectEnd Sub3.调试并运营程序。当分数框中输入下列值时，运营此程序，写出相应评分。分数评分1-452035546057768879081204.实验成果与分析将源程序、运营成果和分析以及实验中遇到问题和解决问题办法写在实验报告上。3.5 实验项目5：设计一种计算近似值程序（For语句使用）一、实验目1掌握ForNext语句使用，学会单重循环控制办法。2掌握如何控制循环条件，防止死循环或不循环。二、实验任务设计一种可以用文本框输入n值，单击某命令按钮求如下S值，用文本框显示成果。界面自定。（输出成果应当随n值变大近似于值。）三、实验环节与指引1设计界面 新建一种窗体，窗体上添加一种标签、两个文本框和一种按钮，并修改相应属性。2. 编写程序代码。Private Sub Command1_Click() s = 0 n = Val(Text1.Text) k = 2 For i = 1 To 2 * n - 1 Step 2 s = s + (-1) k * 1 / i k = k + 1 Next i s = 4 * s Text2.Text = Format(s，0.0000)End Sub3.调试并运营程序。当n输入下列值时，运营此程序，写出S值。nS1102303504100510006100004.实验成果与分析将源程序、运营成果和分析以及实验中遇到问题和解决问题办法写在实验报告上。3.6 实验项目6：设计求给定条件数列最值程序和在给定范畴内找符合条件数程序（DoLoop语句使用）一、实验目1掌握ForNext语句在找数题目中应用，学会多重循环控制办法。2掌握DoLoop循环用法，学会控制循环开始和结束条件。3掌握如何控制循环条件，防止死循环或不循环。二、实验任务1. 求11+22+33+NN不大于100000最大值。界面自定。2. 编程找出1000以内所有完数，即一种数正好是它因子之和，这个数称为“完数”，如6=1+2+3，因而6就是一种完数。三、实验环节与指引1设计界面。下图为运营后界面图。 2. 编写程序代码。程序1示例： 程序2示例：Private Sub Command1_Click() Private Sub Command1_Click()m = 0 For i = 1 To 1000n = 0 Sum = 0Do While n Max Then Max = a(i) End If Next i Text2.Text = MaxEnd Sub3. 调试并运营程序。把程序运营3次，给出窗体显示成果。50个随机整数最大数1235. 实验成果与分析将源程序、运营成果和分析以及实验中遇到问题和解决问题办法写在实验报告上。3.9 实验项目9： Function过程定义和调用一、实验目1. 掌握Function函数定义和调用。2. 掌握函数中参数定义和传递办法。二、实验任务在窗体模块中编写一种函数过程，计算123K，运营时输入m，n，p值，单击“y=”按钮调用该函数计算如下y值，运算成果保存4位小数。三、实验环节与指引1设计界面。新建一种窗体，添加三个标签，四个文本框和一种按钮，并修改标签和按钮Caption属性，文本框Text属性清空。 2. 编写程序代码。Function f(k As Integer) As Long Dim sum As Long sum = 0 For i = 1 To k sum = sum + i Next i f = sumEnd FunctionPrivate Sub Command1_Click() Dim m As Integer，n As Integer，p As Integer Dim y As Single m = Val(Text1.Text) n = Val(Text2.Text) p = Val(Text3.Text) y = (f(m) + f(n) / f(p) Text4.Text = Format(y，0.0000)End Sub3. 调试并运营程序。按如下输入把程序运营5次，给出窗体显示成果。mnpy123425433675489651115124. 实验成果与分析将源程序、运营成果和分析以及实验中遇到问题和解决问题办法写在实验报告上。3.10 实验项目10： Sub过程定义和调用一、实验目1. 掌握Sub过程定义和调用。2. 掌握Sub过程中参数定义和传递办法。二、实验任务编写一种Sub过程，能依照参数K求12+3+K值，在窗体Click事件过程中用输入框Inputbox输入某n值，调用该Sub过程求如下y值，用消息框显示计算成果。y=三、实验环节与指引1设计界面。新建一种窗体，窗体上没有任何控件，用Inputbox输入，成果用Msgbox输出。 2. 编写程序代码。Sub s(k，sum) sum = 0 For i = 1 To k sum = sum + i Next iEnd SubPrivate Sub Form_Click() sum = 0 n = Val(InputBox(请输入N) For i = 1 To n Call s(i，sum1) sum = sum + 1 / sum1 Next i MsgBox Str(sum)End Sub3. 调试并运营程序。按如下输入把程序运营3次，给出窗体显示成果。ny程序调试1102100310004. 实验成果与分析将源程序、运营成果和分析以及实验中遇到问题和解决问题办法写在实验报告上。3.11 实验项目11：依照单选按钮值变化图形颜色和形状（控件使用1）一、实验目1掌握单选框、复选框定义和区别。2掌握熟悉单选框、复选框属性及其用法。二、实验任务 在窗体上画2个框架，分别在其中放置2组选项按钮，并定义成2个选项按钮控件数组，中间用一种Shape控件画出红色长方形，运营时，单击颜色按钮用于变化中间图形颜色，单击形状按钮用于变化中间图形形状。三、实验环节与指引1设计界面。新建一种窗体，添加两个框架，在框架内分别添加四个单选按钮并修改Caption值，在两个框架中间画一种矩形，Shape值设为矩形，Fillcolor设为红色，。 2. 编写程序代码。Private Sub Option1_Click() Shape1.FillColor = vbRedEnd SubPrivate Sub Option2_Click() Shape1.FillColor = vbBlueEnd SubPrivate Sub Option3_Click() Shape1.FillColor = vbGreenEnd SubPrivate Sub Option4_Click() Shape1.FillColor = vbYellowEnd SubPrivate Sub Option5_Click() Shape1.Shape = 3En