vb常用語(yǔ)句--精選文檔

1、Vb常用語(yǔ)句解析下面10條語(yǔ)句是最常用的語(yǔ)句，將指針移到上面按ctrl鍵單擊可查看用法：包括功能、語(yǔ)法、參數(shù)、舉例等。1、Let（賦值語(yǔ)句即=）3、Dim語(yǔ)句7、If.Then.Else 語(yǔ)句21、Select case6、For.Next 語(yǔ)句19、While.Wend 語(yǔ)句15、Randomize 語(yǔ)句16、Rem 語(yǔ)句17、Static 語(yǔ)句18、Unload 語(yǔ)句1、Let（賦值語(yǔ)句即=）功能：將表達(dá)式的值賦給變量或?qū)傩?。語(yǔ)法 varname = expression 語(yǔ)句的語(yǔ)法包含下面部分：部分描述可選的。顯式使用 關(guān)鍵字也是一種格式，但通常都省略該關(guān)鍵字。varname必需的。變量

2、或?qū)傩缘拿Q；遵循標(biāo)準(zhǔn)變量命名約定。expression必需的。賦給變量或?qū)傩缘闹怠?、call語(yǔ)句將控制權(quán)轉(zhuǎn)移到一個(gè) Sub 過(guò)程，F(xiàn)unction 過(guò)程，或動(dòng)態(tài)連接庫(kù) (DLL)過(guò)程。語(yǔ)法 name argumentlist 語(yǔ)句的語(yǔ)法具有以下幾個(gè)部分：部分描述可選參數(shù)；關(guān)鍵字。如果指定了這個(gè)關(guān)鍵字，則 argumentlist 必須加上括號(hào)，例如： MyProc(0)name必要參數(shù)，要調(diào)用的過(guò)程名稱。argumentlist說(shuō)明調(diào)用一個(gè)過(guò)程時(shí)，并不一定要使用 關(guān)鍵字。如果使用 關(guān)鍵字來(lái)調(diào)用一個(gè)需要參數(shù)的過(guò)程，argumentlist 就必須要加上括號(hào)。如果省略了 關(guān)鍵字，那么也必須要省

3、略 argumentlis 外面的括號(hào)。如果使用 語(yǔ)法來(lái)調(diào)用內(nèi)建函數(shù)或用戶定義函數(shù)，則函數(shù)的返回值將被丟棄。若要將整個(gè)數(shù)組傳給一個(gè)過(guò)程，使用數(shù)組名，然后在數(shù)組名后加上空括號(hào)。3、Dim語(yǔ)句聲明變量并分配存儲(chǔ)空間。語(yǔ)法 WithEvents varname(subscripts) As New type , WithEvents varname(subscripts) As New type . . . 語(yǔ)句的語(yǔ)法包含下面部分：部分描述WithEvents可選的。關(guān)鍵字，說(shuō)明 varname 是一個(gè)用來(lái)響應(yīng)由 ActiveX 對(duì)象觸發(fā)的事件的對(duì)象變量。只有在類模塊中才是合法的。使用 WithEv

4、ents，可以聲明任意個(gè)所需的單變量，但不能使用 WithEvents 創(chuàng)建數(shù)組。New 和 WithEvents 不能一起使用。varname必需的。變量的名稱；遵循標(biāo)準(zhǔn)的變量命名約定。subscripts可選的。數(shù)組變量的維數(shù)；最多可以定義 60 維的多維數(shù)組。subscripts 參數(shù)使用下面的語(yǔ)法：lower To upper , lower To upper . . .如果不顯式指定 lower，則數(shù)組的下界由 Option Base 語(yǔ)句控制。如果沒(méi)有使用 Option Base 語(yǔ)句，則下界為 0。New可選的?？呻[式地創(chuàng)建對(duì)象的關(guān)鍵字。如果使用 New 來(lái)聲明對(duì)象變量，則在第一

5、次引用該變量時(shí)將新建該對(duì)象的實(shí)例，因此不必使用 Set 語(yǔ)句來(lái)給該對(duì)象引用賦值。New 關(guān)鍵字不能聲明任何內(nèi)部數(shù)據(jù)類型的變量，以及從屬對(duì)象的實(shí)例，也不能與 WithEvents 一起使用。type可選的。變量的數(shù)據(jù)類型；可以是 Byte、布爾、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（對(duì)變長(zhǎng)的字符串）、String * length （對(duì)定長(zhǎng)的字符串）、Object、Variant、用戶定義類型、或?qū)ο箢愋?。所聲明的每個(gè)變量都要一個(gè)單獨(dú)的 As type 子句。說(shuō)明在模塊級(jí)別中用 聲明的變量，對(duì)該模塊中的所有

6、過(guò)程都是可用的。在過(guò)程級(jí)別中聲明的變量，只在過(guò)程內(nèi)是可用的。可以使用 語(yǔ)句在模塊級(jí)或過(guò)程級(jí)中聲明變量的數(shù)據(jù)類型。例如，下面的語(yǔ)句聲明了 Integer 類型的變量。 NumberOfEmployees As Integer也可以使用 語(yǔ)句來(lái)聲明變量的對(duì)象類型。下面的語(yǔ)句為工作表的新建實(shí)例聲明了一個(gè)變量。 X As New Worksheet如果定義對(duì)象變量時(shí)沒(méi)有使用 New 關(guān)鍵字，則在使用該變量之前，必須使用 Set 語(yǔ)句將該引用對(duì)象的變量賦值為一個(gè)已有對(duì)象。在該變量被賦值之前，所聲明的對(duì)象變量有一個(gè)特定值 Nothing，這個(gè)值表示該變量沒(méi)有指向任一個(gè)對(duì)象實(shí)例。也可以使用帶空?qǐng)A括號(hào)的 語(yǔ)句

