Public Function DEC_BIN(ByVal Dnum As Long) As String '十进制转二进制的函数，参数为Long型数，返回一个字符串
Dim xx As String '定义字符串变量xx，存储返回的字符串
Dim yy As Integer '定义一个整型变量yy，存储计算过程中产生的临时结果
xx = "" '先将返回的字符串置为空
Do While Dnum > 0 '使用do循环，结束条件为输入的值变为<=0
yy = Dnum Mod 2 'yy存放Dnum取余2的结果
Dnum = Dnum \ 2 'Dnum将自己整除2后再赋值给自己
xx = Trim(Str(yy)) & xx '将yy转化为字符串后累加给xx，高位在前
Loop
DEC_BIN = xx '最后将计算的结果赋值给DEC_BIN，作为返回值
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024