送分100分：几个BYTE数相加赋值给一个LONG型变量为什么会溢出

[tiedaoxingui]

DIM A AS BYTE,B AS BYTE ,C AS BYTE,D AS LONG

A=251
B=252
C=253
D=A+B+C

运行到D=A+B+C,提示溢出,这是怎么回事，D可是LONG型呀，怎么会溢出呢。

[li163]

Private Sub Command1_Click()
    Dim A As Byte, B As Byte, C As Byte, D As Long
    
    A = 251
    B = 252
    C = 253
    D = Val(A) + Val(B) + Val(C)

End Sub

[li163]

Byte的取值上限为255，而当值超过255时，就会溢出。

[zzhgb]

byte+byte的结果还是byte，所以溢出，
要么赋给long再加，要么用val，val返回的是double

因为double+byte返回的是double；所以上边的这样写就行了

D = Val(A) + B + C

[li163]

或

Private Sub Command1_Click()
    Dim A As Byte, B As Byte, C As Byte, D As Long
    
    A = 251
    B = 252
    C = 253
    D = CLng(A) + CLng(B) + CLng(C)
    Debug.Print D
End Sub

[qwe2854202]

Byte的取值上限为255，而当值超过255时，就会溢出

[lxq19851204]

byte进行加减时是按int类型进行的，所以它们相加的结果是int型，赋值给byte型的c肯定出现类型不符合，需要转型。。。。。。。。

    Dim A As Byte, B As Byte, C As Byte, D As Long
    
    A = 251
    B = 252
    C = 253
    D = CLng(A) + CLng(B) + CLng(C)

[lsh6688]

[Quote=引用 4 楼 zzhgb 的回复:]
byte+byte的结果还是byte，所以溢出，
要么赋给long再加，要么用val，val返回的是double

因为double+byte返回的是double；所以上边的这样写就行了

VB code

D = Val(A) + B + C
[/Quote]+1

[贝隆]

[Quote=引用 7 楼 lxq19851204 的回复:]
byte进行加减时是按int类型进行的，所以它们相加的结果是int型，赋值给byte型的c肯定出现类型不符合，需要转型。。。。。。。。

VB code
Dim A As Byte, B As Byte, C As Byte, D As Long

A = 251
B = 252
C = 253
D = CLng(A) + CLng(……
[/Quote]
+1

[神马都能聊]

A+B+C 的类型是byte。

在 D = A+B+C 赋值的时候，才发生类型转换，即 D = （LONG）（A+B+C），而表达式A+B+C的类型是byte，在算A+B+C的时候就溢出了。

[hddz123]

回答的人真多啊

[赵4老师]

D=CLng(A)+CLng(B)+CLng(C)

[zdingyun]

Private Sub Command1_Click()
    Dim A As Byte
    Dim B As Byte
    Dim C As Byte
    Dim D As Long
    A = 251
    B = 252
    C = 253
    D = CLng(A) + B + C
    Debug.Print D
End Sub

[zdingyun]

Private Sub Command1_Click()
    Dim A As Byte
    Dim B As Byte
    Dim C As Byte
    Dim D As Long
    A = 251
    B = 252
    C = 253
    D = D + A + B + C
    Debug.Print D
End Sub

[tiedaoxingui]

在D=A+B+C的过程中，

我们先来看 A+B 溢出了， 结果是存给A了还是存给B了，还是有个BYTE型的临时变量存放此结果，到底是谁溢出了。

[chinaboyzyq]

[Quote=引用楼主 tiedaoxingui 的回复:]
DIM A AS BYTE,B AS BYTE ,C AS BYTE,D AS LONG

A=251
B=252
C=253
D=A+B+C

运行到D=A+B+C,提示溢出,这是怎么回事，D可是LONG型呀，怎么会溢出呢。
[/Quote]
是VB开的累加器溢出，而不是你的D溢出，VB开的累加器以表达式等号右边的变量最大值为累加器的最大值，
你右边最大变量也就是字节变量，也就是大于255就溢出，所以至少要强制转换其一到整型才正确。

d=cint(a)+b+c

[king06]

[Quote=引用 4 楼 zzhgb 的回复:]
byte+byte的结果还是byte，所以溢出，
要么赋给long再加，要么用val，val返回的是double

因为double+byte返回的是double；所以上边的这样写就行了

VB code

D = Val(A) + B + C
[/Quote]
这个就已经很明了了

[無_1024]

你在加法是就强制转换为LONG执行 这样就不会溢出了

[熊孩子开学喽]

[Quote=引用楼主 tiedaoxingui 的回复:]
DIM A AS BYTE,B AS BYTE ,C AS BYTE,D AS LONG

A=251
B=252
C=253
D=A+B+C

运行到D=A+B+C,提示溢出,这是怎么回事，D可是LONG型呀，怎么会溢出呢。
[/Quote]

虽然你写的是D=A+B+C, 但实际上在计算机内部依然是要一个数一个数相加的, 最后的结果被存放到D里面
因此在之前A和B,或者B和C相加的时候就已经溢出了. 因为无论是A+B还是B+C两个操作数均为BYTE型,系统存放单步计算结果所创建的临时变量也就是BYTE型的,就溢出了
这样的问题很容易在长计算表达式内发生,楼主要注意.

[PctGL]

clng 为正解。

d =a+b+c 将被解释为字节a,b,c值相加后转换为 d 的数据类型long，a+b+c相加超出字节型数据最大值导致溢出

d =clng（a）+b+c ，此时的a,b，c将会全部强制转换为long型之后再相加

[gtttttttttt]

Private Sub Command1_Click()
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Long
A = 251
B = 252
C = 253
D = D + A + B + C
End Sub

加的时候结果时缓存在A的,A缓存不够,所以溢出.