Question

VB中，字符串与十六进制的问题

代码如下：
Dim a, b As String
Dim c As Integer
a = "FF"
b = "FF"
c = Hex(Val("&H" & a & b))
MsgBox Hex(c)
为什么c赋值失败，显示 type mismatch？
有什么办法可以让c可以装下此十六进制呢？c的大小只能为2个byte

Answer 1

改成
Dim a, b As String
Dim c As Integer
a = "FF"
b = "FF"
c = Val("&H" & a & b)
MsgBox Hex(c)
不就可以了吗？HEX函数时把数转换为16进制字符串，c你定义成integer类型，当然类型不对了

Answer 2

Dim a, b As String
Dim c As long
a = "FF"
b = "FF"
c = "&H" & a & b
MsgBox Hex(c)

Answer 3

16进制的ffff转换成int为65535
所以它超过了-65535-65534的范围
所以您定义为double试试看，应该就行了