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,你现在能明白我的意思吗?
存在两个问题: 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