关于二进制的两个简单问题。

[gshope]

1。把16进制转成2进制有现成函数吗？
2。如何实现两个二进制数的按位与运算？

[cd_dragon]

1、没有，搜索一下，很多关于此的贴子
2、写函数，循环分别比较，都是1则1，否则为0

[holydiablo]

因为没有2进制的变量方式，所以也不可能提供这样的函数
不过16到2进制还是简单的，因为可以按权展开
每一位16进制可以变成4位2进制，这个完全可以一一对应

VB中位与运算符就是AND，好象没有什么好问的啊

[of123]

是十六进制字符串与二进制字符串转换吗？现写一个：
Public Function Hex2Bin(ByVal HexString As String) As String
Dim i As Long
If Not HexString Like "*[!0-1A-Fa-f]*" Then
MsgBox "含有非法字符"
Exit Function
End If
For i = 1 To Len(HexString)
Hex2Bin = Hex2Bin & Choose(Val("&H" & Mid(HexString, i, 1)) + 1, _
"0000", "0001", "0010", "0011", "0100", "0101", "0110", "0111", _
"1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111")
Next i
End Function