7、來(lái)定義動(dòng)態(tài)數(shù)組。在定義動(dòng)態(tài)數(shù)組后，可以在過(guò)程內(nèi)使用 ReDim 語(yǔ)句來(lái)定義該數(shù)組的維數(shù)和元素。如果試圖在 Private，Public 或 語(yǔ)句中重新定義一個(gè)已顯式定義了大小的數(shù)組的維數(shù)時(shí)，就會(huì)發(fā)生錯(cuò)誤。如果不指定數(shù)據(jù)類型或?qū)ο箢愋?，且在模塊中沒(méi)有 Deftype 語(yǔ)句，則該變量按缺省設(shè)置是 Variant 類型。當(dāng)初始化變量時(shí)，數(shù)值變量被初始化為 0，變長(zhǎng)的字符串被初始化為一個(gè)零長(zhǎng)度的字符串 ("")，而定長(zhǎng)的字符串則用 0 填充。Variant 變量被初始化為 Empty。用戶自定義類型的變量的每個(gè)元素作為各自獨(dú)立的變量進(jìn)行初始化。注意 當(dāng)在過(guò)程中使用 語(yǔ)句時(shí)，通常將

8、語(yǔ)句放在過(guò)程的開(kāi)始處。4、Dim 語(yǔ)句示例該示例演示使用 Dim 語(yǔ)句來(lái)聲明變量，也演示了用 Dim 語(yǔ)句來(lái)聲明數(shù)組。數(shù)組的缺省下界為 0，可以在模塊級(jí)使用 Option Base 語(yǔ)句來(lái)取代數(shù)組的缺省下界。'AnyValue 和 MyValue 按缺省情況被聲明為 Variant，'同時(shí)值被設(shè)為 Empty。Dim AnyValue, MyValue'顯式聲明一個(gè) Integer 類型的變量。Dim Number As Integer'在一行中聲明多個(gè)變量。AnotherVar 為 Variant 類型，'因?yàn)樗念愋捅皇÷粤?。Dim AnotherV

9、ar, Choice As Boolean, BirthDate As Date'DayArray 是一個(gè)有 51 個(gè)索引（從 0 到 50）元素的 Variant 數(shù)組，'假設(shè)在當(dāng)前模塊中 Option Base 被設(shè)為 0（缺省設(shè)置）。Dim DayArray(50)'Matrix 是一個(gè)二維 Integer 數(shù)組。Dim Matrix(3, 4) As Integer'MyMatrix 是一個(gè)顯式指定了上下界'的三維 double 數(shù)組。Dim MyMatrix(1 To 5, 4 To 9, 3 To 5) As Double'Birth

10、Day 是一個(gè)索引從 1 到 10 的 date 數(shù)組。Dim BirthDay(1 To 10) As Date 'MyArray 是一個(gè) variant 動(dòng)態(tài)數(shù)組。5、Exit 語(yǔ)句示例退出 Do.Loop、For.Next、Function、Sub 或 Property 代碼塊。語(yǔ)法 Do For Function Property Sub 語(yǔ)句的語(yǔ)法有以下幾種形式：語(yǔ)句描述 Do提供一種退出 Do.Loop 循環(huán)的方法，并且只能在 Do.Loop 循環(huán)中使用。 Do 會(huì)將控制權(quán)轉(zhuǎn)移到 Loop 語(yǔ)句之后的語(yǔ)句。當(dāng) Do 用在嵌套的 Do.Loop 循環(huán)中時(shí)， Do 會(huì)將控制權(quán)轉(zhuǎn)

11、移到 Do 所在位置的外層循環(huán)。 For提供一種退出 For 循環(huán)的方法，并且只能在 For.Next 或 For Each.Next 循環(huán)中使用。 For 會(huì)將控制權(quán)轉(zhuǎn)移到 Next 之后的語(yǔ)句。當(dāng) For 用在嵌套的 For 循環(huán)中時(shí)， For 將控制權(quán)轉(zhuǎn)移到 For 所在位置的外層循環(huán)。 Function立即從包含該語(yǔ)句的 Function 過(guò)程中退出。程序會(huì)從調(diào)用 Function 的語(yǔ)句之后的語(yǔ)句繼續(xù)執(zhí)行。 Property立即從包含該語(yǔ)句的 Property 過(guò)程中退出。程序會(huì)從調(diào)用 Property 過(guò)程的語(yǔ)句之后的語(yǔ)句繼續(xù)執(zhí)行。 Sub立即從包含該語(yǔ)句的 Sub 過(guò)程中退出。程

12、序會(huì)從調(diào)用 Sub 過(guò)程的語(yǔ)句之后的語(yǔ)句繼續(xù)執(zhí)行。說(shuō)明不要將 語(yǔ)句與 End 語(yǔ)句搞混了。 并不說(shuō)明一個(gè)結(jié)構(gòu)的終止。Exit 語(yǔ)句示例本示例使用 Exit 語(yǔ)句退出 For.Next 循環(huán)、Do.Loop 循環(huán)及子過(guò)程。Sub ExitStatementDemo()Dim I, MyNum Do ' 建立無(wú)窮循環(huán)。 For I = 1 To 1000 ' 循環(huán) 1000 次。 MyNum = Int(Rnd * 1000) ' 生成一隨機(jī)數(shù)碼。 Select Case MyNum ' 檢查隨機(jī)數(shù)碼。 Case 7: Exit For ' 如果是 7，退出

13、 For.Next 循環(huán)。 Case 29: Exit Do ' 如果是 29，退出 Do.Loop 循環(huán)。 Case 54: Exit Sub ' 如果是 54，退出子過(guò)程。 End Select Next I LoopEnd Sub6、For.Next 語(yǔ)句以指定次數(shù)來(lái)重復(fù)執(zhí)行一組語(yǔ)句。For.Next語(yǔ)法 counter = start To end Step stepstatementsExit statements counter 語(yǔ)句的語(yǔ)法具有以下幾個(gè)部分：部分描述counter必要參數(shù)。用做循環(huán)計(jì)數(shù)器的數(shù)值變量。這個(gè)變量不能是布爾或數(shù)組元素。start必要參數(shù)。c

