用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键即可在程序...