【正文】 n)存放在模塊文件中 創(chuàng)建通用過程的方法 第 7章 第 7章 例如，在一個(gè)窗體中定義 Private Sub Command1_Click() Dim Sum As Integer Sum = 1 . . . End Sub Private Sub Command2_Click() Dim Sum As Single Sum = . . . End Sub 這兩個(gè)同名變量 Sum沒有任何聯(lián)系 第 7章 過程 全局變量要在 標(biāo)準(zhǔn)模塊 文件 (.bas)中的 通用聲明 部分用Global或 Public語(yǔ)句來(lái)聲明。當(dāng)再次進(jìn)入該過程時(shí)，所有的動(dòng)態(tài)變量將重新初始化。 用 Static 聲明的變量 ：過程體結(jié)束后，不釋放存儲(chǔ)單元。 第 7章 全局級(jí) ：加 Public關(guān)鍵字（缺?。┑倪^程，可供該應(yīng)用程序的所有窗體和所有標(biāo)準(zhǔn)模塊中的過程調(diào)用。 過程 第 7章 (2) UnLoad語(yǔ)句 格式： UnLoad 窗體名稱 功能：清除內(nèi)存中的窗體。 有關(guān)語(yǔ)句和方法 第 7章 顯示“輸入數(shù)據(jù)”窗體 End Sub Private Sub Command12_Click() ?主窗體“計(jì)算”按鈕 39。 過程 (2)“輸入數(shù)據(jù)”窗體 (Form2) 這是在主窗體上單擊了“輸入數(shù)據(jù)”按鈕后彈出的窗體，用于輸入運(yùn)算數(shù) x和 y。顯示主窗體 End Sub 第 7章 顯示主窗體 End Sub Text31 第 7章 在一個(gè)工程中只能有一個(gè) Sub Main過程 設(shè)置 Sub Main過程為“啟動(dòng)對(duì)象”的方法： 在“工程屬性”對(duì)話框的“通用”選項(xiàng)卡中，從“啟動(dòng)對(duì)象”下拉列表框中選中“ Sub Main” Sub Main過程 第 7章 1. 全局變量聲明 使用 Public關(guān)鍵詞對(duì)變量和常量進(jìn)行聲明，其作用域?yàn)檎麄€(gè)工程。 第 7章 判斷某數(shù) m是否是素?cái)?shù)的算法是：對(duì)于 m，從 k = 2，3， 4， …… ， m1依次判別能否被 k整除，只要有一個(gè)能整除， m就不是素?cái)?shù)，否則 m是素?cái)?shù)。若是素?cái)?shù)，則存入列表框中 End If Next t = 500～ 1000 數(shù)中共有 amp。設(shè)置 f來(lái)表示判斷狀態(tài)，初值為 True For k = 2 To m 1 If m Mod k = 0 Then f = False End If Next k FnPrime = f 39。紅色 = RGB(0, 0, 0) 39。n為偶數(shù)時(shí)顯示 Else = 39。藍(lán)色 End Sub 第 7章 過程 在窗體上建立 3個(gè)文本框，使之以不同效果顯示文字“ 2022年世界奧運(yùn)會(huì)將在中國(guó)北京市舉行 ” 第一個(gè)文本框 Text1從左到右逐字顯示，直到把整行文字顯示出來(lái)； 第二個(gè)文本框 Text2使文字從左到右作水平移動(dòng)； 第三個(gè)文本框 Text3以閃動(dòng)方式顯示文字 設(shè)計(jì)階段 運(yùn)行階段 例 動(dòng)態(tài)文字 第 7章 個(gè)素?cái)?shù) End Sub 第 7章 過程 Private Sub Command1_Click() ? 求素?cái)?shù) 按鈕 Dim t As Integer 39。 (1)分析：素?cái)?shù)也稱質(zhì)數(shù)，就是只能被 1和它本身整除，而不能被其他整數(shù)整除的整數(shù)。 3. 通用過程 用戶自定義的子程序和函數(shù)。 過程 第 7章 過程 程序一般從 啟動(dòng)窗體的 Form_Load過程 開始執(zhí)行 有時(shí)在程序啟動(dòng)時(shí)不加載任何窗體，而是首先執(zhí)行一段程序代碼，此時(shí)可把要執(zhí)行的程序代碼放在 Sub Main過程中，并指定Sub Main為“啟動(dòng)對(duì)象”?！坝?jì)算”窗體的“返回”按鈕 39。 過程 (2)“輸入數(shù)據(jù)”窗體 (Form2)代碼： Private Sub Command21_Click() ?“輸入數(shù)據(jù)”窗體的“返回”按鈕 X = Val() Y = Val() 39。顯示“計(jì)算”窗體 End Sub Private Sub Command13_Click() 39。 過程 Private Sub Command11_Click() ?主窗體“輸入數(shù)據(jù)”按鈕 39。 過程 (3) Show方法 格式 ：［窗體名稱］ .Show 例如： 功能：將一個(gè)窗體裝入內(nèi)存，并在屏幕上顯示。 過程 (1) Load語(yǔ)句 格式： Load 窗體名稱 例如： Load Form2 功能：將一個(gè)窗體裝入內(nèi)存。 過程 例 設(shè)計(jì)兩個(gè)窗體，編寫兩段程序代碼，驗(yàn)證全局級(jí)過程與窗體級(jí)過程的不同。 過程 在窗體模塊的 “通用聲明” 段中以 Public聲明的變量，允許 在其他窗體和模塊中引用，格式為： 第 7章 其聲明形式為： Private Sub Command1_Click( ) Static 變量名 [AS 類型 ] ?局部靜態(tài)變量 End Sub 第 7章 當(dāng)以后再次進(jìn)入該過程時(shí)，原來(lái)的變量值可以繼續(xù)使用 使用 Static關(guān)鍵字 在過程中聲明的局部變量屬于靜態(tài)變量 變量的生存期 Private Sub Command1_Click( ) Dim a As Integer ?a是動(dòng)態(tài)變量 Static b As Integer ?b是靜態(tài)變量 a = a + 1 ?每次進(jìn)入過程時(shí) ‘ a值為 0 b = b + 1 ?每次進(jìn)入過程時(shí) ‘ b保持上次的值 …… End Sub 第 7章 格式： Global 變量名 As Public 變量名 As 數(shù)據(jù)類型 3. 全局變量 第 7章 Dim n As Integer Private Sub Com