vb中位操作 （在线等，满意即结贴） - VB / 基础类

一个整形变量 a
我现在想取 a 的第二字节 加上 （第一字节的后四位） 的计算结果，哪位能帮忙？

---

Dim val As Long
  val = &HFFFFFFFF
  val = val And &HFF0F&

  Debug.Print Hex(val)

---

&HFF0F&
是什么意思？

---

&HFFFFFFFF ？

---

val = &HFFFFFFFF换成你自己的值

---

就是我转换前的 Integer 变量？

---

那 &HFF0F& 呢，什么意思？ 你给的这个算法能给解释下吗

---

你先说一个具体的例子，integer是多少，计算后又是多少？

---

好的。在c里，是这样做的，取integer型变量的第二字节，第二字节 加上 （第一字节 and 0F）
a=19984
转换后，得到十进制的78

---

VB code:
Option Explicit

Sub Main()
Dim a As Long
Dim b As Long
a = 19984
b = ((a And &HFF00&) \ &H100&) + (a And &HF&)
Debug.Print b
End Sub

---

第一字节的低四位与第二字节8位

---

首先注意,VB中的integer相当于c中的signed short,long相当于signed int，
  Dim a As Integer
  Dim b As Integer
  Dim c As Integer
   
   
  a = 19984
  b = a / 256//相当于右移8位,得到第二个字节
  c = a And &HF //保留第一字节的后4位
  a = b + c

---

谢谢，我调试下看看

---

搞定了，谢了