![[填空题] 以下函数的功能是：将一个(0～255)之间十进制数转换为二进制数，例如：将十进制数7转换为二进制数00000111，请填空。 Private Function Dtob(decade A](http://www.mshxw.com/aiimages/31/261770.png "[填空题] 以下函数的功能是：将一个(0～255)之间十进制数转换为二进制数，例如：将十进制数7转换为二进制数00000111，请填空。 Private Function Dtob(decade A")
[填空题] 以下函数的功能是：将一个(0～255)之间十进制数转换为二进制数，例如：将十进制数7转换为二进制数00000111，请填空。
Private Function Dtob(decade As String) As String
Dim binary As String
binary=""
n=Val(decade)
For i=1 To 8
binary= (14)
n=n2
Next i
Dtob= (15)
End Function
参考答案：
(14)n Mod 2 & binary (15)binary问题解析:
十进制转换为二进制的基本方法是将十进制数与2相除取余数，并把这些余数倒序连接起来。为了做到倒序连接需要将后计算的余数连接在原有值的前面，所以[14]空填n Mod2 & binary，其中n Mod 2为新计算的余数，binary是已连接好的余数，其初始值为空串。计算结束后需要将转换结果赋值给函数名作为函数的返回值，故[15]空应填binary。
