Question

VB:关于等差数列的求和的问题

如题，求大神。
Private Sub Command1_Click()
Dim a!, b!, n!, d!
a = Val(InputBox("即a1的值"))
Print "a1="; a
n = Val(InputBox("即n的值"))
Print "n="; n
d = Val(InputBox("即公差的值"))
Print "d="; d
b = 0
For n = 1 To n Step d
b = a + (n - 1) * d
Next n
Print "an=a1+(n-1)d="; b '按题设an=1+(100-1)2=199,为什么答案算出来是197呢？
End Sub
算出的答案不对劲啊
错了，不是求和 是求等差数列第n项的值

Answer 1

毛病出在你的循环上：
For n = 1 To n Step d
b = a + (n - 1) * d
Next n
这个循环本身根本用不着；
如果是只要计算a100的话
只要
b = a + (n - 1) * d

即可。
你现在用了循环，因为step 2，所以它就1，3，5，……95，97，99就结束了

追问

n为项数100项的话 就不应该是到99吧，99是第50项啊