一、
Dim sum As Integer sum = 0 For i = 0 To 34 sum = sum + (3 * i + 1) - (3 * i + 2) - (3 * i + 3) Next MsgBox(sum)
