[填空题] 以下函数的功能是:将一个(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
[填空题] 以下函数的功能是:将一个(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。
VIP截止日期:2024-12-31 04:02:34
←请使用支付宝扫码支付VIP截止日期:2024-12-31 04:02:34
←请使用微信扫码支付