■構文 If 条件式1 Then 処理1 ElseIf 条件式2 Then 処理2 Else 処理3 End If ■例 Sub sample1() Dim year As Integer Dim str As String 'うるう年の場合 year = 2016 If year Mod 4 = 0 Then str = str & year & "年はうるう年です。" & vbCrLf Else str = …