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

题目

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

答案

Dim i, s As Integer
For i = 2 To 100 step 2
s = s + i
Next i