so true

5.4  基本語句

5.4.1  注釋語句

在使用注釋語句之前必須先了解注釋的作用，注釋不僅僅是對程序的解釋，有時它對于程序的調(diào)試也非常有用，譬如說可以利用注釋屏蔽一條語句以觀察變化，發(fā)現(xiàn)問題和錯誤。以后注釋語句將是我們在編程里最經(jīng)常用到的語句之一。

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

‘Dim a As String 與

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

5.4.2  順序語句

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

5.4.3  條件語句

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

5.4.3.1  IF語句

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

語法：

If <條件> Then

<語句>

End If

如果希望條件不滿足時執(zhí)行另一語句，可以以增加一個else語句：

If <條件> Then

<語句>

else

<語句>

End If

如果Then后面所跟的語句只有一條，可以寫成：

If <條件> Then <語句>

而不用End If。

還可以在Else里在嵌套If語句，如：

If <條件> Then

  <語句>

Else If <條件> Then

  <語句>

……

Else

  <語句>

End If

判斷語句

1）If…Then…Else語句

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
或者，可以使用塊形式的語法：
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語句

如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)，可以用來選擇自變量串列中的一個值，并將其返回，index 必要參數(shù)，數(shù)值表達式或字段，它的運算結(jié)果是一個數(shù)值，且界于 1 和可選擇的項目數(shù)之間。choice 必要參數(shù)，Variant表達式，包含可選擇項目的其中之一。如： 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ù)類似，但它是以兩個一組的方式返回所要的值，在串列中，最先為TRUE的值會被返回。 expr 必要參數(shù)，要加以計算的 Variant 表達式。value 必要參數(shù)。如果相關(guān)的表達式為 True，則返回此部分的數(shù)值或表達式，沒有一個表達式為 True，Switch 會返回一個 Null值。

9,循環(huán)語句

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

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 & " "           ' 添加一個空格
Next Words

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

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 語句，目的是省去對象多次調(diào)用，加快速度；語法為：
With object
[statements]
End With

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

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

10,其他類語句和錯誤語句處理

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

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

2)On expression gosub destinatioinlist 或者 on expression goto destinationlist 語句為根據(jù) exprssion表達式值來跳轉(zhuǎn)到所要的行號或行標記

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

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

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

B, 錯誤語句處理:執(zhí)行階段有時會有錯誤的情況發(fā)生，利用On Error語句來處理錯誤，啟動一個錯誤的處理程序。語法如下：

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

5.5  過程

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

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

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

在 Visual Basic 中使用下列幾種過程：

1．子（Sub）過程

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

       [statements]

       [Exit Sub]

       [statements]

End Sub

Sub 語句的語法包含下面部分：

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

Name：必需的。Sub 的名稱，遵循標準的變量命名約定。

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

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

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

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

[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 的名稱，遵循標準的變量命名約定。

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

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

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

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

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

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