敬请讲解关于溢出的问题

Dim  color As Integer
'保存 16 位（2 字节）有符号整数，值的范围为 -32,768 到 32,767

  color = Fix(255 * (x + 2500) / 4000)

这里，表达式中，所以的常数也都未超过 integer 的范围，根据默认范围，所有的数据全部被表达为 integer。
根据运算法则，数据类型最高为 integer ，整个运算都在 integer 的范围内运算。
我们再来看运算结果。
X是 100 -4000，我们先用最小值，100 来 代入表达。变成了
255*(100+2500)/4000
表达式运算是从左到右计算，与编译不同，编译是从右到左。
=255*2600/4000
=663000/4000                    '这步，663000，超范围了，所以这里报溢出
下一步就不会计算了，直接报前面这一行的错误。