可以问有关QB的问题吗？
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS开发编程 & 发展交流 （开发室） » QB程序问题
查看 1,463 回复 7
楼 主
QB程序问题
发表于 2002-11-22 00:00 · 美国 肯塔基州 费耶特县 列克星敦 Charter_Communications
第 2 楼
发表于 2002-11-22 00:00 · 中国 广东 佛山 禅城区 电信
可以，是QBASIC吧。
我的网志
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos
第 3 楼
发表于 2002-11-22 00:00 · 中国 广东 东莞 电信
请问一个问题：“2/1,3/2,5/3,5/8,13/8,21/13....求出这个数列前20项之和”应该如何编？
cls
a=1:b=1:m=0
for i= 1 to 20
a=a+b
m=m+a/b
b=a
next i
print m
输出的是40也，错在哪里呢？
cls
a=1:b=1:m=0
for i= 1 to 20
a=a+b
m=m+a/b
b=a
next i
print m
输出的是40也，错在哪里呢？
第 4 楼
发表于 2002-11-22 00:00 · 中国 广东 佛山 禅城区 电信
你的程序错了，我算了一下，当i=1时，式子是正确的，
a=a+b=2 ;m=m+2/1
但当i=2时就不对了。因前面b=a，所以b=2,这时该项的a+b=4，
m=m+4/2了。
你算算看
a=a+b=2 ;m=m+2/1
但当i=2时就不对了。因前面b=a，所以b=2,这时该项的a+b=4，
m=m+4/2了。
你算算看
我的网志
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos
第 5 楼
发表于 2002-11-22 00:00 · 中国 广东 佛山 禅城区 电信
试试这样编：
cls
a=2:b=1:m=0
for i= 1 to 20
m=m+a/b
t=a+b
b=a
a=t
next i
print m
cls
a=2:b=1:m=0
for i= 1 to 20
m=m+a/b
t=a+b
b=a
a=t
next i
print m
我的网志
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos
第 6 楼
发表于 2002-11-22 00:00 · 中国 广东 东莞 电信
可以麻烦呢写出正确的吗？我已想呢很久了～呜呜呜
第 7 楼
发表于 2002-11-23 00:00 · 中国 广东 佛山 禅城区 电信
我给出的程序不就是正确的吗？
我的网志
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos
第 8 楼
发表于 2002-11-23 00:00 · 中国 广东 东莞 电信
实在是太感谢了～
论坛跳转: