【正文】 成員 Vbred vbShapeCircle 例 : Private Sub Form_Activate() Const A As String = 各種常量的使用 = vbGreen = vbRed = 14 Print A End Sub 系統(tǒng)定義符號(hào)常量 第三章 VB程序設(shè)計(jì)代碼基礎(chǔ) 29 變量 ?一個(gè)有名稱(chēng)的內(nèi)存單元稱(chēng)為變量。 ?變量的值可以發(fā)生變化。 第三章 VB程序設(shè)計(jì)代碼基礎(chǔ) 30 2. 變量的命名遵循標(biāo)識(shí)符的命名規(guī)則，即 ?第一個(gè)字符必須是字母 ?長(zhǎng)度不超過(guò) 255個(gè)字符 ?不可以包含小數(shù)點(diǎn)或者 內(nèi)嵌的類(lèi)型聲明字符 ?不能使用關(guān)鍵字 ?不能與過(guò)程名或符號(hào)常量同名 例 : Student1 MyName intMax strName 不區(qū)分大小寫(xiě) ；變量名應(yīng)便于識(shí)別、記憶 第三章 VB程序設(shè)計(jì)代碼基礎(chǔ) 31 3. 變量的聲明 (1) 顯式聲明 格式 : Dim|Private|Public| Static 變量名 [As 類(lèi)型 ] 說(shuō)明： ?Dim: 在窗體模塊、 標(biāo)準(zhǔn)模塊 或 過(guò)程 中聲明變量。 ?Public: 在標(biāo)準(zhǔn)模塊中聲明全局變量，使變量在整個(gè)應(yīng)用程序中有效。 第三章 VB程序設(shè)計(jì)代碼基礎(chǔ) 32 例 : Dim Sum As Long Dim Address As String Dim No As String * 8 Private b As Integer Dim Num, Total As Integer 39。易出錯(cuò)、浪費(fèi)空間 (3) 強(qiáng)制顯式聲明 在模塊的聲明段中使用語(yǔ)句 : Option Explicit 如果設(shè)置 : 工具 → 選項(xiàng) → 編輯器 → ?要求變量聲明 則在后續(xù)模塊中自動(dòng)插入 Option Explicit 第三章 VB程序設(shè)計(jì)代碼基礎(chǔ) 33 例 : 窗體模塊和過(guò)程中使用 Dim語(yǔ)句的區(qū)別。 第三章 VB程序設(shè)計(jì)代碼基礎(chǔ) 34 例 : Static的作用。 若有多個(gè)參數(shù)，參數(shù)之間 以逗號(hào)分隔 。 函數(shù)分類(lèi) 內(nèi)部函數(shù) 用戶(hù)自定義函數(shù) 第三章 VB程序設(shè)計(jì)代碼基礎(chǔ) 36 例 : Fix() 結(jié)果為 45 Int() 結(jié)果為 45 Fix() 結(jié)果為 2 Int() 結(jié)果為 3 Abs(4) 結(jié)果為 4 Log(10) 結(jié)果為 Sgn(3) 結(jié)果為 1 Sgn(6) 結(jié)果為 1 Sgn(0) 結(jié)果為 0 例 : 求 sin300 Sin(30 * / 180) 39。 x0: 每次使用 x作為隨機(jī)數(shù) 種子 得到相同的結(jié)果。 x=0: 產(chǎn)生與最近生成的隨機(jī)數(shù)相同的數(shù)。 ? Date：返回系統(tǒng)日期。 ? Day(d)：返回參數(shù) d中指定的日期是月份中的第幾天。 ? Month(d)：返回參數(shù) d中指定日期的月份。 返回系統(tǒng)的日期和時(shí)間、或返回指定日期和時(shí)間的一部分。 ? Minute(d)：返回分鐘（ 0~59）。 ? Timer：返回從午夜開(kāi)始到現(xiàn)在經(jīng)過(guò)的秒數(shù)。 格式： Shell(文件名 [,窗口樣式 ]) 參數(shù)： 文件名 : 要執(zhí)行的可執(zhí)行文件名，包含路徑 。如果省略，則程序以具有焦點(diǎn)的最小化窗口執(zhí)行。 Shell函數(shù) 例：運(yùn)行時(shí)單擊窗體，打開(kāi)計(jì)算器： Private Sub Form_Click() Shell c:\winnt\system32\, vbNormalFocus End Sub 這里 Shell函數(shù)以語(yǔ)句形式出現(xiàn)，沒(méi)有返回值。 + amp。 World 結(jié)果為 Hello World Check amp。 456 結(jié)果為 123456 123 amp。 Not (A B) 結(jié)果為 False Not (B A) 結(jié)果為 True A B And B C 結(jié)果為 True B A And B C 結(jié)果為 False A B Or B C 結(jié)果為 True B A Or B C 結(jié)果為 True A B Or B= C 結(jié)果為 False 布爾運(yùn)算符與布爾表達(dá)式 第三章 VB程序設(shè)計(jì)代碼基礎(chǔ) 57 例 : 將以下條件寫(xiě)成 VB布爾表達(dá)式 1. m1 n1≤j≤m1+ n1 2. X 5或 X5 3. M和 N之一為 5，但不能同時(shí)為 5 4. 100k100， 且 K為偶數(shù) x)2x)(1x()x(f ???的定義域 5. 1. (J = M1N1) And (J = M1+N1) 2. (X ） Or (X ) 3. ((M = 5) And (N5)) Or ((M 5) And (N = 5)) 4. (K 100) And (K 100) And (K Mod 2 = 0 ) 5. (X 0) And (()*() = ) 第三章 VB程序設(shè)計(jì)代碼基礎(chǔ) 58 ( ) → 函數(shù)運(yùn)算 → 算術(shù)運(yùn)算 → 關(guān)系運(yùn)算 → 布爾運(yùn)算 例：設(shè) a=3， b=5， c=1， d=7， 求以下表達(dá)式的值。 2. 語(yǔ)句應(yīng)符合一定語(yǔ)法規(guī)則。 4. 一行可以寫(xiě)多條語(yǔ)句，之間用冒號(hào)隔開(kāi) 例如 : =14 : =vbRed 5. 語(yǔ)句太長(zhǎng)時(shí)可以續(xù)行，使用空格加下劃線(xiàn)表示 例如： = Val() + _ Val() 第三章 VB程序設(shè)計(jì)代碼基礎(chǔ) 60 本章小結(jié) : 1. 常用數(shù)據(jù)類(lèi)型 整型 : Integer 長(zhǎng)整型 : Long 單精度 : Single 雙精度 : Double 貨幣型 : Currency 字節(jié)型 : Byte 可變長(zhǎng)度字符串 : String 固定長(zhǎng)度字符串 : String * length 布爾 : Boolean 日期型 : Date 對(duì)象類(lèi)型 : Object 可變類(lèi)型 : Variant 第三章 VB程序設(shè)計(jì)代碼基礎(chǔ) 61 2. 常量 : 直接常量 用戶(hù)自定義符號(hào)常量 : Const語(yǔ)句 系統(tǒng)定義符號(hào)常量 3. 變量 命名規(guī)則 聲明 : Dim語(yǔ)句 4. 內(nèi)部函數(shù) 數(shù)學(xué)函數(shù)、字符串函數(shù)、隨機(jī)函數(shù) 轉(zhuǎn)換函數(shù)、日期時(shí)間函數(shù) 5. 表達(dá)式 : 算術(shù)表達(dá)式 字符串表達(dá)式 關(guān)系表達(dá)式 布爾表達(dá)式 日期表達(dá)式 對(duì)象表達(dá)式