【正文】 內(nèi)使用 Exit Select。 Sub:立即退出所在的 Sub 過程。繼續(xù)執(zhí)行調(diào)用 Sub 過程的語句后面的語句。只能在 Sub 過程內(nèi)使用 Exit Sub。 Try:立即退出所在的 Try 或 Catch 塊。如果有 Finally 塊，則繼續(xù)執(zhí)行 Finally 塊，否則繼續(xù)執(zhí)行 End Try 語句后面的語句。 Exit Try 只能在 Try...Catch...Finally 語句內(nèi)使用。 60 While:立即退出所在的 While 循環(huán)。繼續(xù)執(zhí)行 End While 語句后面的語句。只能在 While 循環(huán)內(nèi)使用 Exit While。當(dāng)在嵌套的 While 循環(huán)中使用 Exit While 時， Exit While 將控制傳送到 Exit While 所在循環(huán)的外層循環(huán)。 例如如下代碼段： Sub ExitStatementDemo() Dim I, MyNum As Integer Do For I = 1 To 1000 MyNum = Int(Rnd * 1000) Select Case MyNum Case 7: Exit For Case 29: Exit Do Case 54: Exit Sub End Select Next I Loop End Sub 其中的 exit語句分別退出了 For...Next 循環(huán)、 Do...Loop 及 Sub 過程。 61 實訓(xùn)步驟 1．聲明所采用的腳本語言： %@page language=vb debug=true% 2．添加如下動態(tài)代碼： % (for.....next循環(huán)語句的使用 br) dim a,b as integer b=0 for a=1 to 10 step 1 b=b+a next a (br1加到 10的和為： amp。 b) (for......next嵌套循環(huán)語句的使用： br) dim a1,b1 as integer for a1=1 to 3 step 1 for b1=1 to 3 step 1 (a1 amp。 * amp。 b1 amp。 = amp。 a1*b1 amp。 br) next b1 next a1 (while......end while循環(huán)語句的使用： br) dim a2 as integer=5 while a20 (變量 a2的值： amp。 a2 amp。 br) a2=a21 end while (do......loop循環(huán)語句的使用 :br) 62 dim a3 as integer=0 do while a3=3 a3=a3+1 loop (循環(huán)結(jié)束后，變量 a3的值為： amp。 a3 amp。 br) % 3．新建一 aspx文件 ，保存在特定目錄下。完整程序如下： %@page language=vb debug=true% HTML HEAD TITLE循環(huán)語句的使用 /TITLE META NAME=Generator CONTENT=EditPlus META NAME=Author CONTENT= META NAME=Keywords CONTENT= META NAME=Description CONTENT= /HEAD % (for.....next循環(huán)語句的使用 br) dim a,b as integer b=0 for a=1 to 10 step 1 b=b+a next a (br1加到 10的和為： amp。 b) (for......next嵌套循環(huán)語句的使用： br) dim a1,b1 as integer for a1=1 to 3 step 1 for b1=1 to 3 step 1 (a1 amp。 * amp。 b1 amp。 = amp。 a1*b1 amp。 br) next b1 next a1 63 (while......end while循環(huán)語句的使用： br) dim a2 as integer=5 while a20 (變量 a2的值： amp。 a2 amp。 br) a2=a21 end while (do......loop循環(huán)語句的使用 :br) dim a3 as integer=0 do while a3=3 a3=a3+1 loop (循環(huán)結(jié)束后，變量 a3的值為： amp。 a3 amp。 br) % BODY /BODY /HTML 64 4．用 IIS瀏覽該文件，運行結(jié)果如下 ： 圖 循環(huán)語句的使用 65 過程的使用 實訓(xùn)目的與要求： ? 了解 。 ? 掌握過程和函數(shù)的基本概念和結(jié)構(gòu)。 ? 掌握函數(shù)或過程的調(diào)用。 實訓(xùn)預(yù)備知識 1 過程 通常也稱為子程序，都是實現(xiàn)某種特定功能的代碼塊，它們一旦被定義并且實現(xiàn)之后，就可以在定義他們的腳本中被重復(fù)調(diào)用。函數(shù)（ function）可以返回值，而過程則不能，這就是函數(shù)與過程的本質(zhì)區(qū)別。過程是包含在 sub和 end sub語句之間的一組 vb語句，執(zhí)行操作但不返回值。 可以用如下的語法來聲明一個過程（子程序）： sub subname [(arglist)] [statement] [exit sub] [statement] end sub 語句說明： arglist為參數(shù)列表，為可選項。如果在子程序執(zhí)行過程中遇到 exit sub語句，則忽略 exit sub后面的語句執(zhí)行，立刻退出子程序。 子程序的調(diào)用可以采取如下方法： [call] subname[(argumentlist)] 說明： call為調(diào)用關(guān)鍵字，可以省略。 66 2．函數(shù) function過程是包含在 function和 end function語句之間的一組程序語句，與 sub過程類似，但是 function過程可以返回值， funciton過程通過函數(shù)名返回一個值，這個值是在過程的語句中賦給函數(shù)名的。如下面的例子： function Celsius(f) Celsius=(f32)*5/9 ‘ 將華氏溫度轉(zhuǎn)化為攝氏溫度 End funciton 實訓(xùn)步驟 1．聲明程序所采用的腳本語言： %@page language=vb% 2．分別定義一過程和一函數(shù)： script language=vb runat=server sub mysub(byval a as object) 39。定義一過程 (過程名稱： mysub(byval a as object)br) (輸入的數(shù)據(jù)為： amp。 a amp。 p) end sub sub distext() (過程名稱 :distext()br) end sub 67 39。定義函數(shù) function max(byval a as integer,byval b as integer) if a=b then (最大值為： amp。 a amp。 br) else (最大值為： amp。 b amp。 br) end if end function /script 3．添加調(diào)用過程和函數(shù)的動態(tài)代碼： % (****************演示過程的使用： **************br) dim str as String str=程序設(shè)計 call mysub(str) call distext (****************演示函數(shù)的使用： **************br) call max(3,5) % 4．新建一 aspx程序，保存在特定的虛擬目錄下。完整程序： %@page language=vb% HTML HEAD TITLE 演示過程和函數(shù)的使用 /TITLE META NAME=Generator CONTENT=EditPlus META NAME=Author CONTENT= META NAME=Keywords CONTENT= META NAME=Description CONTENT= /HEAD 68 script language=vb runat=server sub mysub(byval a as object) 39。定義一過程 (過程名稱： mysub(byval a as object)br) (輸入的數(shù)據(jù)為： amp。 a amp。 p) end sub sub distext() (過程名稱 :distext()br) end sub 39。定義函數(shù) function max(byval a as integer,byval b as integer) if a=b then (最大值為： amp。 a amp。 br) else (最大值為： amp。 b amp。 br) end if end function /script BODY 69 % (****************演示過程的使用： **************br) dim str as String str=程序設(shè)計 call mysub(str) call distext (****************演示函數(shù)的使用： **************br) call max(3,5) % /BODY /HTML 5．用 IIS瀏覽該 aspx文件，運行結(jié)果為 ： 圖 過程和函數(shù)的使用 70 本章小結(jié) 本章主要講述了 、結(jié)構(gòu)以及腳本的嵌入方式，這些是學(xué)習(xí) ，要求大家熟練掌握。 思考與練習(xí) 1. 寫出 web應(yīng)用程序的擴展名。 2. 說明 dim與 const命令的用途。 3. 說明什么是數(shù)組？在程序中的用處是什么？如何訪問數(shù)組中的元素值？