TABLE OF CONTENTS

一、If 流程控制

二、Select Case 流程控制

三、範例

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

results matching ""

    No results matching ""