显示1到1000之间的所有偶数的和，以及显示1到1000之间的所有奇数的和。

Private Sub Command1_Click()
Dim s1 As Single, s2 As Single, i As Integer
s1 = 0
s2 = 0
For i = 1 To 1000
If i mod 2 = 1 Then
s1 = s1 + i
Else
s2=s2+1
End If
Next i
printf("奇数和为"+str(s1))
printf("奇数和为"+str(s2))
End Sub

dim os as integer,js as integer
for i=1 to 1000
if i mod 2 =0 then
os=os+i
else
js=js+i
end if
next
print os,js

太简单了吧