TOP PAGE

たくさんFizzBuzz

随時追加.各言語の環境は以下の通り.

C言語/C++
Borland C++ Compiler/Turbo Debugger 5.5
C#
Microsoft(R) Visual C# 2005 Compiler version 8.00.50727.42 for Microsoft(R) Windows(R) 2005 Framework version 2.0.50727
Python
Python 2.5.2 (r252:60911, Feb 21 2008, 13:11:45) [MSC v.1310 32 bit (Intel)] on win32
Ruby
ruby 1.8.6 (2007-09-24 patchlevel 111) [i386-mswin32]
Visual Basic
Microsoft Visual Basic 2005 Express Edition Version 8.0.50727.42
#include<stdio.h>
int main(void)
{
	int i;
	for(i=1; i<=100; i++){
		if(i%3&&i%5) printf("%d",i);
		else{
			if(!(i%3)) printf("Fizz");
			if(!(i%5)) printf("Buzz");
		}
		printf("\n");
	}
	return 0;
}
#include <iostream>
using namespace std;
void main()
{
	for (int i=1; i<=100; i++){
		if(i%3&&i%5) cout << i;
		else{
			if(!(i%3)) cout << "Fizz";
			if(!(i%5)) cout << "Buzz";
		}
		cout << endl;
	}
}
class FizzBuzz
{
	static void Main()
	{
		for(int i=1;i<=100;i++)
		{
			if((i%3!=0)&&(i%5!=0)){
				System.Console.Write(i);
			}else{
				if(i%3==0)System.Console.Write("Fizz");
				if(i%5==0)System.Console.Write("Buzz");
			}
			System.Console.Write("\n");
		}
	}
}
var st;
for(var i=1;i<=100;i++){
	if(i%3&&i%5) st += i;
	else{
		if(!(i%3)) st += 'Fizz';
		if(!(i%5)) st += 'Buzz';
	}
	st += '<br />';
}
for i in range(1,101,1):
	txt = ""
	if (i%3!=0)and(i%5!=0):
		txt = i
	else:
		if(i%3==0):
			txt += "Fizz"
		if(i%5==0):
			txt += "Buzz"
	print txt
for i in 1..100
	if(i % 3 != 0)&&(i % 5 != 0) then puts i
	else
		print "Fizz" if i % 3 == 0
		print "Buzz" if i % 5 == 0
		print "\n"
	end
end
Public Class Form1

	Dim i As Integer
	Dim s As String

	Private Sub Button1_Click(※) Handles Button1.Click
		For i = 1 To 100 Step 1
			If (i Mod 3 <> 0) And (i Mod 5 <> 0) Then
				s = s & i
			Else
				If (i Mod 3 = 0) Then
					s = s & "Fizz"
				End If
				If (i Mod 5 = 0) Then
					s = s & "Buzz"
				End If
			End If
			s = s & vbCrLf
		Next
		TextBox1.Text = s
	End Sub
End Class

※=ByVal sender As System.Object, ByVal e As System.EventArgs