过程调用上机练习2.docVIP

江苏省无锡立信职教中心校教案 课 题 过程调用上机练习2 课 型 讲 授、上机 授课日期 2006．4．7 授课时数 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 一次求和的结果:; sum End Sub Private Sub Command2_Click() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 5 sum = sum + total(i) Next Print i次求和的结果:; sum End Sub Private Sub Command3_Click() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 5 sum = sum + i Next Print 不调用子过程求和的结果:; sum End Sub Private 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 = ss End Function 2计算并输出两个数的最大公约数 要求采用下面两中过程分别实现： 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, m End Sub Private Sub Command2_Click() Dim n As Integer, m As Integer, g As Integer n = InputBox(输入n) m = InputBox(输入m) g = gcd2(n, m) Print n; 和; m; 的最大公约数是:; g End Sub 3按值传递、按地址传递 Private Sub Command1_Click() Dim x As Integer, y As Integer x = 4: y = 9 swap1 x, y Print x=; x, y=; y End Sub Private Sub Command2_Click() Dim x As Integer, y As Integer x = 4: y = 9 swap2 x, y Print x=; x, y=; y End Sub 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 = b End Function Private Sub gcd1(ByVal a As Integer, ByVal b As Integer) Dim r As Integer, t As Integer t = b r = a Mod b