Select Case文

　条件により処理を分岐させるIf文を見てきましたが、処理を分岐させるステートメント(命令)として、SelectCase文もあります。このステートメントは、評価対象となる式の値を基に、処理を分岐させます。

Select Case文の書式
Select Case　評価式
　Case 式1
　　処理1
　Case 式2
　　処理2
　…
　Case Else
　　処理n
End Select

Select Case文
Select Case文

○　プロジェクト

　次のようにプロジェクトを作成してください。

プロジェクトの種類 コンソール アプリケーション
プロジェクト名 SelectCaseTest

サンプルダウンロード

○　プログラム

　次のようにプログラムを入力してください。

  1. Sub Main()
  2. 　'変数の宣言
  3. 　Dim str As String
  5. 　'データを入力
  6. 　Console.Write("「平日」か「休日」を入力してください：")
  7. 　str = Console.ReadLine()
  9. 　'入力データによって処理を分岐
  10. 　Select Case str
  11. 　　Case "平日"　　　　　'平日の場合
  12. 　　　Console.WriteLine("今日は仕事があります。")
  13. 　　Case "休日"　　　　　'休日の場合
  14. 　　　Console.WriteLine("今日は遊びに行きましょう。")
  15. 　　Case Else　　　　　'その他の場合
  16. 　　Console.WriteLine("今日は家でおとなしくしていましょう。")
  17. 　End Select
  18. 　Console.ReadLine()
  19. End Sub

○　実行結果

「平日」か「休日」を入力してください：平日
今日は仕事があります。
----------------------------------------
「平日」か「休日」を入力してください：休日
今日は遊びに行きましょう。
----------------------------------------
「平日」か「休日」を入力してください：その他
今日は家でおとなしくしていましょう。

○　解説

　12行目で入力したデータを評価対象としてSelect Case文にセットします。そのデータを複数のケースで比較していきます。もしいずれのケースにも当てはまらなかった場合はCase Elseの部分が実行されます。また、このCase Elseは省略するともできます。

　Select Case文で指定できる評価式は、Integer、Dobule、Stringなど基本データ型を指定することができます。またCase文で指定できる式として、次のようなものがあります。

例：

前へ   次へ