数字转换问题

' 用途：将十进制转化为二进制
' 输入：Dec(十进制数)
' 输入数据类型：Long
' 输出：DEC_to_BIN(二进制数)
' 输出数据类型：String
' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)
Public Function DEC_to_BIN(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

'上面是计算的函数,下面是实现这个函数的转换过程
一个按钮Command1,两个文本框:text1,text2
代码如下:
Private Sub Command1_Click()
Dim ret As String
Dim x As Long
x = Val(Text1.Text)
ret = DEC_to_BIN(x) '()内是相应十进制的数字
Text2.Text = ret
End Sub

：15 - 离问题结束还有 14 天 23 小时
比起瑞星，天网等专

利用二进制的原理写一个方法就可以了，个位以上的用除2的余方法，小数位用乘2的余方法，你分数给得那么低，我就不具体写了，就告诉你上面的原理

整数部分用除2余1法。。。小数用乘2取1法。。