Msgbox Val(“1000”) AND Val(“1001”) ---=1000Msgbox Val(“1001011”) AND Val(“1000000”) ---=99936,为什么不是1000000呢谢谢
解决方案 »
- [请教] VBA定时执行某段代码
- 贺女儿周岁生日!!!散分!!!
- ListView的两个小问题。
- 有个MD5的类在检测文件时比较慢懂这方面的高手帮修改下
- 关于VB编程的,里面有这个赋值号":=",请问是什么意思,与=号有什么不同
- 如何判断一个IP地址是处于连通状态
- 如何从数据库中读取数据到TreeView控件中?
- Dbgrid的的使用疑问!
- 几个常用算法,帮忙调试一下,在线等候,立即给分!不够在加(每题20分,还有2000多分)
- 有关ListView的小问题
- 请问:如何用VB实现远程重新启动某台电脑的IIS服务?另外,如何取得远程电脑当前的内存使用情况?谢谢!
- DhcpNotifyConfigChange这个函数总是返回错误码啊!
1001011 转换成2进制为 11110100011000110011
1000000 转换成2进制为 11110100001001000000
and后的结果就是 11110100001000000000 就是999936
Private Sub Form_Load()
Dim a, b, i As Long
Dim s As String
a = 1001011
s = Str$(a)
For i = Len(s) To 1 Step -1
If Val(Mid(s, i, 1)) = 1 Then b = b + 2 ^ (Len(s) - i)
Next i
MsgBox b
End Sub