so true

5.4  基本語(yǔ)句

5.4.1  注釋語(yǔ)句

在使用注釋語(yǔ)句之前必須先了解注釋的作用，注釋不僅僅是對(duì)程序的解釋?zhuān)袝r(shí)它對(duì)于程序的調(diào)試也非常有用，譬如說(shuō)可以利用注釋屏蔽一條語(yǔ)句以觀察變化，發(fā)現(xiàn)問(wèn)題和錯(cuò)誤。以后注釋語(yǔ)句將是我們?cè)诰幊汤镒罱?jīng)常用到的語(yǔ)句之一。

在VB里，注釋語(yǔ)句有兩種，一種是用“Rem”關(guān)鍵字，這跟DOS里的批處理文件的用法一樣，還有一種是利用單引號(hào)“’”，例如：

‘Dim a As String 與

Rem Dim a As String 的作用是一致的。

5.4.2  順序語(yǔ)句

順序語(yǔ)句就是依順序逐條執(zhí)行的語(yǔ)句。在程序中沒(méi)有流程控制語(yǔ)句的情況下，程序中各語(yǔ)句將按順序逐一執(zhí)行，只有在上一條語(yǔ)句執(zhí)行完畢后，才能執(zhí)行下一條語(yǔ)句。

5.4.3  條件語(yǔ)句

    任何一種程序語(yǔ)言都離不開(kāi)流程控制語(yǔ)句，程序中控制流程的語(yǔ)句有兩種：條件與循環(huán)。掌握這兩種語(yǔ)句是學(xué)習(xí)編程關(guān)鍵的一步，下面首先介紹VB中的條件語(yǔ)句。

5.4.3.1  IF語(yǔ)句

在條件語(yǔ)句里，我們先來(lái)學(xué)習(xí)“If……Then……”語(yǔ)句。

語(yǔ)法：

If <條件> Then

<語(yǔ)句>

End If

如果希望條件不滿(mǎn)足時(shí)執(zhí)行另一語(yǔ)句，可以以增加一個(gè)else語(yǔ)句：

If <條件> Then

<語(yǔ)句>

else

<語(yǔ)句>

End If

如果Then后面所跟的語(yǔ)句只有一條，可以寫(xiě)成：

If <條件> Then <語(yǔ)句>

而不用End If。

還可以在Else里在嵌套If語(yǔ)句，如：

If <條件> Then

  <語(yǔ)句>

Else If <條件> Then

  <語(yǔ)句>

……

Else

  <語(yǔ)句>

End If

判斷語(yǔ)句

1）If…Then…Else語(yǔ)句

If condition Then [statements][Else elsestatements]
如1：If A>B And C<D Then A=B+2 Else A=C+2
如2：If x>250 Then x=x-100
或者，可以使用塊形式的語(yǔ)法：
If condition Then
[statements]
[ElseIf condition-n Then
[elseifstatements] ...
[Else
[elsestatements]]
End If
如1:
If Number < 10 Then
Digits = 1
ElseIf Number < 100 Then
Digits = 2
Else
Digits = 3
End If

2）Select Case…Case…End Case語(yǔ)句

如1：
Select Case Pid
Case “A101”
Price=200
Case “A102”
Price=300
……
Case Else
Price=900
End Case

3）Choose 函數(shù)： choose(index, choce-1,choice-2,…,choice-n)，可以用來(lái)選擇自變量串列中的一個(gè)值，并將其返回，index 必要參數(shù)，數(shù)值表達(dá)式或字段，它的運(yùn)算結(jié)果是一個(gè)數(shù)值，且界于 1 和可選擇的項(xiàng)目數(shù)之間。choice 必要參數(shù)，Variant表達(dá)式，包含可選擇項(xiàng)目的其中之一。如： GetChoice? = Choose(Ind, "Speedy", "United", "Federal")

4）Switch函數(shù)： Switch(expr-1, value-1[, expr-2, value-2 _ [, expr-n,value-n]]) switch函數(shù)和Choose函數(shù)類(lèi)似，但它是以?xún)蓚€(gè)一組的方式返回所要的值，在串列中，最先為T(mén)RUE的值會(huì)被返回。 expr 必要參數(shù)，要加以計(jì)算的 Variant 表達(dá)式。value 必要參數(shù)。如果相關(guān)的表達(dá)式為 True，則返回此部分的數(shù)值或表達(dá)式，沒(méi)有一個(gè)表達(dá)式為 True，Switch 會(huì)返回一個(gè) Null值。

