【正文】 因而節(jié)省很多時間 Microsoft Excel Chart 對象 Microsoft Excel Worksheet 對象 Microsoft Word Document 對象 使用對象初步 ? VB 對象支持屬性、方法和事件。 可把 VB 內(nèi)部的控件結(jié)合在一起，也可使用其它應(yīng)用程序提供的對象。 ? 在此亦可使用 Microsoft Project 提供的 Calendar、Resources 和 Task 對象。 ? 取而代之的是利用 VB 提供的 CommonDialog 控件（一個對象）。 ?類型 算術(shù)表達式： 字符表達式： 關(guān)系表達式： 邏輯表達式： 表達式的一般執(zhí)行順序 ?從左至右進行計算，能夠計算的先計算 1. 先做括號內(nèi)，再做括號外 2. 函數(shù)運算或字符串連接運算 3. 算術(shù)運算 4. 關(guān)系運算 5. 邏輯運算 ?例如： 21 + a – 3 \ 8 / 2 + / x ^ 2 * sin(30 / 180 * ) ① ④ ③ ② ? ⑥ ⑤ ⑩ ⑨ ⑦ ⑧ 表達式舉例 ?設(shè) a = 2, b = 3, c = 4, d = 5, 求下列表達式的值及運算順序 1. A b and c =d or 2 * a c 2. 3 2*b ot a=c and bc or cd 3. Not a = c or 4 * c = b ^ 2 and b a + c 第三章 VISUAL BASIC 編程基礎(chǔ) 用對象能做什么 1. 對象可提供現(xiàn)成代碼，省卻書寫麻煩。 ?說明 傳給 RGB 的任何參數(shù)的值，如果超過 255，會被當作 255。 Blue： Integer。 Green： Integer。 RGB(red, green, blue) ?描述 Red： Integer。如果省略 title，則將應(yīng)用程序名放在標題欄中。如果省略，則 buttons 的缺省值為 0。 Chr(10)) 將各行分隔開來。 prompt 的最大長度大約為 1024 個字符。 ?Now[( )]：返回系統(tǒng)日期和系統(tǒng)時間 MsgBox 函數(shù) ?在對話框中顯示消息，等待用戶單擊按鈕，并返回一個 Integer 告訴用戶單擊哪一個按鈕。返回 1615198 時間類函數(shù) ?Date[( )]：返回系統(tǒng)日期 Dim MyDate MyDate = Date 39。 返回 2457 Val(24 and 57) 39。 Val(2457) 39。 ?說明： 首先過濾空白、制表符和換行符。 返回 Str() 39。 Str(459) 39。 轉(zhuǎn)換函數(shù)Str ?Str 函數(shù)： Str(number) ?功能：對任何有效的數(shù)值表達式，返回相應(yīng)的 String ?說明：當一數(shù)字轉(zhuǎn)成字符串時，總會在前頭保留一空位來表示正負。 Oct(459) 39。 Oct(8) 39。 Oct() 39。 Oct(4) 39。 返回 “ 1CB‖ 轉(zhuǎn)換函數(shù)Oct ?Oct 函數(shù)： Oct(number) ?功能：對任何有效的數(shù)值表達式或字符串表達式，返回代表八進制數(shù)值的最多可到 11個八進制字符的 String。 返回 “ 5‖ Hex(10) 39。 Hex(5) 39。 轉(zhuǎn)換函數(shù) Hex ?Hex 函數(shù)： Hex(number) ?功能：對任何有效的數(shù)值表達式或字符串表達式，返回代表十六進制數(shù)值的最多可到八個十六進制字符的 String。 Chr(37) 39。 Chr(48) 39。 Chr(97) 39。 Chr(65) 39。 返回 65 Asc(0) 39。 返回 65 Asc(a) 39。 返回值 9 Instr(1, A, B) 39。 返回值 6 Instr(A, B) 39。 被搜索的字符串 B = PX 39。 String String2 ：接受搜索與被搜索的的字符串表達式。如果省略，將從第一個字符開始。 返回 hello world 1234 字符類操作函數(shù) ?字符串查詢函數(shù) InStr([start, ]string1, string2[, pare]) ?返回指定字符串在另一字符串中最先出現(xiàn)的位置。 返回 AAAAA String、 ucase、 lcase 函數(shù)舉例 ?大寫轉(zhuǎn)換函數(shù) Ucase(string) ?小寫轉(zhuǎn)換函數(shù) Lcase(string) Dim Any$ Any = Hello World 1234 UCase(Any) 39。 返回 ***** String(5, 42) 39。 返回 Visual Mid(Any, 7) 39。 返回 Basic Mid(Any, 1, 5) 39。 返回 Hello V Right(Any, 1) 39。 定義字符串 Left(Any, 1) 39。 返回 Hello World Trim(MS) 39。 返回 Hello World RTrim(MS) 39。 返回 13。 設(shè)置變量初值。 聲明變量。 返回 Check 123 Check +：作為連接運算符使用，容易與算術(shù)加法相混淆，故：一般不用“ +‖連接字符串 運算符 Not result = Not expression Expression result True False False True Dim A, B, C, Check A = 10 : B = 8 : C = 6 Check = not(A B) Check = not(B A) Check = not(C D) 運算符 Not result = Not expression Not 還能改變變量的位值，并根據(jù)下表設(shè)置 result 中相應(yīng)的位： expression 位 result 位 0 1 1 0 Dim A, B, C, Check A = 10 : B = 8 : C = 6 Check = not A Check = not B Check = not C 運算符Or result = expression1 or expression2 Expression1 Expression2 result True True True True False True False True True False False False Dim A, B, C, Check A = 10: B = 8: C = 6 Check = A B or B C Check = B A or B C Check = C B or B A 運算符Or result = expression1 or expression2 or 還能改變數(shù)值表達式的位值，并根據(jù)下表設(shè)置 result 中相應(yīng)的位： Expression1 Expression2 result 0 0 0 0 1 1 1 0 1 1 1 1 Dim A, B, C, Check A = 10: B = 8: C = 6 Check = A or B Check = B or C Check = C or A 運算符And result = expression1 and expression2 Expression1 Expression2 result True True True True False False False True False False False False Dim A, B, C, Check A = 10: B = 8: C = 6 Check = A B and B C Check = B A and B C Check = A B and B D 運算符And result = expression1 and expression2 and 還能改變數(shù)值表達式的位值，并根據(jù)下表設(shè)置 result 中相應(yīng)的位： Expression1 Expression2 result 0 0 0 0 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ù)與變量、常量一樣，可參與計算。 返回 Check 123 Check Hello + World 39。 123 amp。 World 39。 如果兩個表達式都是字符串，則結(jié)果的數(shù)據(jù)類型是 String；否則 result 是 String 變體。 expression2 expression1 + expression2 ?描述 結(jié)果是： String 或 Variant 變量。 雙目：用來強制兩個表達式作字符串連接。 返回 True。 返回 True。 返回 True。 返回 True。 返回 False。比較運算 187。算術(shù)運算 187。 邏輯運算符 用來執(zhí)行邏輯運算的運算符。 比較運算符 用來進行比較的運算符。 ?語法： [Let] varname = expression ?說明：表達式值的類型必須與變量類型兼容 —即： 賦值兼容 ?例如： Let i = 1 i = 1 I = i + 1 s = s * i 賦值兼容 ?數(shù)值或可解釋為數(shù)值的字符型數(shù)據(jù)可賦值給數(shù)值變量 ?字符型數(shù)據(jù)可賦值給字符型變量 ?字符串或數(shù)值表達式可賦值給 Variant 變量，反過來：任何除 Null 之外的 Variant 都可以賦給字符串變量，但只有當 Variant 的值可以解釋為某個數(shù)時才能賦給數(shù)值變量。 Dim 語句示例 1. Dim a as integer 2. Dim b as single, c as single 3. Dim a% 4. Dim b!, c! 5. Dim e, f as date 可變類型變量 ?三種方式定義： 隱式定義 Dim varname Dim varname as variant ?可保存各種類型（數(shù)值型、字符型、日期型）的數(shù)據(jù) ?使用靈活，但存在隱患 動態(tài)變量 ?在過程內(nèi)部，用 Dim 語句說明及隱式說明的變量均為自動變量 ?特點： 自動變量一經(jīng)說明，則分配存儲單元，一旦過程結(jié)束，則回收其所占用的存儲單元既：自動變量的生命周期與作用域是一致的 動態(tài)變量示例 Private sub mand1_click( ) Dim a% A = 100 Print a Ennnd sub Private sub mand1_click( ) Dim a% A = 200 Print a Ennnd sub 靜態(tài)變量 ?靜態(tài)變量使用 Static 語句說明 ?語法： Static varname [As type] ?說明： 一般靜態(tài)變量在過程內(nèi)說明 當過程結(jié)束時，其占用的存儲單元保留，當該過程再一次執(zhí)行時，其值任然存在，還可繼續(xù)使用 靜態(tài)變量的生命周期與作用域不一致 靜態(tài)變量示例 Private sub Form_click( ) static a% A = a + 1 Print a=。 ?語法： Dim varname [As type] ?描述 ： Type 可為 Byte、 Boolean、 Integer、Long、 Currency、 Single、 Double、 Date、Variant、 String、 String * length。 ?如果要廢棄隱式定義方式，采用顯式定義方式： 方法一：模塊級聲明： Option Explicit 方法二：在“工具”菜單中選取“選項”，單擊“編輯器”選項卡，再復選“要求變量聲明”選項。、 f!、 cstr$ 變量的隱式定義方式 ?所謂隱式定義，就是變量未經(jīng)顯示定義而直接使用，此時由