谁能提供进制转换的VB算法!!

来源：百度知道 编辑：UC知道 时间：2024/06/16 11:43:02
我要实现十、二、八、十六进制的相互转换，
谁能提供一下算法以及相关说明！谢谢！！
（源码也可以）
有QQ 573511595

' 用途：将十进制转化为二 进 制
' 输入：Dec(十进制数)
' 输入数据类型：Long
' 输出：DEC_to_BIN(二 进 制数)
' 输出数据类型：String
' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)

Public Function DEC_to_BIN(Byval Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function

' 用途：将二 进 制转化为十进制
' 输入：Bin(二 进 制数)
' 输入数据类型：String
' 输出：BIN_to_DEC(十进制数)
' 输出数据类型：Long
' 输入的最大数为1111111111111111111111111111111(31个1),输出最大数为2147483647

Public Function BIN_to_DEC(ByVal Bin As String) As Long
Dim BIN_to_DEC As Long
Dim Bin As String
Dim i As Long
Bin = TextBox1.Text
If InStr(Val(Bin), 2) = 0 & InStr(Val(Bin), 3) = 0 & InStr(Val(Bin), 4) = 0 & InStr(Val(Bin), 5) = 0 & InStr(Val(Bin), 6)