一. if else 和 selec case
1. if + end if
Dim a
a=2
If a=0 Then
MsgBox "这里是0"
End if
2. if + else + end if
Dim a
a=2
If a=0 Then
MsgBox "这里是0"
Else
MsgBox "这里是2" '弹窗“这里是2”
End if
3. if -----elseif-------else-------end if
Dim a
a=2
If a=0 Then
MsgBox "这里是0"
ElseIf a=1 Then
MsgBox "这里是1"
Else
MsgBox "这里是2" '弹窗“这里是2”
End if
4. Select Case
Dim a
a=2
Select Case a
Case 0 MsgBox "你好0"
Case 1 MsgBox "你好1"
Case 2 MsgBox "你好2"
'Case Else MsgBox "都不对啊大哥"
End select
二. 使用循环语句
1. do while/until loop
'do while 当...的时候干啥
'do until 一直干啥，直到....
'exit do 直接退出循环
'loop
Dim a
a=0
Do While a<3
a=a+1
MsgBox a '会先后弹窗1，2，3
loop
Dim a
a=0
'一直循环，直到a>3. 会弹窗1，2，3，4
do until a>3
a=a+1
msgbox a
loop
2. while wend 循环
Dim a
a=0
while a<3
a=a+1
msgbox 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+1
b=b-1
'弹窗 1+9，2+8, 3+7, 4+6, 5+5, 6+4
msgbox a & "+" & b
Next
4. For Each...Next 针对集合中的每个项目或者数组中的每个元素来重复运行某段代码
dim k(2)
k(0)=3
k(1)=2
k(2)=1
for each elemnt in k
msgbox 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 function
c = test(3,4)
msgbox c