敬请讲解关于溢出的问题
Private Sub Command1_Click()Dim x As Integer, y As Integer, color As Integer
For x = 100 To 4000
y = Fix(x / 3)
color = Fix(255 * (x + 2500) / 4000)
Pic.Circle (Pic.Width - x, y), (x + 100) / 7, RGB(255, color, 130)
Next x
End Sub
在运行时一直提示color这里溢出,不知什么原因