【正文】 Dim stuNames() As String 39。 函數(shù)示例 1 【 例 】 編寫(xiě)函數(shù)可以實(shí)現(xiàn)溫度值從華氏轉(zhuǎn)換為攝氏和從攝氏轉(zhuǎn)換為華氏。 ? 聲明： 在模塊級(jí)通用聲明部分放置常量、變量、動(dòng)態(tài)鏈接庫(kù)等的聲明。 窗體模塊文件 *.frm 工程中的每個(gè)窗體都有一個(gè)與之相應(yīng)的窗體模塊文件 窗體文件中包含： ? 窗體本身及窗體上放置的所有控件的屬性設(shè)置 ? 窗體級(jí)變量、常量、類(lèi)型聲明和外部過(guò)程 的聲明 ? 所有相關(guān)的事件過(guò)程及窗體級(jí)通用過(guò)程 說(shuō)明： ? 同一窗體模塊內(nèi)的通用過(guò)程與事件過(guò)程可以相互調(diào)用 ? 若窗體模塊內(nèi)的通用過(guò)程被聲明為公有的，可以被其它窗體模塊或標(biāo)準(zhǔn)模塊中的過(guò)程調(diào)用。 Function change(source As Integer, isCtoF As Boolean) As Integer If isCtoF Then change = (source * 9 / 5) + 32 Else change = (source 32) * 5 / 9 End If End Function 39。 按下 【 正向查找 】 按鈕 Private Sub Command1_Click() If txtPos = then Call Find(txtName, stuNames) 39。amp。表示字符，不足補(bǔ) 0 基本字符串操作 10. 字符串比較 Like運(yùn)算符 If strValue Like “AB” 如“ AB123”, “AB097” If strValue Like “ABC*XYZ” 如“ ABCFDKJKXYZ” If strValue Like “1???X” 如“ 1KKJX”, “1AB3X” If strValue Like “[AC]” 如“ A432”, “C599” If strValue Like “[AEIOU][AZ][AZ]” 如“ ECD” If strValue Like “[!09]?? 如“ D3J”, “ZLJ” 基本字符串操作 11. 字符串轉(zhuǎn)換類(lèi)型 CInt： 轉(zhuǎn)換為整型數(shù) CLng： 轉(zhuǎn)換為長(zhǎng)整型數(shù) CSng： 轉(zhuǎn)換為單精度浮點(diǎn)數(shù) CDbl： 轉(zhuǎn)換為雙精度浮點(diǎn)數(shù) CCur： 轉(zhuǎn)換為貨幣 CDate： 轉(zhuǎn)換為日期 CStr： 轉(zhuǎn)換為字符串 Chr： Ascii碼轉(zhuǎn)換為字符 Asc： 字符轉(zhuǎn)換為 Ascii碼 日期操作 1. 取當(dāng)前日期 Now 2. 取日期中的年 Year 3. 取日期中的月 Month 4. 取日期中的日 Day 5. 取星期數(shù) Weekday：返回 17，即 vbMonday…vbSunday 。amp。 從指定元素向后查 End If End Sub 39。 change(CInt(), True) End Sub ? 按下 【 華氏 攝氏 】 按鈕 Private Sub Command2_Click() = 攝氏溫度 = amp。 標(biāo)準(zhǔn)模塊文件 *.bas 標(biāo)準(zhǔn)模塊中的代碼可以被工程中的所有模塊，包括窗體 模塊、其它標(biāo)準(zhǔn)模塊，所共享。 VB文件的內(nèi)容 每一類(lèi)型的文件都可以包含過(guò)程和通用聲明： ? 過(guò)程： 可以是子過(guò)程、函數(shù)過(guò)程或事件過(guò)程。 ? 函數(shù)賦值語(yǔ)句可以出現(xiàn)函數(shù)的任意位置，該語(yǔ)句并不代表退出函數(shù)。 使用可