TABLE OF CONTENTS
一、If 流程控制
1.1 [單條件]選擇性結構
語法:
If 條件敘述式 Then
'敘述區塊_I
Else
'敘述區塊_ê
End If
流程圖:
1.2 [多條件]選擇性結構
語法:
If 條件敘述式_Ⅰ Then
'敘述區塊_Ⅰ
ElseIf 條件敘述式_Ⅱ Then
'敘述區塊_Ⅱ
ElseIf 條件敘述式_N Then
'敘述區塊_N
Else
'敘述區塊_ê
End If
流程圖:
二、Select Case 流程控制
語法:
Select Case 比對運算式
Case value_1 [ , ... , value_N]
'敘述區塊_Ⅰ
Case value_1 To value_2
'敘述區塊_Ⅱ
Case Is 比較運算子 value
'敘述區塊_N
Case Else
'敘述區塊_ê
End Select
流程圖:
三、範例
判斷 Number 是介於,1 或 2-4 或 5-7 或 8-10 或其他區段中。
解 1:使用 If 流程控制
Number = InputBox("Type a number (1-10):")
If Number < 2 Then
MsgBox ("Less than 2")
ElseIf Number = 2 Or Number = 3 Or Number = 4 Then
MsgBox ("Between 2 and 4")
ElseIf Number >= 5 And Number <= 7 Then
MsgBox ("Between 5 and 7")
ElseIf Number <= 10 Then
MsgBox ("Greater than 7")
Else
MsgBox ("Not between 1 and 10")
End If
解 2:使用 Select Case 流程控制
Number = InputBox("Type a number:")
Select Case Number
Case 1
MsgBox ("Less than 2")
Case 2, 3, 4
MsgBox ("Between 2 and 4")
Case 5 To 7
MsgBox ("Between 5 and 7")
Case Is <= 10
MsgBox ("Greater than 7")
Case Else
MsgBox ("Not between 1 and 10")
End Select