Select文を使って

• ｋ＝１の場合はＡを 
• ｋ＝２の場合はＢを 
• ｋ＝３の場合はＣを 
• それ以外の場合はＤを行う

には次のようにします。
　Select case k
　　　Case 1
  　　　 ..(A)...  
　　　Case 2
　　　... (B)... 
　　　Case 3
   　　　..(C)...  
　　　Else　Case
　　　... (D)..
　　End　Select. 

また文字で場合分けをするとき

• x$＝"Kyoto"の場合はＡを 
• x$＝"Osaka"の場合はＢを 
• x$＝"Kobe"の場合はＣを 
• それ以外の場合はＤを行う

には次のようにします。
　　Select case x$
　　　　　Case "Kyoto"
   　　　　　..(A)...        :'label1に京都と書く
　　　　 　Case "Osaka"
　　　　　... (B)... 　　　　:'picture1に大阪の地図をロードする
　　　　 　Case "Kobe"
   　　　　　..(C)...  　　　:'image1の画像が右へ移動する
　　 　　　Else　 Case
　　　 　　... (D)..　　　　　:'背景色を緑にする
　　  　　End　Select.