一. if else 和 selec case

1. if + end if

Dim a
a=2If a=0 ThenMsgBox "这里是0"End if

2. if  +  else  +  end if

Dim a
a=2If a=0 ThenMsgBox "这里是0"Else
MsgBox "这里是2" '弹窗“这里是2”End if

3. if -----elseif-------else-------end if

Dim a
a=2If a=0 Then
MsgBox "这里是0"ElseIf a=1 Then
MsgBox "这里是1"Else
MsgBox "这里是2" '弹窗“这里是2”End if

4. Select Case

Dim a
a=2Select Case a
Case 0 MsgBox "你好0"
Case 1 MsgBox "你好1"
Case 2 MsgBox "你好2"
'Case Else MsgBox "都不对啊大哥"End select

二. 使用循环语句

• Do...Loop： 当（或直到）条件为 True 时循环。
• While...Wend： 当条件为 True 时循环。
• For...Next： 指定循环次数，使用计数器重复运行语句。
• For Each...Next：对于集合中的每项或数组中的每个元素，重复执行一组语句。

1. do while/until loop

'do while 当...的时候干啥
'do until 一直干啥，直到....
'exit do 直接退出循环
'loopDim a
a=0Do While a<3
a=a+1
MsgBox a '会先后弹窗1，2，3loop

Dim a
a=0'一直循环，直到a>3. 会弹窗1，2，3，4
do until a>3a=a+1msgbox aloop

2. while wend 循环

Dim a
a=0while a<3a=a+1msgbox a '弹窗1，2，3
wend

3. for next

dim a,b
a=0
b=10
For i = 0 To 5 '循环0，1...5. 共6次'a=a+1b=b-1'弹窗 1+9，2+8, 3+7, 4+6, 5+5, 6+4msgbox a & "+" & bNext

4. For Each...Next 针对集合中的每个项目或者数组中的每个元素来重复运行某段代码

dim k(2)
k(0)=3
k(1)=2
k(2)=1for each elemnt in kmsgbox elemnt '弹窗3，2，1'
next

三. VBS子程序

1. sub: 子程序。可以带参数，但不返回值。

'调用子程序'
test(",sb")'定义子程序'
sub test(a)msgbox "hello" &  a '弹窗 hello,sb '
end sub

2. function: 函数。可以带参数，可以返回值。

'function,函数，可以传参数，可以返回值'function test(a,b)test = a+b
end functionc = test(3,4)msgbox c