一个奇怪的16进制转10进制的问题？

Question

我的16进制转10进制是这样写的：Text2.Text = Val("&H" & "AAA")  可是我转Text2.Text = Val("&H" & "ffff")  四个FFFF 时怎么会是-1 啊？别的都没问题。还有 像001FF 转出来的是511但如何实现000511的?谢谢！

Answer 1

溢出了。    Dim x As Long
    x = Val("&H" & "FFFFF")    Text2.Text=cstr(x)
第二个问题：
?format(&H001FF,"000###")
000511

Answer 2

不是溢出，&HFFFF 默认的类型是 Integer，当然是 -1。Text2.Text = Val("&H" & "ffff" & "&")    '强制 Long 类型