急急急！！为什么我调用函数将16进制转换成二进制总是数不对！！！

Question

http://www.csdn.net/expert/topic/853/853284.xml?temp=.4866602

Answer 1

http://www.csdn.net/expert/topic/788/788724.xml?temp=.6203424

Answer 2

进制转化相关贴子：
http://www.csdn.net/expert/topic/702/702004.xml?temp=.5143549
http://www.csdn.net/expert/topic/670/670623.xml?temp=.1453516
http://www.csdn.net/expert/topic/669/669329.xml?temp=.7846186
http://www.csdn.net/expert/topic/668/668288.xml?temp=.5115167
http://www.csdn.net/expert/topic/661/661706.xml?temp=.4214899
http://www.csdn.net/expert/topic/658/658476.xml?temp=.3378717
http://www.csdn.net/expert/topic/657/657002.xml?temp=.3998529
http://www.csdn.net/expert/topic/635/635224.xml?temp=.7371942
http://www.csdn.net/expert/topic/631/631897.xml?temp=6.342715E-02

Answer 3

'/'是精确的除，你这里应该用整除号‘\’,现在已经对了，你试一下。Private Function Ten2Two(ByVal varNum As Long)
Dim returnString As String, ModNum As Integer
    Do While varNum > 0
        ModNum = varNum Mod 2
        varNum = varNum \ 2
        returnString = Trim(Str(ModNum)) + returnString
    Loop
    Ten2Two = returnString
End Function

Answer 4

varNum = varNum / 2
改：（整除）
varNum = varNum \ 2