【正文】 (2)“輸入數(shù)據(jù)”窗體 (Form2)代碼： Private Sub Command21_Click() ?“輸入數(shù)據(jù)”窗體的“返回”按鈕 X = Val() Y = Val() 39。隱藏“輸入數(shù)據(jù)”窗體 39。顯示主窗體 End Sub 第 7章 過(guò)程 (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。隱藏“計(jì)算”窗體 39。顯示主窗體 End Sub Text31 第 7章 過(guò)程 (4)標(biāo)準(zhǔn)模塊 (Modulel) 由于在各窗體之間需要使用公共變量來(lái)傳送數(shù)據(jù)，所以建立一個(gè)標(biāo)準(zhǔn)模塊 Modulel，對(duì)用到的 全局變量 X和 Y進(jìn)行聲明 第 7章 過(guò)程 程序一般從 啟動(dòng)窗體的 Form_Load過(guò)程 開始執(zhí)行 有時(shí)在程序啟動(dòng)時(shí)不加載任何窗體，而是首先執(zhí)行一段程序代碼，此時(shí)可把要執(zhí)行的程序代碼放在 Sub Main過(guò)程中，并指定Sub Main為“啟動(dòng)對(duì)象”。 應(yīng)用程序在運(yùn)行時(shí)會(huì)先執(zhí)行 Sub Main過(guò)程 Sub Main過(guò)程存放在標(biāo)準(zhǔn)模塊中。在一個(gè)工程中只能有一個(gè) Sub Main過(guò)程 設(shè)置 Sub Main過(guò)程為“啟動(dòng)對(duì)象”的方法： 在“工程屬性”對(duì)話框的“通用”選項(xiàng)卡中，從“啟動(dòng)對(duì)象”下拉列表框中選中“ Sub Main” Sub Main過(guò)程 第 7章 過(guò)程 創(chuàng)建 2個(gè)窗體和 1個(gè)標(biāo)準(zhǔn)模塊 例 Sub Main 過(guò)程示例 第 7章 過(guò)程 第 7章 過(guò)程 標(biāo)準(zhǔn)模塊 標(biāo)準(zhǔn)模塊是獨(dú)立于窗體的程序單位，其擴(kuò)展名為 .bas。 1. 全局變量聲明 使用 Public關(guān)鍵詞對(duì)變量和常量進(jìn)行聲明，其作用域?yàn)檎麄€(gè)工程。 2. 模塊級(jí)變量聲明 用 Dim關(guān)鍵詞聲明的變量和常量，其有效范圍僅限于本模塊內(nèi)。 3. 通用過(guò)程 用戶自定義的子程序和函數(shù)。一般用 Public關(guān)鍵詞聲明的通用過(guò)程和 Sub Main過(guò)程放在標(biāo)準(zhǔn)模塊中。 第 7章 過(guò)程 例 將判斷一個(gè)數(shù)是否為素?cái)?shù)編成一個(gè)函數(shù)，然后通過(guò)調(diào)用該函數(shù)求 500～ 1000數(shù)中的所有素?cái)?shù)，把這些素?cái)?shù)顯示在列表框中。 (1)分析：素?cái)?shù)也稱質(zhì)數(shù)，就是只能被 1和它本身整除，而不能被其他整數(shù)整除的整數(shù)。例如 2， 3， 5， 7 是質(zhì)數(shù)，而 4， 6，8， 9 則不是。判斷某數(shù) m是否是素?cái)?shù)的算法是：對(duì)于 m，從 k = 2，3， 4， …… ， m1依次判別能否被 k整除，只要有一個(gè)能整除， m就不是素?cái)?shù)，否則 m是素?cái)?shù)。 程序舉例 列表框List1 標(biāo)簽 Label1 命令按鈕Command1 第 7章 過(guò)程 Private Sub Command1_Click() ? 求素?cái)?shù) 按鈕 Dim t As Integer 39。清除列表框中的內(nèi)容 For t = 500 To 1000 If FnPrime(t) Then ?根據(jù) t是否素?cái)?shù)返回函 數(shù)值真或假 t 39。若是素?cái)?shù)，則存入列表框中 End If Next t = 500～ 1000 數(shù)中共有 amp。 amp。 個(gè)素?cái)?shù) End Sub 第 7章 過(guò)程 Function FnPrime(m As Integer) As Boolean Dim k As Integer, f As Boolean f = True 39。設(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。返回函數(shù)值 End Function 第 7章 過(guò)程 在窗體上建立 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章 過(guò)程 Dim txt As String, n As Integer, k As Integer Private Sub Form_Load() n = 0 txt = 2022年世界奧運(yùn)會(huì)將在中國(guó)北京市舉行 k = Len(txt) = RGB(255, 0, 0) 39。紅色 = RGB(0, 0, 0) 39。黑色 = RGB(0, 0, 255) 39。藍(lán)色 End Sub 第 7章 過(guò)程 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í)顯示 Else = 39。n為奇數(shù)時(shí)清除 End If End Sub 每次減少 2空格 1個(gè)漢字占 2個(gè)字符位置 每次增加 1個(gè)漢字