coreldraw二维码插件（CorelDRAW插件-GMS开发-VBA语法-控制语句）

前文已经介绍VBA有关变量、运算符和函数的基础语法，本文接着介绍VBA语言的关键词和控制语句。这几个关键点希望读者能够理解透彻。方便根据根据功能来撰写对应的代码。在CorelDraw内打开VBE编辑器，如下图所示：

关键词是系统有特殊作用的单词和符号，单词如下图所示：

符号主要包含运算符和定义用的标识符。

IF语句大部分遇到的形式如下所示：

If 条件 Then 语句 ElseIf 条件 Then 语句 Else 语句 End If

注意：都是从If开始，以End If结束。

Select Case语句大部分遇到的形式如下所示：

1.形式1

Select Case variable Case value1 action statements Case value2 action statements Case Else action statements End Select

范例如下所示：

Select Case x Case 1 MsgBox ("1") Case 2 MsgBox ("2") Case Else MsgBox ("其它") End Select

2.形式2

Select Case variable Case Is boolean expression action statements Case Is boolean expression action statements Case Else action statements End Select

范例如下所示：

Select Case x Case Is < 5 MsgBox ("小于 5") Case Is > 10 MsgBox ("大于10") Case Else MsgBox ("其它") End Select

可以使用 For…Next 语句去重复一个语句块，而它的次数的数字是指定的。For 循环使用一个计数变量，当重复每个循环时它的值会增加或减少。

For语句会指定计数变量 x 的开始与结束值。Next 语句会将计数变量的值加 1。

'For语句会指定计数变量 x 的开始与结束值。Next 语句会将计数变量的值加 1。 For x = 1 To 50 Step 1 Beep Next x

注意：可以在计数变量到达它的结束值之前，使用 Exit For 语句来退出 For…Next 语句。

可以使用 Do…Loop 语句去循环执行语句。直到条件变成 False时，跳出循环。

1.形式1：当使用 while 关键字去检查 Do…Loop 语句中的条件时。可以在循环之前检查条件式，也可以在循环之后才检查条件式。循环前，代码如下所示：

counter = 0 myNum = 20 Do While myNum > 10 myNum = myNum - 1 counter = counter 1 Loop

循环后，代码如下所示：

counter = 0 myNum = 9 Do myNum = myNum - 1 counter = counter 1 Loop While myNum > 10

2.形式2：采用Until 关键字来检查条件与while类似，循环前，代码如下所示：

counter = 0 myNum = 20 Do Until myNum > 10 myNum = myNum - 1 counter = counter 1 Loop

循环后，代码如下所示：

counter = 0 myNum = 9 Do myNum = myNum - 1 counter = counter 1 Loop Until myNum > 10

注意：可以使用 Exit Do 语句来退出 Do…Loop 语句。

For Each…Next 语句会重复一个语句块，而它是作用于集合中的每个对象或是数组中的每个元素。

For Each item In arrays If item <> 1 Then item=1 Next

可以使用While…Wend语句去循环执行语句。直到条件变成 False时，跳出循环。

n=0 While n<=100 '当n小于等于100时，执行下行代码，否则退出 n=n 1 Debug.Print n Wend

注意：可以使用Exit While提前退出循环。

文章引用至 作者联系方式