在VB中，二进制与十进制转换可通过以下方法实现：
一、二进制转十进制
使用`B2D`函数 适用于将二进制字符串转换为十进制整数。 ```vb
Public Function B2D(ByVal bstr As String) As Long
Dim n As Integer, s As Long, i As Integer, w As Integer
n = Len(Trim(bstr))
s = 0
For i = n To 1 Step -1
w = Val(Mid(bstr, i, 1))
s = s + 2 ^ (n - i) * w
Next i
B2D = s
End Function
```
参数：
`bstr`为二进制字符串。
使用`StrConv`函数
通过指定转换类型`vbBinary`实现快速转换。 ```vb
Dim binaryString As String = StrConv(42, vbBinary) ' 结果为"101010" 。
```
二、十进制转二进制
使用`Convert.ToString`方法
简单快捷，支持直接转换。 ```vb
Dim decNumber As Integer = 42
Dim binString As String = Convert.ToString(decNumber, 2) ' 结果为"101010"。
```
使用`StrConv`函数
通过指定转换类型`vbBinary`实现。 ```vb
Dim binaryString As String = StrConv(42, vbBinary) ' 结果为"101010"。
```
手动实现（循环法）
通过取余和整除操作逐位构建二进制字符串。 ```vb
Function DecimalToBinary(ByVal decimalNumber As Integer) As String
Dim binaryString As String = ""
Do While decimalNumber > 0
binaryString = CStr(decimalNumber Mod 2) & binaryString
decimalNumber = decimalNumber 2
Loop
Return binaryString
End Function
```
示例： `DecimalToBinary（42）`返回"101010"。
三、其他进制转换
十六进制转二进制：可通过`B2D`函数或手动将每个十六进制位转换为4位二进制实现。
二进制转十进制：使用`B2D`函数或`StrConv`函数。
以上方法覆盖了VB中常见的进制转换需求，可根据具体场景选择合适的方式。