14、ounter 的初值。End必要參數(shù)，counter 的終值。Step可選參數(shù)。counter 的步長(zhǎng)。如果沒(méi)有指定，則 step 的缺省值為 1。Statements可選參數(shù)。放在 和 之間的一條或多條語(yǔ)句，它們將被執(zhí)行指定的次數(shù)。說(shuō)明step 參數(shù)可以是正數(shù)或負(fù)數(shù)。step 參數(shù)值決定循環(huán)的執(zhí)行情況，如下所示：值循環(huán)執(zhí)行，如果正數(shù)或 0counter <= end負(fù)數(shù)counter >= end當(dāng)所有循環(huán)中的語(yǔ)句都執(zhí)行后，step 的值會(huì)加到 counter 中。此時(shí)，循環(huán)中的語(yǔ)句可能會(huì)再次執(zhí)行（基于循環(huán)開(kāi)始執(zhí)行時(shí)同樣的測(cè)試），也可能是退出循環(huán)并從 語(yǔ)句之后的語(yǔ)句繼續(xù)執(zhí)行。提示

15、 在循環(huán)中改變 counter 的值，將會(huì)使程序代碼的閱讀和調(diào)試變得更加困難。循環(huán)中可以在任何位置放置任意個(gè) Exit 語(yǔ)句，隨時(shí)退出循環(huán)。 Exit 經(jīng)常在條件判斷之后使用，例如 If.Then，并將控制權(quán)轉(zhuǎn)移到緊接在 之后的語(yǔ)句?？梢詫⒁粋€(gè) 循環(huán)放置在另一個(gè) 循環(huán)中，組成嵌套循環(huán)。不過(guò)在每個(gè)循環(huán)中的 counter 要使用不同的變量名。下面的體系結(jié)構(gòu)是正確的： I = 1 To 10 J = 1 To 10 K = 1 To 10 . K J I注意 如果省略 語(yǔ)句中的 counter，就像 counter 存在時(shí)一樣執(zhí)行。但如果 語(yǔ)句在它相對(duì)應(yīng)的 語(yǔ)句之前出現(xiàn)，則會(huì)產(chǎn)生錯(cuò)誤。For.Ne

16、xt 語(yǔ)句示例本示例使用 For.Next 語(yǔ)句創(chuàng)建一個(gè)字符串，其內(nèi)容為由 0 到 9 的十個(gè)數(shù)字所組成的字符串，每個(gè)字符串之間用空格隔開(kāi)。外層循環(huán)使用一個(gè)變量當(dāng)作循環(huán)計(jì)數(shù)器，每循環(huán)一次，變量值減一。Dim Words, Chars, MyStringFor Words = 10 To 1 Step -1 ' 建立 10 次循環(huán)。 For Chars = 0 To 9 ' 建立 10 次循環(huán)。 MyString = MyString & Chars ' 將數(shù)字添加到字符串中。 Next Chars ' Increment counter MyString

17、 = MyString & " " ' 添加一個(gè)空格。Next Words7、If.Then.Else 語(yǔ)句根據(jù)表達(dá)式的值有條件地執(zhí)行一組語(yǔ)句。語(yǔ)法 condition statements elsestatements或者，可以使用塊形式的語(yǔ)法： condition statementsElseIf condition-n elseifstatements .elsestatementsEnd . 語(yǔ)句的語(yǔ)法具有以下幾個(gè)部分：部分描述condition必要參數(shù)。一個(gè)或多個(gè)具有下面兩種類型的表達(dá)式：數(shù)值表達(dá)式或字符串表達(dá)式，其運(yùn)算結(jié)果為 True 或 Fal

18、se。如果 condition 為 Null，則 condition 會(huì)視為 False。TypeOf objectname Is objecttype 形式的表達(dá)式。其中的 objectname 是任何對(duì)象的引用，而 objecttype 則是任何有效的對(duì)象類型。如果 objectname 是 objecttype 所指定的一種對(duì)象類型，則表達(dá)式為 True，否則為False。statements在塊形式中是可選參數(shù)；但是在單行形式中，且沒(méi)有 子句時(shí)，則為必要參數(shù)。一條或多條以冒號(hào)分開(kāi)的語(yǔ)句，它們?cè)?condition 為 True 時(shí)執(zhí)行。8、Input # 語(yǔ)句從已打開(kāi)的順序文件中讀出數(shù)

19、據(jù)并將數(shù)據(jù)指定給變量。語(yǔ)法 #filenumber, varlist # 語(yǔ)句的語(yǔ)法具有以下幾個(gè)部分：部分描述filenumber必要。任何有效的文件號(hào)。varlist必要。用逗號(hào)分界的變量列表，將文件中讀出的值分配給這些變量；這些變量不可能是一個(gè)數(shù)組或?qū)ο笞兞?。但是，可以使用變量描述?shù)組元素或用戶定義類型的元素。說(shuō)明通常用 Write # 將 # 語(yǔ)句讀出的數(shù)據(jù)寫(xiě)入文件。該語(yǔ)句只能用于以 或 Binary 方式打開(kāi)的文件。在讀出數(shù)據(jù)時(shí)不經(jīng)修改就可直接將標(biāo)準(zhǔn)的字符串或數(shù)值數(shù)據(jù)指定給變量。下表說(shuō)明如何處理其它輸入數(shù)據(jù)：數(shù)據(jù)指定給變量的值分隔逗號(hào)或空白行Empty#NULL#Null#TRUE#

20、or #FALSE#True 或 False#yyyy-mm-dd hh:mm:ss#用表達(dá)式表示的日期與/或時(shí)間#ERROR errornumber#errornumber（此變量是一個(gè) Variant，用來(lái)標(biāo)記錯(cuò)誤）輸入數(shù)據(jù)中的雙引號(hào)符號(hào) (" ") 將被忽略。文件中數(shù)據(jù)項(xiàng)目的順序必須與 varlist 中變量的順序相同，而且與相同數(shù)據(jù)類型的變量匹配。如果變量為數(shù)值類型而數(shù)據(jù)不是數(shù)值類型，則指定變量的值為零。在輸入數(shù)據(jù)項(xiàng)目時(shí)，如果已到達(dá)文件結(jié)尾，則會(huì)終止輸入，并產(chǎn)生一個(gè)錯(cuò)誤。注意 為了能夠用 # 語(yǔ)句將文件的數(shù)據(jù)正確讀入到變量中，在將數(shù)據(jù)寫(xiě)入文件時(shí)，要使用 Write

