欢迎光临:
非常感谢您光临枕善居。本站是一个免费的基于VB，VB.NET源代码交流的平台，为大家提供优质的专业的源代码，如果您有需要，本站可以帮助在业余时间里给您寻找代码。当然，如果您有好的代码也可以在本站发布，共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源)
智能多路控制(串口编程开关) 带源码!
上一篇
下一篇
05-05
09
二进制字符串转为长整型
作者:枕善居主 / 查看次数: 5199 / 评论: 1
Function Bin2Long(b as string) as Long
Dim o as Long, i as Integer
o = 0
For i = len(b) To 1 step -1
If mid(b, i, 1) = "1" Then
o = o + 2 ^ (len(b) - i)
End If
Next i
End Function
Dim o as Long, i as Integer
o = 0
For i = len(b) To 1 step -1
If mid(b, i, 1) = "1" Then
o = o + 2 ^ (len(b) - i)
End If
Next i
End Function
相关日志:
文章来自: 
引用通告: 
Tags: 
评论: 1 | 
回复
caicaisin
[2005-05-09 20:02:51 | 
| 
]发表评论
您没有权限发表评论！
