第6章子过程与函数过程.ppt

6.1 子过程 6.2 函数过程 6.3 变量定义位置的确定(作用域) 6.4 静态变量的使用 6.1 子过程 6.1.1子过程的定义 6.1.2 子过程的调用 6.1.1 子过程的定义 【实例6.1】定义一个名为num的子过程，该子过程用来计算1+2+…+n的和。 Private Sub sum(m As Integer , s As Long) For i = 1 To m s = s + i Next i End Sub 子程序过程的一般定义格式 [Static][Private|Public]Sub子程序名 [(形参列表)] 语句组1 [Exit Sub] 语句组2 End Sub 6.1.2 子程序过程的调用 【实例6.2】程序运行时单击“1+……+100” 按钮，在标签中显示1至100的和；单击“1+……+n” 按钮，由用户在输入框中输入n值，并在标签中显示1至n的和。 操作步骤 （1）设计界面 Private Sub sum(m As Integer , s As Long) For i = 1 To m s = s + i Next i End Sub Private Sub cmdSum1_Click() Dim ss As Long sum 100, ss lblShow.Caption = 1+……+100 = ss End Sub Private Sub cmdSum2_Click() Dim n As Integer ： Dim ss As Long lblShow.Caption = n = InputBox(……) If n 1 Then Call sum(n, ss) lblShow.Caption = …… Else MsgBox …… End If End Sub 子程序过程的调用格式（两种形式） Call 过程名[( 实际参数)] 6.2 函数过程 6.2.1 函数过程的定义 6.2.2 函数过程的调用 6.2.1 函数过程的定义 【实例6.3】定义一个函数过程，计算n！。 Private Function fac(m As Integer) As Double Dim s As Double s = 1 For i = 1 To m s = s * i Next i fac = s End Function 函数过程的一般定义格式 [Static][Private|Public] Function 函数名 [(形参列表)] [As 类型] 语句组1 [函数名＝返回值 Exit Function] 语句组2 函数名＝返回值 End Function 6.2.2函数过程的调用 【实例6.4】窗体中有1个标签和3个命令按钮（控件数组）。程序运行时，单击命令按钮，在标签中显示所求的阶乘。 操作步骤 （1）设计界面 Private Function fac(m As Integer) As Double Dim s As Double s = 1 For i = 1 To m s = s * i Next i fac = s End Function Private Sub cmdCal_Click(Index As Integer) Dim i As Integer: Dim sum As Double Select Case Index Case 0 lblCal.Caption = 5!= fac(5) Case 1 lblCal.Caption = 7!= fac(7) Case 2 For i = 1 To 11 Step 2 sum = sum + fac(i)