VF程序编程答案.doc

院（系）： 班级： 姓名： 学号： - 密 - 封- 线-VF程序编程题（一）1、 将小于1000且能被3和5中至少一个数整除的所有正整数求和，并显示和刚超过2000时的那个自然数以及那个时候的和。s=0n=0do while n2000 exit endifenddo? s,n2、 求得最小的自然数n，使得从51开始的连续n个偶数之和大于6000s=0n=0i=52 ( 初始值为52，以2为单位循环)do while s=6000 s=s+i i=i+2 n=n+1enddo? n3、 设某四位数的各个数字的平方和等于100且该数为奇数，问共有多少个这种四位数？ （类似水仙花数）s=0for n=1000 to 9999 a=int(n/1000) b=int(n%1000)/100) c=int(n%100)/10) d=mod(n,10) if a*a+b*b+c*c+d*d=100 and n%2 0 s=s+1 （重要！ 代码的功能是？ ） endifendfor? s4、 某国在2010年时人口总数为2亿，若每年3%的速度递增，试求到哪一年人口翻一倍？s=2 或 s=2for n=2011 to 3000 n=2000 s=s*(1+0.03)do while s=4 s=s*(1+0.03) exit n=n+1 endif enddoendfor ? n? n5、 Abc,且满足勾股定理，称三个数称为一组勾股弦数。试求出弦为1300的勾股弦组数。c=1300n=0for a=1 to c b=int(sqrt(c2-a2) if a*a+b*b=c*c and ab and b0 and at(6,str(n),3)=0 (用occurs()函数可否实现？) s=s+n endifendfor? s7、 将大于1000且能被4和6中至少一个数整除的所有整数按从小到大的顺序排列后，求前面20个数之和。s=0n=0x=1000do while n1.9 exit endifendfor? n-19、 求100到1000内的第10个素数 （求素数） k=0for i=100 to 1000 for j=2 to i-1 if mod(i,j)=0 exit endif endfor if i=j k=k+1 endif if k=10 exit endifendfor? i10、 设一个数列的前3项都是1，从第4项开始，每一项都是前3项之和。试求出此数列的前25项中大于54321的项数 （递推法）store 1 to f1,f2,f3n=0for n=4 to 25 f=f1+f2+f3 if f54321 exit endif f1=f2 f2=f3 f3=fendfor? n11、 求符合算式IJ*JI=1300的最大数IJ（即I*10+J）。其中I、J是19之间的整数（求最大最小值）max=11for i= 1 to 9 for j=1 to 9 if(i*10+j)*(j*10+i)=1300 and maxi*10+j max=10*i+j endif endforendfor? max12、 求方程3x-7y=1在条件|x| 100 且 |y| 40下的所有整数解的|x|+|y|的最小值min=140for x=-99 to 99 y=int(3*x-1)/7) z=abs(x)+abs(y) if 3*x-7*y=1 and abs(y)40 and zmin min=z ? x,y,z endifendfor?min13、 求（10，1000）内所有能够被6和9中的一个数整除的整数的个数14、 已知数列1，2，4，7，11，16.其规律是相邻两项之差一次是1，2，3，4，.试求出此数列中大于5000的最小的项15、 已知一个数列：1/2,3/5,8/13,21/34,其特点是：从其中第2个分数起，每个分数的分子都是前一个分数的分子分母之和而其分母都是其分子与前一个分母之和。试求出此数列的前25项中其值大于0.618的项数（同理之例：计算1，1/2，1/3.1/n之和,当0 dt = sqrt (d) x1 = (-b+dt ) / (2*a) x2 = (-b-dt ) / (2*a) ?x1, x2else dt = sqrt ( -d ) x1 = -b / (2*a) x2 = dt / (2*a) ?x1,+, dt / 2 / a, i ?x1,-, dt / 2 / a, iendif （1）、输入4个数，从小到大顺序输出。 cleafor n=1 to 4 input 请输入数： to a(n)endforfor i = 1 to 3 for j=i+1 to 4 if a ( i ) a ( j ) t = a ( i ) a ( i ) = a ( j ) a ( j ) = t endif endfendforfor n = 1 to 4 ? a ( n ) Endfor（3）、闰年。(注意分析如何才是闰年)（4）、1-7表示星期一到日，输入整数，显示英文，其他的报错。（5）、五类成绩。（采用多分支结构 do case语句）( 6 ) 任给一个自然数，求它与其反向数之和cleas=0accept to strn = len ( str )rs = for i = 1 to n rs = subs ( str , i , 1) + rsendfors = val ( str ) + val ( rs )?s（7）、一个整数，偶数求立方，奇数求平方。（分支语句，if else）（8）、一张厚0.3mm的纸，多少次对折后厚度可达到8848m。clean=0 &初始次数h=0.3 &初始值do while h n t = m m = n n = tendif? fac ( n ) / fac ( m ) / fac ( n-m )VF程序编程题（三）答案 (1) clea &求1！+2!+3!+10! (100!这个数值太大)s=0还可以用什么方式?f=1for i = 1 to 10 for j = 1 to i f = f * j endfor s = s + fendfor?s（2）求出100以内的全部合数（不是素数的数）之和cleas=0for i = 1 to 100 for j = 1 to i if i % j = 0 and j 1 and i j s = s + i exit &务必了解此时exit的作用 endif endforendfor?s( 3 )输入一个数n，计算Fibonacci序列之和，求计算到第n项( 4 ) 编写一个程序，可实现二进制与十进制之间的转换（输入某进制数可输出相应的另一进制数）cleainput to cdo case case c=1 s = 0 accept 二进制数为： to b cb = len ( b ) & cb 为输入字符串b的长度变量 for i = 1 to cb s = s + val ( subs ( b , i , 1 ) ) * 2 ( cb i ) endfor ?十进制数为：, s case c=2 s = input 十进制数为： to d do while ( int ( d / 2 ) != 0 ) s = str ( ( d % 2 ) , 1 ) + s d = int ( d / 2 ) enddo s = str ( ( d % 2 ) , 1 ) + s ?二进制数为： , s endcase4、利用编程实现100以内的任意一组整数（此组数的个数可由用户输入确定；在程序中利用随机函数rand()*100再取整产生，并置入一数组中）的排序。（参考21个算法习题中的16题）5、请利用编程在100以内的任意一组整数中找出其中的最大值和最小值（此组数的个数可由用户输入确定，生成方法同上题）6、在英文输入法下输入任意一个字符串，通过编程分别统计出其中英文字母、空格、数字和其他字符的个数并予输