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