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

会计考友

(2-16)进制字符串转换为十进制正整数。
6 o$ }1 N+ e" Z　　思路：R进制数每位数字乘以权值之和即为十进制数。
  ^% }1 R  r4 @- H　　算法实现：
. |, }+ B& R0 i以下是引用片段：
　　Private Function Tran(ByVal s As String, ByVal r As Integer) As integer
　　Dim n As Integer, dec As Integer
　　s = UCase(Trim(s))
　　For i% = 1 To Len(s)
+ d( W- t& }" K9 `6 s2 I　　If Mid(s, i, 1) >= "A" Then
　　n = Asc(Mid(s, i, 1)) - Asc("A") + 10
0 Z" X1 h1 A) Z! Q　　Else
　　n = Val(Mid(s, i, 1))
% x7 G5 c* X8 `　　End If
3 g( c: F/ P, g! k/ D　　dec = dec + n * r ^ (Len(s) - i)
　　Next i
　　Tran = dec
　　End Function