vb程序,计算1/2+1/4+1/6+1/8+1/10 ,当第i项的值

Dim s As Double,a As Double
Dim i As Long
s = 0
i = 1
Do While i
再问： 那应该怎么改啊？
再答： 已经给你改好了啊，对照你的代码和我的你没有发现不一样吗，