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

2分岐処理

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

  If 条件式 Then
    ' 条件式が成立した場合の処理
    .........
    .......
    ............
  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

次回は、3分岐以上の処理ができる If 条件式 Then ... ElseIf ... End If について説明します。

• If 条件式 Then ... End If
• If 条件式 Then ... Else ... End If
• If 条件式 Then ... ElseIf ... End If
• Select Case