【正文】 達式 2] … End Enum 第三章 VB程序設(shè)計代碼基礎(chǔ) 15 參數(shù)： ?枚舉類型名和各成員名應(yīng)符合標識符的命名規(guī)則。 ?成員名用于定義該枚舉類型的組成元素的名稱。 ?常量表達式：可選項，為各成員所對應(yīng)的值（為 Long類型），可以是其他的枚舉類型。 ? Public：為可選項。表示該枚舉類型在整個工程中都是有效的。當省略 Public和 Private時，默認為 Public。 ? Private：為可選項。表示該枚舉類型只在所聲明的模塊中是有效的 。 第三章 VB程序設(shè)計代碼基礎(chǔ) 16 說明： 1）在缺省常量表達式的情況下，枚舉中的第一個常量被初始化為 0，其后的常量則初始化為比其前面的常量大 1的數(shù)值。 例： Public Enum Days Sunday 39。 初始值為 0 Monday 39。 初始值為 1 Tuesday Wednesday Thursday Friday Saturday End Enum 第三章 VB程序設(shè)計代碼基礎(chǔ) 17 2）可以使用賦值語句顯式地給枚舉中的常量賦值。所賦的值可以是任何長整數(shù)，包括負數(shù)。 例： Public Enum WorkDays Saturday 39。 初始化為 0 Sunday = 0 39。 被賦值 0 Monday 39。 初始化為 1 Tuesday Wednesday Thursday Friday Invalid = 1 39。 被顯式賦值為 1 End Enum 第三章 VB程序設(shè)計代碼基礎(chǔ) 18 3） VB將枚舉中的常量數(shù)值看作為長整數(shù)。如果將一個浮點數(shù)值賦給一個枚舉中的常量，Visual Basic將該數(shù)值取整為最接近的長整數(shù)。 4）當向一個枚舉中的常量賦值時，也可以使用另一個枚舉中的常量數(shù)值。 Public Enum WorkDays Sunday = 0 Monday Tuesday Wednesday Thursday Friday Saturday = – 6 Invalid = 1 End Enum 第三章 VB程序設(shè)計代碼基礎(chǔ) 19 5）聲明枚舉類型后，就可以聲明該枚舉類型的變量，然后使用該變量存儲枚舉常量的數(shù)值。例： 39。 聲明枚舉類型的變量 Dim MyDay As WorkDays 39。 Saturday 的數(shù)值為 0 MyDay = Saturday 6）當引用單個常量時，為了避免混淆，應(yīng)在常量名稱前冠以枚舉名。 = amp。 = amp。 _ 7） VB提供了系統(tǒng)定義的枚舉 vbDayOfWeek，它包括了與星期的七天相對應(yīng)的常量。 第三章 VB程序設(shè)計代碼基礎(chǔ) 20 用戶自定義類型 是用戶自己定義的類型，這種類型可以包含多個基本類型。使用 Type語句定義。 Type語句格式： [Private|Public] Type 用戶自定義類型名 元素名 [(下標 )] As 類型 … End Type 第三章 VB程序設(shè)計代碼基礎(chǔ) 21 說明 : 1） 用戶自定義類型名 、 元素名 應(yīng)遵循標識符的命名規(guī)則。 類型 可以是 Visual Basic系統(tǒng)提供的基本數(shù)據(jù)類型或已聲明的用戶自定義類型。缺省 [Private|Public]選項時，默認是Public。 2）用戶自定義類型必須在窗體模塊或標準模塊的通用聲明段進行聲明。在窗體模塊中定義用戶自定義類型時必須使用 Private關(guān)鍵字。 3）如果用戶自定義類型的元素為 數(shù)組 ，則需要使用 下標 參數(shù)。 4）在使用用戶自定義類型前，必須先聲明用戶自定義類型的變量。 第三章 VB程序設(shè)計代碼基礎(chǔ) 22 引用用戶自定義類型元素的格式： 用戶自定義類型變量名 .元素名 例：定義一個 Students數(shù)據(jù)類型，該類型中的每一個數(shù)又包含了學生的 系 、 班級 、 姓名 、 年齡 信息。定義格式為： Private Type Students Dept As String * 20 39。 系 ClassNo As String * 10 39。 班級 Name As String 39。 姓名 Age As Integer 39。 年齡 End Type 第三章 VB程序設(shè)計代碼基礎(chǔ) 23 39。 聲明一個用戶自定義類型的變量 Stud Dim Stud As Students 39。 給變量的元素賦值 = 計算機系 = 軟件 20221 = 張三 = 18 39。 輸出各元素的值 Print , , Print , 第三章 VB程序設(shè)計代碼基礎(chǔ) 24 5）如果兩個變量都屬于同一個用戶自定義類型，也可以將其中一個變量賦給另一個變量。這種賦值是將一個變量的所有元素賦給另一個變量的對應(yīng)元素。 例： Dim Stud1 As Students, Stud2 As Students Stud2 = Stud1 第三章 VB程序設(shè)計代碼基礎(chǔ) 25 6）用戶自定義類型可以包含其他的用戶自定義類型。 例： Private Type Address Addr As String 39。 地址 Zip As Integer 39。 郵政編碼 Phone As String 39。 電話 End Type Private Type Student Name As String 39。 姓名 Age As Byte 39。 年齡 TosAddr As Address 39。 聲明為 Address的變量 End Type 第三章 VB程序設(shè)計代碼基礎(chǔ) 26 常量 指在程序運行期間其值 不發(fā)生變化 的量。 兩種形式 : 直接常量；符號常量 直接常量 例 : 歡迎使用 Visual Basic 字符串常量 12345 數(shù)值型常量 True 布爾型常量 11/10/2022 日期型常量 用戶自定義符號常量 格式 : Const 常量名 [As 類型 ]=表達式 類型 : Integer Long Single Double String String*n Boolean Date Currency Byte Variant 第三章 VB程序設(shè)計代碼基礎(chǔ) 27 例 :