10进制怎样转换为16进制？16进制怎样转换为10进制？

Question

Hex 函数
      返回代表十六进制数值的 String。语法Hex(number)必要的 number 参数为任何有效的数值表达式或字符串表达式。说明如果 number 还不是一个整数，那么在执行前会先被四舍五入成最接近的整数。如果 number 为 所得为 
Null Null 
Empty 零 (0) 
任何其他的数字 最多可到八个十六进制字符。 
适当范围内的数字，前缀以 &H，可以直接表示十六进制数字。例如，十六进制表示法的 &H10 代表十进制的 16。

Answer 1

Hex 函数示例
本示例使用 Hex 函数来得到某数值的 16 进制值。Dim MyHex
MyHex = Hex(5)   ' 返回 5。
MyHex = Hex(10)   ' 返回 A。
MyHex = Hex(459)   ' 返回 1CB。

Answer 2

用函数Hex
Hex 函数
返回代表十六进制数值的 String。
语法
Hex(number)
说明
如果 number 还不是一个整数，那么在执行前会先被四舍五入成最接近的整数。
适当范围内的数字，前缀以 &H，可以直接表示十六进制数字。例如，十六进制表示法的 &H10 代表十进制的 16。
16进质转成10进制
用VAL函数
用法
val("&H"& "十六进制字符串")

Answer 3

用函数Oct()将十进制位数转换为八进制，用Hex()将十进制位数转换为十六进制，不过值得注意的是转换后数字型变为字符型。如果是一个变量我们可以用如下代码完成十进制向其他进制转换的目的。
    dim ANumaslong
    ANum=＆O10′＆O是八进制的表示符号ANum自行转换为8。
    ANum=＆HA′＆H是十六进制的表示符号ANum自行转换为10。
    如果我们有一个字符变量Astring为八进制的或十六进制的，用ANum=″＆O″＋Astring和ANum=″＆H″＋Astring能将它转换为十进制。
    VB中我没有找到二进制的转换函数，用如下代码可以实现十进制到二进制的转换。
    OptionExplicit
    Private Function TenturnTwo(ByValvarNumAsLong)   
     Dim returnStringAsString,ModNumAsInteger
    Do WhilevarNum>0
    ModNum=varNumMod2
    varNum=varNum\2
    returnString=Trim(Str(ModNum))＋returnString
    Loop
    TenturnTwo=returnString
    End Function
    Private Function TwoturnTen(ByValvarStringAsString)
    DimSLenAsLong,I As Long,returnNumAsLong
    SLen=Len(varString)
    ForI=0ToSLen－1
    returnNum=returnNum＋Val(Mid(varString,I＋1,1))＊(2^(SLen－I－1))
    Next
    TwoturnTen=returnNum
    End Function