例8-11求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 Double f日1 For i=1 To a f=f米1 形式参数及类型 Next i Form1.Label2.Caption=str(a)&"！的 值为：”&Str(① End 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 Double f = 1 For i = 1 To a f = f * i Next i Form1.Label2.Caption = Str(a) & ″！的 值为：″ & Str(f) End Sub 形式参数及类型 实参
例8-21求矩形面积 Private Sub Command1_Click() Call area(Val(Text1),Val(Text2)) End Sub 实参 Private Sub area(a As Single,b As Single) Dim sum As Double 形式参数及类型 sum a b Label3.Caption=”矩形面积为：”+Str(sum) End Sub
例[8-2] 求矩形面积 Private Sub Command1_Click() Call area(Val(Text1), Val(Text2)) End Sub Private Sub area(a As Single, b As Single) Dim sum As Double sum ＝ a * b Label3.Caption ＝ ″矩形面积为： ″ ＋ Str(sum) End Sub 形式参数及类型 实参
8.1.2 Function过程的定义与调用 子过程没有返回值，而函数过程有返回值。 1.函数过程的定义 [Static]Public Private]Function函数过程名 [(参数列表)[As类型] 语句块 [Exit Function] D。● 语句块[给函数名赋返回值] End Function
8.1.2 Function过程的定义与调用 子过程没有返回值，而函数过程有返回值。 1.函数过程的定义 [Static][Public|Private]Function函数过程名 [(参数列表)][As类型] 语句块 . [Exit Function] . 语句块[给函数名赋返回值] End Function
说明： >函数过程定义与子过程定义基本相同 Exit Function的作用与Exit Sub相同 >“As类型”指定该函数的返回值的类型 >语句块”为符合Visual Basic语法的一条或多 条语句 >“给函数名赋返回值”是与子过程定义的不同之处 >与Sub定义一样，函数过程定义的函数体内不允许 定义其他的函数过程和子过程
说明： ➢ 函数过程定义与子过程定义基本相同 ➢ Exit Function的作用与Exit Sub相同 ➢ “As 类型”指定该函数的返回值的类型 ➢ “语句块”为符合Visual Basic语法的一条或多 条语句 ➢ “给函数名赋返回值”是与子过程定义的不同之处 ➢ 与Sub定义一样，函数过程定义的函数体内不允许 定义其他的函数过程和子过程
2.函数过程的定义方法 与子过程的定义一样，函数过程的定义也有两种方法： ①在代码窗口内手工输入函数过程的框架 ②在系统菜单“添加过程”中完成。不同的是在选择 过程类型时不选“子程序”而选“函数”，其他与子 过程的定义相同。 3.函数过程的调用 程序中，函数过程的调用一般放在表达式中，以函数的 返回值参与表达式的计算
2.函数过程的定义方法 与子过程的定义一样，函数过程的定义也有两种方法： ① 在代码窗口内手工输入函数过程的框架 ② 在系统菜单“添加过程”中完成。不同的是在选择 过程类型时不选“子程序”而选“函数”，其他与子 过程的定义相同。 3.函数过程的调用 程序中，函数过程的调用一般放在表达式中，以函数的 返回值参与表达式的计算