VB程序代码，编制一个将十进制整数转换为二进制数的程序。

用途：将十进制转化为二 进 制

目前成都创新互联已为上千的企业提供了网站建设、域名、网络空间、网站托管、服务器托管、企业网站设计、邕宁网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

' 输入：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

VB编程序实现一个十进制数转换成2进制的数？

转换成十六进制

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

vb十进制转二进制

1、首先，定义两个整型变量，保存计算出的每位二进制数和二进制位数的统计。

2、定义一个实型变量，保存计算的十进制小数。

3、输入一个十进制小数，保存在变量d中。

4、do-while循环中，将十进制小数乘以2。

5、取十进制数的整数部分，保存在变量b中。

6、输出该位的二进制数，同时将十进制数的整数部分减掉。

7、运行程序，输入任意一个十进制小数，计算机就会输出相应的二进制小数。

求在vb中十进制转换为二进制的代码(附带每一句的意思)

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   '显示结果