12 lines
247 B
Text
12 lines
247 B
Text
For i As Integer = 1 To 100
|
|
Select Case True
|
|
Case i Mod 3 = 0 And i Mod 5 = 0
|
|
Print("FizzBuzz")
|
|
Case i Mod 3 = 0
|
|
Print("Fizz")
|
|
Case i Mod 5 = 0
|
|
Print("Buzz")
|
|
Else
|
|
Print(Str(i))
|
|
End Select
|
|
Next
|