Private Sub Command1_Click()
For i = 1 To 999 Step 2
s = s + i
Next i
Print "s=" & s
End Sub
Sub a()
Dim T
T = 1
For i = 3 To 1001
If i < 1001 Then
T = T + i
Else
Cells(1, 1) = T
End If
i = i + 1
Next i
End Sub
这个是在EXCEL里运行的结果，算出来是250000，你可以把里面的Cells（1,1）替换成你想输出的地方MsgbBox （“T”）
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024