ID : 135

Select Case...End Select

功能

按照条件式的值，执行多个语句数据块中的任意一个。

格式

Select Case 计算公式
	Case 条件1
		'Statements
	Case 条件n
		'Statements-n
	Case Else
		'ElseStatements
End Select

指定项目

计算公式: 指定与条件n进行比较的计算公式。不可指定排列。
条件n: 指定与计算公式进行比较的条件。

解说

计算公式的值与“Case”后指定的条件n为成立关系(True)时，执行下一个“Case”或“End Select”前的语句。执行后，移至“End Select”的下一行。

如果在“Case”后指定“Else”，与所有指定的条件n不符时，则执行后面的ElseStatements。

`条件n`的指定方法

将条件n和计算公式进行比较。可进行比较运算符指定的比较。指定时，在Case Is后添加比较运算符。

为等号“=”时，可省略“Is =”。

关于比较运算和数据型的关系，请参照“比较运算符”。

Select Case aaa
Case Is > bbb 'aaa大于bbb时
	' statements
Case Is < bbb 'aaa小于bbb时
	' statements
Case bbb 'aaa等于bbb时
	' statements
End Select

指定特殊条件

可指定计算公式大于bbb且小于ccc的条件。

Select Case aaa
Case bbb To ccc
	' statements
End Select

ccc小于bbb时，该条件不为True。

指定多个条件

通过Or条件可指定多个条件。使用“，”隔开

Select Case aaa
Case Is <= 3 , 5 , 7 To 9 '小于3或大于5、7小于9时
	'statements
Case Is > bbb , Is <= 0  '大于bbb或小于0时
	'statements
End Select

注意事项

“Case Else”后不可记述其它条件。

应用示例

'!TITLE "判断多个条件"
' 执行aaa值一致的Case语句
Sub Sample_SelectCase

  Dim aaa As Integer
  aaa = 2

  ' aaa值与Case语句的值一致时，执行此指令
  Select Case aaa
  Case 0

    ' 在讯息输出视窗中输出"0"
    PrintDbg aaa

  Case 1

    ' 在讯息输出视窗中输出"1"
    PrintDbg aaa

  Case 2

    ' 在讯息输出视窗中输出"2"
    PrintDbg aaa

  Case 3

    ' 在讯息输出视窗中输出"3"
    PrintDbg aaa

  End Select

End Sub

ID : 135

<< 向前下一页 >>

返回顶部