「2進数に変換してみる」の編集履歴（バックアップ）一覧はこちら

「2進数に変換してみる」(2010/03/21 (日) 02:18:30) の最新版変更点

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

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

#asciiart(blockquote){
#N88BASIC
Print Bin$(4294967294)

Function Bin$(i As Long) As String
	Dim j As Long
	Bin$=""
	For j=31 To 0 Step -1
		If i And Int(2^j) Then Bin$=Bin$+"1" Else Bin$=Bin$+"0"
	Next
End Function
}