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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 12:24:44
用VB求1到100间所有偶数和用VB求1到100间所有偶数和用VB求1到100间所有偶数和启动VB新建一个EXE工程双击窗体FORM1在打开的代码窗口输入以下代码:PrivateSubForm_Loa

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