VB编程实现1~100偶数求和
问题描述：
VB编程实现1~100偶数求和
答
Dim i, s As Integer
For i = 2 To 100 step 2
s = s + i
Next i