【文章內(nèi)容簡介】 1 0 1 0 0 1 1 1 Dim A, B, C, Check A = 10: B = 8: C = 6 Check = A and B Check = B and C Check = A and C 常用內(nèi)部函數(shù) ?內(nèi)部函數(shù)的一般格式： 函數(shù)名 ([參數(shù)表 ]) ?說明： 在參數(shù)表中，若有多個參數(shù)，則參數(shù)之間用逗號分隔 函數(shù)與變量、常量一樣，可參與計算。 ?內(nèi)部函數(shù)的分類 算術(shù)類 字符類 轉(zhuǎn)換類 日期、時間類 其它類 數(shù)學類函數(shù) ?正弦函數(shù) Sin(number) ?余弦函數(shù) Cos(number) ?正切函數(shù) Tan(number) ?絕對值函數(shù) Abs(number) ?指數(shù)函數(shù) Exp(number) ?自然對數(shù)函數(shù) Log(number) 數(shù)學類函數(shù) ?平方根函數(shù) Sqr(number) ?符號函數(shù) Sgn(number) ?取整函數(shù) Fix(number) Fix 函數(shù)僅返回參數(shù)的整數(shù)部分 Fix()、 Fix() Int(number) Int 函數(shù)返回不超過參數(shù)的最大整數(shù) Int()、 Int() 數(shù)學類函數(shù) ?隨機函數(shù)： Rnd[(number)] ?Rnd 函數(shù)返回在半開區(qū)間 [0, 1)內(nèi)的隨機小數(shù)： ?當 number0 或 省略 number，產(chǎn)生下一個隨機數(shù) ?當 number=0，產(chǎn)生最近一個隨機數(shù) ?當 number0，產(chǎn)生與 number有關(guān)的相同的隨機數(shù) 數(shù)學類函數(shù) ?生成閉區(qū)間 [lb, ub]范圍內(nèi)的隨機整數(shù)，可使用以下公式： Int((ub – lb + 1) * Rnd + lb) ?生成半開區(qū)間 [lb, ub)范圍內(nèi)的隨機整數(shù)，可使用以下公式： Int((ub lb) * Rnd + lb) 例如：生成 [11, 87)內(nèi)的隨機整數(shù)： Int((87 – 11 + 1) * Rnd + 11) 字符類操作函數(shù) ?長度函數(shù) Len(string) ?去首空格函數(shù) Ltrim(string) ?去尾空格函數(shù) Rtrin(string) ?去首尾空格函數(shù) Trim(string) Len、 ltrim、 rtrim、 trim 函數(shù)舉例 Dim MS$ 39。 聲明變量。 MS = Hello World 39。 設置變量初值。 Len(MS) 39。 返回 13。 LTrim(MS) 39。 返回 Hello World RTrim(MS) 39。 返回 Hello World LTrim(RTrim(MS)) 39。 返回 Hello World Trim(MS) 39。 返回 Hello World 字符類操作函數(shù) ?左取子串函數(shù) Left(string, lenth) ?右取子串函數(shù) Right(string, lenth) ?中間取子串函數(shù) Mid(string, start[, lenth]) left、 right、 mid 函數(shù)舉例 Dim Any$ Any = Hello Visual Basic 39。 定義字符串 Left(Any, 1) 39。 返回 H Left(Any, 7) 39。 返回 Hello V Right(Any, 1) 39。 返回 c Right(Any, 5) 39。 返回 Basic Mid(Any, 1, 5) 39。 返回 Hello Mid(Any, 7, 6) 39。 返回 Visual Mid(Any, 7) 39。 返回 Visual Basic 字符類操作函數(shù) ?字符重復函數(shù) String(number, character) String(5, *) 39。 返回 ***** String(5, 42) 39。 返回 ***** String(5, ABC) 39。 返回 AAAAA String、 ucase、 lcase 函數(shù)舉例 ?大寫轉(zhuǎn)換函數(shù) Ucase(string) ?小寫轉(zhuǎn)換函數(shù) Lcase(string) Dim Any$ Any = Hello World 1234 UCase(Any) 39。 返回 HELLO WORLD 1234 Lcase(Any) 39。 返回 hello world 1234 字符類操作函數(shù) ?字符串查詢函數(shù) InStr([start, ]string1, string2[, pare]) ?返回指定字符串在另一字符串中最先出現(xiàn)的位置。 ?說明 Start：設置搜索的起點。如果省略，將從第一個字符開始。如果指定了 pare 參數(shù)，則一定要有 start 參數(shù)。 String String2 ：接受搜索與被搜索的的字符串表達式。 字符類操作函數(shù) ?Compare：指定字符串比較類型 常數(shù) 值 描述 vbBinaryCompare 0 區(qū)分大小寫 vbTextCompare 1 不區(qū)分大小寫 vbUseCompareOption 1 使用 Option Compare 語句設置 Compare 默認是 0，既區(qū)分大小寫 字符類操作函數(shù) ?InStr 函數(shù)返回值： 如果 InStr 函數(shù)返回 string1 為零長度 0 string2 為零長度 1 start string1的長度 0 在 string1 中找到 string2 找到的位置 在 string1 中找不到 string2 0 InStr 函數(shù)舉例 Dim A$, B$ A =XXpXXpXXPXXP 39。 被搜索的字符串 B = PX 39。 要查找字符串 P Instr(4, A, B, 1) 39。 返回值 6 Instr(A, B) 39。 返回值 3 Instr(1, A, B, 0) 39。 返回值 9 Instr(1, A, B) 39。 返回值 9 轉(zhuǎn)換函數(shù) —Asc ?Asc 函數(shù)： Asc(string)： ?功能：返回字符串中首字母的 ASCII碼 Asc(A) 39。 返回 65 Asc(a) 39。 返回 97 Asc(Apple) 39。 返回 65 Asc(0) 39。 返回 48 轉(zhuǎn)換函數(shù) —Chr ?Chr 函數(shù)： Chr(charcode)： ?功能：返回與指定的 ASCII碼相關(guān)的字符 。 Chr(65) 39。 返回 A。 Chr(97) 39。 返回 a。 Chr(48) 39。 返回 0。 Chr(37) 39。 返回 %。 轉(zhuǎn)換函數(shù) Hex ?Hex 函數(shù)： Hex(number) ?功能：對任何有效的數(shù)值表達式或字符串表達式，返回代表十六進制數(shù)值的最多可到八個十六進制字符的 String。 ?說明：如果 number 不是一個整數(shù)，則先四舍五入成最接近的整數(shù)。 Hex(5) 39。 返回 “ 5‖ Hex() 39。 返回 “ 5‖ Hex(10) 39。 返回 “ A‖ Hex(459) 39。 返回 “ 1CB‖ 轉(zhuǎn)換函數(shù)Oct ?Oct 函數(shù)： Oct(number) ?功能：對任何有效的數(shù)值表達式或字符串表達式，返回代表八進制數(shù)值的最多可到 11個八進制字符的 String。 ?說明：如果 number 不是一個整數(shù)，則先四舍五入成最接近的整數(shù)。 Oct(4) 39。 返回 4。 Oct() 39。 返回 5。 Oct(8) 39。 返回 10。 Oct(459) 39。 返回 713。 轉(zhuǎn)換函數(shù)Str ?Str 函數(shù)： Str(number) ?功能：對任何有效的數(shù)值表達式，返回相應的 String ?說明：當一數(shù)字轉(zhuǎn)成字符串時，總會在前頭保留一空位來表示正負。如果 number 為正，返回的字符串包含一前導空格暗示有一正號。 Str(459) 39。 返回 459 Str() 39。 返回 Str() 39。 返回 轉(zhuǎn)換函數(shù)Val ?Val 函數(shù)： Val(string) ?功能：返回包含于字符串內(nèi)的數(shù)字。 ?說明： 首先過濾空白、制表符和換行符。 從最左開始識別，當遇到不是數(shù)字的第一個字符為止。 Val(2457) 39。 返回 2457 Val( 2 45 7) 39。 返回 2457 Val(24 and 57) 39。 返回 24 Val( 1615 198th Street N.) 39。返回 1615198 時間類函數(shù) ?Date[( )]：返回系統(tǒng)日期 Dim MyDate MyDate = Date 39。 MyDate 的值為系統(tǒng)當前的日期。 ?Now[( )]：返回系統(tǒng)日期和系統(tǒng)時間 MsgBox 函數(shù) ?在對話框中顯示消息，等待用戶單擊按鈕，并返回一個 Integer 告訴用戶單擊哪一個按鈕。 MsgBox(prompt [, buttons] [, title]) ?描述 Prompt：字符串表達式，作為顯示在對話框中的消息。 prompt 的最大長度大約為 1024 個字符。如果 prompt 的內(nèi)容超過一行，則可以在每一行之間用回車符 (Chr(13))、換行符 (Chr(10)) 或是回車與換行符的組合 (Chr(13) amp。 Chr(10)) 將各行分隔開來。 MsgBox 函數(shù) Buttons：指定顯示按鈕的數(shù)目及形式，使用的圖標樣式，缺省按鈕是什么以及消息框的強制回應等。如果省略，則 buttons 的缺省值為 0。 Title：在對話框標題欄中顯示的字符串表達式。如果省略 title，則將應用程序名放在標題欄中。 MsgBox 函數(shù) —buttons 參數(shù) 常量 值 描述（ 顯示按鈕） vbOKOnly 0 OK VbOKCancel 1 OK 及 Cancel VbAbortRetryIgnore 2 Abort、 Retry 及 Ignore VbYesNoCancel 3 Yes、 No 及 Cancel VbYesNo 4 Yes 及 No VbRetryCancel 5 Retry 及 Cancel MsgBox 函數(shù) —buttons 參數(shù) 常量 值 描述（ 顯示圖標） VbCritical 16 Critical Message VbQuestion 32 Warning Query VbExclamation 48 Warning Message VbInformation 64 Information Message ?注意：可組合這些常量作為 buttons 參數(shù) MsgBox 函數(shù) —返回值 常數(shù) 值 描述 vbOK 1 OK vbCancel 2 Cancel vbAbort 3 Abort vbRetry 4 Retry vbIgnore 5 Ignore vbYes 6 Yes vbNo 7 No RGB 函數(shù) ?返回一個代表顏色的 Long 整數(shù)。 RGB(red, green, blue) ?描述 Red： Integer。表示顏色的 紅色 成份。 Green： Integer。表示顏色的 綠色 成份。 Blue： Integer。表示顏色的 蘭色 成份。 ?說明 傳給 RGB 的任何參數(shù)的值，如果超過 255，會被當作 255。 RGB 函數(shù) —常見的標準顏色 顏色 紅色值 綠色值 蘭色值 黑色 0 0 0 蘭色 0 0 255 綠色 0 255 0 青色 0 255 255 紅色 255 0 0 洋紅色 255 0 255 黃色 255 255 0 白色 255 255 255 表達式 ?運算符、常數(shù)、文字值、函數(shù)、列名、控件和屬性的任意組合，其結(jié)果為一個單一的值。 ?類型 算術(shù)表達式： 字符表達式： 關(guān)系表達式： 邏輯表達式： 表達式的一般執(zhí)行順序 ?從左至右進行計算，能夠計算的先計算 1. 先做括號內(nèi)，再做括號外 2