子程序与函数过程.ppt

子程序与函数过程;子程序过程 （2） 函数过程 （4） 过程之间参数传递 （3） 变量的作用域 （1）;定义格式： [Static][Private|Public]Sub子程序名 ([形参列表]) 语句组1 [Exit Sub] 语句组2 End Sub ;【实例6.1】交换两个整型变量值的子过程 Private Sub Swap( X As Integer, Y As Integer) 　　Dim temp As Integer 　Temp=X : X=Y : Y=Temp End Sub 测试：参数的传递过程——值传递和地址传递，用下过程。;;【工具】|【添加过程】;子程序过程的调用格式 Call 过程名[( 实际参数)] 过程名 [ 实际参数 ] ;【实例6.2】试编写一个无参数的sub子过程Formmove( ) ，它的功能是将当前正在运行的窗体移动到屏幕的中央。;Fommove( ) 子过程代码 Public Sub formmove() Form1.Top = (Screen.Height - Form1.Height) / 2 Form1.Left = (Screen.Width - Form1.Width) / 2 End Sub;移动按钮代码 Private Sub Command1_Click( ) Call Formmove End sub;函数过程的定义 函数过程的调用 ;函数过程的一般定义格式 ;函数过程的调用格式 变量名 = 函数名( 实际参数 ) 注意： 必须有确定值 个数、类型必须与形参一一对应;;Private Function Gcd(m As Integer, n As Integer) Dim r As Integer, t As Integer If m n Then t = m : m = n : n = t End If Do r = m Mod n m = n n = r Loop While (r 0) Gcd = m End Function;【实例6-3】 编写一个函数过程，统计一串字符中某个字符的出现次数，通过调用函数过程实现。;函数过程代码 Public Function statistic(str$, s$) As Integer Dim k%, i% k = 0 For i = 1 To Len(str) If Mid(str, i, 1) = s Then k = k + 1 End If Next i statistic = k End Function;统计按钮代码 Private Sub cmdstat_Click() Dim c1$, c2$, m% c1 = txtin.Text c2 = txtsearch.Text m = statistic(c1, c2) txtcount.Text = m End Sub;【实例6-4】某班有m名学生，要选派n名学生参加合唱队，计算有多少种选派方法。 ;计算阶乘的函数过程 Public Function factorial(ByVal n As Integer) As Double Dim i As Integer, t As Double t = 1 For i = 1 To n t = t * i Next i factorial = t End Function;计算按钮代码： Private Sub cmdcount_Click() Dim m As Integer, n As Integer, c As Double m = Val(txtstudent.Text) n = Val(txtneed.Text) c = factorial(m) / (factorial(n) * factorial(m - n)) lblways.Caption = Str(c) End Sub;传地址与传值 传值方式 在形参前加关键字ByVal，指定该参数是传值方式例 如：Private Sub w(ByVal n%) 传地址方式 在形参前加关键字ByRef或缺省关键字，则指定该参数是传地址方式。 例如：Private Sub w(ByRef x!,y! ) 注意： 按传地址方式传递参数时，要求实参必须是变量名 ;【实例6.5】 编写 交换两个数的子过程，s1用传值方式，s