21、# 語(yǔ)句而不使用 Print # 語(yǔ)句。使用 Write # 語(yǔ)句可以確保將各個(gè)單獨(dú)的數(shù)據(jù)域正確分隔開(kāi)。9、Input # 語(yǔ)句示例本示例使用 Input # 語(yǔ)句將文件內(nèi)的數(shù)據(jù)讀入兩個(gè)變量中。本示例假設(shè) TESTFILE文件內(nèi)含數(shù)行以 Write # 語(yǔ)句寫(xiě)入的數(shù)據(jù)；也就是說(shuō)，每一行數(shù)據(jù)中的字符串部分都是用雙引號(hào)括起來(lái)，而與數(shù)字用逗號(hào)隔開(kāi)，例如，（"Hello", 234）。Dim MyString, MyNumberOpen "TESTFILE" For Input As #1 ' 打開(kāi)輸入文件。Do While Not EOF(1) 

22、9; 循環(huán)至文件尾。 Input #1, MyString, MyNumber ' 將數(shù)據(jù)讀入兩個(gè)變量。 Debug.Print MyString, MyNumber ' 在立即窗口中顯示數(shù)據(jù)。LoopClose #1 ' 關(guān)閉文件。10、Load 語(yǔ)句把窗體或控件加載到內(nèi)存中。語(yǔ)法 objectobjec 所在處是要加載的 Form 對(duì)象、MDIForm 對(duì)象或控件數(shù)組元素的名稱。說(shuō)明除非在加載窗體時(shí)不需要顯示窗體，否則對(duì)于窗體不需要使用 語(yǔ)句。在窗體還未被加載時(shí)，對(duì)窗體的任何引用（在 Set 或 If.TypeOf 語(yǔ)句以外）會(huì)自動(dòng)加載該窗體。例如，Show 方法在

23、顯示窗體前會(huì)先加載它。一旦窗體被加載，不管它是否可見(jiàn)，它的屬性及控件會(huì)被應(yīng)用程序所改變。在某些情況下，也許需要在初始化時(shí)加載所有的窗體并在以后需要它們的時(shí)候顯示它們。當(dāng) Visual Basic 加載 Form 對(duì)象時(shí)，先把窗體屬性設(shè)置為初始值，再執(zhí)行 事件過(guò)程。當(dāng)應(yīng)用程序開(kāi)始運(yùn)行時(shí)，Visual Basic 自動(dòng)加載并顯示應(yīng)用程序的啟動(dòng)窗體。在加載 MDIChild 屬性為 True 的 Form（換言之，子窗體）時(shí)，而此時(shí) MDIForm 還未被加載，那么會(huì)在子窗體前自動(dòng)加載 MDIForm。因?yàn)?MDI 子窗體不能被隱藏起來(lái)，所以在 Form_ 事件過(guò)程結(jié)束時(shí)馬上可以見(jiàn)到 MID 子窗體

24、。由 Visual Basic 函數(shù)產(chǎn)生的標(biāo)準(zhǔn)對(duì)話框，諸如 MsgBox 和 InputBox，不需要加載、顯示或卸載即可簡(jiǎn)單地直接調(diào)用。Load 語(yǔ)句示例這個(gè)示例使用 Load 語(yǔ)句加載 Form 對(duì)象。要試用此示例，在 Form 對(duì)象的聲明部分粘貼以下代碼，然后運(yùn)行此例并單擊該 Form 對(duì)象。Private Sub Form_Click () Dim Answer, Msg as String ' 聲明變量。 Unload Form1 ' 卸載窗體。 Msg = "Form1 has been unloaded. Choose Yes to load and &

25、quot; Msg = Msg & "display the form. Choose No to load the form " Msg = Msg & "and leave it invisible." Answer = MsgBox(Msg, vbYesNo) ' 獲得用戶響應(yīng)。 If Answer = vbYes Then ' 測(cè)試應(yīng)答。 Show ' 如果回答 Yes，則顯示窗體。 Else Load Form1 ' 如果回答 NO，則僅加載窗體。 Msg = "Form1 is now

26、 loaded. Choose OK to display it." MsgBox Msg ' 顯示消息。 Show ' 顯示窗體。 End IfEnd Sub11、Mid 語(yǔ)句在一 Variant (String) 變量中以另一個(gè)字符串中的字符替換其中指定數(shù)量的字符。語(yǔ)法(stringvar, start, length) = string 語(yǔ)句的語(yǔ)法具有下面幾個(gè)部分：部分描述stringvar必要參數(shù)。被更改的字符串變量名。start必要參數(shù)；Variant (Long)。stringvar 中被替換的字符開(kāi)頭位置。length可選參數(shù)；Variant (Long

27、)。被替換的字符數(shù)。如果省略，string將全部用上。string必要參數(shù)。字符串表達(dá)式，替換部分 stringvar 的字符串。說(shuō)明被替換的字符數(shù)量總是小于或等于 stringvar 的字符數(shù)。注意 MidB 語(yǔ)句作用于包含在字符串中的字節(jié)數(shù)據(jù)。在 MidB 語(yǔ)句中，start 指定 stringvar 中被替換的字節(jié)開(kāi)頭位置，而 length 為替換的字節(jié)數(shù)。Mid 語(yǔ)句示例本示例使用 Mid 語(yǔ)句將某字符串中的幾個(gè)字符替換為其他的字符。Dim MyStringMyString = "The dog jumps" ' 設(shè)置字符串初值。Mid(MyString,

