过程调用与参数传递.pptVIP

******************分析下列程序的值PrivateSubCommand1_Click()DimMAsInteger,NAsIntegerM=15:N=20CallValue_Change(M,N)PrintM,NEndSubPrivateSubValue_Change(XAsInteger,byvalueYAsInteger)X=X+20Y=X+YPrint“X=“;X,”Y=“;YEndSubX=35y=55M=35N=20第31页，共50页，星期日，2025年，2月5日1520返回地址1000(地址)20MNXY100010021004100510033520返回地址1000（地址)55MNXY10001002100410051003第32页，共50页，星期日，2025年，2月5日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页，星期日，2025年，2月5日参数数据类型转换的例子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页，星期日，2025年，2月5日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页，星期日，2025年，2月5日因为在print语句中，计算表达式时，优先执行函数调用。调用结束时f=39，而v1，v2，v3的值也变了，不是2，3，4而是12，13，14所以结果是：12+13+14*39=571第36页，共50页，星期日，2025年，2月5日PrivateSubForm_Click()Dimv1AsInteger,v2AsInteger,v3AsIntegerv1=2:v2=3:v3=4V4=v1+v2+v3*f(v1,v2,v3)Printv4EndSub修改成赋值语句结果为161因为执行赋值语句时，计算右侧表达式的值不是首先调用函数，而是按从左到右的顺序进行