VB编程“求1到1000以内所有奇数之和”（do while 结构）

Question

Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0: i = 0
If i Mod 2 = 1 Then
Do While i > 1000
i = i + 1: s = s + i
Loop
End If
Print "计算1至1000之间的奇数之和为："; s
End Sub
————————————————————————————————————
编了一个这样的得出和为0，求解问题何在？

Answer 1

先把代码发出来，等会在评论中给你解释吧。复制粘贴以下代码：
Option Explicit
Private Sub Command1_Click()
Dim i As Long
Dim s As Long
s = 0
i = 0
Do While i < 1000
i = i + 1
If i Mod 2 = 1 Then
s = s + i
End If
Loop
Print "计算1至1000之间的奇数之和为："; s
End Sub
看运行结果吧

Answer 2

Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0: i = 0
Do While i <= 1000
i = i + 1:
If i Mod 2 = 1 Then
s = s + i
End If
Loop
Print "计算1至1000之间的奇数之和为："; s
End Sub
没有学过VB但是楼主的程序确实存在问题，这样改一下应该差不多了，对于楼上说的溢出问题就要看整形数的表示范围了。

Answer 3

这个题目不需要IF语句的。S定义为Integer会溢出的。
Private Sub Command1_Click()
Dim i As Integer
Dim s As Long
s = 0: i = 1
Do While i < 1000
s = s + i: i = i + 2
Loop
Print "计算1至1000之间的奇数之和为："; s
End Sub