Dim IntVar As Integer

Dim ByteVar1 As Byte

Dim ByteVar2 As Byte

IntVar =ByteVar1+ByteVar2

如上写法，如果结果超出255，会溢出，出错

ByteVar1=CByte(IntVar)

如上写法，如果IntVar值超过255，同样会溢出，出错

运行正确写法：

ByteVar1=CByte(IntVar Mod 256)

比较奇怪，习惯了C语言的自由转换，VB的数据类型转换有点死板