[求助]用do while 写出1-2+3-4+5-6+...100的程序

[此贴子已经被作者于2007-5-13 20:55:36编辑过]

Dim i As Integer
Dim n As Integer
i = 1
Do While i <= 100
n = n + (i - (i + 1))
i = i + 2
Loop
MsgBox n

谢谢

我是菜鸟，楼主是菜鸟中的菜鸟

Dim i As Integer
Dim n As Integer
i = 1
Do While i <= 100
n = n + i
i = i + 1
Loop
Print "i is"; i - 1
Print "n is"; n