定义过程 定义过程的语法 Sub <procedure name> ([argument, argument/.argument]) <statements> End Sub 6 北大青鸟
6 定义过程 • 定义过程的语法： Sub <procedure_name> ([argument1,argument2,…..argumentn]) …. <statements> …. End Sub
过程-示例 Private Sub Form Load o Call showtime End Sub 调廂过程 Sub sh。 wtime() 定义过程 MsgBox Time 卫 nd Sub 在VB环境中进行演示 北大青鸟
7 过程 – 示例 Private Sub Form_Load() Call showtime End Sub Sub showtime() MsgBox Time End Sub 在VB环境中进行演示 定义过程 调用过程
函数 函数是一组被命名的语句,用户通过指 定名称来调用它时,它将被执行,并返 回值 函数的语句放在 Function/End Function 语句内 函数可以将值返回给调用程序 北大青鸟
8 函数 • 函数是一组被命名的语句，用户通过指 定名称来调用它时，它将被执行，并返 回值 • 函数的语句放在Function/End Function 语句内 • 函数可以将值返回给调用程序
定义函数 Function <function name> (I argumentsl, argument2,.. argument])as <return data type> <s七 atements> <func七i。 n name>=<re七 urn Va1ue> <End Function> 北大青鸟
9 定义函数 Function <function_name> ([ arguments1,argument2,…..argumentn]) as <return data type> …. <statements> …. <function_name>=<return value> <End Function>
函数-示例 Private Sub Form Load o Dim new d As Date new d newday( Msa Box new d 调用函数 End Sub Function newday ()As Date 定义函数 newday Date 5 End Function 在VB环境中进行演示 10 北大青鸟
10 函数 – 示例 Private Sub Form_Load() Dim new_d As Date new_d = newday() MsgBox new_d End Sub Function newday() As Date newday = Date + 5 End Function 在VB环境中进行演示 定义函数 调用函数