Sub FizzBuzzZu1()                          '図１
    Dim i As Long
    For i = 1 To 15
        If i Mod 3 = 0 Then
            MsgBox ("Fizz")
        End If
        If i Mod 5 = 0 Then
            MsgBox ("Buzz")
        End If
        If i Mod 15 = 0 Then
            MsgBox ("FizzBuzz")
        Else
            MsgBox (i)
        End If
    Next i
End Sub
Sub FizzBuzz1()                                'プログラム1
    Dim i As Long
    For i = 1 To 15
        If i Mod 15 = 0 Then
            MsgBox ("Fizz Buzz")
        End If
        If i Mod 3 = 0 Then
            MsgBox ("Fizz")
        ElseIf i Mod 5 = 0 Then
            MsgBox ("Buzz")
        Else
            MsgBox (i)
        End If
    Next i
End Sub
Sub FizzBuzzZu2()                           'プログラム２　図２
    Dim i As Long
    For i = 1 To 15
        If i ___ 15 = 0 Then                'イ
            MsgBox ("Fizz Buzz")
        ElseIf i ___ _ = 0 Then            'ウ
            MsgBox ("Fizz")
        ElseIf i Mod 5 = 0 Then
            MsgBox ("____")                  'エ
        Else
            MsgBox (_)                           'オ
        End If
    Next i
End Sub