Question

我想利用VBA编程，计算1-10之间奇数和，并将输出结果显示在立即窗口中

Answer 1

代码贴给你：
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 10
If (i Mod 2 <> 0) Then

sum = sum + i

End If

Next i

sum的值就是你要的值，所以你只要把sum在立即窗口显示即可。

Answer 2

sub test
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 10 step 2
sum = sum + i
Next i
debug.print sum

end sub