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