28、5, 3) = "fox" ' MyString = "The fox jumps"。Mid(MyString, 5) = "cow" ' MyString = "The cow jumps"。Mid(MyString, 5) = "cow jumped over" ' MyString = "The cow jumpe"。Mid(MyString, 5, 3) = "duck" ' MyString = "The

29、 duc jumpe"。12、Open 語(yǔ)句能夠?qū)ξ募斎?輸出 (I/O)。語(yǔ)法 pathname For mode Access access lock As #filenumber Len=reclength 語(yǔ)句的語(yǔ)法具有以下幾個(gè)部分：部分描述pathname必要。字符串表達(dá)式，指定文件名，該文件名可能還包括目錄、文件夾及驅(qū)動(dòng)器。mode必要。關(guān)鍵字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，則以 Random 訪問(wèn)方式打開(kāi)文件。access可選。關(guān)鍵字，說(shuō)明打開(kāi)的文件可以進(jìn)行的操作，有 Read、Writ

30、e、或 Read Write 操作。lock可選。關(guān)鍵字，說(shuō)明限定于其它進(jìn)程打開(kāi)的文件的操作，有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。filenumber必要。一個(gè)有效的文件號(hào)，范圍在 1 到 511 之間。使用 FreeFile 函數(shù)可得到下一個(gè)可用的文件號(hào)。reclength可選。小于或等于 32，767（字節(jié)）的一個(gè)數(shù)。對(duì)于用隨機(jī)訪問(wèn)方式打開(kāi)的文件，該值就是記錄長(zhǎng)度。對(duì)于順序文件，該值就是緩沖字符數(shù)。說(shuō)明對(duì)文件做任何 I/O 操作之前都必須先打開(kāi)文件。 語(yǔ)句分配一個(gè)緩沖區(qū)供文件進(jìn)行 I/O 之用，并決定緩沖區(qū)所使用的訪問(wèn)方式。

31、如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打開(kāi)文件時(shí)，可以建立這一文件。如果文件已由其它進(jìn)程打開(kāi)，而且不允許指定的訪問(wèn)類型，則 操作失敗，而且會(huì)有錯(cuò)誤發(fā)生。如果 mode 是 Binary 方式，則 Len 子句會(huì)被忽略掉。重要 在 Binary、Input 和 Random 方式下可以用不同的文件號(hào)打開(kāi)同一文件，而不必先將該文件關(guān)閉。在 Append 和 Output 方式下，如果要用不同的文件號(hào)打開(kāi)同一文件，則必須在打開(kāi)文件之前先關(guān)閉該文件。13、Open 語(yǔ)句示例本示例示范 Open 語(yǔ)句的不同用法來(lái)做到文件的輸

32、出與輸入。下列代碼以順序輸入模式打開(kāi) TESTFILE 文件。Open "TESTFILE" For Input As #1' 若要以其他方式打開(kāi)文件，必需先關(guān)閉此文件。Close #1下列代碼以只允許寫(xiě)操作的二進(jìn)制方式打開(kāi)文件。Open "TESTFILE" For Binary Access Write As #1' 若要以其他方式打開(kāi)文件，必需先關(guān)閉此文件。Close #1下列代碼以隨機(jī)方式打開(kāi)文件，文件中含有用戶自定義數(shù)據(jù)類型 Record 的記錄。Type Record ' 定義用戶自定義數(shù)據(jù)類型。 ID As Inte

33、ger Name As String * 20End TypeDim MyRecord As Record ' 聲明變量。Open "TESTFILE" For Random As #1 Len = Len(MyRecord)' 若要以其他方式打開(kāi)文件，必需先關(guān)閉此文件。Close #1下列代碼以順序輸出方式打開(kāi)文件；任何過(guò)程都可以讀寫(xiě)該文件。Open "TESTFILE" For Output Shared As #1' 若要以其他方式打開(kāi)文件，必需先關(guān)閉此文件。Close #1下列代碼以只允許讀的二進(jìn)制方式打開(kāi)文件；其他過(guò)程不

34、可以讀該文件。Open "TESTFILE" For Binary Access Read Lock Read As #114、Print # 語(yǔ)句將格式化顯示的數(shù)據(jù)寫(xiě)入順序文件中。語(yǔ)法 #filenumber, outputlist # 語(yǔ)句的語(yǔ)法具有以下幾個(gè)部分：部分描述filenumber必要。任何有效的文件號(hào)。outputlist可選。表達(dá)式或是要打印的表達(dá)式列表。設(shè)置outputlist 參數(shù)的設(shè)置如下：Spc(n) | Tab(n) expression charpos設(shè)置描述Spc(n)用來(lái)在輸出數(shù)據(jù)中插入空白字符，而 n 指的是要插入的空白字符數(shù)。Tab(n

35、)用來(lái)將插入點(diǎn)定位在某一絕對(duì)列號(hào)上，這里，n 是列號(hào)。使用無(wú)參數(shù)的 Tab 將插入點(diǎn)定位在下一個(gè)打印區(qū)的起始位置。expression要打印的數(shù)值表達(dá)式或字符串表達(dá)式。charpos指定下一個(gè)字符的插入點(diǎn)。使用分號(hào)將插入點(diǎn)定位在上一個(gè)顯示字符之后。用 Tab(n) 將插入點(diǎn)定位在某一絕對(duì)的列號(hào)上，用無(wú)參數(shù)的 Tab 將插入點(diǎn)定位在下一個(gè)打印區(qū)的起始處。如果省略 charpos，則在下一行打印下一個(gè)字符。說(shuō)明通常用 Line Input # 或 Input 讀出 # 在文件中寫(xiě)入的數(shù)據(jù)。如果省略參數(shù) outputlist，而且，filenumber 之后只含有一個(gè)列表分隔符，則將一空白行打印到文

