新Visual Basic程序设计案例教程 工业和信息化普通高等教育“十二五”规划教材立项项目 教学课件 刘红梅 第8章.pptVIP

第8章 过程在应用程序中的运用 通用过程通常分为两种： （1）Sub过程（又称子过程、子程序），它不返回值，例如显示矩阵、动画。 （2）Function过程（又称函数过程），它有返回值，例如求阶乘、平均值等。 子过程 1．引例 2．创建子过程 3．调用子过程 4．子过程的应用举例 例8-1 要求在文本框中输入姓名，单击“问候”，调用Hello过程，显示“×××你好！”的消息对话框，单击“确定”清除原有内容。 2．创建子过程 建立子过程有两种方法：直接在“代码”编辑窗口中输入过程代码或使用“添加过程”对话框。 （1）在“代码”编辑窗口中输入 Sub过程的完整定义格式如下： [Private|Public] Sub 子过程名([形参列表]) 子过程体 　　　[局部变量和常数声明] 语句系列 　　　[Exit Sub] 　　 [语句系列] End Sub （2）使用“添加过程”对话框 例8-2 编写求n!的子过程。 Public Sub Fac(n%, p#) Fac子过程，求n! Dim i% p = 1 For i = 1 To n p = p * i Next i End Sub 3．调用子过程 调用Sub过程有两种方法： （1）使用Call语句：Call 过程名 ([实参表]) 例8-1中“Call Hello(Text1)” 实参表是实际参数表，实参必须与形参保持个数相同，位置和类型一一对应。 当用Call语句调用执行过程时，其过程名后必须加括号，若有参数，则参数必须放在括号之内。 （2）直接使用过程名：过程名 [ (实参表)] 例8-1中的调用语句“Call Hello(Text1)”也可以写成“Hello (Text1)”或“ Hello Text1” 4.子过程的应用举例 例8-3 通过调用例8-2的Fac子过程来计算m!/ (n!*(m-n)!)。 新建工程，根据运行结果图设计窗体界面，如图8-5所示。需要7个控件：3个文本框（text1、text2、text3）、3个标签(label1、label2、label3)，1个命令按钮(command1)。大部分属性在Form_Load中设置。运行过程中，在text1和text2中分别输入m和n的值，单击command1，表达式结果放在text3中。 例8-4 设计一个程序，其作用是显示字符图案。显示的字符和行数由输入对话框决定，形状可以是正三角形或倒三角形。 提示：编写通用过程triangle，输出三角形图案。显示的字符S、行数Line以及做为正或倒的三角形标志Flag 均作为参数。 函数过程 1．引例 2．创建函数过程 3．调用函数过程 4．函数过程应用举例 1．引例 例8-5 使用函数过程改写例8-3。 2．创建函数过程 建立函数过程和建立子过程类似，也有两种方法。 （1）直接在“代码”编辑窗口中输入过程代码，方法同子过程。 函数过程的完整定义格式如下： [Private|Public] Function 函数名([形参列表]) [As 数据类型]函数过程体 　　　[局部变量和常数声明] 语句系列 　　　[Exit Function] 　　 [语句系列] 函数名=表达式 End Function （2）使用“添加过程”对话框。 3．调用函数过程 调用Function过程的方法和调用Visual Basic 6.0内部函数的方法一样，即在表达式中可以通过使用函数名，并在其后用圆括号给出相应的参数列表来调用一个Function过程。一般形式如下： 变量名=函数过程名([实参列表]) 被调用的函数过程可以作为表达式，也可以作为表达式的一部分。 在例8-5中调用函数过程的语句是“Text3.Text = Fac2(m) / (Fac2(n) * Fac2(m - n))”。程序执行时3次调用函数过程Fac2，返回值分别为m!、n!、(m-n)!。 4．函数过程应用举例 例8-6 由滚动条的位置来决定n的值，求1到n的整数和。 例8-7 分别利用函数过程和子过程计算学生的平均成绩。 参数传递 1．形式参数和实际参数 2．参数传递 3．可变参数 4．数组参数 5．对象参数 1．形式参数和实际参数 （1）形式参数简称形参，指在定义通用过程时，出现在Sub或Function语句中子过程名（或函数过程名）后面圆括号内的数，是用来接收传送给过程的数据，形参表中的各个变量之间用逗号分隔。 在例8-7中，在Form2代码里的语句“Function aver(Chn!, Math!, Eng!) As Single”中的Chn、M