[工学]第4章 VB程序设计.pptVIP

第4章 VB程序设计 4.1 文件类型 4.1 文件类型 4.1 文件类型 4.1 文件类型 4.1 文件类型 4.2 过程 4.2 过程 4.2 过程 4.2 过程 4.2 过程 4.2 过程 4.2 过程 4.2 过程 4.2 过程 4.2 过程 4.3 过程的调用 4.3 过程的调用 4.3 过程的调用 4.3 过程的调用 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.4 参数的传递 4.5 递归过程 4.5 递归过程 4.5 递归过程 4.5 递归过程 4.5 递归过程 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.6 变量和过程的作用范围 4.7 Sub Main过程与快速提示窗体 4.7 Sub Main过程与快速提示窗体 4.7 Sub Main过程与快速提示窗体 4.8 程序举例 4.8 程序举例 4.8 程序举例 4.8 程序举例 4.8 程序举例 4.8 程序举例 对于按地址传递的形参，如果在过程调用时与之结合的实参是常数或表达式，则VB会用按值传递的方法处理，给形参分配一个临时的内存单元，将常数或表达式传递到这个临时的内存单元。 【例Ex_MulSum】计算5! + 4! + 3! + 2! + 1!，按照按地址参数传递的方法编写程序，代码如下： Private Sub Form_Click() Dim Sum As Integer, i As Integer For i = 5 To 1 Step -1 Sum = Sum + Multiply(i) Next Print Sum=; Sum End Sub Private Function Multiply(n As Integer) As Integer Multiply = 1 Do While n 0 Multiply = Multiply * n n = n - 1 Loop End Function 运行结果：Sum=120 结果是120而不是希望的153，是因为本程序只计算了5!=120。形参的传递过程如图4.14所示。 因为形参n是按地址传递的，在第一次调用Multiply函数后n的值为0；由于实参与形参共享地址单元，实参i的值也是0。当执行判断语句“For i = 5 To 1 Step –1”时就退出For循环。因此For循环只执行了一次，求了5!的值。  图4.14 形参按地址传递 解决办法 将函数定义改为按值传递： Private Function Multiply (ByVal n As Integer) As Integer 将实参i改为表达式，因为表达式是按值传递的。把变量改为表达式的最简单的方法是用“（）”将变量括起来。调用语句为： Sum = Sum + Multiply((i)) 4.4.3 数组参数 在定义过程时，数组可以作为形参出现在过程的形参列表中。 语法 形参数组名（） [As 数据类型] 图4.15 “计算平均工资”界面 形参数组对应的实参必须也是数组，数据类型与形参一致，实参列表中的数组不需要用“（）”。过程传递数组只能按地址传递，形参与实参共有同一段内存单元。 【例Ex_AverScore】用同一个函数Average求正式员工和临时员工的平均工资。运