''' <summary>
''' 表示十进制的二进制字符串
''' </summary>
''' <param name="Bin">表示二进制的字符串</param>
''' <returns>返回十进制结果</returns>
''' <remarks></remarks>
Public Function BIN_to_Dec(ByVal Bin As String) As Integer
Dim intDec As Integer '保存最终结果
Dim intBinLen As Integer '录入的2进制字符串长度
Dim intLocation As Integer '定位要处理的2进制字符的位置
Dim intPresentBit As Integer '当前2制进的10进制值
intBinLen = Len(Bin)
intLocation = intBinLen
For i = 0 To intBinLen - 1
intPresentBit = CInt((Mid(Bin, intLocation, 1))) * 2 ^ i
intLocation -= 1
intDec += intPresentBit
Next i
Return intDec
End Function
