【正文】 局部變量屬于動(dòng)態(tài)變量 2. 靜態(tài)變量 退出該過程時(shí)變量值被保留，即變量所占的內(nèi)存單元沒有釋放。 過程 靜態(tài)變量（局部變量） 用 Dim聲明的變量 ：每次調(diào)用都對(duì)變量重新初始化；過程體結(jié)束，變量的內(nèi)容自動(dòng)消失，存儲(chǔ)單元釋放。每次調(diào)用過程，變量保持原來的值。 過程 靜態(tài)變量（局部變量） Static Function 函數(shù)名 ([參數(shù)列表 ]) [As 類型 ] Static Sub 子過程名 [(參數(shù)列表 )] 說明 ： 過程名前加 Static，表示該過程內(nèi)的局部變量都是靜態(tài)變量。 過程 Static Sub Subtest() Dim t As Integer t=2*t+1 Print t End Sub Private Sub Command1_Click() Call Subtest End Sub 運(yùn)行后， 3次單擊命令按鈕，執(zhí)行結(jié)果為： 1 3 7 例 Static Sub語句示例 將 Static Sub改為 Private Sub， 運(yùn)行后， 3次單擊命令按鈕，執(zhí)行結(jié)果為： 1 1 1 Private 第 7章 過程 過程的作用域 窗體 /模塊級(jí) ：加 Private關(guān)鍵字的過程，只能在被定義的本窗體或本模塊的任何過程中調(diào)用。 第 7章 Private 第 7章 過程 多窗體處理 在多窗體程序中，每個(gè)窗體可以有自己的界面和程序代碼，完成不同的操作 1. 添加窗體 通過“工程”菜單中的“添加窗體”命令來實(shí)現(xiàn) 2. 刪除窗體 選擇“工程”菜單中的“移除”命令 3. 保存窗體 選擇“文件”菜單中的“保存”或“另存為”命令 4. 設(shè)置啟動(dòng)窗體 在“工程 /工程屬性”對(duì)話框中設(shè)置 多窗體與 Sub Main過程 第 7章 說明：此時(shí)僅能引用窗體中的控件及各種屬性，但運(yùn)行時(shí)窗體并不顯示到屏幕上。 有關(guān)語句和方法 第 7章 (4) Hide方法 格式： ［窗體名稱］ .Hide 功能：隱藏指定的窗體，即不在屏幕上顯示，但仍保存在內(nèi)存中，因此它與 UnLoad的作用是不一樣的。 過程 創(chuàng)建 3個(gè)窗體和 1個(gè)標(biāo)準(zhǔn)模塊 (1)主窗體 (Form1) 本窗體上建立了“ 輸入數(shù)據(jù) ” (Command11) 、“ 計(jì)算 ” (Command12)和“ 結(jié)束 ” (Command13)三個(gè)命令按鈕 設(shè)置為啟動(dòng)窗體 例 多窗體應(yīng)用示例 —— 計(jì)算兩數(shù)之和及積 啟動(dòng) 窗體 主窗體 輸入兩個(gè)數(shù) 計(jì)算 定義全局變量 第 7章 隱藏主窗體 39。隱藏主窗體 39。主窗體“結(jié)束”按鈕 Unload Form1 Unload Form2 Unload Form3 End End Sub 先卸載所有已打開的窗體 第 7章 窗體上建立了 2個(gè)文本框 (Text21和 Text22)和1個(gè)“返回”命令按鈕 (Command21) Text21 Text22 第 7章 隱藏“輸入數(shù)據(jù)”窗體 39。 過程 (3)“計(jì)算”窗體 (Form3) Private Sub Command31_Click() ?“計(jì)算”窗體的“加法”按鈕 = X + Y End Sub Private Sub Command32_Click() ?“計(jì)算”窗體的“乘法”按鈕 = X * Y End Sub Private Sub Command33_Click() 39。隱藏“計(jì)算”窗體 39。 過程 (4)標(biāo)準(zhǔn)模塊 (Modulel) 由于在各窗體之間需要使用公共變量來傳送數(shù)據(jù)，所以建立一個(gè)標(biāo)準(zhǔn)模塊 Modulel，對(duì)用到的 全局變量 X和 Y進(jìn)行聲明 第 7章 應(yīng)用程序在運(yùn)行時(shí)會(huì)先執(zhí)行 Sub Main過程 Sub Main過程存放在標(biāo)準(zhǔn)模塊中。 過程 創(chuàng)建 2個(gè)窗體和 1個(gè)標(biāo)準(zhǔn)模塊 例 Sub Main 過程示例 第 7章 過程 標(biāo)準(zhǔn)模塊 標(biāo)準(zhǔn)模塊是獨(dú)立于窗體的程序單位，其擴(kuò)展名為 .bas。 2. 模塊級(jí)變量聲明 用 Dim關(guān)鍵詞聲明的變量和常量，其有效范圍僅限于本模塊內(nèi)。一般用 Public關(guān)鍵詞聲明的通用過程和 Sub Main過程放在標(biāo)準(zhǔn)模塊中。 過程 例 將判斷一個(gè)數(shù)是否為素?cái)?shù)編成一個(gè)函數(shù)，然后通過調(diào)用該函數(shù)求 500～ 1000數(shù)中的所有素?cái)?shù)，把這些素?cái)?shù)顯示在列表框中。例如 2， 3， 5， 7 是質(zhì)數(shù)，而 4， 6，8， 9 則不是。 程序舉例 列表框List1 標(biāo)簽 Label1 命令按鈕Command1 第 7章 清除列表框中的內(nèi)容 For t = 500 To 1000 If FnPrime(t) Then ?根據(jù) t是否素?cái)?shù)返回函 數(shù)值真或假 t 39。 amp。 過程 Function FnPrime(m As Integer) As Boolean Dim k As Integer, f As Boolean f = True 39。返回函數(shù)值 End Function 第 7章 過程 Dim txt As String, n As Integer, k As Integer Private Sub Form_Load() n = 0 txt = 2022年世界奧運(yùn)會(huì)將在中國北京市舉行 k = Len(txt) = RGB(255, 0, 0) 39。黑色 = RGB(0, 0, 255) 39。 過程 Private Sub Timer1_Timer() n = n + 1 ?模塊級(jí)變量 n是關(guān)鍵參數(shù) If n = k Then = Left(txt, n) ?逐次取 n個(gè)漢字， n每次加 1 = Space(2 * (k n)) + Left(txt, n) Else n = 0 = = End If If n Mod 2 = 0 Then ?以 2個(gè)定時(shí)時(shí)間為 1個(gè)周期，顯示及清除交替進(jìn)行 = txt 39。n為奇數(shù)時(shí)清除 End If End Sub 每次減少 2空格 1個(gè)漢字占 2個(gè)字符位置 每次增加 1個(gè)漢字