2005-05-17 ■ VB case文 Dim a As Integer a = 2 ' 2番目の条件に合致するので、処理Bが実行される Select Case a Case 1 ' 処理A Case 2 ' 処理B Case 3, 4 ' 処理C Case 5 To 10 ' 処理D Case Else ' 処理E End Select