<%
a=01101110'八位2进制数,随便改
b=Len(a)
m=0
For i = -b to -1
d=mid(a,i+b+1,1)
c=(d*2)^(abs(i)-1)
If (abs(i)=1) And (d=0) Then'因为0^0为1,但实际我们需要0
response.write c-1&"="
elseif abs(i)=1 Then
response.write c&"="
Else
response.write c&"+"
End if
If (abs(i)=1) And (d=0) Then'这个是运算结果用的,是一样的,我们需要0,多了一个1,键去它
m=m+c-1
Else
m=m+c
End If
next
response.write (m)
%>
这是一个2进制转十进制的代码
一开始老出现错误,发现
Mid()和Len()函数只有在左起不为零的一位数才开始算第一位,依次类推Left()与Right()也应该如此
进行更正后,第一个Mid(a,1,1)就不是第八位了,不过影响不大
自己总结得出进制某位数大小
应为其值乘以进制值的位数减一次方
比如十进制
10二位
进制值为10
那么十进制转十进制就为
1*(10^(2-1))其他位数均为如此
ASP心得(二进制转10进制)[第一篇]
最新推荐文章于 2022-04-10 21:54:08 发布
本文介绍了ASP中将二进制转换为十进制的算法实现过程,通过循环处理二进制数的每一位,利用Mid()函数结合位数权重进行转换。在代码实现中,特别注意了0^0等于1的特殊情况,并解决了位数方向与Mid()取值方向相反的问题,最终通过累加变量m实现了结果的正确计算。
摘要由CSDN通过智能技术生成