vf题目:编程求fibonacci数列前28项的和.

clearinput"请输入第1个数："toainput"请输入第2个数："tobc=min(a,b)dowhilec>0ifa%c=0andb%c=0s=cexitendifc=c-1enddo?"

store0tosume,sumofori=100to1000ifi%2=0sume=sume+i&&偶数累加elsesumo=sumo+i&&奇数累加endifnext"100~1000偶数累加和=

input"n="tonsum=0fori=1tondopwithisum=sum+temdforsumreturn**下面为过程的定义算法procedurepparaipublict&&你写错了,这

publictinput"n="tonsum=0fori=1tondopwithisum=sum+temdforsumreturnprocedurepparait=1forj=1to2*it=t*je

clears=1input"请输入n的值："tonfori=2tonk=(-1)^im=k/is=s+mendfor"s=1+1/2-1/3+1/4+...+1/n",s

clears=0input"n="tonfori=1tonk=1forj=1toik=k*jendfors=s+kendfor?"s=1!+2!+3!+4!……+n!=",s

首先你读懂题没有,我帮你翻译一下：问题描述： 编写一个程序,读取整数,找出其中最大的,并计算其出现次数.假设输入与数字0结束.假设你进入3525550;程序发现,最大的为5,出现次数为4.（

clears=0fori=1to100ifi%3=0s=s+iendifendfor"100以内所有能被3整除的整数的和是：",s

（1）题程序如下：settalkoffs=0i=1dowhilei

1.clearInput"请输入圆的半径"toc=3.14*r*2s=3.14*r*r?"圆的周长为：",c,"圆的面积为:",sreturn2.clearinput"请输入计程车公里数"towifw

clears=0fori=1to100ifi%30ifi%2=1s=s+iendifendifendfor"1至100之间非3的倍数的所有奇数之和为：",s

只要函数对吧.如下:%Paradise1022functiony=Fibonacci(n)a(1)=1;a(2)=2;fori=3:na(i)=a(i-1)+a(i-2);end;y=a(n);测试结

clears=0i=1dowhiles

inputnS=0Fori=1tons=s+i+iENDFORss=SQRT(S)

clearinput"请输入第1个数："toainput"请输入第2个数："tobc=max(a,b)dowhile.t.ifc%a=0andc%b=0s=cexitendifc=c+1enddo"它

clears=0fori=2to1000step2s=s+inext或者clears=0fori=1to1000ifi%2==0s=s+iendifnext

1、文本框的CLICK事件,使显示的内容具有复选框的效果ifthisform.check1.value=1thisform.text1.fontbold=.t.elsethisform.text1.f

clears=0fori=1to100step2s=s+iendfor"100以内奇数之和是：",s

clearinput"n="tons=1fori=1tons=s*iendfor"n!=",s

*VF编程π/4=1-1/3+1/5-1/7+.公式求πCLEARn=100000p=0FORi=1TOn\x05IFMOD(i,2)=0\x05\x05p=p-1/(2*i-1)\x05ELSE\x