以下函数的功能是:将一个(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
主观题
以下函数的功能是:将一个(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