Question

vb中怎么把两个byte型变成一个Integer

我知道c语言可以这样写：
uchar a = 0xcc, b = 0x05;
int c = 0;
c = b;
c = c<<8;
c = c & a;
请问用VB语言怎么写？

Answer 1

如果c>32767，楼上方法有可能溢出，可以这样：

Private Sub Command1_Click()
Dim a As Byte, b As Byte, c As Integer
a = &HC
b = &H50
c = Val("&H" & Hex(b) & IIf(a < 16, "0", "") & Hex(a))
MsgBox c
End Sub

Answer 2

可以让它 乘于 256 ，使8位二进制左移8个位，然后与另个8位二进制相加。
看看效果：
Private Sub Command1_Click()
Dim b1 As Byte, b2 As Byte
b1 = &H43
b2 = &HDD
Dim i As Integer
i = b1 * 256 + b2
MsgBox Hex(i)
End Sub

Answer 3

Dim HH, LL As Byte

HH = &HFF '''H
LL = &HF6 '''L

Dim Yvalue As Integer
Yvalue = Val("&H" & Hex(HH) & IIf(LL < 16, "0", "") & Hex(LL))

Text14.Text = Yvalue / 100 ''显示 -0.1

Answer 4

可以重新redim一下