当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 以下函数的功能是:将一个(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)nMod2&binary(15)binary

  参考解析

十进制转换为二进制的基本方法是将十进制数与2相除取余数,并把这些余数倒序连接起来。为了做到倒序连接需要将后计算的余数连接在原有值的前面,所以[14]空填nMod2&binary,其中nMod2为新计算的余数,binary是已连接好的余数,其初始值为空串。计算结束后需要将转换结果赋值给函数名作为函数的返回值,故[15]空应填binary。

微信端