If 条件式 Then ... Else ... [VB]

Visual Basic 文法[2015 2013 2012]

2分岐処理:If Then Else End If

If 条件式 Then ... Else ... End If を使うと、条件判定が成立した場合と、成立しなかった場合の2通りに分岐したプログラムを書くことができます。

条件式を使う

もし、条件式が成立していれば、Then から Else 間のプログラムを、条件判定が成立しなかったら、Else から End If までのプログラムを実行します。

  If 条件式 Then
    ' 条件式が成立した場合
    ........
    ......
    ...........
  Else
    ' 条件式が成立しなかった場合
    ...........
    .....
    .........
  End If

条件式によく使われる比較演算子です。

条件式は、論理演算子を使えば、いくつでも並べて記述できます。論理演算子は下の ページを参考にしてください。

論理演算子 And Or Not

比較演算子の使い方
< If a < b Then ... Else ... End If 変数aが変数bより小さければ、Then ... Elseを
そうでなければ、Else ... End If を実行
<= If a <= b Then ... Else ... End If 変数aが変数b以下ならば、Then ... Elseを
そうでなければ、Else ... End If を実行
> If a > b Then ... Else ... End If 変数aが変数bより大きければ、Then ... Elseを
そうでなければ、Else ... End If を実行
>= If a >= b Then ... Else ... End If 変数aが変数b以上ならば、Then ... Elseを
そうでなければ、Else ... End If を実行
= If a = b Then ... Else ... End If 変数aが変数bと同じならば、Then ... Elseを
そうでなければ、Else ... End If を実行
<> If a <> b Then ... Else ... End If 変数aと変数bが異なれば、Then ... Elseを
そうでなければ、Else ... End If を実行

If 条件式 Then ... Else ... End Ifと、条件式に比較演算子を使ったサンプルプログラムを作成します。

今回はキーボードから入力した整数値が、0以上なら入力値を10倍し、負なら2倍して、その結果を表示するプログラムを作成します。

キーボードからの整数値入力は下のページを参考にしてください。

ソースリストの枠内をクリックすると全選択できます。

Module Module1

  Sub Main()
      ' 変数の宣言
      Dim inNum As Integer = 0
      Dim anser As Integer = 0
      Dim inStr As String
      Dim msg As String
      ' キーボードから整数値を入力
      Console.WriteLine("整数を入力して下さい")
      inStr = Console.ReadLine()
      ' 文字列を整数に変換
      inNum = Integer.Parse(inStr)
      ' 0以上の整数か負の整数かを判定し処理分岐
      If inNum >= 0 Then
          ' 0以上なので入力値を10倍する
          anser = inNum * 10
          ' 表示メッセージ作成
          msg = "×10="
      Else
          ' 負の数なので入力値を2倍する
          anser = inNum * 2
          ' 表示メッセージ作成
          msg = "×2="
      End If
      ' 結果を表示
      Console.WriteLine(inNum & msg & anser)
  End Sub

End Module
[広告]
[広告]
[広告]