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

发布时间：2020-12-16 23:31:12 所属栏目：大数据来源：网络整理

作者：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值，他的实现方式就是复制内存。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!