计算机二级VB常用算法：进制转化进制字符

会计考友

(2-16)进制字符串转换为十进制正整数。
　　思路：R进制数每位数字乘以权值之和即为十进制数。
　　算法实现：
& O- x' q* O( n以下是引用片段：
# t+ t3 D! _4 [0 P& I# M3 Y9 a　　Private Function Tran(ByVal s As String, ByVal r As Integer) As integer
9 |+ n; ]& S7 J1 C　　Dim n As Integer, dec As Integer
　　s = UCase(Trim(s))
4 d; s( t/ _" _2 L　　For i% = 1 To Len(s)
8 Q1 I( a/ [9 `$ e( Z6 m　　If Mid(s, i, 1) >= "A" Then
$ G# H+ j( {) a( g4 O& @　　n = Asc(Mid(s, i, 1)) - Asc("A") + 10
　　Else
　　n = Val(Mid(s, i, 1))
/ b: c, |5 b" `9 t3 c% z　　End If
　　dec = dec + n * r ^ (Len(s) - i)
" P6 D6 w8 Q0 c0 D: s: g0 i　　Next i
　　Tran = dec
　　End Function