RosettaCodeData/Task/FizzBuzz/Xojo/fizzbuzz-1.xojo
2023-07-01 13:44:08 -04: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