IBM Lotus Symphony


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


产品反馈 | 其他文档 | 商标