1,502
社区成员
发帖
与我相关
我的任务
分享
Dim n As Variant
Dim strOut As String
n = CDec("289356276212170752")
Do While n > 0
If Int(n / 2) = n / 2 Then
strOut = "0" & strOut
Else
strOut = "1" & strOut
End If
n = Int(n / 2)
Loop
MsgBox strOut