Question

编写一个将N进制数转换成十进制数的VB通用过程 要完全的

Answer 1

'说明，比如16进制：abcde转10进制 ,to10("abcde",16)Function To10(ByVal str As String, ByVal N As Integer) As Long
Dim sc As String, s As String
sc = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
str = UCase(str)

Dim i As Integer, x As Integer, ln As Integer, value As Long
ln = Len(str)

For i = ln To 1 Step -1
s = Mid(str, i, 1)
x = InStr(sc, s) - 1
value = value + x * N ^ (ln - i)
Next
To10 = valueEnd Function