RosettaCodeData/Task/FizzBuzz/Xojo/fizzbuzz-1.xojo
2019-09-12 10:33:56 -07:00

11 lines
237 B
Text

For i As Integer = 1 To 100
If i Mod 3 = 0 And i Mod 5 = 0 Then
Print("FizzBuzz")
ElseIf i Mod 3 = 0 Then
Print("Fizz")
ElseIf i Mod 5 = 0 Then
Print("Buzz")
Else
Print(Str(i))
End If
Next