版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/weiwei_c/article/details/50494627
Private Function Dec2Bin(ByRef dec As Integer, ByRef bin As String) As Boolean
Dim r As Integer
If dec > 15 Then Return False
While dec <> 0
r = dec Mod 2
dec = dec \ 2
Dec2Bin(dec, bin)
bin = bin & r.ToString
End While
Return True
End Function注意：byref