none
提供一个2进制字符串(string)转换为10进制(integer)的函数 RRS feed

  • 问题

  •     ''' <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

    2010年1月30日 9:08

答案

全部回复