1、If…Then…Else
语法
If 表达式 Then
语句体
ElseIf 表达式 Then
语句体
Else
语句体
End If
例
myday = Weekday(Date)
If myday=6 Then
msgbox "终于周五了"
ElseIf myday>1 and myday<6 Then
msgbox "上班上班上班"
else
msgbox "嘿嘿周末"
End If
2、Select Case
语法
Select Case 表达式
Case 表达式
语句体
End Select
例
myday = Weekday(Date)
Select Case myday
Case 1
msgbox "周末"
Case 2
msgbox "周一"
Case else
msgbox "不知道"
End Select
3、Do…Loop
语法
Do
循环体
Loop 循环条件
例
count = 0
myday = Weekday(Date)
Do
myday = myday + 1
count = count + 1
Loop while myday<7
msgbox "循环了"&count&"次"