so true

5.4  基本語句

5.4.1  注釋語句

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

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

‘Dim a As String 與

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

5.4.2  順序語句

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

5.4.3  條件語句

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

5.4.3.1  IF語句

在條件語句里，我們先來學習“If……Then……”語句。

語法：

If <條件> Then

<語句>

End If

如果希望條件不滿足時執行另一語句，可以以增加一個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 函數： choose(index, choce-1,choice-2,…,choice-n)，可以用來選擇自變量串列中的一個值，并將其返回，index 必要參數，數值表達式或字段，它的運算結果是一個數值，且界于 1 和可選擇的項目數之間。choice 必要參數，Variant表達式，包含可選擇項目的其中之一。如： GetChoice? = Choose(Ind, "Speedy", "United", "Federal")

4）Switch函數： Switch(expr-1, value-1[, expr-2, value-2 _ [, expr-n,value-n]]) switch函數和Choose函數類似，但它是以兩個一組的方式返回所要的值，在串列中，最先為TRUE的值會被返回。 expr 必要參數，要加以計算的 Variant 表達式。value 必要參數。如果相關的表達式為 True，則返回此部分的數值或表達式，沒有一個表達式為 True，Switch 會返回一個 Null值。

9,循環語句

1）For Next語句 以指定次數來重復執行一組語句

For counter = start To end [Step step]     ' step 缺省值為1
[statements]
[Exit For]
[statements]
Next [counter]
如1：
For Words = 10 To 1 Step -1             ' 建立 10 次循環
For Chars = 0 To 9                    ' 建立 10 次循環
MyString = MyString & Chars            ' 將數字添加到字符串中
Next Chars                            ' Increment counter
MyString = MyString & " "           ' 添加一個空格
Next Words

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

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

3）Do…loop語句 在條件為true時，重復執行區塊命令

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

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

A, 其他循環語句:結構化程序使用以上判斷和循環語句已經足夠，建議不要輕易使用下面的語句，雖然VBA還支持。

1)Goto line 該語句為跳轉到line語句行

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

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

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

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

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

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

5.5  過程

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

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

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

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

1．子（Sub）過程

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

       [statements]

       [Exit Sub]

       [statements]

End Sub

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

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

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

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

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

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

    2．函數（Function） 過程

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

       [statements]

       [name = expression]

       [Exit Function]

       [statements]

       [name = expression]

End Function

各參數分述如下：

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

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

Arglist：可選的。代表在調用時要傳遞給 Function 過程的參數變量列表。多個變量應用逗號隔開。

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

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

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

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

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