静怡家园

语句
Call

[call] name [argumentlist]

把控制转移到函数或子程序。当调用函数或子程序时，Call是可写可不写的。但是如果你用了Call,那么argumentlist必须用括号括起来。

Const

[Public | Private] Const constantname=e­xpression

用于申明常数。你可以在一行里申明多个常数，此时你必须用逗号把常数赋值语句隔开。

Dim

Dim varname[ ( [subscripts])][, varname [( [subscripts])]...

创建一个新变量并且分配存储空间。

DO . . . LOOP

语法 1：

Do [{While | Until } condition ]

[statements]

[Exit Do]

[statements]

LOOP

语法 2：

Do

[statements]

[Exit Do]

[statements]

LOOP [{While | Until } condition ]

当条件condition为真时或直到条件condition为真时，两种形式都重复执行语句。

Erase

Erase array

清理数组，对于固定长度的数组，重新初始化元素；对于动态数组，重置存储空间。

Exit

Exit Do

退出一个 DO . . . LOOP 循环。

Exit For

退出一个 For . . . Next 循环或For Each . . . Next循环。

Exit Function

退出一个 函数。

Exit Sub

退出一个子程序。

For . . . Next

For counter = start To End [Step step]

[statements]

[Exit For]

[statements]

Next

由loop 计数器指定的次数重复执行statements语句群。

For Each . . . Next

For Each element In group

[statements]

[Exit For]

[statements]

Next [element]

对于每一个在数组或集合中的元素，重复执行statements语句群。

Function

[Public | Private] Function name [(arglist)]

[statements]

[name=e­xpression]

[Exit Function]

[statements]

[name=e­xpression]

End Function

定义一个函数，指明函数名，参数及代码。

If . . . Then . . . Else

语法1：

If condition Then statements [Else elsestatements]

语法2：

If condition Then

statements

[ElseIf condition-n Then

[elseifstatements]] . . .

[Else

[elsestatements]]

End If

两种格式都条件执行一系列语句。

On Error

On Error Resume Next

当一个错误发生时，这条语句就执行紧靠发生错误语句后面的语句，或者执行紧靠调用进程后面的语句。

Option Explicit

Option Explicit

在使用变量之前强制明确定义该变量，可以用Dim,Private,Public或 ReDim语句定义变量。

Private

Private varname[([下标])][, varname[([下标])] . . .

创建私有变量并且分配存储空间。（私有变量只能在定义该变量的脚本中可用）

Public

Public varname[([下标])][, varname[([下标])] . . .

创建公有变量并且分配存储空间。（公有变量在程序的任何地方均可使用）

Randomize

Randomize [number]

给Rnd函数的随机数发生器一个新种子值。

ReDim

ReDim [Preserve] varname(subscripts)[, varname(subscripts)] . . .

修改维的下标，大小；或重置动态数组的大小。Preserve 保护已存数组的数据。

Rem

语法1：

Rem comment

语法2：

‘comment

这两种语句形式都能使注释的句子不被处理。如果Rem和其它语句在同一行上，Rem 语句必须在后且二者之间必须用冒号隔开。

Select Case

Select Case teste­xpression

[Case e­xpressionlist-n

[statements-n]] . . .

[Case Else e­xpressionlist-n

[elsestatements-n]]

End Select

如果某一个e­xpressionlist 和teste­xpression 匹配，则执行和e­xpressionlist对应的语句；如果没有一个e­xpressionlist 和teste­xpression 相匹配，则执行和Case Else 相对应的语句。

Set

Set obectvar= {objecte­xpression | Nothing}

赋予一个变量或一个性质对象引用。当赋予的值为Nothing 时，使obectva 和任何以前指明的对象解除关系。

Sub

[Public | Private] Sub name [(arglist)]

[statements]

[Exit Sub]

[statements]

End Sub

定义一个子程序，指明名称，参数及代码。

While . . . Wend

While condition

[statements]

[color=Maroon]Wend

不停地连续执行语句statements 直到条件condition为True。