Question

VB 中怎么将 十进制转换成十六进制

在FORM1 新建一个Text控件 和一个Command控件
要求在Text1里输入数值后，点击Command1时当初弹出一个提示框内容为Text里面的数值转换成十六进制后的数值
比如说 我在Text1里输入了54632 当我点击Command1时会弹出一个提示框，提示框的内容为 D568
能否提供代码 谢谢

Answer 1

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

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

Answer 2

使用 VB Hex 函数即可。

Hex 函数可以将一个数值转换为16进制的字符串String类型。

语法：Hex(number)

　　实例：

    Msgbox Hex(3)      '3
    Msgbox Hex(10)     'A
    Msgbox Hex(123)    '7B
    Msgbox Hex(&H123)  '123

Answer 3

Private Sub Command1_Click()
MsgBox = Hex(Val(Text1))
End Sub