【導(dǎo)讀】如果要讓網(wǎng)頁根據(jù)不同條件顯示不同內(nèi)容，必須。編程實(shí)現(xiàn)動(dòng)態(tài)網(wǎng)頁。本章簡(jiǎn)要介紹一下。高手，可以跳過本章，繼續(xù)下一章學(xué)習(xí)。以便編譯器為它分配內(nèi)存空間。例如，程序中的變量、文本、常數(shù)、屬。性、過程參數(shù)和過程返回值都具有數(shù)據(jù)類型。類型和引用類型兩大類。Type）、數(shù)組類型和委托類型。原來的內(nèi)存位置，只是賦值后這兩個(gè)不同的變量均指向這個(gè)實(shí)際的值。這些保留字只是System命名空間中預(yù)定義結(jié)構(gòu)類型的別名。例如，可使用下列兩種聲明。像訪問對(duì)象的方法和屬性那樣訪問變量的成員。s=()'把整型量轉(zhuǎn)換為字符串，綴來表明它是一個(gè)Decimal類型。在將Boolean值轉(zhuǎn)換為數(shù)值類型時(shí)，F(xiàn)alse將轉(zhuǎn)換為0，True將轉(zhuǎn)?！?”界定符表示日期常量。置為當(dāng)天的開始時(shí)間（即午夜）。前面介紹的數(shù)據(jù)類型都是基本數(shù)據(jù)類型，他們只包含單個(gè)值。型的數(shù)據(jù)組合到一起，以便于使用。例如，學(xué)生就包括學(xué)號(hào)、姓名、出。他可以擁有字段、屬性、方法和事件。ProtectedFriend和Shadows，用于控制訪問方式。

　　

【正文】 e 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é)果 點(diǎn)評(píng)： 該段代碼捕獲被零除的異常，其中 e是，用于表示被零除的異常。 函數(shù)和過程 函數(shù)和過程是應(yīng)用程序的基本構(gòu)成塊。是由多條語句組成的完成特定功能的程序塊。 函數(shù) Function 過程是包含在 Function 語句和 End Function 語句之間的一系列 Visual Basic 語句。每次調(diào)用過程時(shí)都執(zhí)行過程中的語句，從 Function 語句后的第一個(gè)可執(zhí)行語句開始，到遇到的第一個(gè) End Function、 Exit Function 或 Return 語句結(jié)束。 其語法形式為： Function 函數(shù)名 (參數(shù) ) As 返回值數(shù)據(jù)類型 嵌入語句 Return 返回值 End Function 用 Return語句返回值，該值的數(shù)據(jù)類型必須是 As子句聲明的返回值數(shù)據(jù)類型。 調(diào)用函數(shù)的方法是將其名稱和參數(shù)放在賦值語句的右邊或表達(dá)式中。利用函數(shù)返回值完成賦值或在表達(dá)式中參與運(yùn)算。 動(dòng)手做： [例 314]()使用函數(shù)比較兩個(gè)數(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。 Max(i,j)) % /TD /TR /TABLE /BODY /HTML 程序輸出結(jié)果如圖 313所示： 圖 313 函數(shù)比較程序輸出結(jié)果 注意： 、過程、結(jié)構(gòu)和類定義必須在 塊中。 過程 Sub 過程是包含在 Sub 語句和 End Sub 語句中的一系列 Visual Basic 語句。每次調(diào)用過程時(shí)都執(zhí)行過程中的語句，從 Sub 語句后的第一個(gè)可執(zhí)行語句開始，到遇到的第一個(gè) End Sub、 Exit Sub 或 Return 語句結(jié)束。它與函數(shù)的區(qū)別是 Sub 過程執(zhí)行操作但并不返回值。 其語法形式為： Sub 過程名 (參數(shù) ) 嵌入語句 End Sub 由于過程沒有返回值，因此它沒有 As子句。 在程序中調(diào)用過程需要指明過程的名字，并給出過程的參數(shù)。 動(dòng)手做： [例 315]()使用過程比較兩個(gè)數(shù) %@page LANGUAGE = vb% Script Language=vb RunAt =server Sub Max(ByVal x As Integer, ByVal y As Integer) Dim m As Integer IF x y Then m = x Else m = y End IF (The Max is amp。 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 過程測(cè)試程序運(yùn)行結(jié)果 函數(shù)和過程的參數(shù) 將參數(shù)傳遞給函數(shù)和過程的方式有兩種：傳值和傳引用方式。 為傳值方式。 ByVal關(guān)鍵字表示參數(shù)以傳值方式傳給函數(shù)和過程，任何對(duì)參數(shù)的改動(dòng)都不會(huì)被傳回到調(diào)用例程中。 ByRef關(guān)鍵字表示參數(shù)按引用方式傳遞給函數(shù)和過程，在函數(shù)和過程中對(duì)參數(shù)進(jìn)行的改動(dòng)都將被傳給調(diào)用例程中的變量。 動(dòng)手做： [例 316]()使用過程完成兩個(gè)數(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。 x amp。 and amp。 y 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。 x amp。 and amp。 y 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。 傳值方式傳遞參數(shù)，并不改變 i和 j變量的值 (Out SwapByVal ,The value is amp。 i amp。 and amp。 j amp。 BR) SwapByRef(i , j) 39。 傳引用方式傳遞參數(shù)，改變 i和 j變量的值 (Out SwapByRef ,The value is amp。 i amp。 and amp。 j amp。 BR) % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 315所示： 圖 315 交換兩個(gè)數(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，求下列表達(dá)式的值： （ 1） (b – 10) \ (a +3) （ 2） (b10) Mod (a + 3) （ 3） (c + 2) / 3 ，取一個(gè)四位數(shù)的百位和十位（提示：使用“ Mod” 和“ \”運(yùn)算符）。 ，求下面函數(shù)的值： 1, x0 y= 0， 其它 ，把 1－ 7這七個(gè)數(shù)字轉(zhuǎn)換成“星期一”－“星期日”，并顯示出來。 ，計(jì)算一個(gè)非負(fù)整數(shù) n的階乘 n！。 8.“ 百雞百錢”問題：設(shè)公雞 5元一只，母雞 3元一只，小雞 1元 3只，求 100元買 100只雞的方法（提示：利用窮舉法）？ 、二分和五分的硬幣（假設(shè)每種硬幣至少有一枚），問有多少種換法？ （ 1） Dim a() As Integer = {12,5,8,7,3,11} Dim i,j,k,n As Integer for i = 0 to 4 (a(i) amp。 ) 39。 表示一個(gè)空格 next i (BR) 39。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。 ) next I （ 2） Dim d , m As Integer D = 123 Do d = m Mod 10 m = m \ 10 ( d) Loop While m 0 （ 3） Sub Add(ByVal x As Integer) x = x +1 End Sub Dim j As Integer For j = 0 To 5 Add(j) ( j amp。 “nbsp。 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。 nbsp。 “ ) Next j 1949年到 2020年有多少個(gè)閏年。 IF語句合并成一個(gè) IF語句 If x y Then a = a +1 If x y Then a = a – 1 Else a = 1 End If 本章完