VF程序设计题.pdf

《VF程序设计题.pdf》由会员分享，可在线阅读，更多相关《VF程序设计题.pdf（112页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1.3-100 的素数.192.（4!+7!）乘以 3!.203.1!+3!+5!+.+99!=.214.3!+5!+7!.215.3!+8!+11!的和.226.10 100之间不能被3 整除的数的和.227.10100之间能被3 整除的数.228.1000-1100 素数和.239.编写分段函数程序.2310.计算 1!+2!+3!+.+100!.2411.计算 1+2+3+.+100.2412.输 入 10个数，找最大值和最小值.2413.找 出 几 个 数（此题中为八个）中的最小数.2514.一i y o u.2615.未知题目.2616.99乘法表.2617.编程序求出1-200以内

2、的能被7 整除的数的平方和.2718.编程序求1-99的平方根的和并输出结果。（保留小数点两位）661.46.2719.编程序统计1 1000能被3 整除的数的个数。333 2720.编 程 序 求 出 1 7 0 0 所有整数的平方和并输出结果。338350.272 1.编程序求出1 到 5000之间的能被5 整除的前若干个偶数之和，当和大于5 0 0 时程序退出。550.282 2.编程序求在3000以内被17或者23整除的正整数数的个数。299.2823.已知一个数列的前3 个数为0,0,1,以后每个数为前3个数的和，编程序求此数列的第36个数。334745777.2824.编程序求出1

3、00到 200之间同时满足除3 余 2 和除5 余3 条件的数的个数。6.2925.编程序求出2+4+8+16+32+这样的数之和。如果累加数大于500时，则程序终止并输出结果。510.2926.编 程 序 求 出 1 7 0 0 所有整数的立方和并输出结果。25502500.2927.编程序求出1到 5000之间的能被7 整除的前若干个数之和，当和大于1500时 退 出 并 输 出 结 果。1617.2928.编程序求出1到 6000之间的能被5 整除的前若干个偶数之和，当和大于650时退出并输出结果。660.3029.编程序求1+3+5+7+9+这样的数之和。如果累加数大于750时，则程序

4、终止并输出结果。784.3030.已知24有 8 个正整数因子(即：1,2,3,4,6,8,12,24),而 24正好被其因子个数8 整 除 求 1,100 之间第10个能被其因子数目整除的正整数。56.3031.求 444,666 范围内最大的素数是多少？661.3132.有一个分数序列:2/1,3/2,5/3,8/5,13/8,21/13.(注：该数列从第二项开始，其分子是前一项的分子与分母的和，而其分母是前一项的分子)，求出这个序列前2 4 项的和。要求：按四舍五入的方式精确到小数点后第二位。39.13.3133.已知24有 8 个正整数因子(即：1,2,3,4,6,8,12,24),而

5、 24正好被其因子个数8 整除。问 100,300 之间有多少个能被其因子数目整除的数。19.3234.设某国今年的国民生产总值为45600亿元,若今后每年以8%的增长率增长，计算多少年后能实现国民生产总值翻两番?19 2008.3235.已知 24 有 8 个因子(即：1,2,3,4,6,8,12,24),而 24正好被8 整除 求 1,100 之间第二大能被其因子数目整除的数。88.3336.若某整数平方等于某两个正整数平方之和的正整数称为弦数。例 如:由 于 3人 2+4八 2=5人 2,则 5 为弦数,求 100,200之间最大的弦数。200.3337.若某整数n 的所有因子之和等于n

6、 的倍数，则 n 称为多因子完备数，如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求 1,500 之间有多少个多因子完备数。53438.设某国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番?9.3439.有一个三位数满足下列条件：（1）此三位数的三位数字各不相同；（2）此三位数等于它的各位数字的立方和。试求这种三位数共有多少个？4.3540.找满足以下条件：xA2+yA2+zA2=41A2 且 x+y+z之值最大的三个正整数x,y,z,求 x+y+z之值.71.3541.求 2,500 之间的所有素数

