大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用途:将十进制转化为二 进 制
目前成都创新互联已为上千的企业提供了网站建设、域名、网络空间、网站托管、服务器托管、企业网站设计、邕宁网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
' 输入: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 '显示结果