9,循環(huán)語(yǔ)句

1）For Next語(yǔ)句 以指定次數(shù)來(lái)重復(fù)執(zhí)行一組語(yǔ)句

For counter = start To end [Step step]     ' step 缺省值為1
[statements]
[Exit For]
[statements]
Next [counter]
如1：
For 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 = MyString & " "           ' 添加一個(gè)空格
Next Words

2）For Each…Next語(yǔ)句:主要功能是對(duì)一個(gè)數(shù)組或集合對(duì)象進(jìn)行，讓所有元素重復(fù)執(zhí)行一次語(yǔ)句

For Each element In group
Statements
[Exit for]
Statements
Next [element]
如1：
For Each rang2 In range1
With range2.interior
.colorindex=6
.pattern=xlSolid
End with
Next
這上面一例中用到了 With…End With 語(yǔ)句，目的是省去對(duì)象多次調(diào)用，加快速度；語(yǔ)法為：
With object
[statements]
End With

3）Do…loop語(yǔ)句 在條件為true時(shí)，重復(fù)執(zhí)行區(qū)塊命令

Do {while |until} condition      ' while 為當(dāng)型循環(huán)，until為直到型循環(huán)，顧名思義，不多說(shuō)啦
Statements
Exit do
Statements
Loop
或者使用下面語(yǔ)法
Do                                ' 先do 再判斷，即不論如何先干一次再說(shuō)
Statements
Exit do
Statements
Loop {while |until} condition

10,其他類(lèi)語(yǔ)句和錯(cuò)誤語(yǔ)句處理

A, 其他循環(huán)語(yǔ)句:結(jié)構(gòu)化程序使用以上判斷和循環(huán)語(yǔ)句已經(jīng)足夠，建議不要輕易使用下面的語(yǔ)句，雖然VBA還支持。

1)Goto line 該語(yǔ)句為跳轉(zhuǎn)到line語(yǔ)句行

2)On expression gosub destinatioinlist 或者 on expression goto destinationlist 語(yǔ)句為根據(jù) exprssion表達(dá)式值來(lái)跳轉(zhuǎn)到所要的行號(hào)或行標(biāo)記

3)Gosub line…line…Return語(yǔ)句， Return 返回到 Gosub line行，如下例：

Sub gosubtry()
Dim num
Num=inputbox(“輸入一個(gè)數(shù)字，此值將會(huì)被判斷循環(huán)”)
If num>0 then Gosub Routine1 ：Debug.print num：Exit sub
Routine1:
Num=num/5
Return
End sub

4)while…wend語(yǔ)句，只要條件為T(mén)RUE，循環(huán)就執(zhí)行，這是以前VB老語(yǔ)法保留下來(lái)的，如下例： while condition 'while I<50 [statements] 'I=I+1 wend 'Wend

B, 錯(cuò)誤語(yǔ)句處理:執(zhí)行階段有時(shí)會(huì)有錯(cuò)誤的情況發(fā)生，利用On Error語(yǔ)句來(lái)處理錯(cuò)誤，啟動(dòng)一個(gè)錯(cuò)誤的處理程序。語(yǔ)法如下：

On Error Goto Line　　　'當(dāng)錯(cuò)誤發(fā)生時(shí)，會(huì)立刻轉(zhuǎn)移到line行去
On Error Resume Next     '當(dāng)錯(cuò)誤發(fā)生時(shí)，會(huì)立刻轉(zhuǎn)移到發(fā)生錯(cuò)誤的下一行去
On Erro Goto 0                '當(dāng)錯(cuò)誤發(fā)生時(shí)，會(huì)立刻停止過(guò)程中任何錯(cuò)誤處理過(guò)程

