14 lines
287 B
Text
14 lines
287 B
Text
|
Public Sub Main()
|
||
|
|
Dim siCount As Short
|
||
|
|
Dim sText As String
|
||
|
|
|
||
|
|
For siCount = 1 To 100
|
||
|
|
sText = ""
|
||
|
|
If siCount Mod 3 = 0 Then sText = "Fizz"
|
||
|
|
If siCount Mod 5 = 0 Then sText = "Buzz"
|
||
|
|
If siCount Mod 15 = 0 Then sText = "FizzBuzz"
|
||
|
|
If sText Then Print sText Else Print siCount
|
||
|
|
Next
|
||
|
|
|
||
|
|
End
|