VB编程序实现一个十进制数转换成2进制的数?
发布网友
发布时间：2022-05-01 08:03
共2个回答
热心网友
时间：2022-06-26 11:47
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
<>
0
form1.print
"转换为二进制数为：";
bin
热心网友
时间：2022-06-26 11:47
Sub
Command1_Click()
bin(Text1.Text)
End
Sub
Function
bin(n
As
Long)
As
String
Do
Until
n
=
0
bin
=
(n
Mod
2)
&
bin
n
=
n
\
2
Loop
End
Function
