FizzBuzz on VBA
Dim i For i = 1 To 100 If Mod(i) = 15 Then Debug.Print "FizzBuzz " ElseIf Mod(i) = 3 Then Debug.Print "Fizz " ElseIf Mod(i) = 5 Then Debug.Print "Buzz " Else Debug.Print i & Space(1) End If Next
Dim i For i = 1 To 100 If Mod(i) = 15 Then Debug.Print "FizzBuzz " ElseIf Mod(i) = 3 Then Debug.Print "Fizz " ElseIf Mod(i) = 5 Then Debug.Print "Buzz " Else Debug.Print i & Space(1) End If Next