「FizzBuzz問題」の編集履歴（バックアップ）一覧はこちら

「FizzBuzz問題」(2010/11/02 (火) 00:54:31) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

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



#asciiart(blockquote){
#N88BASIC

Const Fizz = "Fizz"
Const Buzz = "Buzz"
Dim i As Long

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

**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
}