>过程的调用方法 n方法一:ca过程名【(实参列表刀 方法二:过程名[实参列表] 过程的形参与实参 形参(形式参数):是用于接收过程中要使用 的数据的变量。 ■实参(实际参数):是传给Sub过程的、有确 定值的变量或常数。实参与形参类型应尽
➢ 过程的调用方法 ▪ 方法一：Call 过程名 [(实参列表)] ▪ 方法二：过程名 [实参列表] ➢ 过程的形参与实参 ▪ 形参（形式参数）：是用于接收过程中要使用 的数据的变量。 ▪ 实参（实际参数）：是传给Sub过程的、有确 定值的变量或常数。实参与形参类型应尽量一 致
例8-0无参数静态过程 Private Sub Command1_ Click() Call test或 call test()或test 三 nd sub Static sub test()过程中均为静态变量 Dim a (2) As Integer a(0)=a(0)+1 a(1)=a(1)+1 Print aoB a(1) 三 nd sub
例8-0 无参数静态过程 Private Sub Command1_Click( ) Call test ‘或 Call test ( ) 或 test End Sub Static Sub test( ) ‘过程中均为静态变量 Dim a(2) As Integer a(0) = a(0) + 1 a(1) = a(1) + 1 Print a(0); a(1) End Sub
例8-1求n Private Sub Command1_click( Call N(al (Text1. Text)) 三 nd sub 实参 Public Sub N(a As Integer) Dim i As Integer Dim f As Long f=1 Fo1=17oa形式参数及类型 f〓f*i Next i Form1. Label3 Caption Str(f) 三 nd sub
➢ 例8-1 求n! Private Sub Command1_Click() Call N(Val(Text1.Text)) End Sub Public Sub N(a As Integer) Dim i As Integer Dim f As Long f = 1 For i = 1 To a f = f * i Next i Form1.Label3.Caption = Str(f) End Sub 形式参数及类型 实参
例8-2求矩形面积 实参 Private Sub Command1_click Call AREA(Val(Text1. Text), Val(Text2 Text) End sub Public Sub AREA(A As Single, b As Single) Dim sum As double sumEA* b Labe3 Caption=“求得的面积为:"&sum End sub 形式参数及类型
➢例8-2 求矩形面积 Private Sub Command1_Click() Call AREA(Val(Text1.Text), Val(Text2.Text)) End Sub Public Sub AREA(A As Single, b As Single) Dim sum As Double sum = A * b Label3.Caption = "求得的面积为：" & sum End Sub 形式参数及类型 实参
81.2 Function函数过程的定义与调用 >子过程没有返回值,而函数过程有返回值。 Function过程定义的一般格式 Static] PrivatellPublic] Function函数名(参数列表)[As类型 语句块 [Exit Function 语句块[给函数名赋返回值] 三 nd Function
8.1.2 Function函数过程的定义与调用 ➢ 子过程没有返回值，而函数过程有返回值。 ➢ Function 过程定义的一般格式 [Static][Private][Public] Function 函数名(参数列表) [As 类型] 语句块 [Exit Function] 语句块 [给函数名赋返回值] End Function