Private Sub Form_Load()
Dim i As Integer
Dim s As Integer
Show
For i = 1 To 100 Step 2
s = s + i
Next i
Print "1~100奇数累加和为:"; s
Dim i As Integer
Dim s As Integer
Show
For i = 1 To 100 Step 2
s = s + i
Next i
Print "1~100奇数累加和为:"; s