Question

N进制转化为十进制VB算法

Answer 1

N进制转换成十进制 （十六进制除外）
Dim u As Double, x As Double, z As Double
u = 0
x = Len(数据)
For Y = 0 To x - 1
x = x - 1
z = Mid( 数据 , Y + 1, 1)
u = u + Val(z) * ( 进制数 ） ^ x
Next

十六进制转成十进制
Dim u As Double, x As Double
u = 0
x = Len( 数据 )
For Y = 0 To x - 1
x = x - 1
z = Mid( 数据 , Y + 1, 1)
If z = "A" Then
z = 10
ElseIf z = "B" Then
z = 11
ElseIf z = "C" Then
z = 12
ElseIf z = "D" Then
z = 13
ElseIf z = "E" Then
z = 14
ElseIf z = "F" Then
z = 15
End If
u = u + Val(z) * 16 ^ x
Next

Answer 2

'by 竹潺◎水墨，绝对原创，直接调用即可，现在献出来了，例如:me.caption=jzToDec("a",16)
Public Function jzToDec(pStr As String, Optional jz As Long = 2, Optional wrong As Boolean) As Long
Dim i

Answer 3

例如二进制转换成十进制：1101(2)=1*2^3+1*2^2+0*2^1+1*2^0=13(10)