10進数(＋－)→2進数への変換

質問

１０進数　正・負の整数を2進数に変換する方法を
ご存知の方ご教示の程宜しくお願いいたします

回答No.2

diashun

Private Sub Command1_Click()
　　dim lngDecNum as Long
　　dim strBinNum as String

　　lngDecNum = CLng(Text1.txt)
Do
strBinNum = CStr(lngDecNum Mod 2) & strBinNum
lngDecNum = Fix(lngDecNum / 2)
Loop While lngDecNum > 0
Label1.Caption = strBinNum
End Sub

TextBox と Label1を使って表示させています。

回答No.1

Veil

アクセサリから電卓を起動します
表示から関数計算機にします
10進数で入力し+/-ボタンを押して2進数ボタンを押します

暗算でやるには教科書を読むか、「進数変換」を検索してください

お礼

有難うございます
　ご説明不足で申し訳御座ません
ＶＢにて関数を作成したいと思っております
宜しくお願いいたします

補足

１０進数：正の整数、負の整数
２進数：16bitで16bit目が符号bit扱いです
宜しくお願いいたします