VF程序编程答案

《VF程序编程答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、院（系）：班级：姓名：学号：--------⊙-------------密--------⊙----------封-----------⊙------------线-------⊙---VF程序编程题（一）1、将小于1000且能被3和5中至少一个数整除的所有正整数求和，并显示和刚超过2000时的那个自然数以及那个时候的和。s=0n=0dowhilen<=1000n=n+1ifmod(n,3)=0ormod(n,5)=0s=s+nendififs>2000exitendifenddo?s,n2、求得最小的自然数n，使得从51开始的连续n个偶数之和大于6

2、000s=0n=0i=52(初始值为52，以2为单位循环)dowhiles<=6000s=s+ii=i+2n=n+1enddo?n3、设某四位数的各个数字的平方和等于100且该数为奇数，问共有多少个这种四位数？（类似水仙花数）s=0forn=1000to9999a=int(n/1000)b=int((n%1000)/100)c=int((n%100)/10)d=mod(n,10)ifa*a+b*b+c*c+d*d=100andn%2<>0s=s+1（重要！代码的功能是？）endifendfor?s4、某国在2010年时人口总数为2亿，若每年3%的速度

3、递增，试求到哪一年人口翻一倍？s=2或s=2forn=2011to3000n=2000s=s*(1+0.03)dowhiles<4ifs>=4s=s*(1+0.03)exitn=n+1endifenddoendfor?n?n5、A

4、tr（））s=0forn=1230to23456ifat("6",str(n),2)>0andat("6",str(n),3)=0(用occurs()函数可否实现？)s=s+nendifendfor?s7、将大于1000且能被4和6中至少一个数整除的所有整数按从小到大的顺序排列后，求前面20个数之和。s=0n=0x=1000dowhilen<=20x=x+1ifmod(x,4)=0ormod(x,6)=0s=s+xn=n+1院（系）：班级：姓名：学号：--------⊙-------------密--------⊙----------封-------

5、----⊙------------线-------⊙---endifenddo?s-x&&循环退出时多计算一个数，此时减去1、求出100以内的最大的自然数N，使得算式1+1/(1+2)+……+1/(1+2+…….+N)的值小于1.9s=0t=0forn=1to100s=s+nt=t+1/s&&此处代码的功能？ift>1.9exitendifendfor?n-12、求100到1000内的第10个素数（求素数）k=0fori=100to1000forj=2toi-1ifmod(i,j)=0exitendifendforifi=jk=k+1endififk

6、=10exitendifendfor?i3、设一个数列的前3项都是1，从第4项开始，每一项都是前3项之和。试求出此数列的前25项中大于54321的项数（递推法）store1tof1,f2,f3n=0forn=4to25f=f1+f2+f3iff>54321exitendiff1=f2f2=f3f3=fendfor?n4、求符合算式IJ*JI=1300的最大数IJ（即I*10+J）。其中I、J是1—9之间的整数（求最大最小值）max=11fori=1to9forj=1to9if(i*10+j)*(j*10+i)=1300andmax

7、=10*i+jendifendforendfor?max5、求方程3x-7y=1在条件

8、x

9、<100且

10、y

11、<40下的所有整数解的

12、x

13、+

14、y

15、的最小值min=140forx=-99to99y=int((3*x-1)/7)z=abs(x)+abs(y)if3*x-7*y=1andabs(y)<40andz

16、小的项8、已知一个数列：1/2,3/5,8/13,21/34,………其特点是：从其中第2个分数起，每个分数的