第6章 过程 ppt课件

主讲教师 :杜云 -西南大学计算机与信息科学学院 E-mail： Dyun_jx163.Com 过程概述 将程序分割成较小的逻辑部件就可以简 化程序设计任务。称这些部件为过程。 过程可用于压缩重复任务，例如，压缩 频繁的计算。例如：求 1！ +2！ +n! 求 1!+2!+3!+N! Dim i As Integer Dim j As Integer sum = 0 n = InputBox(请输入一个数 N) For i = 1 To n k = 1 For j = 1 To i k = k * j Next j sum = sum + k Next i Print “1!+2!+3!+.“ s Print “n=“; n End Sub 由于参数按地址传递 ,过程中对 形式参数的改变将改变实际参 数的值 , ? 程序的输出结果是 ? 例如，编写一个交换两变量值的函数过程 Swap: Private Function Swap(x As Integer, y As Integer) Dim tmp As Integer tmp = x: x = y: y = tmp End Function 编写窗体的 Click事件过程，调用该函数过程： Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 15 Print “调用交换函数过程前： a=“; a, “b=“; b Swap a, b Print “调用交换函数过程后： a=“; a, “b=“; b End Sub 分析参数传 递方式对实 际参数的影 响 按值传递参数 按值传递参数是把实参变量的值传递给形参变量，实参变量的值 在过程调用前后保持不变。定义过程时用 ByVal关键字指出参数是按值来 传递的。 例如： Sub Fun(ByVal x as Integer) End Sub Public Function f2(ByVal x) x = x * x f2 = x End Function Private Sub Command1_Click() Dim n As Integer Dim s As Integer n = Val(Text1.Text) s = f2(n) Print “s=“; s Print “n=“; n End Sub 由于参数按值传递 ,过程中对形 式参数的改变不会改变实际参 数的值 , ? 程序的输出结果是 ? 例如，把上面调用交换变量值的函数过程 Swap修改为按值传递参数： Private Function Swap(ByVal x As Integer, ByVal y As Integer) Dim tmp As Integer tmp = x: x = y: y = tmp End Function Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 15 Print “调用交换函数过程前： a=“; a, “b=“; b Swap a, b 按值传递参数 Print “调用交换函数过程后： a=“; a, “b=“; b End Sub 分析参数传值方式对实际 参数的影响 ? 显示按值传递参 数没有能实现两 变量值的交换。 本章作业分析 1 Public Sub mysub4(x As Integer) x = 3 * x - 1 If x 11 B- 11 3、 Function x(ByVal m As Long) As Long Dim k As Long, num As Integer k = 1 num = m Do While num = 1 k = k * (num Mod 10) num = num 10 Loop x = k End Function Private Sub Command1_Click() Dim n As Long, r As Long n = Val(Text1.Text) r = x(n) Print r End Sub 程序运行时，通 过文本框输入数 值 225，程序的输 出是？ 编程作业 1、有 10个数分别为 23、 45、 16、 32、 91、 78、 86 、 48、 65、 28，要求分别用选择排序法和冒泡排序 法将这 10个数降序排列输出。 2、编