【文章內(nèi)容簡(jiǎn)介】 顯式轉(zhuǎn)換為值類型。拆箱也包括兩個(gè)步驟：首先檢查對(duì)象實(shí)例是否為給定值類型的一個(gè)裝了箱的值，然后將該值從實(shí)例中復(fù)制出來(lái)。 下面的例子完成裝箱和拆箱的操作： Dim a As Integer Dim b As Integer = 1000 Dim x As Object x = b 39。 裝箱 a =CInt(x) 39。 拆箱 在程序中，通常要處理或存儲(chǔ)數(shù)據(jù)，這些數(shù)據(jù)就是用變量來(lái)存儲(chǔ)的。變量也就是值可以改變的量。變量具有名稱，可以通過(guò)名稱來(lái)引用變量。同時(shí)變量還具有數(shù)據(jù)類型，用于確定哪些值可以存儲(chǔ)在該變量中。 變量聲明語(yǔ)法： Dim 變量名 1，變量名 2， ? As 數(shù)據(jù)類型 例如： Dim aa As Double 39。 聲明一個(gè) Double型變量 aa Dim bb , cc ,dd As String 39。 聲明多個(gè) String變量 可以在變量聲明之后，給變量賦值；也可以在聲明變量的同時(shí)給變量賦值。例如： Dim dDate As Date 39。 先聲明一個(gè)變量 dDate = Today( ) 39。 再給變量賦值 Dim dTime As Date = 10/12/2020 39。 變量聲明和賦值同時(shí)進(jìn)行 Dim sStr As String = This is a test 運(yùn)算符與表達(dá)式 用運(yùn)算符將操作數(shù)連接起來(lái)，形成符合 為表達(dá)式。在表達(dá)式中比較重要的是各種運(yùn)算符。 ：一元運(yùn)算符、算術(shù)運(yùn)算符、移位運(yùn)算符、關(guān)系和類型測(cè)試運(yùn)算符、邏輯運(yùn)算符、條件邏輯運(yùn)算符、條件運(yùn)算符和賦值運(yùn)算符。 算術(shù)運(yùn)算符用于各種算術(shù)運(yùn)算，它包括 +（加）、 （減）、 *（乘）、/（除）、 \（整除，除的結(jié)果是整數(shù)）、 ^（乘方）和 Mod（余數(shù)）。 ^只適用于 Double類型； \只適用于整數(shù)類型；其它算術(shù)運(yùn)算符適用于整數(shù)和浮點(diǎn)類型。另外， +還可用于連接兩個(gè)字符串。例如： Dim result , x, y ,z As Double result = 21 \ 2 x = 20 Mod 2 y = Mod 3 z = ^ 2 比較運(yùn)算符 ==（相等）、 （不想等）、 （小于）、 （大于）、 =（小于等于）、 =（大于等于）和 is（對(duì)象比較）運(yùn)算符稱為比較運(yùn)算符。比較運(yùn)算符比較兩個(gè)表達(dá)式，并返回表示比較結(jié)果的 Boolean 值。前六個(gè)比較運(yùn)算符可用于比較數(shù)值和字符串。 Is 運(yùn)算符用于確定兩個(gè)對(duì)象變量是否引用某個(gè)對(duì)象的同一實(shí)例。 動(dòng)手做： [例 34]()使用比較運(yùn)算符 %@page LANGUAGE = vb% HTML HEAD titleTest Array/title /HEAD Script Language=VB RunAt=Server Enum Range As Long Max = 2147483648 Min = 255 End Enum /Script 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 a As Range = Dim b As Range = Dim m As String = Test Dim n As String = Equal (a = b: amp。 (a=b) amp。 br) (m n: amp。 (m n) amp。 br) (3 5: amp。 (3 5) amp。 br) % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 34所示： 圖 34 比較運(yùn)算符結(jié)果 邏輯運(yùn)算符用于比較 Boolean 表達(dá)式，并返回 Boolean 結(jié)果。它包括 And（與）、 Or（或）、 Not （非）、 Xor（異或）、 AndAlso 和 OrElse。 當(dāng)兩個(gè)操作數(shù)均為 true時(shí)， And的結(jié)果才為 true，否則為 false；當(dāng)兩個(gè)操作數(shù)均為 false時(shí)， Or的結(jié)果才為 false，否則為 true；如果操作數(shù)為 True， Not的結(jié)果為 False，如果操作數(shù)為 False， Not的結(jié)果為 True；如果兩個(gè)操作數(shù)均為T(mén)rue或 False， Xor的結(jié)果為 False，否則為 True。例如： Dim a As Integer = 30 Dim b As String = Yes Dim c As Boolean a 20 And b Yes 39。 結(jié)果為 False，因?yàn)?a20成立，而 bYes不成立 AndElse和 OrElse稱為“短路”邏輯運(yùn)算符。 AndElse與 And類似，但又有區(qū)別，如果 AndAlso 表達(dá)式中的第一個(gè)表達(dá)式計(jì)算為 False，則不計(jì)算第二個(gè)表達(dá)式，并且為該 AndAlso 表達(dá)式返回 False。同理， OrElse與 Or類似，區(qū)別是如果 OrElse 表達(dá)式中的第一個(gè)表達(dá)式計(jì)算為 True，則不計(jì)算第二個(gè)表達(dá)式，并且為該 OrElse 表達(dá)式返回 True。例如： Dim a As Integer = 30 Dim b As String = Yes Dim c As Boolean b Yes AndElse a 20 39。 因?yàn)?bYes結(jié)果為 False，則不需計(jì)算 a20的值，而直接給出表達(dá)式的結(jié)果為 False 賦值運(yùn)算符 賦值運(yùn)算符為變量、屬性、事件或索引器元素賦新值，它包括： =、 +=、 =、*=、 /=、 \=、 amp。=、 ^=運(yùn)算符。例如： Dim a As Integer = 0 39。 用賦值運(yùn)算符“ =” 給變量 a賦值 0 a += 20 39。 相當(dāng)于 a = a + 20 串聯(lián)運(yùn)算符 串聯(lián)運(yùn)算符用于連接字符串。它包括 + 和 amp。例如： Dim str1 As String = Tian Dim str2 As String = Tan str1 + str2 39。 結(jié)果為“ TianTan” str1 amp。 str2 39。 結(jié)果為“ TianTan” 程序控制語(yǔ)句 程序一般包括三種基本結(jié)構(gòu) —— 順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，用于控制程序流程按照我們的要求進(jìn)行。這些基本結(jié)構(gòu)通過(guò)使用選擇語(yǔ)句和循環(huán)語(yǔ)句來(lái)實(shí)現(xiàn)。 選擇語(yǔ)句 當(dāng)程序出現(xiàn)多條執(zhí)行路線時(shí)，使用選擇語(yǔ)句。 ，即If?Then 語(yǔ)句和 Select?Case 語(yǔ)句。 ?Then 語(yǔ)句 在程序中，可使用 if?Then 語(yǔ)句來(lái)有條件地執(zhí)行某一語(yǔ)句序列。語(yǔ)法形式為： If 條件表達(dá)式 Then 嵌入語(yǔ)句 39。 嵌入語(yǔ)句只能有一條，且必須與 If在同一行上 或 If 條件表達(dá)式 Then 嵌入語(yǔ)句 39。 嵌入語(yǔ)句可以有多條 End If 或 If 條件表達(dá)式 Then 嵌入語(yǔ)句 1 Else 嵌入語(yǔ)句 2 End If 如果布爾表達(dá)式的值為 True，則執(zhí)行 If后的嵌入語(yǔ)句，否則程序繼續(xù)執(zhí)行或執(zhí)行 Else后的嵌入語(yǔ)句。 動(dòng)手做： [例 35]()比較兩個(gè)數(shù)的大小并輸出較大的數(shù) %@page LANGUAGE = vb% HTML HEAD titleTest If/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 max As Integer Dim a As Integer = 20 Dim b As Integer = 30 If a b Then max = a Else max = b End If (The max of a and b is amp。 max) % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 35所示： 圖 35 If語(yǔ)句測(cè)試結(jié)果 if語(yǔ)句可以嵌套，內(nèi)嵌的 if語(yǔ)句既可以嵌套在 if子句中，也可以嵌套在 else子句中。 ?Case 語(yǔ)句 Select?Case 語(yǔ)句是一個(gè)多分支選擇語(yǔ)句，當(dāng)表達(dá)式取不同值時(shí)執(zhí)行不同的動(dòng)作。語(yǔ)法形式為： Select 表達(dá)式 Case常量表達(dá)式： 嵌入語(yǔ)句 ? Case Else 嵌入語(yǔ)句 End Select Select表達(dá)式的類型為某個(gè)基本數(shù)據(jù)類型（ Boolean、 Byte、 Char、Date、 Double、 Decimal、 Integer、 Long、 Object、 Short、 Single 和 String）。每個(gè) case分支中的常量表達(dá)式表示 Select表達(dá)式的匹配值。 執(zhí)行 Select?Case 語(yǔ)句時(shí)，首先計(jì)算 Select表達(dá)式的值，然后與case常量表達(dá)式的值進(jìn)行比較，執(zhí)行第一個(gè)與之匹配的 case分支中的嵌入語(yǔ)句。如果沒(méi)有 case常量表達(dá)式的值與之匹配，則執(zhí)行 Case Else分支下的嵌入語(yǔ)句，如果不存在 Case Else語(yǔ)句，則跳過(guò) Select??Case 語(yǔ)句體，什么也不做。 Case Else分支可有可無(wú)，但每個(gè) Select?Case 語(yǔ)句最多只能有一個(gè) Case Else分支。 %@page LANGUAGE = vb% HTML HEAD titleTest Select/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 days As Integer = 0 Dim month As Integer = 3 Select month case 1,3,5,7,8,10,12 days = 31 case 2: days = 28 case 4, 6,9,11 days = 30 Case Else days = 0 End Select (This month has amp。 days amp。 days ) % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 36所示： 圖 36 Select語(yǔ)句測(cè)試結(jié)果 循環(huán)語(yǔ)句 當(dāng)重復(fù)執(zhí)行一行或多行代碼時(shí)，使用循環(huán)語(yǔ)句。 ，它們分別是 While、 Do?Loop 、 For?Next 和 For Each?Next 。 While語(yǔ)句 While語(yǔ)句按不同條件執(zhí)行一個(gè)嵌入語(yǔ)句零次或多次，用于循環(huán)次數(shù)不確定的場(chǎng)合。它的語(yǔ)法形式為： While 條件表達(dá)式 嵌入語(yǔ)句 它判斷條件表達(dá)式的值，如果為 True，則重復(fù)執(zhí)行嵌入語(yǔ)句，直到布爾表達(dá)式的值為 False，則結(jié)束 While語(yǔ)句。 動(dòng)手做： [例 37]()使用 whil