FizzBuzz: Difference between revisions
→{{header|VBA}}
Line 7,624:
If i Mod 15 = 0 Then
Tb(i) = "FizzBuzz"
ElseIf i Mod 3 = 0 Then▼
Tb(i) = "Fizz"▼
ElseIf i Mod 5 = 0 Then
Tb(i) = "Buzz"
▲ ElseIf i Mod 3 = 0 Then
▲ Tb(i) = "Fizz"
End If
Next
Debug.Print Join(Tb, vbCrLf)
End Sub</lang>
As an alternative, testing each number only once:
<lang vb>
Sub FizzBuzz()
Dim i As Integer
Dim T(1 To 99) As Variant
For i = 1 To 99 Step 3
T(i + 0) = IIf((i + 0) Mod 5 = 0, "Buzz", i)
T(i + 1) = IIf((i + 1) Mod 5 = 0, "Buzz", i + 1)
T(i + 2) = IIf((i + 2) Mod 5 = 0, "FizzBuzz", "Fizz")
Next i
Debug.Print Join(T, ", ") & ", Buzz"
End Sub
</lang>
=={{header|VBScript}}==
| |||