第5章 过程-1.pptVIP

☆☆ 第6章 过 程 * 5.1 Sub过程 在Visual Basic中，可以使用两种类型的过程： Sub 过程和Function 过程 Sub 过程也称为子过程， Function 过程也称为函数过程 １． Sub过程的的定义格式： [Public|Private][Static] Sub 过程名([形参表]) ＜语句块＞ End Sub 说明： （1）过程名：命名规则与变量名规则相同。 （2）形参列表：仅表示形参的类型、个数、位置，定义时是无值的，只有在过程被调用时，虚实参结合后才获得相应的值，过程可以无形式参数，但括号不能省。 5.1.1　Sub过程的创建 5.1 Sub过程 2.建立Sub过程 方法1： 在模块或代码的“通用”段中直接输入过程关键字和过程名，按回车键后系统自动加上End Sub 5.1 Sub过程 方法2： 通过 “工具”菜单中的“添加过程”命令，出现“添加过程”对话框，选择过程类型（子程序、函数、属性、事件）及作用范围（公有的Public、私有的Private），单击确定后得到一个过程或函数定义的结构框架，如： Public Sub Sort( )　 …… End Sub 5.1 Sub过程 例5.1 编一个输出一个直角三角形图案的自定义过程 Public Sub Output_Triangle (n As Integer, ch As String) Dim i As Integer, j As Integer For i = 1 To n For j = 1 To i Print ch; Next j Print Next i End Sub 5.1 Sub过程 Private Sub Form_Click() Call Output_Triangle (10, *) Output_Triangle 10, * End Sub 5.1.2 过程的调用 1. 子过程的调用 子过程名 [参数列表] 或 Call 子过程名(参数列表) 说明： （1）参数列表称为实参或实元，它必须与形参保持个数相同，位置与类型一一对应。 （2）调用时把实参值传递给对应的形参。 5.1 Sub过程 （3）当参数是数组时，形参与实参在参数声明时应省略其维数，但括号不能省。 （4）调用子过程的形式有两种，用Call关键字时，实参必须加圆括号括起，不用Call关键字时，则实参不用加圆括号括起。 例 调用上面定义的Output_Triangle子过程的形式： 　　Call Output_Triangle(10, *) Output_Triangle 10, * 5.1 Sub过程 例5.2 设计一个求n的阶乘的过程fac，在“计算”命令按钮的单击事件中调用该过程，n的值通过文本框输入，结果在另一个文本框输出。 5.1 Sub过程 Private Sub Command1_Click() Dim n%, s# n = Val(Text1.Text) Call fac(n, s) Text2.Text = s End Sub Private Sub fac(n%, s#) Dim i As Integer s = 1 For i = 1 To n s = s * i Next i End Sub Private Sub Command1( ) …… Call Swap(a,b) …… Swap a,b End Sub Private Sub Swap(x%,y%) Dim temp% Temp=X X=Y Y=Temp End Sub 过程调用的执行过程： 5.1 Sub过程 5.2 Function过程 Visual Basic函数分为内部函数和外部函数，外部函数是用户用Function关键字定义的函数过程。 5.2.1 函数过程的定义 [Public|Private][Static]Function 函数名([参数列表])[As类型] 语句块 函数名=返回值 End Function 说明： （1）函数名：命名规则与变量名规则相同。 （2）形参数列表：形参的定义与子过程相同。 （3）AS类型：是指函数返回值的类型，若省略，则函数返回变体类型值