【正文】 f； ? Select Case； （ 1）用 If…Then 結(jié)構(gòu)有條件地執(zhí)行一個或多個語句，單行語法和多行塊語法都可以使用。有些簡單程序可以只用單向流程來編寫，有些流程可以依靠運算符的優(yōu)先級來控制，但任何編程語言的效力和用途皆由其通過結(jié)構(gòu)和循環(huán)改變語句順序的能力而得。 （ 2）用 If…Then…Else 塊定義幾個語句塊，執(zhí)行其中一個語句： If 條件 1 Then [語句塊 1] [Else If 條件 2 Then [語句塊 2]] ... [Else [語句塊 n]] End If Visual Basic “條件 1”。然后， Visual Basic Case的值進行比較。如果 x不能被 4和 100整除 = no End If ElseIf (x Mod 400 = 0) Then 39。因此，只要“條件”為 True或非零，循環(huán)可以隨意執(zhí)行多次；如果“條件”一開始便為 False，則不會執(zhí)行語句。每執(zhí)行一個循環(huán)，“循環(huán)變量 = 循環(huán)變量 +步長”。 Private Sub Form_Click() Dim a As Double Dim r As Single Dim i As Integer a = 12 r = i = 0 Do While a 20 39。在 Visual Basic 中，控制結(jié)構(gòu)的嵌套層數(shù)沒有限制。 年后中國人口達到 20億 End Sub 數(shù)組 在 Visual Basic ，把一組具有同一名字、不同下標(biāo)的下標(biāo)變量稱為數(shù)組，其一般形式如下： S(i) 其中 S稱為數(shù)組名， i是下標(biāo)。同時定義了 A(0)， A(1)， A(2)， A(3)， A(4)5個元素。通過使用動態(tài)數(shù)組，可以在程序中任意改變數(shù)組的長度。每個 ReDim語句都能改變元素數(shù)目以及上下界。 ? 數(shù)組下界默認為 0，可通過 Option Base語句決定，上界由Array()函數(shù)括號內(nèi)的參數(shù)個數(shù)決定，也可通過 UBound()函數(shù)獲得。但 For Each…Next 語句是專門用于操作數(shù)組的，它的格式如下： For Each 成員 In 數(shù)組名 [循環(huán)體 ] Next [成員 ] 說明： ? 格式中的“成員”必須是一個變體變量，是為循環(huán)提供的，代表的是數(shù)組中的每個元素。給動態(tài)數(shù)組分配內(nèi)存空間 For i = 0 To UBound(a) 39。輸出數(shù)組和 End Sub 【 案例 215】 數(shù)組基本操作 Option Base 1 Private Sub Form_Click() Dim abc(10) As Integer 39。 用過程編程有兩大好處。事件過程就是在響應(yīng)事件時執(zhí)行的程序段。 For j = 1 To 2 * i 1 Print Str。 2．建立 Function過程 前一節(jié)提到建立 Sub過程的兩種方法也可以建立 Function過程，只是當(dāng)用第一種方法建立時，在 【 添加過程 】 對話框的【 類型 】 欄內(nèi)應(yīng)選擇 【 函數(shù) 】 單選按鈕；另外，兩種方法中的 Sub應(yīng)換成 Function。 在窗體模塊中建立 Function過程，并編寫過程響應(yīng)代碼： Function recarea(rlen, rwid) As Single recarea = rlen * rwid End Function “確定”按鈕單擊事件中的代碼為 Private Sub Command1_Click() Dim a As Single, b As Single a = Val() b = Val() = Str(recarea(a, b)) End Sub “清空”按鈕單擊事件中的代碼為 Private Sub Command2_Click() = = = End Sub 參數(shù)使用 參數(shù)傳遞可以實現(xiàn)調(diào)用過程和被調(diào)過程之間的信息交換，在過程的調(diào)用中，調(diào)用其他過程的過程稱為主過程，被調(diào)用的過程稱為子過程。按值傳遞參數(shù)時，傳遞的只是變量的副本。 3．選用傳值還是傳地址的使用規(guī)則 ? 形參是數(shù)組、自定義類型時只能用傳地址方式，若要將過程中的結(jié)果返回給主調(diào)程序，則形參必須是傳址方式。Visual Basic 3種類型：窗體模塊、標(biāo)準(zhǔn)模塊（通用模塊）和類模塊。在窗體上打印換行 Print 產(chǎn)生的 20個隨機數(shù)為： For j = 1 To 20 a(j) = CInt(Rnd * 100) 39。設(shè)置每 5個素數(shù)為一行 n = 0 Print End If Next j End Sub 實訓(xùn) 。 39。多個相關(guān)的工程在一起構(gòu)成工程組。 ? 若形參不是上述中的兩種情況，一般應(yīng)選用傳值方式。被調(diào)過程中的操作是在形參自己的存儲單元中進行的，當(dāng)過程調(diào)用結(jié)束時，形參所占用的存儲單元也同時被釋放。參數(shù)分為形式參數(shù)和實際參數(shù)。下面的語句都調(diào)用函數(shù) Txt。此外，還可用 Function語句編寫自己的 Function函數(shù)過程。事件過程是附加在窗體和控件上的。 （ 2）一個程序中的過程，往往不必修改或只需稍做改動，便可成為另一個程序的構(gòu)件。數(shù)組賦初值為 0~100內(nèi)的整數(shù) abc(i) = Int(Rnd * 100) Next i Print 使用普通循環(huán)輸出： For i = 1 To 10 39。數(shù)組輸出 Print b(i)。 ? 用 For Each…Next 語句可以對數(shù)組中的每個元素進行處理，它包括查詢、顯示和讀取。 ? Array()函數(shù)只適用于一維數(shù)組。數(shù)組的基本操作包括輸入、輸出及復(fù)制，這些操作都是對數(shù)組進行的。 （ 1）如果希望數(shù)組為公用數(shù)組，則用Public語句聲明數(shù)組；如果希望數(shù)組為模塊級，則在模塊級用 Dim語句聲明數(shù)組；如果希望數(shù)組為局部數(shù)組，則在過程中用Static或 Dim語句聲明數(shù)組。定義了 S(0)到 S(20)21個元素。 數(shù)組的聲明 聲明固定大小的數(shù)組有 3種方法，用哪一種方法取決于數(shù)組應(yīng)有的有效范圍。 （ 2）退出控制結(jié)構(gòu) 用 Exit語句可以直接退出 For循環(huán)、 Do循環(huán)、子過程或函數(shù)過程。年后中國人口達到 20億 End Sub 使用 Do…Loop While 結(jié)構(gòu)，代碼如下： Private Sub Form_Click() Dim a As Double Dim r As Single Dim i As Integer a = 12 r = i = 0 Do a = a * (1 + r)