发信人: ll99(Jade)
整理人: gzwsh(2001-10-26 22:59:07), 站内信件
|
【 在 nyxi 的大作中提到：】
:Function binNumber(ByVal sNumber As Long) As Variant
:Dim BinaryStr As Variant
:Dim Exitdiv As Boolean
:Exitdiv = False
:Do While Not Exitdiv
:
:......
程序有点小问题，就是当sNmber=0的时候，binNumber返回的是空字符串。
而且程序还能简化，修改如下：
Function binNumber(ByVal sNumber As Long) As String
Dim BinaryStr As String
BinaryStr = ""
Do
BinaryStr = sNumber Mod 2 & BinaryStr
sNumber = sNumber \ 2
Loop Until sNumber = 0
binNumber = BinaryStr
End Function
|
|