VB常用算法（四）进制转化

1.算法描述

1)十进制正整数M转换成R (2-16)中的字符串。

思路:将M除以R得到余数，直到商为0，将余数求逆得到结果。

算法实现:

私有函数Tran(ByVal m为整数，ByVal r为整数)为字符串

Dim str tor为字符串，n为整数

[br/]边做边做

n = m Mod r

m = m \ r

如果n > 9，则

str dtor = Chr(65+n-10)& str dtor

其他

StrDtoR = n & StrDtoR

结束If

循环

Tran = StrDtoR

结束函数

2) R (2-16)十进制字符串转换为十进制正整数。

思路:R十进制数是每一位数的和乘以重量。

算法实现:

私有函数Tran(ByVal s为字符串，ByVal r为整数)为整数

Dim n为整数，dec为整数

s = UCase(Trim)

For i% = 1 To Len

如果Mid(s，I，1) >= "A "，则

n = Asc(Mid(s，I，1)) - Asc("A") + 10

其他

n = Val(Mid(s，I，1))

结束If

dec = dec + n * r ^

接下来我

Tran = dec

结束函数