36、件中。多個(gè)表達(dá)式之間可用一個(gè)空白或一個(gè)分號(hào)隔開(kāi)?？瞻着c分號(hào)等效。對(duì)于 Boolean 類型的數(shù)據(jù)，打印的是 True 或 False。無(wú)論在什么國(guó)別，都不將 True 和 False 這兩個(gè)關(guān)鍵字翻譯出來(lái)。使用操作系統(tǒng)所能夠辨認(rèn)的標(biāo)準(zhǔn)短日期格式可將 Date 類型的數(shù)據(jù)寫(xiě)入文件中。在未指定日期或時(shí)間部件或這些部件的設(shè)置為零時(shí)，只將指定的部分寫(xiě)入文件中。如果 outputlist 的數(shù)據(jù)是 Empty，則不將任何數(shù)據(jù)寫(xiě)入文件。但是，如果 outputlist 的數(shù)據(jù)是 Null，則將 Null 寫(xiě)入文件。對(duì)于 Error 類型的數(shù)據(jù)而言，輸出的數(shù)據(jù)看起來(lái)與 Error errorcode 一樣。

37、而且無(wú)論在什么地區(qū)，都不將 Error 關(guān)鍵字翻譯出來(lái)。用 # 寫(xiě)入文件的所有數(shù)據(jù)都是國(guó)際通用的；也就是說(shuō)，可以正確利用十進(jìn)制分隔符將這些數(shù)據(jù)格式化。因?yàn)?# 將數(shù)據(jù)的圖像寫(xiě)入文件，所以必須將各項(xiàng)數(shù)據(jù)分隔開(kāi)來(lái)，以便正確打印。如果使用無(wú)參數(shù)的 Tab 將打印位置移動(dòng)到下一個(gè)打印區(qū)，則 # 也會(huì)將打印字段之間的空白寫(xiě)入文件中。注意 如果今后想用 Input # 語(yǔ)句讀出文件的數(shù)據(jù)，就要用 Write # 語(yǔ)句而不用 # 語(yǔ)句將數(shù)據(jù)寫(xiě)入文件。因?yàn)樵谑褂?Write # 時(shí)，將數(shù)據(jù)域分界就可確保每個(gè)數(shù)據(jù)域的完整性，因此可用 Input # 再將數(shù)據(jù)讀出來(lái)。使用 Write # 還能確保任何地區(qū)的數(shù)據(jù)都

38、被正確讀出。Print # 語(yǔ)句示例本示例使用 Print # 語(yǔ)句將數(shù)據(jù)寫(xiě)入一個(gè)文件。Open "TESTFILE" For Output As #1 ' 打開(kāi)輸出文件。Print #1, "This is a test" ' 將文本數(shù)據(jù)寫(xiě)入文件。Print #1, ' 將空白行寫(xiě)入文件。Print #1, "Zone 1"； Tab ； "Zone 2" ' 數(shù)據(jù)寫(xiě)入兩個(gè)區(qū)（print zones）。Print #1, "Hello" ； " &qu

39、ot; ； "World" ' 以空格隔開(kāi)兩個(gè)字符串。Print #1, Spc(5) ； "5 leading spaces " ' 在字符串之前寫(xiě)入五個(gè)空格。Print #1, Tab(10) ； "Hello" ' 將數(shù)據(jù)寫(xiě)在第十列。' 賦值 Boolean、Date、Null 及 Error 等。Dim MyBool, MyDate, MyNull, MyErrorMyBool = False : MyDate = #February 12, 1969# : MyNull = NullMyErr

40、or = CVErr(32767)' True、False、Null 及 Error 會(huì)根據(jù)系統(tǒng)的地區(qū)設(shè)置自動(dòng)轉(zhuǎn)換格式。' 日期將以標(biāo)準(zhǔn)的短式日期的格式顯示。Print #1, MyBool ； " is a Boolean value"Print #1, MyDate ； " is a date"Print #1, MyNull ； " is a null value"Print #1, MyError ； " is an error value"Close #1 ' 關(guān)閉文件。15、Ra

41、ndomize 語(yǔ)句初始化隨機(jī)數(shù)生成器。語(yǔ)法 number可選的 number 參數(shù)是 Variant 或任何有效的數(shù)值表達(dá)式。說(shuō)明 用 number 將 Rnd 函數(shù)的隨機(jī)數(shù)生成器初始化，該隨機(jī)數(shù)生成器給 number 一個(gè)新的種子值。如果省略 number，則用系統(tǒng)計(jì)時(shí)器返回的值作為新的種子值。如果沒(méi)有使用 ，則（無(wú)參數(shù)的）Rnd 函數(shù)使用第一次調(diào)用 Rnd 函數(shù)的種子值。注意 若想得到重復(fù)的隨機(jī)數(shù)序列，在使用具有數(shù)值參數(shù)的 之前直接調(diào)用具有負(fù)參數(shù)值的 Rnd。使用具有同樣 number 值的 是不會(huì)得到重復(fù)的隨機(jī)數(shù)序列的。Randomize 語(yǔ)句示例本示例用 Randomize 語(yǔ)句初始

42、化隨機(jī)數(shù)生成器。由于忽略了數(shù)值參數(shù)， 所以 Randomize 用 Timer 函數(shù)的返回值作為新的隨機(jī)數(shù)種子值。Dim MyValueRandomize ' 對(duì)隨機(jī)數(shù)生成器做初始化的動(dòng)作。MyValue = Int(6 * Rnd) + 1) ' 生成 1 到 6 之間的隨機(jī)數(shù)值。16、Rem 語(yǔ)句用來(lái)在程序中包含注釋。語(yǔ)法 comment也可以使用如下語(yǔ)法：' commentcomment 參數(shù)是可選的，指要包括的任何注釋文本。在 關(guān)鍵字與 comment 之間要加一個(gè)空格。說(shuō)明如果使用行號(hào)或行標(biāo)簽，則可以從 GoTo 或 GoSub 語(yǔ)句轉(zhuǎn)到一個(gè) </fon

