VB编程“求1到1000以内所有奇数之和”（dowhile结构）PrivateSubCommand1Click()DimiAsIntegerDimsAsIntegers=0:i=0IfiMod2=1ThenDoWhilei>1000i=i+1:s=s+iLoopEndIfPrint"计算1至1000之间的奇数之和

Question

VB编程“求1到1000以内所有奇数之和”（do while 结构）
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

Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0: i = 0
Do While i