7、的和。21536.3642.求 3-1000 之间最大的五个素数之和。4919.3643.已知24有 8 个 因 子（即：123,4,6,8,12,24）,而24正好被 8 整除。求 100,300 之间所有能被其因子数目整除的数之和。3769.3744.问 100,200 之间有奇数个不同因子的整数共有多少个？5.3745.水仙花数是一个三位正整数，它等于它的各位数字的立方 之 和.例 如:153=1人 3+5人 3+3人 3,所 以 153是水仙花数.试求所有的水仙花数之积。8547940170.3846.把一张一元钞票，换成一分、二分和五分硬币，每种至少8枚，问有多少种方案？80.384

8、7.求 200,300 之间最小的一个有奇数个不同因子的整数。225.3848.一个数出现在该数的平方数的右边，称这个数为“同构数 o 例如，5 出现在平方数2 5 的右边，2 5 出现在平方数625的右边，则5、25都是“同构数”。找 出1到1000之间的所有“同构数”的个数。6.394 9.求 300,400之间最小的一个有偶数个不同因子的整数。324.3950.求 200,300之间第二大有奇数个不同因子的整数。256.4051.一 个14*14方阵a(i,j),其每个元素的值为该元素下标的立方和，求出该矩阵所有元素的累加和(注：i,j从1到14).308700.4052.求 100,2

9、00之间最大的有奇数个不同因子的整数。196.4153.一个数如果恰好等于它的所有真因子之和，这个数就称为 完数。例如，6的真因子为1,2,3,而6=1+2+3,因此，6是“完数”。求1000以内的所有完数之和。530.4154.一个数如果恰好等于它的所有真因子之和，这个数就称为 完数”。例如，6的真因子为1,2,3,而6=1+2+3,因此，6是“完数”。求 8100,8200之间的所有完数。8128.4255.一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如，6的真因子为1,2,3,而6=1+2+3,因此6是“完数”。求 1,1000之间的最大完数。496.4256.一个数如

10、果恰好等于它的所有真因子之和，这个数就称为“完数”。例如，6的真因子为1,2,3,而6=1+2+3,因此,6 是“完数”。求 1,1000 之间的第二大完数。28.4257.求 数 学 式 1-1/2+1/3-1/4+1/5-1/6+1/99-1/100 的值（按四舍五入方式精确到小数点后4 位）0.6882.4358.某自然数平方的末几位与该数相同时，称此数为自同构数，例 如 25人 2=6 2 5,则 称 2 5 为自同构数，求出 10,100000 之间最大的自同构数。90625.4359.设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512,9+1=

11、5*2,试问所有这样的四位数之和是多少？1078289.4460.求符合下列条件的四位完全平方数（某个数的平方数为完全平方数），它的千位数字与十位数字之和等于百位数字与个位数字之积，例如，3136=56人 2,且 3+3=1*6故 3136是所求的四位完全平方数.求其中最大的一个数。7921.4461.求在 10,1000 之间的所有完备数之和。各真因子之和（不包括自身）等于其本身的正整数称为完数。例如：6=1+2+3,6 是完数。524.4562.求满足a*b=718368,使 a+b最小，且 a,b（a y z）,则（x,y,z）称为方程的一个解。试求方程的整数解（包括负整数解）的个数。6

12、2.5790.一只猴子一天从山上摘来一袋桃子，从这天开始，它每天都要把袋中的桃子平分为二堆，吃掉其中的一堆，然后再从剩下的桃中拿出一个解谗，等 到 第 1 0 天，它发现袋中只有一只桃可吃啦，问猴子总共摘了多少桃。1534.5791.编程求取：121,140之间的弦数的个数（若某正整数的平方等于另两个正整数平方之 和，则称该数为弦数.例如:3人 2+4人 2=5人 2,因此5 是弦数）。8.5892.回文数是指正读和反读都一样的正整数。例 如3773等都是回文数。求出 1000,9999 以内的所有回文数的个数。90.5893.有一辆以固定速度行驶在高速公路上的汽车，清晨司机看到里程表上从左到

