Private Sub Command1_Click()
Dim i%, k%, sum%
sum = 1
For i = 2 To 51
k = i * 2 - 1
If i Mod 2 = 0 Then
k = -1 * k
End If
sum = sum + k
Next i
Print "sum = " & sum
End Sub
运行结果，显示 sum = 51
Dim n As Integer, k As Integer, s As Integer
k = 1
For n = 1 To 101 Step 2
s = s + k * n
k = -k
Next
MsgBox s
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024