用vfp做斐波拉数列

a=1//建立分母初始值a=1b=2//建立分子初始值b=2sum=0//建立和值的初始值term=b/a//定义数列的初始项fori=1to20//根据数列项数定义运算次数sum=sum+term/

1.用dowhile循环写出计算100以内奇数和的程序clearsettalkoffs=0i=1dowhilei

for=tostependfor|next比如:fori=atobstepcendfor遇到for语句,首先将初值a赋给变量i,然后用i的值与变量b去比较,当未超过终值时,则执行一遍循环体,然后给i+

*求斐波那契数列1,1,2,3,5,8,13,21,34,…的前30项的和.该数列从第3项开始每项等于前两项之和.3524577SETTALkOFFCLEAS=2F1=1F2=1I=2DOWHILEI

INPUT"输入自然数："TOnnSUM(n)RETURNFUNCTIONnSUMPARAMETERSnns=0FORi=1TOnns=s+iENDFORRETURNs

第一步：FileToStr函数把【街道信息.txt】内容保存到【字符串变量lcstr】,注：VFP字符串长不超254第二步：alines把字符串lcstr,以回车【就是chr(13)】为分割符（元素）

x=Val(Inputbox("请输入一个数：","测试"))Ifx>0Y=x*xEndifIfx=0Y=100EndifIfx

VFP是VisualFoxPro由FoxPro发展而来,并且根据“可视化编程”的需要,增加了一些新的操作.它的语句、函数和语法规则与Xbase(如...除取负“-”是单目运算符外,其他均为双目运算符.

新的数字放在数组最后向前循环比较大小,进行位置调换亦可如下方式：dimea(5)FORi=1TO4a(1)=17a(2)=36a(3)=45a(4)=65ENDFORb=46FORi=4TO1STEP

at()是测试前面字符串在后面字符串中出现的位置,如：at("cd","abcdef")结果为3,因为"cd"是在后面的字符串的第3个位置出现的另,at("cd","abcdefabcdef",2)结

dimesz(5)sz(1)=123sz(2)=312sz(3)=63sz(4)=324sz(5)=45i=1zd=0zx=0dowhileizdzd=sz(i)endififsz(i)

dowhile.t.程序段enddo就是一个无限循环体结构,一般在程序段中定义一个条件,当满足条件时控制退出循环体程序段!if一般就是条件

VFP是VisualFoxPro的缩写,是Microsoft公司开发的一套数据管理与运算等方面的软件（收购Fox公司FoxBase数据库软件并改良升级而来）.属可视化数据库管理系统平台,提供了功能完备

cleara=1b=1s=0fori=1to18c=a+bs=s+ca=bb=cendfor"斐波拉契数列前30项的和:",s再问：不是求前30项的和吗》为什么fori=1to18呢？再答：哦，笔误，

只要不到文件尾,就不退出循环例子：useaa.dbfgoto1dowhilenoteof()nameskip1enddouse例表aa结构为：列1,名称name记录1,张三记录2,李四记录3,王五那么

clearn=0fori=201to300step2flag=0forj=2toint(sqrt(i))ifmod(i,j)=0flag=1exitendifendforifflag=0n=n+1en

1关闭数据库,重新打开.或者关闭VFP,重启VFP.2以建表单时选为排序的字段为关键字在表上建立索引.再问：那做两个表的关联，设主索引的时候为什么会弹出“索引外币代码不唯一”（外币代码是要设的关键字的

thisform.release是释放表单thisform,refresh是刷新表单再问：这个我知道，就是不懂什么时候用得到它们再答：一个窗口的功能使用完了，要退出或进入下一个窗口时，用thisfor

input"输入腰*的个数:"toxspace(x)+"*"fori=1tox-1space(x-i)+"*"+space(i*2-1)+"*"endforrepl("*",x*2+1)

做什么啊?