FizzBuzz問題 - abwiki @ ウィキ (ActiveBasic非公式wiki)

FizzBuzz問題

1から100まで数え上げる。
ただし、3の倍数のときFizz、5の倍数のときBuzzという。
３と5の倍数のときはFizzBuzzということ。

#N88BASIC

Const Fizz = "Fizz"
Const Buzz = "Buzz"
Const FizzBuzz = "FizzBuzz"

Dim i As Long

For i = 1 To 100
If i Mod 3 = 0 And i Mod 5 = 0 Then
Print FizzBuzz
Else If i Mod 3 = 0 Then
Print Fizz
Else If i Mod 5 = 0 Then
Print Buzz
Else
Print i
End If
Next