13、右的读数和从右到左的读数是相同的,这个数是95859,7 小时后，里程表又出现了一个新的对称数。设里程表为5 位数字，问这个新的对称数是什么？959595994.利用格里高利公式：a/4=1-1/3+1/5-1/7+1/9-1/11+.-1/99,求 a 的值。要求：按四舍五入的方式精确到小数点后第二位。3.13.5995.已知正整数a,b（假 定 avb）,满 足 a*b=5432,求 s=a+b的最小值。153.5996.编程求区间 500,2500 中按递增顺序第2 5 个素数。659.6097.已知：非等腰三角形最长边是6 0,其它两边的长度都是正整数，且三边之和能被3 整除，试编程求

14、取这类三角形的个 数（注意：两边的长度交换构成的三角形算作同一个三角形，如：其它两边的长度为30,40的三角形与长度为40,30的三角形视为同一个三角形）。271.6098.统计 100,10000 之间有多少个这样的整数淇各位数字之和能被7 整除 1408.6199.sl=l,s2=l+3,s3=1+3+5,s4=l+3+5+7,sn=l+3+5+7+.+（2n-l）,n 为 正 整 数。编 程 求sl+s2+s3+s4+.+sn 的值 20000 时的 n 的最大值。38.61100.求 1,999 之间能被3 整除，且至少有一位数字是5 的所有正整数的个数。91.62101.若一自然数等

15、于其所有真因子（不包括该数本身）之和,则称该数为完数.例如：6 的真因子有1,2,3,且 6=1+2+3，因此6 为完数，求 3,1000 之间最大的完数。496.63102.求 500,2500 之间按递增顺序的素数中的第2 5 大的素数。659.63103.某一正整数，进行递减，第一次减去该数的一半再减一,以后每次都减去前一次剩下的数的一半后再减一，直到第十次减后，剩 1。求该数。1534.64104.有一辆以固定速度行驶在高速公路上的汽车，清晨司机看到里程表上从左到右的读数和从右到左的读数是相同的，这个数是95859,7 小时后，里程表又出现了一个新的对称数。设里程表为5 位数字，问此车

