在VB中将二进制转换为十进制数，主要有以下两种方法：
一、使用内置函数 `Val`（推荐）
VB提供了内置函数 `Val`，可以直接将二进制字符串转换为十进制数值。这是最简洁的方法，适用于合法二进制字符串的转换。
示例代码：
```vb
Dim binaryString As String = "1010" ' 二进制字符串
Dim decimalNumber As Integer = Val(binaryString) ' 转换为十进制
Console.WriteLine(decimalNumber) ' 输出 10
```
二、自定义函数实现（适用于教学或特殊需求）
若需手动实现转换逻辑，可通过循环和位运算完成。以下是具体步骤：
输入校验：
确保输入为合法二进制字符串（仅包含0和1）。
逐位计算：
从右至左遍历二进制字符串，将每一位转换为对应的十进制值，并累加。
示例代码：
```vb
Function BinToDec(binaryString As String) As Integer
Dim sum As Integer = 0
Dim power As Integer = 0
Dim digit As Integer
' 从右至左遍历字符串
For i = Len(binaryString) To 1 Step -1
digit = Val(Mid(binaryString, i, 1))
If digit <> 0 And digit <> 1 Then
Err.Raise vbObjectError + 9999, "Invalid binary number format."
End If
sum = sum + digit * (2 ^ power)
power = power + 1
Next i
Return sum
End Function
' 使用示例
Dim binaryString As String = "1010"
Dim decimalNumber As Integer = BinToDec(binaryString)
Console.WriteLine(decimalNumber) ' 输出 10
```
三、注意事项
输入验证：自定义函数需检查输入是否为合法二进制字符串，避免非法字符导致错误。
效率与简洁性：内置函数 `Val` 更高效且代码更简洁，建议优先使用。
通过以上方法，您可以在VB中实现二进制与十进制之间的转换。