用途：将十进制转化为二 进 制
目前成都创新互联已为上千的企业提供了网站建设、域名、网络空间、网站托管、服务器托管、企业网站设计、邕宁网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
' 输入：Dec(十进制数)
' 输入数据类型：Long
' 输出：DEC_to_BIN(二 进 制数)
' 输出数据类型：String
' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)
Public Function DEC_to_BIN(Byval Dec As Long) As String
DEC_to_BIN = ""
Do While Dec 0
DEC_to_BIN = Dec Mod 2 DEC_to_BIN
Dec = Dec \ 2
Loop
End Function
Private Sub Command1_Click()
Dim a As String
Dim b As Long 'b是你要转换的数
a = DEC_to_BIN(b)
End Sub
转换成十六进制
hex()
如：10（十进制）:hex(10)=a
转换成8进制oct()
如：10（十进制）:oct(10)=12
转换成2进制，使用下面的方法
'采用连除2取余数，将一个十进制数转换为二进制数
dim
dec
as
integer
'输入一个十进制数
dim
bin
as
string
'转换为二进制表示
dim
res
as
integer
dim
i
as
integer
dec
=
val(inputbox("x="))
form1.print
"十进制数：";
dec
do
res
=
dec
mod
2
'求出除以2的余数
bin
=
res
bin
dec
=
dec
\
2
loop
while
dec
form1.print
"转换为二进制数为：";
bin
1、首先，定义两个整型变量，保存计算出的每位二进制数和二进制位数的统计。
2、定义一个实型变量，保存计算的十进制小数。
3、输入一个十进制小数，保存在变量d中。
4、do-while循环中，将十进制小数乘以2。
5、取十进制数的整数部分，保存在变量b中。
6、输出该位的二进制数，同时将十进制数的整数部分减掉。
7、运行程序，输入任意一个十进制小数，计算机就会输出相应的二进制小数。
10进制数转换为2进制数的方法，其实就是把10进制数不断除以2，然后把每次相除的余数按逆序的方式排列出来就是了（此方法适用于10进制数转换为任意n进制数，只要把上述的2换为n即可，当然，如果n大于10，就要用其他符号来代替大于10的数了，比如16进制的ABCDEF）
d = Val(InputBox("请任意输入一个整数")) 'd是任意一个10进制整数
n = 2 '转为二进制
h = "" 'h是用来存放二进制数的字符串
Do While d 0 '如果d大于0就继续循环
h = (d Mod 2) h '把d与2相除的余数进行拼接
d = d \ 2 '把d与2进行整除
Loop
MsgBox d "转为二进制是" h '显示结果
重庆分公司
重庆分公司
