VB脚本的逻辑

//select

SELECT CASE Visitor_Name
CASE “Bill Gates”
 Greeting=”Welcome Bill Gates!”
CASE “President Clinton”
 Greeting=”Welcome President Clinton!”
CASE ELSE
 Greeting=”Welcome Someone!”
END SELECT

//for
for i=1 to 500
  next
For i=500 to 1 step –1
  NEXT
for i=1 to 500 step 10
  next

dim myarray(10)
myarray(4)=”Running Shoes”
for i=0 to ubound(myarray)
  if myarray(i)=”Running Shoes” then exit for
next

dim myarray(10)
myarray(4)=”Running Shoes”
for each i in myarray
 if i=”Running Shoes” then exit for
next

//while

TheFuture=DATEADD(“s”,15,TIME)
WHILE TIME<TheFuture
WEND

do while sentence<>”Hello There!”
loop

do until
loop