用VB编辑程序求1000以内奇数和

Private Sub Form_Load()
For i = 1 To 999 Step 2
p = p + i
Next i
MsgBox p
End Sub

for i=1 to 1000 step2（步长为2,也就是一加二（这个二是步长）的结果在加二只到结果大于一千，就退出该循环）
s=s+i(S用来保存奇数和）
next
print “奇数和为”；s

Private Sub Command1_Click()
Dim i,j As Integer
For i=1 To 1000 Step 2
s=s+i
Next i
Print s
End Sub

最简便方法：
Private Sub Form_Load()
MsgBox 250000
End Sub