读书人

请问一个关于算发的有关问题

发布时间: 2012-03-03 15:33:03 作者: rapoo

请教一个关于算发的问题!
我想用ASP实现一个算法,具体如下
一个字节由8位二进制数字组成,既 "0 "和 "1 "
那么1个字节有多少种组成方式,既求 "0 "和 "1 "的组成数目
如下:
00000000 1
00000001 2
00000010 3
00000011 4
………… N
N等于多少?

[解决办法]
2的8次方,把它当作数组来看,一个未知长度的数组,它的集合数就是2的[数组长度]次方
例如:
a = Array(1, 1, 1, 1, 1, 1, 1, 1)
集合数就是
2 ^ (UBound(a) + 1)

http://community.csdn.net/Expert/topic/5430/5430564.xml?temp=.8955652

这里有个任意进制转换的函数,可以参考一下

[解决办法]
'二进制转十进制

Function BinToD(s)
Dim ret,tmps,subi
ret=0
tmps=Trim(CStr(s))
If IsNumeric(s) Then
If Replace(Replace(tmps, "1 ", " "), "0 ", " ")= " " Then
For i=Len(tmps) To 1 Step -1
subI=CInt(Mid(tmps,Len(tmps)-i+1,1))
ret=ret+subI*2^(i-1)
Next
End If
End If
BinToD=ret
End Function

读书人网 >ASP

热点推荐