vb中位操作 （在线等，满意即结贴）

[还有人用VB6吗]

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

[白云飘飘飘]

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

Debug.Print Hex(val)

[还有人用VB6吗]

&HFF0F&
是什么意思？

[还有人用VB6吗]

&HFFFFFFFF ？

[白云飘飘飘]

val = &HFFFFFFFF换成你自己的值

[还有人用VB6吗]

就是我转换前的 Integer 变量？

[还有人用VB6吗]

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

[白云飘飘飘]

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

[还有人用VB6吗]

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

[Tiger_Zhao]

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

[还有人用VB6吗]

第一字节的低四位与第二字节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

[还有人用VB6吗]

谢谢，我调试下看看

[还有人用VB6吗]

搞定了，谢了