过程调用与参数传递.ppt

**********************************1520返回地址1000(地址)20MNXY100010021004100510033520返回地址1000（地址)55MNXY10001002100410051003第32页,共50页，2024年2月25日，星期天PrivateSubForm_Click()DimsumAsInteger,iAsIntegerFori=5To1Step-1sum=sum+fact(i)NextiPrintsum=;sumEndSub编写程序计算5!+4!+3!+2!+1!的值调用函数，循环变量作为实参PublicFunctionfact(nAsInteger)AsIntegerfact=1DoWhilen0fact=fact*nn=n-1LoopEndFunction按地址传递参数产生不良干扰的示例：（1）循环变量作为实参Why？如何修改？结果：120正确结果应为：153第33页,共50页，2024年2月25日，星期天参数数据类型转换的例子PrivateSubForm_Click()DimSasSingleS=125.5CallConvert((S),”12”+”.5”)EndSub如果为CallConvert((S),”125a”)呢？PrivateSubConvert(InxAsInteger,SingAsSingle)Inx=Inx*2Sing=Sing+23Print“Inx+”;Inx,”sing=”;SingEndSub第34页,共50页，2024年2月25日，星期天PrivateSubForm_Click()Dimv1AsInteger,v2AsInteger,v3AsIntegerv1=2:v2=3:v3=4Printv1+v2+v3*f(v1,v2,v3)EndSubPublicFunctionf(aAsInteger,bAsInteger,cAsInteger)a=a+10b=b+10c=c+10f=a+b+cEndFunction调用函数语句，实参是传地址的。实参变量又出现在表达式中结果是571，而非161。why?（2）实参出现在表达式中第35页,共50页，2024年2月25日，星期天因为在print语句中，计算表达式时，优先执行函数调用。调用结束时f=39，而v1，v2，v3的值也变了，不是2，3，4而是12，13，14所以结果是：12+13+14*39=571第36页,共50页，2024年2月25日，星期天PrivateSubForm_Click()Dimv1AsInteger,v2AsInteger,v3AsIntegerv1=2:v2=3:v3=4V4=v1+v2+v3*f(v1,v2,v3)Printv4EndSub修改成赋值语句结果为161因为执行赋值语句时，计算右侧表达式的值不是首先调用函数，而是按从左到右的顺序进行的，即计算2+3+4*39第37页,共50页，2024年2月25日，星期天如果修改成:PrivateSubForm_Click()Dimv1AsInteger,v2AsInteger,v3AsIntegerv1=2:v2=3:v3=4V4=v1+v2+v3*f((v1,v2,v3)*1.0)Printv4EndSub这是一个非整型的()也叫实型表达式结果又是571了，因为计算实型表达式时优先调用函数第38页,共50页，2024年2月25日，星期天结论:函数调用的优先级是不