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
十进制转二进制算法
1万+

被折叠的 条评论
为什么被折叠?



