【文章內(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ù)表中，若有多個(gè)參數(shù)，則參數(shù)之間用逗號分隔 函數(shù)與變量、常量一樣，可參與計(jì)算。 ?內(nèi)部函數(shù)的分類 算術(shù)類 字符類 轉(zhuǎn)換類 日期、時(shí)間類 其它類 數(shù)學(xué)類函數(shù) ?正弦函數(shù) Sin(number) ?余弦函數(shù) Cos(number) ?正切函數(shù) Tan(number) ?絕對值函數(shù) Abs(number) ?指數(shù)函數(shù) Exp(number) ?自然對數(shù)函數(shù) Log(number) 數(shù)學(xué)類函數(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ù)學(xué)類函數(shù) ?隨機(jī)函數(shù)： Rnd[(number)] ?Rnd 函數(shù)返回在半開區(qū)間 [0, 1)內(nèi)的隨機(jī)小數(shù)： ?當(dāng) number0 或 省略 number，產(chǎn)生下一個(gè)隨機(jī)數(shù) ?當(dāng) number=0，產(chǎn)生最近一個(gè)隨機(jī)數(shù) ?當(dāng) number0，產(chǎn)生與 number有關(guān)的相同的隨機(jī)數(shù) 數(shù)學(xué)類函數(shù) ?生成閉區(qū)間 [lb, ub]范圍內(nèi)的隨機(jī)整數(shù)，可使用以下公式： Int((ub – lb + 1) * Rnd + lb) ?生成半開區(qū)間 [lb, ub)范圍內(nèi)的隨機(jī)整數(shù)，可使用以下公式： Int((ub lb) * Rnd + lb) 例如：生成 [11, 87)內(nèi)的隨機(jī)整數(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。 設(shè)置變量初值。 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ù) ?字符重復(fù)函數(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：設(shè)置搜索的起點(diǎn)。如果省略，將從第一個(gè)字符開始。如果指定了 pare 參數(shù)，則一定要有 start 參數(shù)。 String String2 ：接受搜索與被搜索的的字符串表達(dá)式。 字符類操作函數(shù) ?Compare：指定字符串比較類型 常數(shù) 值 描述 vbBinaryCompare 0 區(qū)分大小寫 vbTextCompare 1 不區(qū)分大小寫 vbUseCompareOption 1 使用 Option Compare 語句設(shè)置 Compare 默認(rèn)是 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ù)值表達(dá)式或字符串表達(dá)式，返回代表十六進(jìn)制數(shù)值的最多可到八個(gè)十六進(jìn)制字符的 String。 ?說明：如果 number 不是一個(gè)整數(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ù)值表達(dá)式或字符串表達(dá)式，返回代表八進(jìn)制數(shù)值的最多可到 11個(gè)八進(jìn)制字符的 String。 ?說明：如果 number 不是一個(gè)整數(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ù)值表達(dá)式，返回相應(yīng)的 String ?說明：當(dāng)一數(shù)字轉(zhuǎn)成字符串時(shí)，總會在前頭保留一空位來表示正負(fù)。如果 number 為正，返回的字符串包含一前導(dǎo)空格暗示有一正號。 Str(459) 39。 返回 459 Str() 39。 返回 Str() 39。 返回 轉(zhuǎn)換函數(shù)Val ?Val 函數(shù)： Val(string) ?功能：返回包含于字符串內(nèi)的數(shù)字。 ?說明： 首先過濾空白、制表符和換行符。 從最左開始識別，當(dāng)遇到不是數(shù)字的第一個(gè)字符為止。 Val(2457) 39。 返回 2457 Val( 2 45 7) 39。 返回 2457 Val(24 and 57) 39。 返回 24 Val( 1615 198th Street N.) 39。返回 1615198 時(shí)間類函數(shù) ?Date[( )]：返回系統(tǒng)日期 Dim MyDate MyDate = Date 39。 MyDate 的值為系統(tǒng)當(dāng)前的日期。 ?Now[( )]：返回系統(tǒng)日期和系統(tǒng)時(shí)間 MsgBox 函數(shù) ?在對話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè) Integer 告訴用戶單擊哪一個(gè)按鈕。 MsgBox(prompt [, buttons] [, title]) ?描述 Prompt：字符串表達(dá)式，作為顯示在對話框中的消息。 prompt 的最大長度大約為 1024 個(gè)字符。如果 prompt 的內(nèi)容超過一行，則可以在每一行之間用回車符 (Chr(13))、換行符 (Chr(10)) 或是回車與換行符的組合 (Chr(13) amp。 Chr(10)) 將各行分隔開來。 MsgBox 函數(shù) Buttons：指定顯示按鈕的數(shù)目及形式，使用的圖標(biāo)樣式，缺省按鈕是什么以及消息框的強(qiáng)制回應(yīng)等。如果省略，則 buttons 的缺省值為 0。 Title：在對話框標(biāo)題欄中顯示的字符串表達(dá)式。如果省略 title，則將應(yīng)用程序名放在標(biāo)題欄中。 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ù) 常量 值 描述（ 顯示圖標(biāo)） 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ù) ?返回一個(gè)代表顏色的 Long 整數(shù)。 RGB(red, green, blue) ?描述 Red： Integer。表示顏色的 紅色 成份。 Green： Integer。表示顏色的 綠色 成份。 Blue： Integer。表示顏色的 蘭色 成份。 ?說明 傳給 RGB 的任何參數(shù)的值，如果超過 255，會被當(dāng)作 255。 RGB 函數(shù) —常見的標(biāo)準(zhǔn)顏色 顏色 紅色值 綠色值 蘭色值 黑色 0 0 0 蘭色 0 0 255 綠色 0 255 0 青色 0 255 255 紅色 255 0 0 洋紅色 255 0 255 黃色 255 255 0 白色 255 255 255 表達(dá)式 ?運(yùn)算符、常數(shù)、文字值、函數(shù)、列名、控件和屬性的任意組合，其結(jié)果為一個(gè)單一的值。 ?類型 算術(shù)表達(dá)式： 字符表達(dá)式： 關(guān)系表達(dá)式： 邏輯表達(dá)式： 表達(dá)式的一般執(zhí)行順序 ?從左至右進(jìn)行計(jì)算，能夠計(jì)算的先計(jì)算 1. 先做括號內(nèi)，再做括號外 2