过程调用上机练习2

《过程调用上机练习2》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、江苏省无锡立信职教中心校教案课题过程调用上机练习2课型讲授、上机授课日期2006．4．7授课时数2教学目标掌握利用过程调用来简化程序掌握过程调用中sub和Function的区别掌握过程调用中的参数传递。教学重点利用过程调用设计简单程序教学难点过程调用中的sub和Function的区别及参数传递学情分析对前面所学理论通过上机进一步复习、巩固板书设计上机讲授、练习过程：一教师讲解1演示程序、运行结果2设计界面3编写代码并解释说明二学生练习、教师巡回辅导三成绩登记四点评、简要小结江苏省无锡立信职教中心校备课笔记教学内容一、例

2、题一：阶乘的使用1调用Function过程一次求和2调用Function过程多次求和3不调用Function过程一次求和PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0sum=total(5)Print"一次求和的结果:";sumEndSubPrivateSubCommand2_Click()DimiAsInteger,sumAsIntegersum=0Fori=1To5sum=sum+total(i)NextPrint"i次求和的结果:";sumEnd

3、SubPrivateSubCommand3_Click()DimiAsInteger,sumAsIntegersum=0Fori=1To5sum=sum+iNextPrint"不调用子过程求和的结果:";sumEndSubPrivateFunctiontotal(xAsInteger)AsLongDimssAsLong,iAsIntegerss=0Fori=1Toxss=ss+iNexttotal=ssEndFunction2计算并输出两个数的最大公约数PrivateSubgcd1(ByValaAsInteger,By

4、ValbAsInteger)DimrAsInteger,tAsIntegert=br=aModbDoWhiler<>0a=bb=rr=aModbLoopPrinta;"和";t;"的最大公约数是:";bEndSub要求采用下面两中过程分别实现：1>在command1click()中调用Sub过程2>在command2click()中调用Function过程PrivateSubCommand1_Click()DimnAsInteger,mAsIntegern=InputBox("输入n")m=InputBox("输入m"

5、)gcd1n,mEndSubPrivateSubCommand2_Click()PrivateFunctiongcd2(ByValaAsInteger,ByValbAsInteger)DimrAsIntegerr=aModbDoWhiler<>0a=bb=rr=aModbLoopgcd2=bEndFunctionDimnAsInteger,mAsInteger,gAsIntegern=InputBox("输入n")m=InputBox("输入m")g=gcd2(n,m)Printn;"和";m;"的最大公约数是:";g

6、EndSub3按值传递、按地址传递PrivateSubswap1(ByValaAsInteger,ByValbAsInteger)Dimtt=a:a=b:b=tEndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=4:y=9swap1x,yPrint"x=";x,"y=";yEndSubPrivateSubswap2(aAsInteger,bAsInteger)Dimtt=a:a=b:b=tEndSubPrivateSubCommand2_Click()Di

7、mxAsInteger,yAsIntegerx=4:y=9swap2x,yPrint"x=";x,"y=";yEndSub