VBS一些语句的用法

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         '声明变量不产生错误。