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

问题描述:

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

启动VB新建一个EXE工程双击窗体FORM1在打开的代码窗口输入以下代码:Private Sub Form_Load()Dim i, s As Integers = 0For i = 2 To 100 Step 2s = s + iNext iForm1.Caption = Str(s)End Sub之后按下F5键即可在程序...