Lotus Symphony 1.2


Select...Case 陳述式 [執行時期]

依據表示式的值定義一個或多個陳述式區塊。

語法:

Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block End Select

參數:

Condition:任意表示式,用於控制是否執行各個 Case 子句之後的陳述式區塊。

Expression:與 Condition 類型表示式相容的任意表示式。如果 ConditionExpression 相符,則會執行 Case 子句之後的陳述式區塊。

範例:

Sub ExampleRandomSelect

Dim iVar As Integer

iVar = Int((15 * Rnd) -2)

Select Case iVar

Case 1 To 5

Print "Number from 1 to 5"

Case 6, 7, 8

Print "Number from 6 to 8"

Case 8 To 10

Print "Greater than 8"

Case Else

Print "Out of range 1 to 10"

End Select

end sub


其他文件 | 商標