請問怎樣設計一個二進位轉十進位的程式?

楼上的正解
另外给个例子参考一下：^_^
------------------------------------------------------------------------
<html>
<head>
<title> New Document </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
//alert(parseInt("11", 2));
//alert(parseInt("11", 8));
//alert(parseInt("11", 16));//以下是将指定进制的数字转化成10进制的数字例子
//------------------------------------------------------
var intTestNum1 = 11;//将2进制的数字转化成10进制的数字
alert("2进制的数字" + intTestNum1 + "的10进制形式：" + parseInt("11", 2));//将8进制的数字转化成10进制的数字
alert("8进制的数字" + intTestNum1 + "的10进制形式：" + parseInt("11", 8));//将16进制的数字转化成10进制的数字
alert("16进制的数字" + intTestNum1 + "的10进制形式：" + parseInt("11", 16));
//以下是将数字转化成指定进制的例子
//------------------------------------------------------
var intTestNum2 = 32; //试试看 032, 0x32

//将数字转化成2进制
alert("数字" + intTestNum2 + "的2进制形式：" + intTestNum2.toString(2));//将数字转化成8进制
alert("数字" + intTestNum2 + "的8进制形式：" + intTestNum2.toString(8));//将数字转化成16进制
alert("数字" + intTestNum2 + "的16进制形式：" + intTestNum2.toString(16));
//-->
</script>
</head><body></body>
</html>

解决方案 »

  1.   

    Private Sub CommandToClick() 
        IF TextAName.Text <> "" THEN
            TextBName.Text = TransToDec(TextAName.Text)
        END IF
    End SubPrivate Function TransToDec(ByVal strBinary As String) As Long 
        On errot GoTo ErrMsg    
        Dim i As Integer
        Dim lResult As Long
    Dim iNum As Integer
        
        For i = 1 To Len(strBinary)
            iNum = CInt(Mid(strBinary, i, 1))
            If iNum > 1 Then
                TransToDec = "999999"
                Exit Function
            End If
            
            If iNum = 1 Then
                lResult = lResult + getVal ((Len(strBinary) - i))
            End If
            
        Next
        
        TransToDec = lResult
        Exit Function
        
    ErrMsg:
        TransToDec = "999999"
    End FunctionPrivate Function getVal(ByVal iTimes As Integer) As Long
        Dim i As Integer
        Dim lResult As Long
        lResult = 1
        If iTimes > 0 Then
            For i = 1 To iTimes
                lResult  =  lResult * 2
            Next
        End If
        getVal = lResult
    End Function