一. 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
