如题所述
将十进制整数转为其它进制的方法，都是采用“除R反向取余”的方法。下面的程序将取余所得的余数，通过字符串连接的方法，将后得的余数连接到字符串的前面，来实现“反向取余”，比较简便：
Private Sub Command1_Click()
n = CLng(Text1.Text)
s = "" '初始化结果的字符串
Do While n > 0 '实现“除2反向取余”
s = n Mod 2 & s '将后得的余数连接到字符串的前面
n = n \ 2 '做一次除法（丢弃余数）
Loop
Text2.Text = s '将结果字符串显示到文本框
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2016-06-09
DECtoBIN = ""
Do While Dec > 0 （dec是TEXT输入的十进制值）
DECtoBIN = Dec Mod 2 & DECtoBIN （dec与2取余得出结果二进制的一位，再和前面的二进制各位做并运算）
Dec = Dec \ 2 （dec除2取整）
Loop
DECtoBIN就是转换后的二进制本回答被提问者和网友采纳
Do While Dec > 0 （dec是TEXT输入的十进制值）
DECtoBIN = Dec Mod 2 & DECtoBIN （dec与2取余得出结果二进制的一位，再和前面的二进制各位做并运算）
Dec = Dec \ 2 （dec除2取整）
Loop
DECtoBIN就是转换后的二进制本回答被提问者和网友采纳
