While…………Wend
Dim i
i = 10
While i<20
i = i+1
Wend 'i自增到20时自动退出该循环
msgbox(i)
For ……………Next
Dim a
For a = 1 to 10
Next
msgbox("循环重复了"&a&"次")
Do…………While
Dim b
b = 1
Do While b<10
b = b+1
If b=5 Then
Exit do
End If
Loop
msgbox(b)
Do………………Until
Dim c
c = 5
Do Until c = 0 '循环至c=0为止
c = c-1
Loop
msgbox(c)
Select Case
Select Case iValue
Case 1
MsgBox "Hello World!"
Case 2
MsgBox "Hello Software Testing!"
Case Else
MsgBox "Hello 51Testing!"
End Select
For Each…………Next
Dim myarray(10),i,anyelement,sum
For i=0 to 10
myarray(i) = i*2
Next
For each anyelement in myarray
sum = sum+anyelement
Next
msgbox(sum) ‘计算2+4+6……的结果
with语句
With语句可以用来对指定的对象执行一系列的语句,但不需要重复地说明对象的名称
With MyLabel
.Height = 2000
.Width = 2000
.Caption = "这是MyLabel"
End With
一旦进入了With块,object是不可改变的。因此,不能使用一个With语句去改变若干对象的值。
With语句可以嵌套。
同一父级对象下的不同对象操作,还可以这样写:
With Dialog("Login")
.WinEdit("Agent Name:").set "linshengsi"
.WinEdit("Password:").set "204600"
End with
Option Explicit语句
使用Option Explicit语句时,必须使用Dim、Private、Public或ReDim语句显式声明所有变量。如果试图使用未经声明的变量名,则会出现错误。
Option Explicit '强制显示声明变量。
Dim MyVar '声明变量。
MyInt = 10 '未声明变量产生错误。
MyVar = 10 '声明变量不产生错误。