用VB求自然数100以内的奇数和。

Dim s As Integer

Private Sub Form_Activate()
s = 1
For i = 1 To 49
s = s + 2 * i + 1
Next i
Print (s)
End Sub

dim s As integer=0
dim k as integer=0
for i as integer=1 to 100
k=i mod 2
if k=1 then
s+=i
end if
next
messagebox(s)

sum=0
for i = 1 to 100
if i mod 2 <>0 then
sum=sum+i
next i