#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

タグ:

+ タグ編集
  • タグ:
最終更新:2010年03月21日 02:18