ある条件によって処理を分岐させたい場合、If~End Ifステートメントを使用します。
上記の構文で処理1が1行であれば、以下のように記述することもできます。
ElseIf節やElse節を使用することで複数の処理へ分岐させることも可能です。ElseIf 節は複数指定可能ですが、Else節の後に指定することはできません。
次のサンプルは国語と数学の点数で複数の表示内容をコントロールする例です。
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