[理學(xué)]vb課件fil-文庫(kù)吧資料
2025-03-28 06:44本頁(yè)面
【正文】 另一個(gè)過(guò)程，稱為過(guò)程的嵌套調(diào)用。 并顯示排序結(jié)果 Private Sub Command2_Click() Sort3 X, Y, Z = Str(X) amp。 Str(Z) = End Sub 39。 單擊 Command1按鈕產(chǎn)生并顯示三個(gè)隨機(jī)數(shù) Private Sub Command1_Click() Randomize X= Int(100 * Rnd) Y = Int(100 * Rnd) Z = Int(100 * Rnd) 第九章 過(guò) 程 30 = Str(X) amp。 Text1 Text2 第九章 過(guò) 程 29 Dim X As Integer, Y As Integer, Z As Integer 39。程序運(yùn)行時(shí)單擊“排序前”按鈕產(chǎn)生 [0，99]之間的三個(gè)隨機(jī)整數(shù)，并將文本框 Text2的內(nèi)容清空，單擊“排序后”按鈕，調(diào)用該 Sub過(guò)程完成排序。 Public Sub A1(N As Integer, S As Integer) S = 0 For J = 1 To N S = S + J Next J End Sub 第九章 過(guò) 程 27 Private Sub Command1_Click() Dim K As Integer, S1 As Integer, I As Integer K = Val() For I = 1 To K 39。 調(diào)用 Fact過(guò)程求 x階乘，階乘值存于實(shí)參 Ff中 Call Fact(x, Ff) = Trim(Str(Ff)) End Sub 第九章 過(guò) 程 26 Sub過(guò)程舉例 【例 911】編寫(xiě)一個(gè) Sub過(guò)程，計(jì)算 N個(gè)數(shù)的和，即1+2+…+ N， 并通過(guò)命令按鈕的單擊事件調(diào)用該過(guò)程計(jì)算 S=1+(1+2)+(1+2+3)+ …+(1+2+…+K) 。 Option Explicit Sub Fact(N As Integer, F As Long) Dim I As Integer F = 1 For I = 1 To N F = F * I Next I End Sub 第九章 過(guò) 程 25 Private Sub Command1_Click() Dim x As Integer, Ff As Long x = Val() = Trim(Str(x)) amp。 (4) 格式二省略了 Call關(guān)鍵字，同時(shí) 實(shí)參表 兩邊也不能帶括號(hào)。如果是數(shù)組參數(shù)，則要在數(shù)組名之后跟一對(duì)空括號(hào)。 分析 : 首先要設(shè)置三個(gè)參數(shù)，如 x、 y、 z， 用于接收三個(gè)原始數(shù)據(jù)，另外引入兩個(gè)參數(shù) max和 min，用于返回最大和最小數(shù)。 For j = 1 To 2 * i 1 Print *。 分析 : 打印以上圖形，不需要返回值，因此無(wú)需引入?yún)?shù)。 分析 : 參數(shù)表中應(yīng)有一個(gè)參數(shù) n， 還應(yīng)有另一個(gè)參數(shù) F用來(lái)返回階乘值。 (4) Sub過(guò)程的建立方法與 Function過(guò)程的建立方法相同。 (2) 過(guò)程名 不具有值的意義，在 Sub過(guò)程中不能給過(guò)程名 賦值，也不能給 過(guò)程名 定義類型。 在 Text1獲得焦點(diǎn)時(shí)選中其中的文本 Private Sub Text1_GotFocus() = 0 = Len() End Sub 第九章 過(guò) 程 18 39。 第九章 過(guò) 程 17 39。 調(diào)用 Fact函數(shù)求各階乘值 c = Fact(m) / (Fact(n) * (Fact(m n))) = Trim(Str(c)) End Sub 第九章 過(guò) 程 16 39。 限制 n的最小值為 m的值 = = End Sub 第九章 過(guò) 程 15 39。 調(diào)整滾動(dòng)條 VScroll2的值 (n)時(shí) ,在文本框中顯示該值， 39。 調(diào)整滾動(dòng)條 VScroll1的值 (m)時(shí)，在文本框中顯 39。 Text2 VScroll1 OLE1控件 VScroll2 Text1 Text3 Command1 第九章 過(guò) 程 12 主要屬性設(shè)置如下 : 控件名稱 屬性名 屬性值 OLE1 BackStyle 0 Transparent BorderStyle 0 None SizeMode 2 AutoSize Vscroll1 Max 0 Min 0 Value 0 Vscroll2 Max 0 Min 50 Value 0 第九章 過(guò) 程 13 39。設(shè)計(jì)界面如下圖所示。 在按鈕的 Click事件過(guò)程中調(diào)用函數(shù)過(guò)程 Private Sub Command1_Click() Dim X As Integer X = Val() = Trim(Str(X)) amp。 自定義求階乘的函數(shù)過(guò)程 Fact Functin Fact(N As Integer) As Long Dim I As Integer, F As Long F = 1 For I = 1 To N F = F * I Next I Fact = F 39。 第九章 過(guò) 程 9 【例 93】從鍵盤(pán)上任意輸入一個(gè)整數(shù)，然后調(diào)用例91編寫(xiě)的函數(shù)過(guò)程計(jì)算其階乘數(shù)。 格式 : 函數(shù)過(guò)程名 ([實(shí)參表 ]) 實(shí)參表 : 常量、變量或表達(dá)式，各參數(shù)之間用逗號(hào)分隔。 F用于保存階乘值 For I = 1 To N F = F * I Next I Fact = F 39。 【例 91】編寫(xiě)一個(gè)計(jì)算 n！ 的 Function過(guò)程。 第九章 過(guò) 程 7 Function過(guò)程的建立 : ? 直接在代碼窗口中輸入。 (8) Function過(guò)程通過(guò)賦值語(yǔ)句 函數(shù)過(guò)程名 = 表達(dá)式 將函數(shù)的返回值賦給 函數(shù)過(guò)程名 。 ( ): 當(dāng)參數(shù)為數(shù)組時(shí)使用 。 表示該參數(shù)按地址傳遞 。 第九章 過(guò) 程 6 形參表 格式 : [ByVal|ByRef]變量名 [( )] [As 類型 ] ByVal: 表示該參數(shù)按值傳遞 。 (5) 形參表 : 表示在調(diào)用時(shí)要傳遞給 Function過(guò)程
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1