Question

VB中如何将两个单字节合成一个双字节,例如我输入两个byte类型变量

Private Sub Form_Load()
Dim DisNumber as Integer
Dim a As Byte
Dim b As Byte
a=&H80
b=&H0
DisNumber = (a * 256 + b) '将两个单字节合成一个双字节,就像C语言里把两个char类型合成一个int型
TxtDisplay.Text = Format(DisNumber, "##0") '格式化字符串
End Sub
为什么老是提示溢出呢?我这句不就相当于:
void main()
{
int total;
char a,b;
a=0x80;
b=0x00;
total=a<<8+b;
printf("%d",total);
}
输出:-32768
为什么我在VB中想得出C语言这样的结果却不能实现呢,本人才学VB,对VB中还有很多不懂,希望你们能告诉我错在哪里,要怎么修改才能在TxtDisplay.Text 显示:-32768.0
抱歉,百度不能提交追问,所以我这样写,希望你能看到(网海1书生 )
你还没有弄明白我的意思!其实我是想把一个有符号整型数据劈开成两个单字节,然后再还原成int型,我利用你的代码把a给成0xff,b不变,得出结果是:65280,而正确的答案是:-256,你现在能明白我的意思吗?

Answer 1

存在两个问题：
1、VB在计算Byte类型数的运算时，也是按Byte类型的位数来存放计算结果的，很显然，计算结果已经超出Byte的范围了；
2、计算结果不但已经超出Byte的范围，也超出Integer的范围了，所以DisNumber变量要定义为Long类型才行。
所以改为如下：
Private Sub Form_Load()
Dim DisNumber as Long '定义为Long型
Dim a As Byte
Dim b As Byte
a=&H80
b=&H0
DisNumber = a * 256& + b '把表达式中的最大数256设为Long型，VB就会按Long型存放计算结果了
TxtDisplay.Text = Format(DisNumber, "##0")
End Sub

补充：
那就再转换一下：
Private Sub Form_Load()
Dim DisNumber As Long '定义为Long型
Dim a As Byte
Dim b As Byte
a = &HFF
b = &H0
DisNumber = a * 256& + b '把表达式中的最大数256设为Long型，VB就会按Long型存放计算结果了
DisNumber = Val("&H" & Hex(DisNumber)) '转换为带符号整数（土法）
TxtDisplay.Text = Format(DisNumber, "##0")
End Sub

Answer 2

把两个字节转换为十六进制的文本,按高低字节拼接起来,然后用 CLng("&H" & 拼接) 取得转换后的数值形值.

想得到负数,用 65280 - 65536 = -256, 如果你懂C, 应该能明白我的意思.

Answer 3

试试：
TxtDisplay.Text = Format(DisNumber, "######0") '格式化字符串

Answer 4

强制转换类型呢？