[理學(xué)]vb課件fil-文庫吧在線文庫
【正文】 章 過 程 5 2. 說明 (1) Public: 缺省值 。 ByRef: 缺省值 。 ? 在代碼窗口 : 工具 → 添加過程。 第九章 過 程 10 39。 定義求階乘的函數(shù) Fact Function Fact(N As Integer) As Double Dim F As Double, i As Integer F = 1 For i = 1 To N F = F * i Next i Fact = F End Function 第九章 過 程 14 39。 定義求最大公約數(shù)的函數(shù)過程 hcf Function hcf(m As Integer, n As Integer) As Integer Dim r As Integer r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop hcf = n End Function 【例 95】編寫 Function過程求最大公約數(shù)，并通過命令按鈕的單擊事件過程調(diào)用該函數(shù)過程。 【例 97】編寫計(jì)算 n!的 Sub過程。 Sub s(x, y, z, max, min) max = x min = x If y max Then max = y If y min Then min = y If z max Then max = z If z min Then min = z End Sub 第九章 過 程 23 Sub過程的調(diào)用 格式一 : Call 過程名 [(實(shí)參表 )] 格式二 : 過程名 [實(shí)參表 ] 說明 : (1) 過程名 : 要調(diào)用的 Sub過程名； (2) 實(shí)參表 : 可以是常量、變量或表達(dá)式，各參數(shù)之間用逗號分隔。 分析 : 編寫一個(gè) Sub過程計(jì)算 1+2+…+ N， 設(shè)參數(shù) N、 S， 參數(shù) S用于返回該和值。 Str(Y) amp。 調(diào)用 Fact過程 Next i Sigma = sum End Function 第九章 過 程 33 Function Fact(n As Integer) As Double Dim i As Integer, f As Double f = 1 For i = 1 To n f = f * i Next i Fact = f End Function 第九章 過 程 34 參數(shù)的傳遞 調(diào)用過程與被調(diào)用過程之間的一種數(shù)據(jù)通訊方法。 (1) 當(dāng)實(shí)參為常量或表達(dá)式時(shí)，數(shù)據(jù)傳遞總是單向的。 Option Explicit Function Power(x As Single, ByVal y As Integer) Dim result As Single result = 1 Do While y 0 result = result * x y = y 1 Loop Power = result End Function 第九章 過 程 41 Private Sub Form_Click() Dim i As Integer For i = 1 To 5 Print Power(5, i) Next i End Sub 思考 : 如果取消過程 Power中參數(shù) y前的關(guān)鍵字ByVal， 則會出現(xiàn)什么情況？ 第九章 過 程 42 代碼模塊 VB應(yīng)用程序由三種模塊組成 : 窗體模塊 (Form) (文件擴(kuò)展名 .frm) 標(biāo)準(zhǔn)模塊 (Module) (文件擴(kuò)展名 .bas) 類模塊 (Class) (文件擴(kuò)展名 .cls) 應(yīng)用程序 工程文件 (.vbp) 窗體模塊 (.frm)文件 類模塊 (.cls)文件 標(biāo)準(zhǔn)模塊 (.bas)文件 Function過程 Sub過程 事件過程 Function過程 Sub過程 第九章 過 程 43 窗體模塊 包含 : 事件過程 通用過程 通用聲明 標(biāo)準(zhǔn)模塊 不對應(yīng)于某個(gè)窗體、完全是純代碼。 A每次執(zhí)行過程時(shí)被初始化 Static C As Single 39。定義求階乘函數(shù) F(N) Public Function F(N) As Integer F1 = 1 For I = 1 To N F1 = F1 * I Next I F=F1 End Function I: 局部變量 F1: 局部變量 N: 形式參數(shù) F: 公共函數(shù) M M2: 全局變量 第九章 過 程 55 Form1模塊 : Dim N As Integer Private Sub C1_Click() N = Val() M1 = N * N * N = M1 End Sub Private Sub C2_Click() M2 = F(N) = M2 End Sub Private Sub C3_Click() End Sub N: 模塊級變量 實(shí)際參數(shù) F: 公共函數(shù) M M2: 全局變量 第九章 過 程 56 Private Sub C1_Click() = M1 End Sub Private Sub C2_Click() = M2 End Sub Private Sub C3_Click() If M1 O Then = Format(M2 / M1, ) Else MsgBox 被除數(shù)為零，請重輸 End If End Sub Private Sub C4_Click() Unload Me End Sub M M2: 全局變量 第九章 過 程 57 變量的生存期 靜態(tài)變量 : 在應(yīng)用程序執(zhí)行期間保留不變 動態(tài)變量 : 在所在的模塊 (過程 )運(yùn)行時(shí)被初始化 Static Sub SS1() 39。 在模塊運(yùn)行時(shí)被初始化 Dim 39。 2. 全局過程 : 在 Sub過程或 Function過程前如果加Public關(guān)鍵字， 或者省略 Public與 Private關(guān)鍵字，則這種過程可以被該應(yīng)用程序的所有窗體模塊或所有標(biāo)準(zhǔn)模塊中的過程
電大資料相關(guān)推薦
鄂ICP備17016276號-1