vb中1+2+3...+100中哪里出错了

来源：百度知道 编辑：UC知道 时间：2024/05/30 06:29:44
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 1000
sum = sum + i
Next i
Print sum
End Sub
程序说sum = sum + i有错 请问该怎样改

sum 要定义为long,长整型 用DOUBLE太浪费了

数据溢出了。。你定义的是Integer，“For i = 1 To 1000”加到100就是对的，加到1000就太多了。。。
如果你是要加到1000
Dim i As Integer, sum As Double

数值太大，溢出了吧。