其它考试过程.pptxVIP

第五章 过 程;5.1 通用过程;5.1 通用过程 ;5.1.1 Sub过程;Sub过程的定义 [Static][Public|Private] Sub 子过程名[(参数列表)] 局部变量或常数定义 语句块 [Exit Sub] 语句块 End Sub Sub过程的调用 子过程名 [参数列表] 或 Call 子过程名(参数列表);【范例5-2】 编写Sub过程完成两数交换。 建立Sub过程 Public Sub Swap(x, y) Dim t t = x x = y y = t End Sub 主调程序调用子过程 Private Sub Form_Click() Dim a, b a = 15 b = 30 Print 两个数交换前:a=; a, b=; b Swap a, b Print 两个数交换后:a=; a, b=; b End Sub;5.1.2 Function过程;【范例5-3】 编写function过程，求S=3！+5！+8！ 建立Function过程 Private Function Fun(Num As Integer) As Double Dim i As Integer, t As Double t = 1 For i = 1 To Num t = t * i