VBA 计算 1 到 10000 之间偶数和
Sub 计算偶数和()
Dim I As Long, J As Long
For I = 0 To 10000 Step 2
J = J + I
Next
MsgBox "1 到 10000 之间偶数和为 " & J
End Sub
评论区