VB编程实现1~100偶数求和

Dim i, s As Integer

For i = 2 To 100 step 2

s = s + i

Next i

Dim i, s As Integer

For i = 1 To 100
If i Mod 2 = 0 Then
s = s + i
End If
Next

MessageBox.Show(s)

输出结果是2550，对吗？

Private Sub Command1_Click()
Dim i As Integer
Dim s As Single
For i = 2 To 100 Step 2
s = s + i
Next i
Print s

End Sub