条件分け処理を実施 Select Case
                                                        玄関へお回り下さい。
想定した値に合せた処理を記入する      (068)
     
構文
  Select Case 条件判定に利用する式
   Case 条件判定の式の値
      条件を満たす場合の処理を記入
   Case Else
      すべての条件を満たさなかった場合の処理
   End Select

使用例
Option Explicit   'SampleNo=068 WindowsXP VB6.0(SP5) 2002.05.15
Private Sub Command1_Click()
  Dim intNumber As Integer
  intNumber = CInt(Text1.Text)
  Select Case intNumber ' intNumber を評価します。
    Case 1 To 5    ' intNumber の値が 1 〜 5 の場合。
      Label1.Caption = "1 から 5 の間"
    Case 6, 7, 8    ' intNumber の値が 6 〜 8 の場合。
      Label1.Caption = "6 から 8 の間"
    Case Else     ' その他の値の場合。
     Label1.Caption = "1 から 8 以外の数値"
  End Select
End Sub

テキストボックスに入っている数字によって、Label に結果をプリントしている。

よけいなお世話
  
VBのヘルプのサンプルに書かれている 
  Case Is > 8 And Number < 11
の部分は間違っているようです。
  Case Is > 8 , Is < 11 と判断されるので全部の数字が
 




2002/05/16