用VB求1到100间所有偶数和

启动VB
新建一个EXE工程
双击窗体FORM1
在打开的代码窗口输入以下代码：

Private Sub Form_Load()
Dim i, s As Integer
s = 0
For i = 2 To 100 Step 2
s = s + i
Next i
Form1.Caption = Str(s)

End Sub

之后按下F5键即可在程序默认窗体的标题栏中看到1到100间所有偶数和

sub Calc()
dim a as integer
dim b as integer
b=0
for a=0 to 100 step 2
b=b+a
next a
msgbox "1至100的所有偶数和是" & b , vbinformation , "完成"
End sub

For i = 1 To 100
If i Mod 2 = 0 Then k = k + i
Next
Print k