第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.7SubMain过程与快速提示窗体4.7SubMain过程与快速提示窗体4.7SubMain过程与快速提示窗体4.8程序举例4.8程序举例4.8程序举例4.8程序举例4.8程序举例4.8程序举例对于按地址传递的形参，如果在过程调用时与之结合的实参是常数或表达式，则VB会用按值传递的方法处理，给形参分配一个临时的内存单元，将常数或表达式传递到这个临时的内存单元。【例Ex_MulSum】计算5!+4!+3!+2!+1!，按照按地址参数传递的方法编写程序，代码如下：PrivateSubForm_Click() DimSumAsInteger,iAsInteger Fori=5To1Step-1 Sum=Sum+Multiply(i) Next PrintSum=;SumEndSubPrivateFunctionMultiply(nAsInteger)AsInteger Multiply=1 DoWhilen0 Multiply=Multiply*n n=n-1 LoopEndFunction运行结果：Sum=120结果是120而不是希望的153，是因为本程序只计算了5!=120。形参的传递过程如图4.14所示。因为形参n是按地址传递的，在第一次调用Multiply函数后n的值为0；由于实参与形参共享地址单元，实参i的值也是0。当执行判断语句“Fori=5To1Step–1”时就退出For循环。因此For循环只执行了一次，求了5!的值。

图4.14形参按地址传递解决办法将函数定义改为按值传递：PrivateFunctionMultiply(ByValnAsInteger)AsInteger将实参i改为表达式，因为表达式是按值传递的。把变量改为表达式的最简单的方法是用“（）”将变量括起来。调用语句为：Sum=Sum+Multiply((i))4.4.3数组参数在定义过程时，数组可以作为形参出现在过程的形参列表中。语法形参数组名（）[As数据类型]图4.15“计算平均工资”界面形参数组对应的实参必须也是数组，数据类型与形参一致，实参列表中的数组不需要用“（）”。过程传递数组只能按地址传递，形参与实参共有同一段内存单元。【例Ex_AverScore】用同一个函数Average求正式员工和临时员工的平均工资。运