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 的返回值。

事件过程或其他过程可按名称调用函数过程。函数过程能够接收参数，并且总是以该函数名返回一个值。这类过程一般用于完成计算任务。

函数过程与子过程有许多相似的地方，它们之间最大也是最本质的区别就在于，函数过程有一个返回值，而子过程只是执行一系列动作。