【正文】 子進行乘或除運算，然后把各個式子的值相加或相減，則可求出整個運算式的值 對于運算式“ 2*10/4+40/53*2”，先分解出 3 個乘除式，即“ +2*10/4”、“ +40/5”和“ 3*2”（分別保存在數(shù)組元素中 ,如 s(1)、 s(2)、 s(3)） , 再分別求出這些乘除式的值，即為“ +5”、“ +8” 和“ 6”，并對這些值進行加或減 運算，則可求出最后結(jié)果 7 (2)創(chuàng)建應(yīng)用程序的用戶 界面和設(shè)置對象屬性 例 計算四則運算式 (3)編寫程序代碼 功能要求： 用戶在文本框 Text1中輸入四則運算式，單擊“計算”按鈕 (Command1)后，在文本框 Text2中輸出計算結(jié)果 Dim s(20) As String 39。紅色 = RGB(0, 0, 0) 39。畫圓 Delayloop 39。產(chǎn)生 0～ 14顏色碼 x = 400 + Int(4000 * Rnd) 39。抹除 Next i End Sub Private Sub Plot(r, clr) (2400, 1600), r, QBColor(clr) 39。從小變大 Call Pict(1600, 30, 30) 39。 Time End Sub 程序運行時，先執(zhí)行 Sub Main過程，即取出當前時數(shù) t，再根據(jù)條件“ t=12”來決定是顯示 Form1，還是顯示 Form2 不需要加載任何窗體 (這種情況極少 )時，可把執(zhí)行的代碼直接寫入 Sub Main過程中 例 繪制一個圓，使之從小變大，再從大變小 分析： 為了得到一個圓大小變動的 動畫效果 ，先在某一位置上繪制一個圓，顯示一段時間 (延時 )后抹除，接著在下一位置上依此處理，直到指定位置為止 抹除方法是采用底色 (背景色 )來掩蓋圖形 采用 Circle方法可以畫一個圓 延時時間：利用 Timer函數(shù) ，該函數(shù)返回系統(tǒng)時鐘從午夜開始計算的秒數(shù) (帶兩位小數(shù) ) Private Sub Delayloop(delaytime) 39。標準模塊包含一個Sub Main過程。顯示主窗體 End Sub (4)標準模塊 (Modulel) 由于在各窗體之間需要使用公共變量來傳送數(shù)據(jù)，所以建立一個標準模塊 Modulel，對用到的 全局變量 X、 Y和 R進行聲明 運行程序后，首先顯示主窗體。 Private Sub Command31_Click() 39。隱藏“輸入?yún)?shù)”窗體 39。顯示“畫圓”窗體 End Sub Private Sub Command13_Click() 39。隱藏主窗體 39。t為靜態(tài)變量 t = 2 * t + 1 Print t End Sub Private Sub Command1_Click() Call Subtest 39。 格式： Global 變量名 As Public 變量名 As 數(shù)據(jù)類型 3. 全局變量 生存期，也即變量能夠保持其值的時間 分為 動態(tài)變量 和 靜態(tài)變量 1. 動態(tài)變量 動態(tài)變量是指程序運行進入變量所在的過程時，才分配給該變量的內(nèi)存單元，經(jīng)過處理退出該過程時，該變量占用的內(nèi)存單元自動釋放，其值消失。m→n,p→m, 再調(diào)用 End If End Function 例 用遞歸方法求兩個正整數(shù) n和 m的最大公約數(shù) 變量的作用域 (空間 )和生存期 (時間 ) 代碼模塊的概念 應(yīng)用程序通常包括 窗體文件 (.frm)、模塊文件 (.bas)和類模塊 (.cls) 應(yīng)用程序 工程文件 (.vbp) 窗體模塊 文件 (.frm) Sub 過程 Function 過程 事件 過程 聲明 部分 類模塊 文件 (.cls) 標準模塊 文件 (.bas) Sub 過程 Function 過程 聲明 部分 Sub Main 過程 變量的作用范圍 變量根據(jù)所處的位置或被定義不同，其作用范圍也不同 局部變量、模塊級變量和全局變量 1. 局部變量 在一個過程內(nèi)部用 Dim或 Static聲明的變量稱為局部變量。 n。n=1時，結(jié)束遞歸 End If End Function 說明： 當 n1時，在 Fac過程中調(diào)用 Fac過程，然后 n減 1，再次調(diào)用 Fac過程，這種操作一直持續(xù)到 n=1為止。 一個過程調(diào)用過程本身，就稱為過程的遞歸調(diào)用 采用遞歸方法來解決問題時，必須符合以下兩個 (1)可以把要解的問題轉(zhuǎn)化為一個新的問題，而這個新的問題的解法仍與原來的解法相同； (2)有一個明確的結(jié)束遞歸的條件 (終止條件 )，否則過程將永遠“遞歸”下去 過程的遞歸調(diào)用 可用下列的遞歸公式 1 n=1 n (n1)! n1 本遞歸中，終止條件是 n=1 n! = 例 采用遞歸方法求 n! (n0) Private Sub Form_Load() Dim n As Integer, m As Double Show n = Val(InputBox(輸入 1～ 15之間的整數(shù) )) If n 1 Or n 15 Then MsgBox 錯誤數(shù)據(jù) , 0, 檢查數(shù)據(jù) End End If m= fac(n) Print n。 x Call test2(x) Print 執(zhí)行 test2后， x=。 Format(sum / n, .0) Print 最高分： 。出現(xiàn)在 Sub過程和 Function過程中 形式參數(shù)可以是變量名和數(shù)組名 實際參數(shù) (簡稱實參 ) 在調(diào)用過程中的參數(shù)。 程序代碼： Private Sub Form_Load() Show Dim a As Single, b As Single, c As Single Dim s As Single a = Val(InputBox(輸入第一個數(shù) )) b = Val(InputBox(輸入第二個數(shù) )) c = Val(InputBox(輸入第三個數(shù) )) s = max(a, b) Print 最大數(shù)是 :。 局部 (Private)過程、全局 (公用 , Public)過程和靜態(tài) (Static)過程 事件過程 Sub過程 通用過程 Function過程 事件過程是當某個事件發(fā)生時，對該事件作出響應(yīng)的程序段，它是 VB應(yīng)用程序的主體 通用過程是獨立于事件過程之外，可供其他過程調(diào)用的程序段 過程調(diào)用示例 把相同的任務(wù)編成相對獨立的“子過程” 當事件過程需要執(zhí)行這個任務(wù)時，可使用調(diào)用語句 (如Call)實行調(diào)用。兩大類過程。 * End Sub Sub過程 Form_Load() 事件過程 Call mysub1(30) Call mysub2 Call mysub2 Call mysub2 Call mysub2 Call mysu