【導讀】VB應用程序是由過程組成的，過程是完成某種特殊。功能的一組獨立的程序代碼。事件過程是當某個事件發(fā)生時，對該事件作出響應的。通用過程是獨立于事件過程之外，可供其他過程調(diào)用的。把相同的任務編成相對獨立的“子過程”。句Call的后續(xù)語句繼續(xù)執(zhí)行。通用過程又分為Sub(子程序)過程和Function(函數(shù))過程。例使用Sub過程的示例1. 在Sub過程mysub1中，n為參數(shù)，當調(diào)。調(diào)用時，就把30傳給n，這樣調(diào)用后就輸出30個“*”號。過程mysub2()不帶參數(shù)，其功能是輸出左右兩邊的“*”。[Private｜Public｜Static]Sub過程名。[ByVal|ByRef]變量名[()][As數(shù)據(jù)類型]…ByVal表示該參數(shù)按值傳遞，ByRef表示該參數(shù)按地址傳遞。·通過參數(shù)表傳送參數(shù)。Sub過程可以保存在兩種模塊中：窗體模塊?？梢栽诖a窗口中直接鍵入來創(chuàng)建Sub過程。選擇“工具”菜單中的“添加過程”命令。程則必須通過調(diào)用語句實行調(diào)用。Print"事件驅(qū)動的編程機制". 在事件過程Form_Load()中，有三處調(diào)用Sub過程Sub_Cont(). 把求兩個數(shù)中的大數(shù)編成Function過程，過程名為Max. 本例采用InputBox函數(shù)輸入三個數(shù)，判斷出最大數(shù)后采用

　　

【正文】 r = 300 + Int(500 * Rnd) 39。產(chǎn)生圓半徑 r值 Call Plot(x, y, r, clr) 39。畫圓 Delayloop 39。延時 Call Plot(x, y, r, 15) 39。抹除 Next i End Sub Private Sub Plot(x, y, r, clr) (x, y), r, QBColor(clr) 39。畫圓 End Sub 例 變幻圓 隨機產(chǎn)生圓的有關參數(shù) 在窗體上建立 3個文本框，使之以不同效果顯示文字“ 20xx年世界奧運會將在中國北京市舉行 ” 第一個文本框 Text1從左到右逐字顯示，直到把整行文字顯示出來； 第二個文本框 Text2使文字從左到右作水平移動； 第三個文本框 Text3以閃動方式顯示文字 設計階段 運行階段 例 動態(tài)文字 Dim txt As String, n As Integer, k As Integer Private Sub Form_Load() n = 0 txt = 20xx年世界奧運會將在中國北京市舉行 k = Len(txt) = RGB(255, 0, 0) 39。紅色 = RGB(0, 0, 0) 39。黑色 = RGB(0, 0, 255) 39。藍色 End Sub Private Sub Timer1_Timer() n = n + 1 ?模塊級變量 n是關鍵參數(shù) If n = k Then = Left(txt, n) = Space(2 * (k n)) + Left(txt, n) Else n = 0 = = End If If n Mod 2 = 0 Then = txt 39。n為偶數(shù)時顯示 Else = 39。n為奇數(shù)時清除 End If End Sub 接收一個算術四則運算式，計算并顯示該運算式的值，如“ 2*10/4+40/53*2”，應得結(jié)果 7 (1)解題方法 先按加、減號分解出若干個只有乘除運算的式，再對各個式子進行乘或除運算，然后把各個式子的值相加或相減，則可求出整個運算式的值 對于運算式“ 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)建應用程序的用戶 界面和設置對象屬性 例 計算四則運算式 (3)編寫程序代碼 功能要求： 用戶在文本框 Text1中輸入四則運算式，單擊“計算”按鈕 (Command1)后，在文本框 Text2中輸出計算結(jié)果 Dim s(20) As String 39。數(shù)組 s存放按 +,號分解出來的式子 Private Sub Command1_Click() n = handle1() 39。分解出 n個式子 total = 0 39。累加數(shù)初值 For i = 1 To n m = handle2(s(i)) 39。計算各乘除式的值 total = total + m 39。各式累加 Next i = total 39。顯示結(jié)果 End Sub Function handle1(ByVal t) As Single If Left(t, 1) + And Left(t, 1) Then t = + + t 39。使以 +開頭，方便處理 End If k = 0 Do While t n1 = InStr(2, t, +) 39。找 +號 n2 = InStr(2, t, ) 39。找 號 k = k + 1 Select Case True Case n1 = 0 And n2 = 0 39。無 +、 號 s(k) = t 39。取剩余部分 t = Case n2 = 0 39。無 號 s(k) = Mid(t, 1, n1 1) 39。取到 +號前 t = Mid(t, n1) 39。從該 +號開始截取 Case n2 n1 Or n1 = 0 39。先遇到 號或無 +號 s(k) = Mid(t, 1, n2 1) 39。取到 號前 t = Mid(t, n2) 39。從該 號開始截取 Case n1 n2 39。先遇到 +號 s(k) = Mid(t, 1, n1 1) 39。取到 +號前 t = Mid(t, n1) 39。從 +號開始截取 End Select Loop handle1 = k 39。分解出來的式子個數(shù) End Function Function handle2(x) As Single f = Left(x, 1) 39。取出符號 +或 x = * + Mid(x, 2) 39。前頭加 *，方便處理 Sum = 1 39。累乘 /除的初值 Do While x m1 = InStr(2, x, *) 39。找 *號 m2 = InStr(2, x, “/”) ?找 /號 Select Case True Case m1 = 0 And m2 = 0 39。已無乘除號 y = Mid(x, 1) x = Case m1 = 0 Or (m1 m2 And m2 0) y = Mid(x, 1, m2 1) ?取至除號前 x = Mid(x, m2) Case m2 = 0 Or (m2 m1 And m1 0) y = Mid(x, 1, m1 1) ?取至乘號前 x = Mid(x, m1) End Select If Left(y, 1) = * Then ‘乘除運算 Sum = Sum * Val(Mid(y, 2)) Else Sum = Sum / Val(Mid(y, 2)) End If Loop If f = + Then 39。帶回 +,號 handle2 = Sum Else handle2 = Sum End If End Function