VB 16进制转10进制

蔡鸟编程中遇到了个问题，代码如下

Private Sub CommandButton1_Click()
Dim test1 As Long
test1 = &H7999
test2 = &H8000
Debug.Print "test1:" & test1
Debug.Print "test2:" & test2

End Sub

结果：
test1:31129
test2:-32768

为何&H8000 以下的转化都是正确的，&H8000以上的转换为16进制后都变成负数了，问题在那里？

---

给你个现成的,不要你积分
http://download.csdn.net/source/1212613

---

默认的&Hxxxx是Integer类型的，你要在末尾加&声明为Long类型的。

VB code:

Private Sub CommandButton1_Click()
Dim test1 As Long
test1 = &H7999&
test2 = &H8000&
Debug.Print "test1:" & test1
Debug.Print "test2:" & test2
End Sub

---

学习