43、 17、Static 語(yǔ)句在過(guò)程級(jí)別中使用，用于聲明變量并分配存儲(chǔ)空間。在整個(gè)代碼運(yùn)行期間都能保留使用 語(yǔ)句聲明的變量的值。語(yǔ)法 varname(subscripts) As New type , varname(subscripts) As New type . . . 語(yǔ)句的語(yǔ)法包含下面部分：部分描述varname必需的。變量的名稱；遵循標(biāo)準(zhǔn)變量命名約定。subscripts可選的。數(shù)組變量的維數(shù)；最多可以定義 60 維的多維數(shù)組。subscripts 參數(shù)使用下面的語(yǔ)法：lower To upper ,lower To upper . . .如果不顯式指定 lower，則數(shù)組的下界由 O

44、ption Base 語(yǔ)句控制。如果沒(méi)有 Option Base 語(yǔ)句則下界為 0。New可選的。用它可以隱式地創(chuàng)建對(duì)象的關(guān)鍵字。如果使用 New 聲明對(duì)象變量，則在第一次引用該變量時(shí)將新建該對(duì)象的實(shí)例，因此不必使用 Set 語(yǔ)句來(lái)對(duì)該對(duì)象引用賦值。New 關(guān)鍵字不能用來(lái)聲明任何內(nèi)部數(shù)據(jù)類型的變量，也不能用來(lái)聲明從屬對(duì)象的實(shí)例。type可選的。變量的數(shù)據(jù)類型；可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（對(duì)變長(zhǎng)的字符串）、String * length（對(duì)定長(zhǎng)的字符串）、Obje

45、ct、Variant、用戶定義類型或?qū)ο箢愋汀Ｋ暶鞯拿總€(gè)變量都要有一個(gè)單獨(dú)的 As type 子句。說(shuō)明模塊的代碼開(kāi)始運(yùn)行后，使用 語(yǔ)句聲明的變量會(huì)一直保持其值，直至該模塊復(fù)位或重新啟動(dòng)。可以在非靜態(tài)的過(guò)程中使用 語(yǔ)句顯式聲明只在該過(guò)程內(nèi)可見(jiàn)，但具有與包含該過(guò)程定義的模塊相同生命期的變量。可以在過(guò)程中使用 語(yǔ)句來(lái)聲明在過(guò)程調(diào)用之間仍能保持其值的變量的數(shù)據(jù)類型。例如，下面的語(yǔ)句聲明了一個(gè)定長(zhǎng)的整型數(shù)組： EmployeeNumber(200) As Integer下面的語(yǔ)句為 worksheet 的新實(shí)例聲明了一個(gè)變量： X As New Worksheet如果在定義對(duì)象變量時(shí)沒(méi)有使用 New

46、 關(guān)鍵字，則在使用該變量之前，必須使用 Set 語(yǔ)句將一個(gè)已有的對(duì)象賦給這個(gè)引用對(duì)象的變量。在被賦值之前，所聲明的這個(gè)對(duì)象變量有一個(gè)特定值 Nothing，這個(gè)值表示該變量沒(méi)有指向任何對(duì)象的實(shí)例。若在聲明中使用了 New 關(guān)鍵字，則在第一次引用對(duì)象時(shí)將新建一個(gè)該對(duì)象的實(shí)例。如果不指定數(shù)據(jù)類型或?qū)ο箢愋?，且在模塊中沒(méi)有使用 Deftype 語(yǔ)句，則按缺省情況，定義該變量為 Variant 類型。注意 語(yǔ)句與 關(guān)鍵字很相似，但是針對(duì)不同的效果來(lái)使用的。如果使用 關(guān)鍵字（如 Sub CountSales ()）來(lái)聲明一個(gè)過(guò)程，則該過(guò)程中的所有局部變量的存儲(chǔ)空間都只分配一次，且這些變量的值在整個(gè)程序運(yùn)

47、行期間都存在。對(duì)非靜態(tài)過(guò)程而言，該過(guò)程每次被調(diào)用時(shí)都要為其變量分配存儲(chǔ)空間，當(dāng)該過(guò)程結(jié)束時(shí)都要釋放其變量的存儲(chǔ)空間。 語(yǔ)句則用來(lái)在非靜態(tài)的過(guò)程中聲明特定的變量，以使其在程序運(yùn)行期間能保持其值。在初始化變量時(shí)，數(shù)值變量被初始化為 0，變長(zhǎng)的字符串被初始化為一個(gè)零長(zhǎng)度的字符串 ("")，而定長(zhǎng)的字符串則用 0 填充。Variant 變量被初始化為 Empty。用戶自定義類型的變量的每個(gè)元素作為各自獨(dú)立的變量進(jìn)行初始化。注意 如果在過(guò)程中使用 語(yǔ)句，應(yīng)和其它的聲明語(yǔ)句（如 Dim）一樣將其放在過(guò)程的開(kāi)始。Static 語(yǔ)句示例該示例使用 Static 語(yǔ)句，可以在模塊代碼運(yùn)行期間

48、一直保持變量的值。'函數(shù)定義。Function KeepTotal(Number) '只有 Accumulate 變量能在調(diào)用過(guò)程之間保持其值。 Static Accumulate Accumulate = Accumulate + Number KeepTotal = AccumulateEnd Function'Static 函數(shù)定義。Static Function MyFunction(Arg1, Arg2, Arg3) '所有局部變量在函數(shù)調(diào)用之間都能保持其值。 Accumulate = Arg1 + Arg2 + Arg3 Half = Accumul

49、ate / 2 MyFunction = HalfEnd Function18、Unload 語(yǔ)句從內(nèi)存中卸載窗體或控件。語(yǔ)法 objectobject 所在處是要卸載的 Form 對(duì)象或控件數(shù)組元素的名稱。說(shuō)明當(dāng)所占內(nèi)存另有它用，或需要重新設(shè)置窗體、控件的屬性為初始值時(shí)，就有必要卸載窗體或控件。在卸載窗體前，會(huì)發(fā)生 Query_ 事件過(guò)程，然后是 Form_ 事件過(guò)程。在其中任一過(guò)程中設(shè)置 cancel 參數(shù)為 True 可防止窗體被卸載。若為 MDIForm 對(duì)象，先發(fā)生 MDIForm 對(duì)象的 Query_ 事件過(guò)程，接著是各 MDI 子窗體 的 Query_ 事件過(guò)程和 Form_ 事

