用函数Oct()将十进制位数 转换为八进制，用Hex（）将十进制位 数转换为十六进制，不过值得注意的 是转换后数字型变为字符型。如果是 一个变量我们可以用如下代码完成十 进制向其他进制转换的目的。
　　dim Anum as long
　　Anum＝& 010 '＆0是八进制的 表示符号Anum自行转换为8。
　　Anum＝＆HA '＆H是十六进制的 表示符号Anum自行转换为10。
　　如果我们有一个字符变量Astring 为八进制的或十六进制的，用Anum=” ＆0” ＋ Astring和Anum＝“＆H”＋Astring 能将它转换为十进制。
　　VB中我没有找到二进制的转换函 数，用如下代码可以实现十进制到二进 制的转换。
　　Option Explicit
　　Ptivate FunctiOn TenturnTwo (ByVal varNum As Long）
　　Dim returnString As String，ModNum As Integer
　　DO While varNum> 0
　　ModNum=varNum Mod 2
　　varNum=varNum\2
　　returnString＝Trim（Str （ModNum））+returnString
　　Loop
　　TenturnTwo=returnString
　　End Function
　　Private Function TwoturnTen （ByVal varString As String）
　　Dim Slen As Long，I As Long，
　　returnNum As Long
　　Slen=Len(varString)
　　For I=o To Slen-1
　　returmNum＝returnNum ＋Val（Mid (varString，I＋1，1））*（2^（Slen-I-1))
　　Next
　　TWoturnTen=returnNum
　　End Function