Public Function DEC_BIN(ByVal Dnum As Long) As String Dim xx As String Dim yy As Integer xx = "" Do While Dnum > 0 yy = Dnum Mod 2 Dnum = Dnum \ 2 xx = Trim(Str(yy)) & xx Loop DEC_BIN= xxEnd Function
验证是可以的
