条件分岐 If の使用方法

ある条件によって処理を分岐させたい場合、If～End Ifステートメントを使用します。

If [条件式1] Then
    処理1   '条件式1がTrueの場合に実行
End If

上記の構文で処理1が1行であれば、以下のように記述することもできます。

If [条件式1] Then 処理1

ElseIf節やElse節を使用することで複数の処理へ分岐させることも可能です。ElseIf 節は複数指定可能ですが、Else節の後に指定することはできません。

If [条件式1] Then
    処理1   '条件式1がTrueの場合に実行
ElseIf [条件式2] Then
    処理2   '条件式1がFalseで条件式2がTrueの場合に実行
Else
    処理3   '条件式1および条件式2がともにFalseの場合に実行
End If

次のサンプルは国語と数学の点数で複数の表示内容をコントロールする例です。

Sub sample5_1()
    Dim Points(1 To 2)  As Integer

    Points(1) = 55  '国語の点数
    Points(2) = 80  '数学の点数

    If (Points(1) + Points(2)) / 2 >= 65 Then
        '国語と数学の平均が65点以上の場合
        MsgBox "合格です。"
    ElseIf Points(1) < 30 Or Points(2) < 30 Then
        '国語または数学のどちらかが30点未満の場合
        MsgBox "追試験が必要です。"
    Else
        MsgBox "次はもっと頑張りましょう。"
    End If
End Sub