怎么从十进制到二进制呢？

Private Function Dec2Bin(ByVal Dec As Long) As String
    Do
        Dec2Bin = Dec2Bin & (Dec Mod 2)
        Dec = Dec \ 2
    Loop Until Dec < 2
    Dec2Bin = Dec2Bin & Dec
    Dec2Bin = StrReverse(Dec2Bin)
End Function

能帮我解释一下嘛

你学过计算机的基础知识吗？

书本上教过我们如何转换进制的。

基本上只要是一本电脑书都有这些东西