87,988
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
evan_fu 2004-02-04
- 打赏
- 举报
Private Sub CommandToClick()
IF TextAName.Text <> "" THEN
TextBName.Text = TransToDec(TextAName.Text)
END IF
End Sub
Private 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 Function
Private 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
IF TextAName.Text <> "" THEN
TextBName.Text = TransToDec(TextAName.Text)
END IF
End Sub
Private 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 Function
Private 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
evan_fu 2003-12-01
- 打赏
- 举报
Q_Q
xuzuning 2003-10-12
- 打赏
- 举报
alert(parseInt("011",2)); //3
miss_yu 2003-10-12
- 打赏
- 举报
急﹐加分求解,謝謝
miss_yu 2003-10-12
- 打赏
- 举报
隨便
xishanlang2001 2003-10-12
- 打赏
- 举报
二进位是什么类型的数据？字符串的吗？
Recon 2003-10-12
- 打赏
- 举报
楼上的正解
另外给个例子参考一下：^_^
------------------------------------------------------------------------
<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>
另外给个例子参考一下：^_^
------------------------------------------------------------------------
<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>
