过程调用上机练习2.doc

江苏省无锡立信职教中心校教案课 题过程调用上机练习2课 型讲 授、上机授课日期200647授课时数2教学目标掌握利用过程调用来简化程序掌握过程调用中sub和Function的区别掌握过程调用中的参数传递。教学重点利用过程调用设计简单程序教学难点过程调用中的sub和Function的区别及参数传递学情分析对前面所学理论通过上机进一步复习、巩固板书设计上机讲授、练习过程：一教师讲解 1演示程序、运行结果2设计界面3编写代码并解释说明二学生练习、教师巡回辅导三成绩登记四点评、简要小结江苏省无锡立信职教中心校备课笔记教 学 内 容一、例题一：阶乘的使用1调用Function过程一次求和2调用Function过程多次求和3不调用Function过程一次求和Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 sum = total(5) Print 一次求和的结果:; sumEnd SubPrivate Sub Command2_Click() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 5 sum = sum + total(i) Next Print i次求和的结果:; sumEnd SubPrivate Sub Command3_Click() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 5 sum = sum + i Next Print 不调用子过程求和的结果:; sumEnd SubPrivate Function total(x As Integer) As Long Dim ss As Long, i As Integer ss = 0 For i = 1 To x ss = ss + i Next total = ssEnd Function2计算并输出两个数的最大公约数Private Sub gcd1(ByVal a As Integer, ByVal b As Integer) Dim r As Integer, t As Integer t = b r = a Mod b Do While r 0 a = b b = r r = a Mod b LoopPrint a; 和; t; 的最大公约数是:; bEnd Sub要求采用下面两中过程分别实现：1在command1 click()中调用Sub过程2在command2 click()中调用Function过程Private Sub Command1_Click() Dim n As Integer, m As Integer n = InputBox(输入n) m = InputBox(输入m) gcd1 n, mEnd SubPrivate Sub Command2_Click()Private Function gcd2(ByVal a As Integer, ByVal b As Integer) Dim r As Integer r = a Mod b Do While r 0 a = b b = r r = a Mod b Loop gcd2 = bEnd FunctionDim n As Integer, m As Integer, g As Integern = InputBox(输入n)m = InputBox(输入m)g = gcd2(n, m)Print n; 和; m; 的最大公约数是:; gEnd Sub3按值传递、按地址传递Private Sub swap1(ByVal a As Integer, ByVal b As Integer) Dim t t = a: a = b: b = tEnd SubPrivate Sub Command1_Click() Dim x As Integer, y As Integer x = 4: y = 9 swap1 x, y Print x=; x, y=; yEnd SubPrivate Sub swap2(a As Integer, b As Integer) Dim t t = a: a = b: b = tEnd SubPrivate Sub C