【正文】 IF語句合并成一個 IF語句 If x y Then a = a +1 If x y Then a = a – 1 Else a = 1 End If 本章完 。 nbsp。 “ ) Next j （４） Sub Add(ByRef x As Integer) x = x +1 End Sub Dim j As Integer For j = 0 To 5 Add(j) ( j amp。 “nbsp。BR表示另起一段，相當(dāng)于回車換行 for i = 0 To 4 for j = i+1 to 4 if a(i) a(j) then k = a(i) a(i) = a(j) a(j) = k end if next j next i for i = 0 to 4 (a(i) amp。 ) 39。 ，計算一個非負(fù)整數(shù) n的階乘 n！。 BR) % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 315所示： 圖 315 交換兩個數(shù)程序輸出結(jié)果 習(xí)題 ： (1) cos2x + sin3x (2) 3(a3b3) (3) (a+b3)/(√a+b2)*5 ： （ 1） Dim a As Integer = 30 , b As Integer = 10 If a b+=3 Else b=3 （ 2） Dim a(3) As Integer ={10,20,30} （ 3） public Enum Date As Double Year Month Day End Enum （ 4） IF x = 3 y = y + x （ 5） Select Case a Case 3,”4”,”5” x = x +1 Case 5,6,7 x = x + 2 Case Else x = x + 3 Case Else x = x + 4 End Select a=0， b=20， c=True，求下列表達式的值： （ 1） (b – 10) \ (a +3) （ 2） (b10) Mod (a + 3) （ 3） (c + 2) / 3 ，取一個四位數(shù)的百位和十位（提示：使用“ Mod” 和“ \”運算符）。 and amp。 傳引用方式傳遞參數(shù)，改變 i和 j變量的值 (Out SwapByRef ,The value is amp。 j amp。 i amp。 BR) end sub /script HTML HEAD titleTest Sub/title /HEAD BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序輸出結(jié)果 /font/TD/TR TR bgcolor=whiteTD % dim i as integer = 100 Dim j As Integer = 200 SwapByVal(i,j) 39。 and amp。 BR) end sub sub SwapByRef(ByRef x As Integer, ByRef y As Integer) Dim m As Integer m = x x = y y = m (In SwapByRef ,The value is amp。 and amp。 動手做： [例 316]()使用過程完成兩個數(shù)的交換 %page LANGUAGE = vb% script language=vb runat =server sub SwapByVal(ByVal x As Integer, ByVal y As Integer) Dim m As Integer m = x x = y y = m (In SwapByVal,The value is amp。 ByVal關(guān)鍵字表示參數(shù)以傳值方式傳給函數(shù)和過程，任何對參數(shù)的改動都不會被傳回到調(diào)用例程中。 m) End Sub /script HTML HEAD titleTest Function/title /HEAD BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序輸出結(jié)果 /font/TD/TR TR bgcolor=whiteTD % Dim i As Integer = 100 Dim j As Integer = 200 Max(i , j) % /TD /TR /TABLE /BODY /HTML 程序輸出結(jié)果如圖 314所示： 圖 314 過程測試程序運行結(jié)果 函數(shù)和過程的參數(shù) 將參數(shù)傳遞給函數(shù)和過程的方式有兩種：傳值和傳引用方式。 在程序中調(diào)用過程需要指明過程的名字，并給出過程的參數(shù)。它與函數(shù)的區(qū)別是 Sub 過程執(zhí)行操作但并不返回值。 過程 Sub 過程是包含在 Sub 語句和 End Sub 語句中的一系列 Visual Basic 語句。 動手做： [例 314]()使用函數(shù)比較兩個數(shù) %page LANGUAGE = vb% Script Language=vb RunAt =server Function Max(ByVal x As Integer, ByVal y As Integer) As Integer Dim m As Integer IF x y Then m = x Else m = y End IF Return m End Function /script HTML HEAD titleTest Function/title /HEAD BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序輸出結(jié)果 /font/TD/TR TR bgcolor=whiteTD % Dim i As Integer = 100 Dim j As Integer = 200 (The Max is amp。 調(diào)用函數(shù)的方法是將其名稱和參數(shù)放在賦值語句的右邊或表達式中。每次調(diào)用過程時都執(zhí)行過程中的語句，從 Function 語句后的第一個可執(zhí)行語句開始，到遇到的第一個 End Function、 Exit Function 或 Return 語句結(jié)束。是由多條語句組成的完成特定功能的程序塊。 動手做： [例 313]()使用 Try?Catch?Finally 語句 %page LANGUAGE = vb% HTML HEAD titleTest Try/title /HEAD BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序輸出結(jié)果 /font/TD/TR TR bgcolor=whiteTD % Dim result As Integer Dim a,b As Integer b = 0 Try result = a \ b Catch e As () End Try % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 312所示： 圖 312 Try程序輸出結(jié)果 點評： 該段代碼捕獲被零除的異常，其中 e是，用于表示被零除的異常。在這三種形式中， Catch子句可以出現(xiàn)多次。 Try子句包含可能拋出異常的代碼； Catch子句包含用來處理或響應(yīng)異常的代碼；無論 Try子句是否引發(fā)異常， Finally子句總會被執(zhí)行，這樣做的好處是在 Finally子句中可以進行必要的清除操作，如關(guān)閉文件、釋放對象占用的資源等操作。 Try?Catch?Finally 語句來捕獲和處理程序執(zhí)行過程中產(chǎn)生的異常。 i ) exit for end if next % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 311所示： 圖 311 閏年程序輸出結(jié)果 程序中，如果有閏年存在，就不需再進行判斷，執(zhí)行 Exit For語句直接退出循環(huán)。 year br ) 39。 輸出閏年 ( The leap year is amp。它包括： Exit Select、Exit Try、 Exit Do、 Exit While、 Exit For、 Exit Sub、 Exit Function和 Exit Property。 動手做： [例 311]()使用 ForEach輸出數(shù)組所有元素： %page LANGUAGE = VB % HTML HEAD titleTest For Each/title /HEAD BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序輸出結(jié)果/font/TD/TR TR bgcolor=whiteTD % Dim list() As Integer = {10 , 20 , 30 ,40} For Each m As Integer In list (m amp。 br) Next % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 39所示： 圖 39 計數(shù)變量和步長為小數(shù)的輸出結(jié)果 4. For Each?Next 語句 For Each?Next 語句能夠枚舉數(shù)組或集合中的每一個元素，其語法形式為： For Each 元素變量 As 數(shù)據(jù)類型 In 集合或數(shù)組 嵌入語句 Next 元素 其中，數(shù)據(jù)類型和元素變量用于聲明一個只讀局部變量（迭代變量），它代表集合或數(shù)組中的每一個元素。 n) % /BODY /HTML 程序輸出為： 可能的取法： 60 動手做： [例 310]()計數(shù)變量和步長為小數(shù) %page LANGUAGE = vb% HTML HEAD titleTest Do/title /HEAD BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序輸出結(jié)果 /font/TD/TR TR bgcolor=whiteTD % Dim i As Single for i = 10 To step (i= amp。 F