【正文】 ivate Sub Command11_Click() ?主窗體“輸入數(shù)據(jù)”按鈕 ‘單擊后進入“輸入數(shù)據(jù)”窗體 39。顯示“計算”窗體 End Sub Private Sub Command13_Click() 39。顯示主窗體 End Sub Text21 Text22 主頁 (3)“計算”窗體 (Form3) 這是在主窗體上單擊了“計算”按鈕后彈出的窗體?！坝嬎恪贝绑w的“返回”按鈕 39。在“輸入數(shù)據(jù)”窗體或“計算”窗體上，單擊“返回”按鈕，又可以隱藏當前窗體和重現(xiàn)主窗體 主頁 程序一般從 啟動窗體的 Form_Load過程 開始執(zhí)行 有時在程序啟動時不加載任何窗體，而是首先執(zhí)行一段程序代碼，此時可把要執(zhí)行的程序代碼放在 Sub Main過程中，并指定Sub Main為“啟動對象”。設(shè)置背景顏色 Call Pict(30, 1600, 30) 39。延遲 Call Plot(i, 15) 39。控制進行 200次 clr = Int(15 * Rnd) 39。產(chǎn)生圓半徑 r值 Call Plot(x, y, r, clr) 39。畫圓 End Sub 例 變幻圓 隨機產(chǎn)生圓的有關(guān)參數(shù) 例 隨機產(chǎn)生圓心位置、半徑及顏色值 主頁 在窗體上建立 3個文本框，使之以不同效果顯示文字“ 2022年世界奧運會將在中國北京市舉行 ” 第一個文本框 Text1從左到右逐字顯示，直到把整行文字顯示出來； 第二個文本框 Text2使文字從左到右作水平移動； 第三個文本框 Text3以閃動方式顯示文字 設(shè)計階段 運行階段 例 動態(tài)文字 例 主頁 Dim txt As String, n As Integer, k As Integer Private Sub Form_Load() n = 0 txt = 2022年世界奧運會將在中國北京市舉行 k = Len(txt) = RGB(255, 0, 0) 39。n為偶數(shù)時顯示 Else = 39。黑色 = RGB(0, 0, 255) 39。延時 Call Plot(x, y, r, 15) 39。產(chǎn)生圓心 x坐標值 y = 400 + Int(4000 * Rnd) 39。畫圓 End Sub a及 b為半徑的開始值及結(jié)束值， c為每次半徑增量 r、 clr分別為圓半徑和顏色值 主頁 Private Sub Form_Load() Show Randomize = QBColor(15) 39。從大變小 End Sub Private Sub Pict(a, b, c) ‘顯示 → 延遲 → 抹除 For i = a To b Step c ‘ 在 i位置上處理 Call Plot(i, 4) 39。在一個工程中只能有一個Sub Main 設(shè)置 Sub Main過程為“啟動對象”的方法： 在“工程屬性”對話框的“通用”選項卡中，從“啟動對象”下拉列表框中選中“ Sub Main” (見 ) Sub Main過程 例 主頁 例 繪制一個圓，使之從小變大，再從大變小 分析： 為了得到一個圓大小變動的 動畫效果 ，先在某一位置上繪制一個圓，顯示一段時間 (延時 )后抹除，接著在下一位置上依此處理，直到指定位置為止 延時：利用 Timer函數(shù) ，該函數(shù)返回系統(tǒng)時鐘從午夜開始計算的秒數(shù) (帶兩位小數(shù) ) Private Sub Delay(d) ‘功能：延時 d秒 t = Timer() + d Do While Timer() t 39。顯示主窗體 End Sub Text31 主頁 (4)標準模塊 (Modulel) 由于在各窗體之間需要使用公共變量來傳送數(shù)據(jù)，所以建立一個標準模塊 Modulel，對用到的 全局變量 X和 Y進行聲明 運行程序后，首先顯示主窗體。用戶可以單擊“加法” (Command31) 或“乘法” (Command32)命令按鈕，使之按要求進行計算。窗體上建立了 2個文本框 (Text21和 Text22)和 1個“返回”命令按鈕 (Command21) Private Sub Command21_Click() ?“輸入數(shù)據(jù)”窗體的“返回”按鈕 X = Val() Y = Val() 39。顯示“輸入數(shù)據(jù)”窗體 End Sub Private Sub Command12_Click() ?主窗體“計算”按鈕 ‘單擊后進入“計算”窗體 39。 使用 Static關(guān)鍵字 在過程中聲明的局部變量屬于靜態(tài)變量 變量的生存期 Private Sub …… Dim a As Integer ?a是動態(tài)變量 Static b As Integer ?b是靜態(tài)變量 x = a + 1 ?每次進入過程時，