以下函数的功能是:将一个(0~255)之间十进制数转换为二进制数,例如:将十进制数7
题型:填空题
问题:
以下函数的功能是:将一个(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=n\2
Next i
Dtob= (15)
End Function