将十进制转换成十六进制的代码如下：

Private Sub Form_Click()

Const aa = "8003100000918B0000000000000000000000008560"

 xx = Val("&H" & Mid(aa, 渗消7, 8) & “&”)

Text1.Text = 链扰xx

End Sub

扩展资料

十六进制转换有16进制每一位上可以是从小到大为0、1、2、3、4、5、6、7、8、9、A、B、C、D、E、F16个大小不同的数，即逢16进1，其中用A，B，C，D，E，F（字母使用大写）这六个字母来分别表示10，11，12，13，14，15。

16进制即逢16进1，每一位上可以是从小到大为0、1、2、3、4、5、6、7、丛唤知8、9、A、B、C、D、E、F共16个大小不同的数。16进制转换即16进制与其他不同进制之间的换算转换，常见如2进制、8进制、10进制等进制。

16进制数的第0位的权值为16的0次方，第1位的权值为16的1次方，第2位的权值为16的2次方……

所以，在第N（N从0开始）位上，如果是是数 X （X 大于等于0，并且X小于等于 15，即：F）表示的大小为 X * 16的N次方。

例：2AF5换算成10进制:

用竖式计算：

第0位： 5 * 16^0 = 5

第1位： F * 16^1 = 240

第2位： A * 16^2= 2560

第3位： 2 * 16^3 = 8192

-------------------------------------

10997

直接计算就是：

5 * 16^0 + F * 16^1 + A * 16^2 + 2 * 16^3 = 10997