《过程调用上机练习2》由会员分享，可在线阅读，更多相关《过程调用上机练习2（3页珍藏版）》请在金锄头文库上搜索。
1、江苏省无锡立信职教中心校教案江苏省无锡立信职教中心校教案课课 题题过程调用上机练习过程调用上机练习 2 2课课 型型讲讲 授、上机授、上机 授课日期授课日期200620064 47 7授课时数授课时数2 2教学目标教学目标掌握利用过程调用来简化程序掌握利用过程调用来简化程序 掌握过程调用中掌握过程调用中 subsub 和和 FunctionFunction 的区别的区别 掌握过程调用中的参数传递。掌握过程调用中的参数传递。教学重点教学重点利用过程调用设计简利用过程调用设计简 单程序单程序教学教学 难点难点过程调用中的过程调用中的 subsub 和和 FunctionFunction 的区别及参
2、数传递的区别及参数传递学情分析学情分析对前面所学理论通过上机进一步复习、巩固对前面所学理论通过上机进一步复习、巩固板板 书书 设设 计计上机讲授、练习过程：上机讲授、练习过程：一教师讲解一教师讲解 1 1 演示程序、运行结果演示程序、运行结果2 2 设计界面设计界面3 3 编写代码并解释说明编写代码并解释说明二学生练习、教师巡回辅导二学生练习、教师巡回辅导三成绩登记三成绩登记四点评、简要小结四点评、简要小结江苏省无锡立信职教中心校备课笔记江苏省无锡立信职教中心校备课笔记教教 学学 内内 容容 一、例题一：阶乘的使用一、例题一：阶乘的使用 1 1 调用调用 FunctionFunction 过程
3、一次求和过程一次求和 2 2 调用调用 FunctionFunction 过程多次求和过程多次求和 3 3 不调用不调用 FunctionFunction 过程一次求和过程一次求和PrivatePrivate SubSub Command1_Click()Command1_Click()DimDim i i AsAs Integer,Integer, sumsum AsAs IntegerIntegersumsum = = 0 0sumsum = = total(5)total(5)PrintPrint “ “一次求和的结果一次求和的结果:“;:“; sumsum EndEnd SubSub
4、PrivatePrivate SubSub Command2_Click()Command2_Click()DimDim i i AsAs Integer,Integer, sumsum AsAs IntegerIntegersumsum = = 0 0ForFor i i = = 1 1 ToTo 5 5sumsum = = sumsum + + total(i)total(i)NextNextPrintPrint “i“i 次求和的结果次求和的结果:“;:“; sumsum EndEnd SubSub PrivatePrivate SubSub Command3_Click()Comman
5、d3_Click()DimDim i i AsAs Integer,Integer, sumsum AsAs IntegerIntegersumsum = = 0 0ForFor i i = = 1 1 ToTo 5 5sumsum = = sumsum + + i iNextNextPrintPrint “ “不调用子过程求和的结果不调用子过程求和的结果:“;:“; sumsum EndEnd SubSubPrivatePrivate FunctionFunction total(xtotal(x AsAs Integer)Integer) AsAs LongLongDimDim ssss
6、AsAs Long,Long, i i AsAs IntegerIntegerssss = = 0 0ForFor i i = = 1 1 ToTo x xssss = = ssss + + i iNextNexttotaltotal = = ssss EndEnd FunctionFunction2 2 计算并输出两个数的最大公约数计算并输出两个数的最大公约数 要求采用下面两中过程分别实现：要求采用下面两中过程分别实现：PrivatePrivate SubSub gcd1(ByValgcd1(ByVal a a AsAs Integer,Integer, ByValByVal b b AsA
7、s Integer)Integer)DimDim r r AsAs Integer,Integer, t t AsAs IntegerIntegert t = = b br r = = a a ModMod b bDoDo WhileWhile r r 0 0a a = = b bb b = = r rr r = = a a ModMod b bLoopLoop PrintPrint a;a; “ “和和“;“; t;t; “ “的最大公约数是的最大公约数是:“;:“; b b EndEnd SubSub11在在 command1command1 click()click()中调用中调用 Su
8、bSub 过程过程 22在在 command2command2 click()click()中调用中调用 FunctionFunction 过程过程PrivatePrivate SubSub Command1_Click()Command1_Click()DimDim n n AsAs Integer,Integer, m m AsAs IntegerIntegern n = = InputBox(“InputBox(“输入输入 n“)n“)m m = = InputBox(“InputBox(“输入输入 m“)m“)gcd1gcd1 n,n, m m EndEnd SubSubPrivate
9、Private SubSub Command2_Click()Command2_Click() DimDim n n AsAs Integer,Integer, m m AsAs Integer,Integer, g g AsAs IntegerInteger n n = = InputBox(“InputBox(“输入输入 n“)n“) m m = = InputBox(“InputBox(“输入输入 m“)m“) g g = = gcd2(n,gcd2(n, m)m) PrintPrint n;n; “ “和和“;“; m;m; “ “的最大公约数是的最大公约数是:“;:“; g g En
10、dEnd SubSub3 3 按值传递、按地址传递按值传递、按地址传递PrivatePrivate SubSub Command1_Click()Command1_Click()DimDim x x AsAs Integer,Integer, y y AsAs IntegerIntegerx x = = 4:4: y y = = 9 9swap1swap1 x,x, y yPrintPrint “x=“;“x=“; x,x, “y=“;“y=“; y y EndEnd SubSubPrivatePrivate SubSub Command2_Click()Command2_Click()Dim
11、Dim x x AsAs Integer,Integer, y y AsAs IntegerIntegerx x = = 4:4: y y = = 9 9swap2swap2 x,x, y yPrintPrint “x=“;“x=“; x,x, “y=“;“y=“; y y EndEnd SubSubPrivatePrivate FunctionFunction gcd2(ByValgcd2(ByVal a a AsAs Integer,Integer, ByValByVal b b AsAs Integer)Integer)DimDim r r AsAs IntegerIntegerr r
12、= = a a ModMod b bDoDo WhileWhile r r 0 0a a = = b bb b = = r rr r = = a a ModMod b bLoopLoopgcd2gcd2 = = b b EndEnd FunctionFunctionPrivatePrivate SubSub swap1(ByValswap1(ByVal a a AsAs Integer,Integer, ByValByVal b b AsAs Integer)Integer)DimDim t tt t = = a:a: a a = = b:b: b b = = t t EndEnd SubSubPrivatePrivate SubSub swap2(aswap2(a AsAs Integer,Integer, b b AsAs Integer)Integer)DimDim t tt t = = a:a: a a = = b:b: b b = = t t EndEnd SubSub