50、件過(guò)程，最后是 MDIForm 對(duì)象的 Form_ 事件過(guò)程。當(dāng)窗體卸載之后，所有在運(yùn)行時(shí) 放到該窗體上的控件都不再是可訪問(wèn)的。在設(shè)計(jì)時(shí)放到該窗體上的控件將保持不變；但是，當(dāng)窗體重新加載時(shí)，在運(yùn)行時(shí)對(duì)這些控件及其屬性的任何更改將丟失。所有對(duì)于窗體屬性的更改也將丟失。對(duì)窗體上任何控件的訪問(wèn)會(huì)導(dǎo)致窗體重新加載。注意 在卸載窗體時(shí)，只有顯示的部件被卸載。和該窗體模塊相關(guān)聯(lián)的代碼還保持在內(nèi)存中。只有在運(yùn)行時(shí)添加到窗體上的控件數(shù)組元素才能用 語(yǔ)句卸載。重新加載被卸載的控件時(shí)，其屬性會(huì)被重新初始化。Unload 語(yǔ)句示例這個(gè)示例使用 Unload 語(yǔ)句來(lái)卸載 Form 對(duì)象。在運(yùn)行此例前，在 Form 對(duì)

51、象的聲明部分粘貼以下代碼，然后運(yùn)行此例并單擊該 Form 對(duì)象。Private Sub Form_Click () Dim Answer, Msg ' 聲明變量。 Unload Form1 ' 卸載窗體。 Msg = "Form1 has been unloaded. Choose Yes to load and " Msg = Msg & "display the form. Choose No to load the form " Msg = Msg & "and leave it invisible.&qu

52、ot; Answer = MsgBox(Msg, vbYesNo) ' 獲得用戶響應(yīng)。 If Answer = vbYes Then ' 測(cè)試應(yīng)答。 Show ' 如果回答 Yes，則顯示窗體。 Else Load Form1 ' 如果回答 No，僅加載窗體。 Msg = "Form1 is now loaded. Choose OK to display it." MsgBox Msg ' 顯示信息。 Show ' 顯示窗體。 End IfEnd Sub19、While.Wend 語(yǔ)句 只要指定的條件為 True，則會(huì)重復(fù)執(zhí)

53、行一系列的語(yǔ)句。語(yǔ)法 conditionstatements 語(yǔ)句的語(yǔ)法具有以下幾個(gè)部分：部分描述condition必要參數(shù)。數(shù)值表達(dá)式或字符串表達(dá)式，其計(jì)算結(jié)果為 True 或 False。如果 condition 為 Null，則 condition 會(huì)視為 False。statements可選參數(shù)。一條或多條語(yǔ)句，當(dāng)條件為 True 時(shí)執(zhí)行。說(shuō)明如果 condition 為 True，則所有的 statements 都會(huì)執(zhí)行，一直執(zhí)行到 語(yǔ)句。然后再回到 語(yǔ)句，并再一次檢查 condition，如果 condition 還是為 True，則重復(fù)執(zhí)行。如果不為 True，則程序會(huì)從 語(yǔ)句之

54、后的語(yǔ)句繼續(xù)執(zhí)行。 循環(huán)也可以是多層的嵌套結(jié)構(gòu)。每個(gè) 匹配最近的 語(yǔ)句。提示 Do.Loop 語(yǔ)句提供了一種結(jié)構(gòu)化與適應(yīng)性更強(qiáng)的方法來(lái)執(zhí)行循環(huán)。While.Wend 語(yǔ)句示例本示例使用 While.Wend 語(yǔ)句來(lái)增加計(jì)數(shù)變量的值。如果條件判斷值為 True，則循環(huán)內(nèi)的語(yǔ)句將一直執(zhí)行下去。Dim CounterCounter = 0 ' 設(shè)置變量初值。While Counter < 20 ' 測(cè)試計(jì)數(shù)器的值。 Counter = Counter + 1 ' 將計(jì)數(shù)器的值加一。Wend ' 當(dāng) Counter > 19 時(shí)則循環(huán)終止。Debug.Pri

55、nt Counter ' 在“立即”窗口中顯示數(shù)字 20。20、Write # 語(yǔ)句 將數(shù)據(jù)寫(xiě)入順序文件。語(yǔ)法 #filenumber, outputlist # 語(yǔ)句的語(yǔ)法具有以下幾個(gè)部分：部分描述filenumber必要。任何有效的文件號(hào)。outputlist可選。要寫(xiě)入文件的數(shù)值表達(dá)式或字符串表達(dá)式，用一個(gè)或多個(gè)逗號(hào)將這些表達(dá)式分界。說(shuō)明通常用 Input # 從文件讀出 # 寫(xiě)入的數(shù)據(jù)。如果省略 outputlist，并在 filenumber 之后加上一個(gè)逗號(hào)，則會(huì)將一個(gè)空白行打印到文件中。多個(gè)表達(dá)式之間可用空白、分號(hào)或逗號(hào)隔開(kāi)?？瞻缀头痔?hào)等效。用 # 將數(shù)據(jù)寫(xiě)入文件時(shí)將遵循幾個(gè)通用的約定，使得無(wú)論什么國(guó)別都可用 Input # 讀出并正確解釋數(shù)據(jù)： · 在寫(xiě)入數(shù)值數(shù)據(jù)時(shí)總使用句號(hào)作為十進(jìn)制分隔符。· 對(duì)于 Boolean 類型的數(shù)據(jù)，或者打印 #TRUE# 或者打印 #FALSE#。無(wú)論在什么地區(qū)，都不將 True 和 False 這兩個(gè)關(guān)鍵字翻譯出來(lái)。· 使用通用的日期格式將 Date 類型的數(shù)據(jù)寫(xiě)入文件中。當(dāng)日