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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/29 22:22:28
用VB求1到100间所有偶数和
xQ]K`+( ݙЇB]L R5k"^H&E-gsWm]99sJ­vWC.jӦ7z7R<.LZPi0 ~ΈybI|]3Y%,:nF>+M.6Ԩ86Ήv[@=E8ba{:vTHg % Ff51h G5XhX`O Һ@O,N_WyEeҺ‰I)o`ab sjѫ29I1L٥P-On3K ,?1

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