用hex函数。
Dim MyHex
MyHex = Hex(5)   ' 返回 5。
MyHex = Hex(10)   ' 返回 A。
MyHex = Hex(459)   ' 返回 1CB。

解决方案 »

  1.   


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

  2.   

    十六进制=Hex(十进制)
    十进制=CLng("&H" & 十六进制)先转换成十进制,运算,再转回去