16、的时速是多少公里(是一整数)？14.2857.64105.已知 sl=l,s2=l+2,s3=l+2+3，sn=l+2+.n,求 s20到 s80之间有多少个数能被17或 35整除。12.64106.已知 s=2+(2+4)+(2+4+8)+(2+4+8+16)+，求s6000的 s 的最小值。8166.65107.分子分母为正整数，分子小于分母且分子分母无公因数的分数称为最简真分数。对于分数的分母取值范围为 50,90时的最简真分数共有多少个.773.65111.当 k 值 为 20 时，求 s 的值。(lA2/(l*3)*(4A2/(3*5)*(6A2/(5*7)*.*(2k)A2/(2k

17、-l)(2k+l)(按四舍五入的方式精确到小数点后第三位)1.552.66112.求 1000以内，同时能被3 和 7 整除的所有自然数之和的平方根。(按四舍五入的方式精确到小数点后第二位)。153.91.66113.求 y=l-l/2+l/3-l/4+.-l/2*n 前 30 项之和。要求：按四舍五入的方式精确到小数点后第二位。0.68.671 1 4.当n=1 0 0 时，计 算 输 出 下 列 多 项 式 的 值s=(l-l/2)+(l/3-l/4)+(l/(2n-l)-l/(2n)按四舍五入的方式精确到小数点后第三位。0.688.67115.找 出 2x3矩阵中的最大数和最小数.671

18、19.计算数列50,52,54,100的平均值.68120.从键盘输入三个数，求最大值.68121.铁路拖运行李，从甲地到乙地，按规定每张客票拖运行李不超过50公斤时，每公斤0.25元，如超过50公斤，超过部分按每公斤0.45元计算。编程，把行李重量输入计算机，计算出运费，并打印付款清单。.69122.11-10已 知 系 数 a,b,c编 写 程 序，求一元二次方程ax2+bx+c=0 的根。.69123.设计一个按不同幼儿年龄服药的程序，年龄变量为age,每次服药次数co u n t,每次服药量mount。程序为:.70124.有一张厚0.5 毫米，面积足够大的纸，将它不断对折。问对折多少

19、次后，其厚度可达珠穆郎玛峰的高度(8848米)。71125.打印九九乘法表。.71126.设计一个保密口令程序，要求用户使用某个系统时，必须回答口令，该程序口令为“49712”才能允许进入系统，但最多只允许输入三次，否则，退 foxpro系统。程序如下：.71127.某单位举行业余歌手竞赛，竞赛评分专家10人组成，专家各自按百分制评分，对.72128.应用一维数组对n 个数据进行排序.72129.求任意一个数值的绝对值.72130.判断输入的整数为奇数还是偶数。.72131.将用户输入的小写英文字母转化成大写.73132.比较a、b 的大小.73133.邮局负责邮购小物品规则如下：5 0 公里

20、及以内收取额外金额5 元，50-100公里收取10元，100-200公里收取20元，200-500公里收取40元，其余一律收取50元。.73134.通过键盘输入三角形的边长，若边长正确，立即在屏幕上显示三角形的面积，若边长不正确，重新输入边长，若输入的边长中任意一边为0 则程序立即结束。.74135.将 1、2、3、10顺序输入一维数组，实现顺序输出和逆序输出。.74136.有 5 个英文单词，分别为：word,excel,powerpoint,type,angle,要求设计出如下程序：.75137.判断输入的字符属于字母,数字或特殊符号.76138.一个三位数的个、十、百位数的立方和等于这个

21、数本身，求这个数.76139.求水仙花数，即一个三位数，去各位上的数字的立方和等于其本身。如 153=1人 3+5人 3+3人 3.76140.若一个自然数的立方的末三位数字为9 9 9,则称这样的自然数为“千禧数”，求最小的“千禧数”。.77141.已 知 三 角 形 的 三 边(从 键 盘 输 入)，求 其 面 积(sA2=p(p-a)(p-b)(p-c),p=(a+b+c)/2).77142.s=l*2*3*4*.*n 求 s 不大于400000时 n 的最大值。.78143.编程计算 s=l*2+2*3+3*4+.+100*101.79144.从键盘输入3 个数，求他们的最大值，最小值

22、和平均值。.79145.编程 s=1 1 /2+1/3 1 /4+.1 /10.80146.求 s=l+l/2+2/3+3/5.前 10 项之和.80147.求s=1+1+2+1+2+3+1+2+3+4+1+2+3+4+5+6+7+8+9+10.81148.输入一行字符，分别统计出其中英文字母，空格，数字和其他字符的个数。.81149.按照成绩评定等级(就是成绩输入要在。至 IJ 100之间，90到 100算 优 秀,80到 9 0 算良好.70到 80算中等.60到 70算及格，其他算不及格).83150.求 sn=a+aa+aaa+aaaa+aaaaaa.a 的和.83151.利用 a/4

23、=1-1/3+1/5-1/7+求 a 的值.83152.百钱买百鸡，100元钱买100只鸡，公鸡2 元一只，母鸡 3 元一只，小鸡五角一只，打印所有方案.83153.求 1 到 100的无重复勾股数.83154.编程求pear-apa=pea的数字组合.83155.一球从100米高度自由落下，每次落地后反跳回原地高度的一半再落下，求 在 第 1 0 次落地时，其经过多少米？第10次反弹多高？.83156.有 123.4.四个数字，能组成多少个互不相同的无重复数字的三位数，都是多少.83157.古典问题，有一对兔子，从出生后的第三个月起，每个月都生一对兔子，小兔子长到三个月以后，每个月又生一对兔

24、子，假如兔子都不死，问每个月的兔子总数为多少？83158.抓交通肇事犯。一辆卡车违反交通规则，撞人逃跑后，现场三人目击事件，但却没有记住车牌，只有记住车牌的一些特征，甲说，：”牌照的前两位数字是相同的，而且不是0,“乙说：牌照后边两位数字是相同的，但却与前边两位数字不同。”丙是数学家，他说四位的车牌的车牌刚好是一个数的平 方,”请根据以上线索求出车号？.83160.输入一个三位数，将其反向输出。如输入314,输出413.85161.编写程序输出一下形式.85162.从键盘输入2 个数，完成以下功能：1 输出这两个数2将这两个变量的值进行互换后进行输出.86163.输入一个数，如果是偶数那么就输

25、出它的平方，如果是奇数就输出它的立方.86164.1-1000之中偶数的立方和.87165.1 到 1000所有奇数的平方和.87166.输入一个数，判断奇数偶数.87167.输出99乘法表.87168.怎样用v f编程做出99乘法表，可以不带框.88169.输入任意一个五位整数，前后对应位置上的数据进行交换重新排列（即逆序排列.88170.从键盘输入3 个数，对其进行从小到大排序.89172.判断输入的字符时字母还是数字.91173.从键盘上接受一个字符串，统计该字符串中包含数字字符（0 9）的总个数.91174.计算 5+55+555+.+5555555555 的值.91175.下列数字被

26、称为“回文数”，编写程序求出100010000间的所有“回文数”并计算其和.22,88,232,565,7887,5445,5555,1111.92176.编程输出下面的图形.92177.编程输出下面的图形.93178.求方程8x-5y=3,在lxlv=150,lylv=200内的整数解。试问这样的整数解中lxl*lyl的最大值是多少？.93179.编程输出下面的图形.93180.编程输出下面的图形.93181.编程输出下面的图形.94182.编程输出下面的图形.94183.编程输出下面的图形.94184.编程输出下面的图形.95185.请显示出100到 200间以内的所有的奇数，每行显示6个

27、数.95186.编程输出下面的图形.95187.求方程3x-7y=l在条件lxln/2?nendifendforreturn第二种方法：clearfor n=3 to 100for i=2 to n-1if n/i int(n/i)elseexitendifendforif in-l?nendifendfor第三种方法m=3do while m=100i=2n=int(m/2)do while in?m；是素数endifm=m+lenddo第四种方法：clearfor k=3 to 100f=0j=2do while f=0 and jkif k%j=Of=lendifj=j+lenddoif

28、f=O?kendifendfor2.(4!+7!)乘以 3!clears=0t=lfor i=l to 4t=t*iendfors=s+tt=lfor i=l to 7t=t*iendfors=s+tt=lfor i=l to 3t=t*iendfors=s*t?sreturn3.1!+3!+5!+.+99!=clears=lt=lfor i=3 to 99 step 2t=t*i*(i-l)s=s+tendfor?l!+3!+5!+.+99!=,sreturn4.3!+5!+7!s=0t=lfor i=3 to 7 step 2t=t*i*(i-l)s=s+tendfor?3!+5!+7!=

29、,sreturn5.3!+8!+11!的和clears=0t=lfor i=l to 3t=t*iendfors=s+tt=lfor i=l to 8t=t*iendfors=s+tt=lfor i=l to 11t=t*iendfors=s+t?sreturn6.10100之间不能被3 整除的数的和clears=0for m=10 to 100if mod(m,3)!=0?ms=s+m?sendifendforreturn7.10100之间能被3 整除的数clearfor m=10 to 100if mod(m,3)=0?mendifendforreturn8.1000-1100 素数和cl

30、earm=0for k=1000 to 1100f=0j=2do while f=0 and j3y=3*x-10elseif x3y=3*x-10case x-3y=2*x+10otherwisey=xendcasereturn10.计算 1!+2!+3!+-+100!clears=0n=lfor i=l to 100n=n*is=s+nendfor?l!+2!+3!+.+100!=,sreturn11.计算 1+2+3+-+100clears=0for i=l to 100s=s+iendfor71+2+3+100=,sreturn12.输 入 10个数，找最大值和最小值方 法 1.cle

31、ari叩uf请输入一 个 数 xstore x to max,minfor i=2 to 10input，请输入一个数:To xif max=xmin=xendifendifendfor?最大值:,max?最小值:,minreturn方法2.clearinput请输入一个数:to ndime x(n)for i=l to ninput请输入一个数:to x(i)endfor?”输入的数据为:“for i=l to nendforfor i=1 to n-1ifx(i)x(i+l)max=x(i)x(i)=x(i+l)x(i+l)=maxendifendfor邛其中最大数为：max13.找出几个

32、数(此题中为八个)中的最小数clearinput请输入一个数:to xstore x to minfor i=2 to 8input请输入一个数:to xif xminmin=xendifendfor?minreturn14.一万个iyouclearfor i=l to 10000?IYOUendforreturn15.未知题目clearx=ly=20do while x=yif int(x/2)ox/2x=l+xA2y=y+iloopelsex=x+lendifenddo?x=,x,y=,yreturn16.99乘法表cleara=ldo while a=9b=ldo while b500e

33、xitendifendfor?s2 2.编程序求在3000以内被17或者23整除的正整数数的个数。299clears=0for n=l to 3000ifn%17=0orn%23=0s=s+lendifendfor?s2 3.已知一个数列的前3 个数为0,0,1,以后每个数为前3个数的和，编程序求此数列的第36个数。334745777cleardime f(36)f(D=of(2)=0f(3)=ls=0for n=4 to 36f(n)=f(n-3)+f(n-2)+f(n-l)s=f(n)endfor?s2 4.编程序求出100至 lj 200之间同时满足除3 余 2 和除5 余3 条件的数的

34、个数。6cleas=0for n=100 to 200if n%3=2 and n%5=3s=s+lendifendfor?s2 5.编程序求出2+4+8+16+32+这样的数之和。如果累加数大于500时，则程序终止并输出结果。510clears=0for n=1 to 100s=s+2Anif s500exitendifendfor?s2 6.编 程 序 求 出 1-100所有整数的立方和并输出结果。25502500clears=0for n=l to 100s=s+nA3endfor?s2 7.编程序求出1到 5000之间的能被7 整除的前若干个数之和，当和大于1500时 退 出 并 输

35、出 结 果。1617cleas=0for n=l to 5000if n%7=0s=s+nendifif s1500exitendifendfor?s2 8.编程序求出1到 6000之间的能被5 整除的前若干个偶数之和，当和大于650时退出并输出结果。660cleas=0for n=l to 6000if n%5=0 and n%2=0s=s+nendifif s650exitendifendfor?s2 9.编程序求1+3+5+7+9+这样的数之和。如果累加数大于750时，则程序终止并输出结果。784clears=0for n=l to 800 step 2s=s+nif s750exite

36、ndifendfor?s3 0.已知24有 8 个正整数因子(即：1,2,3,4,6,8,12,24),而 24正好被其因子个数8 整 除 求 1,100 之间第10个能被其因子数目整除的正整数。56clears=0q=0for n=l to 100m=0for j=l to nif n%j=0m=m+lendifnextif n%m=0s=s+lq=nifs9&当它大于9 时，q 已经是第十个数了！exitendifendifendfor?q31.求 444,666 范围内最大的素数是多少？661clears=0for n=444 to 666q=0for j=2 to sqrt(n)ifn

37、%j=0q=iendifendforifq=0s=nendifendfor?s3 2.有一个分数序列2/1,3/2,5/3,8/5,13/8,21/13.(注：该数列从第二项开始，其分子是前一项的分子与分母的和，而其分母是前一项的分子)，求出这个序列前2 4 项的和。要求：按四舍五入的方式精确到小数点后第二位。39.13clears=0k=0m=2n=lfor j=l to 24k=m/ns=s+ky=mm=m+nn=yendfor?round(s,2)3 3.已知24有 8 个正整数因子(即：1,2,3,4,6,8,12,24),而 24正好被其因子个数8 整除。问 100,300 之间有多

38、少个能被其因子数目整除的数。19clears=0for n=100 to 300m=0for j=1 to nif n%j=0m=m+lendifendforif n%m=0s=s+lendifendfor?s3 4.设某国今年的国民生产总值为45600亿元,若今后每年以8%的增长率增长，计算多少年后能实现国民生产总值翻两番?19 2008clears=0dime f(1000)f(1)=45600f(2)=49248f(3)=53187.84q=2&从第二年开始计算年份，所以f不算。for n=4 to 1000f(n)=f(n-l)*1.08s=f(n)q=q+iif s=182400ex

39、itendifendfor?q35.已知 24 有 8 个因子(即：1,2,3,4,6,8,12,24),而 24正好被8 整 除 求 1,100 之间第二大能被其因子数目整除的数。88clears=0q=0for n=100 to 1 step-1m=0for j=l to nif n%j=0m=m+lendifendforif n%m=0s=s+lq=nifsl&当它大于1 时，q 已经是第2 个数了！exitendifendifendfor?q36.若某整数平方等于某两个正整数平方之和的正整数称为弦数。例如：由于3A2+4人 2=5人 2,则 5 为弦数，求 100,200之间最大的弦数

40、。200clears=100q=0for n=100 to 200for j=1 to n-1for k=1 to n-1ifkA2+jA2=nA2q=nif qss=qendifendifendforendforendfor?s37.若某整数n 的所有因子之和等于n 的倍数，则 n 称为多因子完备数，如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求 1,500 之间有多少个多因子完备数。5clears=0for n=l to 500m=0for j=l to nif n%j=0m=m+jendifendforif m%n=0s=s+lendifendfo

41、r?s38.设某国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番?9clears=0dime f(1000)f(1)=45600f(2)=45600*1.09f(3)=(45600*1.09)*1.09q=2&从第二年开始计算年份，所以f不算。for n=4 to 1000f(n)=f(n-l)*1.09s=f(n)q=q+iif s=45600*2exitendifendfor?q39.有一个三位数满足下列条件：(1)此三位数的三位数字各不相同；(2)此三位数等于它的各位数字的立方和。试求这种三位数共有多少个？4clears=0for

42、n=100 to 999a=int(n/100)b=int(n/10)%10c=n%10if aA3+bA3+cA3=n and a!=b and b!=c and c!=as=s+lendifendfor?s40.找满足以下条件：xA2+yA2+zA2=41A2 且 x+y+z之值最大的三个正整数x,y,z,求 x+y+z之值.71clears=0for x=l to 41for y=l to 41for z=l to 41ifxA2+yA2+zA2=41A2k=x+y+zif kss=kendifendifendforendforendfor?s41.求 2,500 之间的所有素数的和。c

43、lears=0for n=2 to 500q=0for j=2 to sqrt(n)if n%j=0q=iendifendforifq=0s=s+nendifendfor?s42.求 3-1000 之间最大的五个素数之和。clears=0q=0for n=1000 to 3 step-1m=0for j=2 to sqrt(n)if n%j=0m=lendifendforif m=0s=s+nq=q+iif q4215364919exitendifendifendfor?s4 3.已知 24 有 8 个 因 子（即：1,2,3,4,6,8,12,24）,而 24 正好 被 8 整除。求 100

44、,300 之间所有能被其因子数目整除的数之和。3769clears=0for n=100 to 300m=0for j=l to nif n%j=0m=m+lendifendforif n%m=0s=s+nendifendfor?s4 4.问 100,200 之间有奇数个不同因子的整数共有多少个？5clears=0for n=100 to 200m=0for j=1 to nif n%j=0m=m+lendifendforif m%2=1s=s+lendifendfor?s45.水仙花数是一个三位正整数，它等于它的各位数字的立方 之 和.例 如:153=1人 3+5八 3+3人 3,所 以 1

45、53是水仙花数.试求所有的水仙花数之积。8547940170clears=l&小蔡提醒：特别注意若s=0,贝 I s 乘任何数都会为0,所以此时s=l。for n=100 to 999a=int(n/100)b=int(n/10)%10c=n%10ifaA3+bA3+cA3=ns=s*nendifendfor46.把一张一元钞票，换成一分、二分和五分硬币，每种至少8枚，问有多少种方案？80clears=0for a=8 to 100for b=8 to 50for c=8 to 20ifa+2*b+5*c=100s=s+lendifendforendforendfor?s47.求 200,30

46、0 之间最小的一个有奇数个不同因子的整数。225clears=0for n=200 to 300m=0for j=1 to nif n%j=Om=m+lendifendforif m%2=1s=nexitendifendfor?s48.一个数出现在该数的平方数的右边，称这个数为“同构数%例如，5 出现在平方数2 5 的右边，2 5 出现在平方数625的右边，则 5、25都是“同构数”。找 出 1 到 1000之间的所有 同构数 的个数。6clears=0for n=2 to 1000do casecase n10p=nA2%10case n100p=nA2%100case nlexitendi

47、fendifendfor?s51.一 个 14*14方阵a(i,j),其每个元素的值为该元素下标的立方和，求出该矩阵所有元素的累加和(注：i,j 从 1 到 14).308700clears=0for n=l to 14for m=l to 14s=s+nA3+mA3endforendfor?s5 2.求 100,200 之间最大的有奇数个不同因子的整数。196clears=0for n=100 to 200m=0for j=1 to nif n%j=0m=m+lendifendforif m%2=1s=nendifendfor?s53.一个数如果恰好等于它的所有真因子之和，这个数就称为“完数

48、”。例如，6 的真因子为1,2,3,而 6=1+2+3,因此，6 是“完数”。求 1000以内的所有完数之和。530clears=0for n=l to 1000m=0for j=1 to n/2if n%j=0m=m+jendifendforif m=ns=s+nendifendfor?s54.一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如，6 的真因子为1,2,3,而 6=1+2+3,因此，6 是“完数”。求 8100,8200 之间的所有完数。8128clearfor n=8100 to 8200m=0for j=1 to n/2if n%j=0m=m+jendifen

49、dforif m=n?nendifendfor55.一个数如果恰好等于它的所有真因子之和，这个数就称为 完数”。例如，6 的真因子为1,2,3,而 6=1+2+3,因此，6 是“完数”。求 1,1000 之间的最大完数。496cleas=0for n=l to 1000m=0for j=1 to n/2if n%j=0m=m+jendifendforif m=ns=nendifendfor?s56.一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例 如,6 的真因子为1,2,3,而 6 T+2+3,因此，6 是，完数”。求 1,1000 之间的第二大完数。28clears=0q=0

50、for n=1000 to 1 step-1m=0for j=l to n/2if n%j=0m=m+jendifendforif m=nq=q+is=nif qlexitendifendifendfor?s5 7.求数学式 1-1/2+1/3-1/4+1/5-1/6+1/99-1/100 的值(按四舍五入方式精确到小数点后4 位)0.6882cleardime f(50)f(l)=l-l/2f(2)=l/3-l/4f(3)=l/5-l/6s=0for n=l to 50f(n)=l/(2*n-l)-l/(2*n)s=s+f(n)endfor?round(s,4)5 8.某自然数平方的末几位与