广交会名录下载:一道vf编程题呀!!

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/26 10:56:37
set talk off
clear
dimension f(5)
f(1)=1
f(2)=2
for k=3 to 5
f(k)=f(k-1)+f(k-2)
endfor
h=1
l=15
n=o
for k=1 to 5
@4+h,l+n*8 say ltrim(str(f(k)))
n=n+1
if n%4=0
h=h+2
n=o
endif
enffor
return
这个程序的结果是什么呀??h=1
l=15
n=o
for k=1 to 5
@4+h,l+n*8 say ltrim(str(f(k)))
n=n+1
if n%4=0
h=h+2
n=o
endif这块怎么读呀,我怎么也比明白拉,请教高手拉,先谢谢拉!!!!!会特别加分的!!!!!!!

clear
dimension f(5)
f(1)=1
f(2)=2
for k=3 to 5
f(k)=f(k-1)+f(k-2)
endfor

h=1
l=15
n=0 &&原程序中,此处错误
for k=1 to 5
@4+h,l+n*8 say ltrim(str(f(k))) &&在4+h行,l+n*8列处输出结果,1、2、3、5,每次循环输出一个,自己相隔8个字符的位置
n=n+1 &&记录每行已经输出了几个字符
if n%4=0 &&控制每行只输出四个
h=h+2 &&够四个后换两行
n=0 &&换行后,字符个数从0开始重新记录
endif
endfor &&原程序此处错误
return

输出结果如下:
1 2 3 5

8