Visual Basic程序设计教程（医药类） 陈素 第5章 过程.pptVIP

VB程序设计教程 主编 陈素教授 第五章 过 程 5.1通用过程 5.2参数传递 5.3过程的嵌套与递归调用 5.4变量、过程的作用域 5.1 通用过程 通用过程不属于任一对象，它不由事件驱动，它通过其他过程调用才被执行，须使用专用的的调用语句。没有过程调用语句，则通用过程不会执行。 5.1 通用过程 5.1.1 Sub过程 Sub过程一般是指通用的子过程，它可以在程序中调用执行，执行完毕后无返回值。 Sub过程的创建 5.1.1 Sub过程 Sub过程的定义 [Static][Public|Private] Sub 子过程名[(参数列表)] 局部变量或常数定义 语句块 [Exit Sub] 语句块 End Sub Sub过程的调用 子过程名 [参数列表] 或 Call 子过程名(参数列表) 5.1.1 Sub过程 【范例5-2】 编写Sub过程完成两数交换。 建立Sub过程 Public Sub Swap(x, y) Dim t t = x x = y y = t End Sub 主调程序调用子过程 Private Sub Form_Click() Dim a, b a = 15 b = 30 Print 两个数交换前:a=; a, b=; b Swap a, b Print 两个数交换后:a=; a, b=; b End Sub 5.1.2 Function过程 Function过程的定义 [Static][Private|Public] Function函数名([参数列表])[As数据类型] 局部变量和常数声明 语句块 函数名=返回值 [Exit Function] 语句块 函数名=返回值 End Function Function过程的调用 函数名(实参列表) 5.1.2 Function过程 【范例5-3】 编写function过程，求S=3！+5！+8！ 建立Function过程 Private Function Fun(Num As Integer) As Double Dim i As Integer, t As Double t = 1 For i = 1 To Num t = t * i Next Fun = t End Function 调用Function过程 Private Sub Command1_Click() 使用Function过程像使用VB内部函数一样 Print 3!+5!+8!=; Fun(3) + Fun(5) + Fun(8) End Sub 5.2 参数传递 5.2.1 地址传递和值传递 形参 出现在sub过程和Function过程的形参表中的变量名、数组名，称为形式参数，过程被调用之前，并未为其分配内存，其作用是说明白变量的类型和形态以及在过程中所“扮演”的角色。形参表中的各变量之间要用逗号分隔，形参可以是： (1)除定长字符串变量之外的合法变量名。 (2)后面跟有左、右圆括号的数组名。 实参 实参是在调用Sub或Function过程时，传送给相应过程的变量名、数组名、常数或表达式，它们包含在过程调用的实参表中。在过程调用传递参数时，形参表与实参表中的对应变量名，可以不必相同，因为“形实结合”是按对应“位置”结合而不是按“名字”结合的，即第一个实参与第一个形参结合，第二个实参与第二个形参结合，依此类推。 5.2.1 地址传递和值传递 地址传递： 形参得到的是实参的地址，当形参值的改变同时也改变实参的值。 值传递： 形参得到的是实参的值，形参值的改变不会影响实参的值。 5.2.1 地址传递和值传递 地址传递示例： Private Sub Command1_Click() Dim intX As Integer intX = 5 Call dRef(intX) Print intX End Sub Sub dRef(x As Integer) x = x + 7 End Sub 5.2.1 地址传递和值传递 值传递示例： Private Sub Command1_Click() Dim intY As Integer intY = 5 Call dRef(intY) Print intY End Sub Sub dVal(ByVal y As Integer) y = y + 7 End Sub 5.2.2 数组参数的传递 在VB中允许参数是数组，数组只能通过传址方式进行传递在传递数组时还要注意以下事项：