「FizzBuzz問題」の編集履歴（バックアップ）一覧に戻る

FizzBuzz問題 - (2010/11/02 (火) 00:54:31) のソース

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


#asciiart(blockquote){
#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
}