第八章过程讲述.ppt

第八章 过程 教学内容 1、通用子 (Sub)过程的概念及应用 2、函数(Function)过程的应用 3、参数传递的概念及应用 教学目的 了解模块化程序设计的思想，通过学习和上机实践，掌握Sub过程和Function过程的定义和调用方法；掌握形参与实参的作用，传值调用和引用调用的特点和区别。 重点和难点 1、Sub过程和Function过程的定义格式和调用方法，区分这两种过程的异同点。 2、形参与实参的作用，传值调用和引用调用的特点及其区别。 3、变量的作用域。 课时：6 教学方法：多媒体演示 教学过程 （5）参数的定义形式：[ByVal｜ByRef]变量名[( )][As 类型] ByVal表示当该过程被调用时，参数是按值传递的； 缺省或ByRef表示当该过程被调用时，参数是按地址传递的。 在Command1_Click()事件过程中调用子过程max Private Sub Command1_Click() Dim x, y, z As Integer x = Val(Text1.Text) y = Val(Text2.Text) Call max(x, y, z) ‘或用 max x,y,z Text3.Text = Str(z) End Sub Private Sub Form_Click() Dim x%, y%, z% x = 5 y = 7 z = 0 Text1.Text = Call p1(x, y, z) Text1.Text = Str(z) End Sub Private Sub p1(ByVal a%,ByVal b%,ByVal c%) c = a + b End Sub Sub aa(x, y, z) z = x * x + y * y End Sub Sub bb(x, y, z) z = x ^ 3 + y ^ 3 End Sub 调用以上过程计算两个数的平方和和立方和，并分别将计算结果显示在文本框text3和text4中 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) Call ________ Text3.Text = c1 bb __________ Text4.Text = c2 End Sub Public sub F1(n%) …. N=3*n+4 …. End sub Private sub command1_click（ ） Dim n%,m% N=3 M=4 ….. ‘ 调用F1语句 …. End sub 下面子过程语句说明合法的是（ ） (A) Sub f1(ByVal n%()) (B) Sub f1(n%) as integer (C) Function f1%(f1%) (D) Function f1(ByVal n%) 要想从子过程调用后返回两个结果，正确的是（ ） Sub f2(ByVal n%,ByVal m%) Sub f1(n%,ByVal m%) Sub f1(n%,m%) Sub f2(ByVal n%,m%) 下面程序运行后的结果是（ ） Public sub f1(n%,byval m%) N=n mod 10 M=m\10 End sub Private sub command1_click( ) Dim x%,y% X=12 Y=34 Call f1(x,y) Print x,y End sub Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 sum = sum + k Next k fun = sumEnd Function Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1)) + s1 Next