传说级小白请大虾指点一下为什么用VB这样用VB算2/1+3/2+5/3+8/5+......加20项不行呢？

来源：百度知道 编辑：UC知道 时间：2024/06/20 07:28:18
DIM A,B,C,D,E AS INTEGER
A=1
B=2
C=0
FOR D=1 TO 20
C=C+B/A
E=A
A=B
B=A+E
NEXT D
TEXTBOX1.TEXT=STR(C)
跟踪各个值得时候发现A,B的值都按思路运算 可是一到算C就直接加2了 算出来是40。。。。。 已经纠结了一天了 还望哪位路过的大虾发发慈悲救我于水深火热

我在vb6中调试时正确的，不过你的这个定义可能不是你想要的

DIM A,B,C,D,E AS INTEGER

你这样定义的结果是ABCD都是double型，而e是整数型，在这个函数里刚好是没问题的，但我想你应该定义成这样：
dim a as integer,b as integer,d as integer,e as integer
dim c as double

ClS

a(2)=2
a(1)=1

b(2)=1
b(1)=1

a=2
b=1
for i=1 to 20 step 1
s=s+a/b
a(3)=a(1)
a(1)=a(2)
a(2)=a(2)+a(3)

b(3)=b(1)
b(1)=b(2)
b(2)=b(2)+b(3)

a=a(2)+a(1)
b=b(2)+b(1)

Next i

Print S

End

把b/a和c+(b/a)分开算，比如
e=b/a
c=c+e
就对了。
这样的问题我也经常遇到，目前原因未知，应该属于编程软件的bug吧.