5.5  過(guò)程

在程序設(shè)計(jì)中經(jīng)常會(huì)有重復(fù)的地方，可以把重復(fù)的部分獨(dú)立為一個(gè)過(guò)程，在使用時(shí)進(jìn)行調(diào)用，從而簡(jiǎn)化代碼編寫(xiě)，提高編程效率。過(guò)程可用于壓縮重復(fù)任務(wù)或共享任務(wù)。用過(guò)程編程有兩大好處：

·         過(guò)程可使程序劃分成離散的邏輯單元，每個(gè)單元都比無(wú)過(guò)程的整個(gè)程序容易調(diào)試。   

·         一個(gè)程序中的過(guò)程，往往不必修改或只需稍作改動(dòng)，便可以成為另一個(gè)程序的構(gòu)件。

在 Visual Basic 中使用下列幾種過(guò)程：

1．子（Sub）過(guò)程

[Private | Public ] [Static] Sub name [（arglist）]

       [statements]

       [Exit Sub]

       [statements]

End Sub

Sub 語(yǔ)句的語(yǔ)法包含下面部分：

Public|Private  、Static 聲明函數(shù)的作用域、生存期。

Name：必需的。Sub 的名稱(chēng)，遵循標(biāo)準(zhǔn)的變量命名約定。

Arglist：可選的。代表在調(diào)用時(shí)要傳遞給 Sub 過(guò)程的參數(shù)的變量列表。多個(gè)變量則用逗號(hào)隔開(kāi)。

Statements：可選的。Sub 過(guò)程中所執(zhí)行的任何語(yǔ)句組。事件過(guò)程或其他過(guò)程可按名稱(chēng)調(diào)用子過(guò)程。

子過(guò)程能夠接收參數(shù)，并可用于完成過(guò)程中的任務(wù)并返回一些數(shù)值。但是，與函數(shù)過(guò)程不同，子過(guò)程不返回與其特定子過(guò)程名相關(guān)聯(lián)的值（盡管它們能夠通過(guò)變量名返回?cái)?shù)值）。子過(guò)程一般用于接收或處理輸入數(shù)據(jù)、顯示輸出或者設(shè)置屬性。

    2．函數(shù)（Function） 過(guò)程

[Public | Private ] [Static] Function name [（arglist）] [As type]

       [statements]

       [name = expression]

       [Exit Function]

       [statements]

       [name = expression]

End Function

各參數(shù)分述如下：

Public|Private  、Static：聲明函數(shù)的作用域、生存期。

Name：必需的。Function 的名稱(chēng)，遵循標(biāo)準(zhǔn)的變量命名約定。

Arglist：可選的。代表在調(diào)用時(shí)要傳遞給 Function 過(guò)程的參數(shù)變量列表。多個(gè)變量應(yīng)用逗號(hào)隔開(kāi)。

type ：可選的。Function 過(guò)程的返回值的數(shù)據(jù)類(lèi)型，可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（除定長(zhǎng)）、Object、Variant或任何用戶(hù)定義類(lèi)型。任何類(lèi)型的數(shù)組都不能作為返回值，但包含數(shù)組的 Variant 可以作為返回值。

Statements：可選的。在 Function 過(guò)程中執(zhí)行的任何語(yǔ)句組。

Expression：可選的。Function 的返回值。

事件過(guò)程或其他過(guò)程可按名稱(chēng)調(diào)用函數(shù)過(guò)程。函數(shù)過(guò)程能夠接收參數(shù)，并且總是以該函數(shù)名返回一個(gè)值。這類(lèi)過(guò)程一般用于完成計(jì)算任務(wù)。

函數(shù)過(guò)程與子過(guò)程有許多相似的地方，它們之間最大也是最本質(zhì)的區(qū)別就在于，函數(shù)過(guò)程有一個(gè)返回值，而子過(guò)程只是執(zhí)行一系列動(dòng)作。