在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中常见的进制转换需求，可根据具体场景选择合适的方式。