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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 15:11:16
用VB求1到100间所有偶数和

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

用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间所有偶数和