[填空题] 以下函数的功能是：将一个(0～255)之间十进制数转换为二进制数，例如：将十进制数7转换为二进制数00000111，请填空。 Private Fu

[填空题] 以下函数的功能是：将一个(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。