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

第8章 过程在应用程序中的运用 子过程 函数过程 参数传递 过程的嵌套与递归调用 过程与变量的作用域 通用过程通常分为两种： （1）Sub过程（又称子过程、子程 序），它不返回值，例如显示矩阵、 动画。 （2 ）Function过程（又称函数过程）， 它有返回值，例如求阶乘、平均值等。 子过程 1．引例 2 ．创建子过程 3 ．调用子过程 4 ．子过程的应用举例 1.引例 例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 内部函数的方法一样，即在表达式中可以通过 使用函数名，并在其后用圆括号给出相应的参数 列表来