14 lines
259 B
Text
14 lines
259 B
Text
For n = 1 To 100
|
|
op = ""
|
|
If Math.Remainder(n, 3) = 0 Then
|
|
op = "Fizz"
|
|
EndIf
|
|
IF Math.Remainder(n, 5) = 0 Then
|
|
op = text.Append(op, "Buzz")
|
|
EndIf
|
|
If op = "" Then
|
|
TextWindow.WriteLine(n)
|
|
Else
|
|
TextWindow.WriteLine(op)
|
|
EndIf
|
|
EndFor
|