VB6中十六进制常数65535的赋值

版权声明：可以任意转载，转载时请务必以超链接形式标明如下文章原始出处和作者信息及本声明

作者：xixi

出处：http://blog.csdn.net/slowgrace/archive/2009/04/28/4132758.aspx

本文来自此帖的讨论，感谢PctGL、m60a1、Tiger_Zhao的指点。

在VB6中负整数是补码表示的，因此对于integer类型（双字节）的-1，对应的十六进制表示是FFFF。而正整数是原码表示的，因此对于long类型（四字节）的65535，对应到十六进制表示也是FFFF。

试一下如下的代码：

Public Sub test()
Dim l1 As Long
Dim l2 As Long

l1 = & HFFFF
l2 = 65535

Debug . Print l1 , l2
Debug . Print Hex( l1 ), Hex( l2)
End Sub

输出是：

-1 65535

FFFFFFFF FFFF

也就是，当你把&HFFFF赋给一个长整型变量的时候，VB会自动认为这是个integer类型，所以就把它理解为-1了。如果你希望&HFFFF表示的是65535，也很简单，像下面这样：

l1 = &HFFFF&

就是最后加个“&”，呵呵。

&HFFFF&=65535

&HFFFF=-1

就是这么简单！

另外Tiger_Zhao给出这样的解释，我觉得很清楚，抄录在这里：16进制值本身是无符号的，但是 VB 的 Integer/Long 都是有符号的。在编译常量时，如果没有指定类型，总是用最小的类型来存放。&HFFFF 两字节，就用 Integer 类型存放，所以成了 -1。要定义 65535 就必须用 &HFFFF&，有了后缀 & 就会强制用 Long 存放。

另外m60a1还提出一种用字符串转换的办法，像下面这样：

l1 = "&HFFFF"

上面这个语句的实质是long = string，所隐含的代码是 clng(string)。

注意，如果是byte=string的话，就是赋值了，相当于复制内存，比如看PctGL的这个例子：

dim mulBits() as byte
dim vbstr as string
vbstr = "中国china"
mulbits = vbstr
debug . print ubound( mulbits)

输出是13，mulBits里面这时包含的是vbstr的unicode值，他的实现方式就是复制内存。