【正文】 ： Dim d As DateTime d = Now() 39。 直接給日期變量 d賦值一個日期常量 （ 4）如果在日期 /時間文本中未包含日期，則 0001年 1 月 1號；如果在日期 /時間文本中未包含時間，則 置為當(dāng)天的開始時間（即午夜）。在實際編程過程中，有時需要比基本類型復(fù)雜的數(shù)據(jù)類型，即把多個不同類型的數(shù)據(jù)組合到一起，以便于使用。結(jié)構(gòu)就是這些相關(guān)聯(lián)的不同類型數(shù)據(jù)的組合，它可以構(gòu)建復(fù)雜的數(shù)據(jù)結(jié)構(gòu)。 定義結(jié)構(gòu)的語法： 結(jié)構(gòu)修飾符 Structure 字段、屬性、方法和事件 End Structure 其中，結(jié)構(gòu)修飾符包括 Public、 Protected、 Private、 Friend、Protected Friend和 Shadows，用于控制訪問方式。 矩形左上角的坐標(biāo) Public width, height As Integer 39。 BR amp。結(jié)構(gòu)中，聲明兩個字段 x和 y，用于表示矩形的左上角坐標(biāo)。同時，聲明了一個構(gòu)造函數(shù) New，用于初始化矩形的各個字段。例如，為顏色聲明一個枚舉，每種顏色都用一個命名常數(shù)來表示，這樣就可以在程序中使用這些命名常數(shù)，而不用直接使用數(shù)值來表示顏色。 每種枚舉類型均有一種基礎(chǔ)數(shù)據(jù)類型，此基礎(chǔ)數(shù)據(jù)類型可以是 Byte、Short、 Long 或 Integer之一。如果枚舉元素的數(shù)據(jù)類型不是 Integer型，則可以指定其基礎(chǔ)數(shù)據(jù)類型。例如： Enum WeekDay Sun Mon Tue Wed Thu Fri Sat End Enum 在此枚舉中， Sun的值為 0， Mon為 1， Tue為 2，依此類推。 例如： Enum WeekDay Sun = 0 Mon Tue Wed = Sun Thu Fri Sat End Enum 在此枚舉中，強制第一個枚舉元素 Sun的值為 1， Mon為 2， Tue為 3，而 Wed又強制為 1，Thu為 2，依此類推。 動手做： [例 32]()使用枚舉 %page LANGUAGE = vb% Script Language=VB RunAt=Server Enum Range As Long Max = 2147483648 Min = 255 End Enum /Script HTML HEAD titleTest Enum/title /HEAD BODY % Dim r As Range r = (r= amp。 字符串類型 字符串?dāng)?shù)據(jù)類型 String是零個或多個雙字節(jié)（ 16 位） Unicode 字符的序列。例如： Dim Str As String Str = Hello 在程序中，經(jīng)常需要對字符串作各種處理，比如兩個字符串比較、去除字符串的空格等。下面就講述幾個比較重要的字符串函數(shù)和字符串類型的成員。我們可以根據(jù)返回值來判斷比較的結(jié)果。例如： Dim str1 As String = Hello Dim str2 As String = World Dim result As Integer 39。例如： result = StrComp(str1 , str2) 使用 方法將字符串中的所有字符均轉(zhuǎn)換為大寫形式，相應(yīng)的字符串函數(shù)為 Ucase；使用 方法將字符串中的所有字符均轉(zhuǎn)換為小寫形式，相應(yīng)的字符串函數(shù)為 Lcase。 upStr內(nèi)容為 HELLO 或 upStr = UCase(lowStr) 3. 生成字符串的子串 使用 String. SubString 方法生成字符串的子字符串。例如： Dim str As String = Hello World Dim subStr As String subStr = (6,5) 39。例如： subStr = Mid(str , 6, 5) 39。與之相對的函數(shù)是 InStr。 iIndex為 4 iIndex = (searchStr,6) 39。 iIndex為 7 iIndex = (searchStr) 39。 iIndex為 4 iIndex = InStr(6,str , searchStr) 39。 使用 、 的首端空格、尾端空格和首尾兩端空格，與之相應(yīng)的字符串函數(shù)為 LTrim、RTrim和 Trim。 str1的內(nèi)容為 Hello World 或 str1 = Trim(str) 使用 ，需要注意的是字符串中的子字符串是用分隔符分開的；使用 定的分隔符連成一個字符串。例如： Dim color As String = Red,Green,Blue Dim str() As String Dim str1 As String str = (,) 39。 str1的內(nèi)容為 RedGreenBlue 在編程過程中，經(jīng)常會碰到字符串與其他類型的轉(zhuǎn)換問題。 39。 把字符串 str轉(zhuǎn)為整型 tmp = () 對字符串來講，有一個非常有用的運算符“ amp。例如： Dim str1 As String = Hello Dim str2 As String = World Dim Str As String Str = str1 amp。 Str的內(nèi)容為 Hello World 注意 ： ，不能聲明定長字符串變量。數(shù)組元素可以為任意類型，包括數(shù)組類型。 從 0開始計數(shù)的，即第一個元素對應(yīng)的下標(biāo)是 0，以后元素逐個遞增。 。 一維數(shù)組，包含元素 arr(0)、 arr(1)、arr(2)、 arr(3) 聲明多維數(shù)組的語法： Dim 數(shù)組名 ( 第一維大小 ,第二維大小 ,?) As 數(shù)據(jù)類型 例如： Dim arr(1,2) As String 39。例如： Dim arr(1) As Integer arr(0) = 10 arr(1) = 100 也可以在聲明數(shù)組的同時完成初始化。 一維數(shù)組 arr初始化，arr(0)值為 10， arr(1)值為 100 Dim arr( ,) As Integer = {{10,20} , {30,40} , {50,60}} 39。 使用數(shù)組 數(shù)組中的每個元素都相當(dāng)于一個變量，其使用與單個變量的使用一樣。 動手做： [例 33]()使用多維數(shù)組 %page LANGUAGE = vb% HTML HEAD titleTest Array/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 Dim course() As String = {,Data Structure , Software engineering} For i = 0 to 39。 i amp。 course(i) amp。 Reverse方法用于反轉(zhuǎn)數(shù)組 For i = 0 to (course( amp。 )= amp。 br) Next i % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 32所示 : 圖 32 使用多維數(shù)組的輸出結(jié)果 在 ，可以使用 ReDim對已聲明的數(shù)組重新定義它的大小。 初始聲明時，沒有指明數(shù)組大小 ReDim arr(5) 39。 初始聲明數(shù)組大小為 10 ReDim Preserve a(20) 39。例如，不同數(shù)據(jù)類型參與運算時，就牽涉到類型轉(zhuǎn)換問題。 在函數(shù)成員調(diào)用、強制轉(zhuǎn)換表達式和賦值等情況下，都會發(fā)生隱式轉(zhuǎn)換。預(yù)定義的隱式轉(zhuǎn)換總是會成功進行，并且不會造成信息的丟失。例如： Dim a As Integer = 100 Dim b As Single b = a 39。 Byte?Short?Integer?Long?Single?Double?Decimal Char↑ 低 ?高 圖 33 隱式數(shù)值轉(zhuǎn)換順序 顯式轉(zhuǎn)換是一種強制轉(zhuǎn)換，它需要指明轉(zhuǎn)換的類型。 在 ，可以使用 CType函數(shù)和特定的類型轉(zhuǎn)換函數(shù)來實現(xiàn)顯式轉(zhuǎn)換。以下是一些顯式轉(zhuǎn)換的例子： Dim t As Double = Dim s As Single s = CType(t, Single) 39。 利用特定類型函數(shù)進行轉(zhuǎn)換，把 t由 Double型轉(zhuǎn)為 Single型 裝箱和拆箱可以完成值類型和引用類型之間的轉(zhuǎn)換，它使值類型能夠被視為對象。實際上裝箱的工作過程是：首先分配一個對象實例，然后將值類型的值復(fù)制到該實例中。拆箱也包括兩個步驟：首先檢查對象實例是否為給定值類型的一個裝了箱的值，然后將該值從實例中復(fù)制出來。 裝箱 a =CInt(x) 39。變量也就是值可以改變的量。同時變量還具有數(shù)據(jù)類型，用于確定哪些值可以存儲在該變量中。 聲明一個 Double型變量 aa Dim bb , cc ,dd As String 39。例如： Dim dDate As Date 39。 再給變量賦值 Dim dTime As Date = 10/12/2020 39。在表達式中比較重要的是各種運算符。 算術(shù)運算符用于各種算術(shù)運算，它包括 +（加）、 （減）、 *（乘）、/（除）、 \（整除，除的結(jié)果是整數(shù)）、 ^（乘方）和 Mod（余數(shù)）。另外， +還可用于連接兩個字符串。比較運算符比較兩個表達式，并返回表示比較結(jié)果的 Boolean 值。 Is 運算符用于確定兩個對象變量是否引用某個對象的同一實例。 (a=b) amp。 (m n) amp。 (3 5) amp。它包括 And（與）、 Or（或）、 Not （非）、 Xor（異或）、 AndAlso 和 OrElse。例如： Dim a As Integer = 30 Dim b As String = Yes Dim c As Boolean a 20 And b Yes 39。 AndElse與 And類似，但又有區(qū)別，如果 AndAlso 表達式中的第一個表達式計算為 False，則不計算第二個表達式，并且為該 AndAlso 表達式返回 False。例如： Dim a As Integer = 30 Dim b As String = Yes Dim c As Boolean b Yes AndElse a 20 39。=、 ^=運算符。 用賦值運算符“ =” 給變量 a賦值 0 a += 20 39。它包括 + 和 amp。 結(jié)果為“ TianTan” str1 amp。 結(jié)果為“ TianTan” 程序控制語句 程序一般包括三種基本結(jié)構(gòu) —— 順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，用于控制程序流程按照我們的要求進行。 選擇語句 當(dāng)程序出現(xiàn)多條執(zhí)行路線時，使用選擇語句。 ?Then 語句 在程序中，可使用 if?Then 語句來有條件地執(zhí)行某一語句序列。 嵌入語句只能有一條，且必須與 If在同一行上 或 If 條件表達式 Then 嵌入語句 39。 動手做： [例 35]()比較兩個數(shù)的大小并輸出較大的數(shù) %p