VF程序设计题库

1、 一级程序设计题库过程及答案1 编程序求出1-200以内的能被7整除的数的平方和。 cleas=0m=0for i=1 to 200 if i%7=0 m=i2 s=s+m endifendfor?s2 编程序求199的平方根的和并输出结果。（保留小数点两位） 661.46cleas=0for i=1 to 99 s=s+sqrt(i)endfor?round(s,2)3 编程序求155的平方根的和并输出结果。（保留小数点两位） 275.43cleas=0for i=1 to 55 s=s+sqrt(i)endfor?round(s,2)4 编程序统计11000能被3整除的数的个数。 333c

2、leas=0for n=1 to 1000 if n%3=0 s=s+1 endifendfor?s 7 编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500 时程序退出。 550 cleas=0for n=10 to 5000 step 10s=s+n if s500 exit endifendfor?s8 编程序求在3000以内被17或者23整除的正整数数的个数。 299 cleas=0for n=1 to 3000 if n%17=0 or n%23=0 s=s+1 endifendfor?s9 序求在1000以内被17或者23整除的正整数数的个数。 99 cleas

3、=0for n=1 to 1000 if n%17=0 or n%23=0 s=s+1 endifendfor?s10 编程序求在5000以内被17或者23整除的正整数数的个数。 499cleas=0for n=1 to 5000 if n%17=0 or n%23=0 s=s+1 endifendfor?s 11 编程序求出1-100以内的能被3整除的数的平方和。 cleas=0for n=1 to 100 if n%3=0 s=s+n2 endifendfor?s12 已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。 cleadime f(36)f

4、(1)=0f(2)=0f(3)=1s=0for n=4 to 36 f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s13 编程序求出1-100以内的能被9整除的数的平方和。 40986cleas=0for n=1 to 100 if n%9=0 s=s+n2 endifendfor?s 14 编程序求出1-200以内的能被3整除的数的平方和。 cleas=0for n=1 to 200 if n%3=0 s=s+n2 endifendfor?s15 编程序求出1-7000以内能被3或者7整除数的个数。 3000cleas=0for n=1 to 7000 if n

5、%3=0 or n%7=0 s=s+1 endifendfor?s 16 序求出1-3000以内能被3或者5整除数的个数。 1400cleas=0for n=1 to 3000 if n%3=0 or n%5=0 s=s+1 endifendfor?s 17 编程序求出1-5000以内能被3或者7整除数的个数。 2142cleas=0for n=1 to 5000 if n%3=0 or n%7=0 s=s+1 endifendfor?s 18 编程序求出1-6000以内能被3或者5整除数的个数。 2800cleas=0for n=1 to 6000 if n%3=0 or n%5=0 s=s

6、+1 endifendfor?s 19 编程序求出1-4000以内能被3或者11整除数的个数。 1575cleas=0for n=1 to 4000 if n%3=0 or n%11=0 s=s+1 endifendfor?s 20 编程序求出1-5000以内能被37整除的整数之和。 cleas=0for n=1 to 5000 if n%37=0 s=s+n endifEndfor?s21 编程序求出1-6000以内能被23整除的整数之和。 cleas=0for n=1 to 6000 if n%23=0 s=s+n endifendfor?s 22 编程序求出1-3000以内能被33整除的

7、整数之和。 cleas=0for n=1 to 3000 if n%33=0 s=s+n endifendfor?s 23 编程序求出1-5000以内能被15整除的整数之和。 cleas=0for n=1 to 5000 if n%15=0 s=s+n endifendfor?s 24 编程序求出100到200之间同时满足除3余2和除5余3条件的数的个数。 6cleas=0for n=100 to 200 if n%3=2 and n%5=3 s=s+1 endifendfor?s25 编程序求出1到300之间同时满足除3余2和除5余3条件的数的个数。 20cleas=0for n=1 to

8、300 if n%3=2 and n%5=3 s=s+1 endifendfor?s26 编程序求出100到500之间同时满足除3余2和除5余3条件的数的个数。 26cleas=0for n=100 to 500 if n%3=2 and n%5=3 s=s+1 endifendfor?s27 编程序求出1到400之间同时满足除3余2和除5余3条件的数的个数。 27cleas=0for n=1to 400 if n%3=2 and n%5=3 s=s+1 endifendfor?s28 编程序求出100到600之间同时满足除3余2和除5余3条件的数的个数。 33cleas=0for n=100

9、 to 600 if n%3=2 and n%5=3 s=s+1 endifendfor?s29 编程序求出1到500之间同时满足除3余2和除5余3条件的数的个数。 33cleas=0for n=1to 500 if n%3=2 and n%5=3 s=s+1 endifendfor?s30 1 编程序求出 2+4+8+16+32+这样的数之和。如果累加数大于500时，则程序终止并输出结果。 510 cleas=0for n=1 to 100 s=s+2n if s500 exit endifendfor?s31 编程序求出1100所有整数的立方和并输出结果。 cleas=0for n=1 t

10、o 100 s=s+n3endfor?s32 编程序求出1110所有整数的立方和并输出结果。 cleas=0for n=1 to 110 s=s+n3endfor?s 33 编程序求出166所有整数的立方和并输出结果。 cleas=0for n=1 to 66 s=s+n3endfor?s34 编程序求出1150所有整数的立方和并输出结果。 cleas=0for n=1 to 150 s=s+n3endfor?s35 编程序求出1180所有整数的立方和并输出结果。 cleas=0for n=1 to 180 s=s+n3endfor?s 36 编程序求出1200所有整数的立方和并输出结果。 c

11、leas=0for n=1 to 200 s=s+n3endfor?s37 编程序求出1210所有整数的立方和并输出结果。 cleas=0for n=1 to 210 s=s+n3endfor?s 38 编程序求出S=1130所有整数的立方和并输出结果。 cleas=0for n=1 to 130 s=s+n3endfor?s39 编写程序，计算1000以内有多少个这样的数，该数既能被6整除又能被8整除。 41 cleas=0for n=1 to 1000 if n%6=0 and n%8=0 s=s+1 endifendfor?s40 编程序求1110所有整数的平方和并输出结果。 cleas

12、=0for n=1 to 110s=s+n2endfor?s41 编程序求1120所有整数的平方和并输出结果。 cleas=0for n=1 to 120s=s+n2endfor?s42 编程序求180所有整数的平方和并输出结果。 cleas=0for n=1 to 80s=s+n2endfor?s43 编程序求1150所有整数的平方和并输出结果。 cleas=0for n=1 to 150s=s+n2endfor?s44 编程序求160所有整数的平方和并输出结果。 73810 cleas=0for n=1 to 60s=s+n2endfor?s45 编程序求190所有整数的平方和并输出结果。

13、 cleas=0for n=1 to 90s=s+n2endfor?s46 编程序求1108所有整数的平方和并输出结果。 cleas=0for n=1 to 108s=s+n2endfor?s47 编程序求1145所有整数的平方和并输出结果。 cleas=0for n=1 to 145s=s+n2endfor?s48 编程序求1250所有整数的平方和并输出结果。 cleas=0for n=1 to 250s=s+n2endfor?s 49 编程序求1300所有整数的平方和并输出结果。 cleas=0for n=1 to 300s=s+n2endfor?s50 编程序求出1到5000之间的能被7

14、整除的前若干个数之和，当和大于1500时退出 并输出结果。 1617cleas=0for n=1 to 5000 if n%7=0 s=s+n endif if s1500 exit endifendfor?s51 编程序求出1到3000之间的能被3整除的前若干个数之和，当和大于600时退出并输出结果。 630 cleas=0for n=1 to 3000 if n%3=0 s=s+n endif if s600 exit endifendfor?s52 编程序求出1到2000之间的能被9整除的前若干个数之和，当和大于500时退出并输出结果。 594 cleas=0for n=1 to 200

15、0 if n%9=0 s=s+n endif if s500 exit endifendfor?s53编程序求出1到6000之间的能被5整除的前若干个偶数之和，当和大于650时退出并输出结果。 660cleas=0for n=1 to 6000 if n%5=0 and n%2=0 s=s+n endif if s650 exit endifendfor?s 54 编程序求出1到7000之间的能被5整除的前若干个偶数之和，当和大于500时退出并输出结果。 550cleas=0for n=1 to 7000 if n%5=0 and n%2=0 s=s+n endif if s500 exit

16、endifendfor?s 55编程序求出1到4000之间的能被5整除的前若干个偶数之和，当和大于400时退出并输出结果。 450cleas=0for n=1 to 4000 if n%5=0 and n%2=0 s=s+n endif if s400 exit endifendfor?s 56 编程序求出1到8000之间的能被5整除的前若干个偶数之和，当和大于750时退出并输出结果。 780 cleas=0for n=1 to 8000 if n%5=0 and n%2=0 s=s+n endif if s750 exit endifendfor?s57 编程序统计1200能被3整除的个数。

17、 66 cleas=0for n=1 to 200 if n%3=0 s=s+1 endifendfor?s58 编程序统计1300能被3整除的个数。 100 cleas=0for n=1 to 300 if n%3=0 s=s+1 endifendfor?s59 编程序统计200400能被3整除的个数。 67cleas=0for n=200 to 400 if n%3=0 s=s+1 endifendfor?s60 编程序统计150300能被3整除的个数。 51 cleas=0for n=150 to 300 if n%3=0 s=s+1 endifendfor?s61 编程序统计15040

18、0能被3整除的个数。 84 cleas=0for n=150 to 400 if n%3=0 s=s+1 endifendfor?s62 编程序统计100500能被3整除的个数。 133 cleas=0for n=100 to 500 if n%3=0 s=s+1 endifendfor?s63 编程序统计200600能被3整除的个数。 134 cleas=0for n=200 to 600 if n%3=0 s=s+1 endifendfor?s64 编程序统计200300能被3整除的个数。 34cleas=0for n=200 to 300 if n%3=0 s=s+1 endifendf

19、or?s65 编程序统计300500能被3整除的个数。 67 cleas=0for n=300 to 500 if n%3=0 s=s+1 endifendfor?s66 编程序求165的平方根的和并输出结果。（保留小数点两位） 353.19cleas=0for n=1 to 65 s=s+sqrt(n)endfor?round(s,2)67 编程序求166的平方根的和并输出结果。（保留小数点两位） 361.32cleas=0for n=1 to 66 s=s+sqrt(n)endfor?round(s,2)68 编程序求185的平方根和并输出结果。（保留小数点两位） 526.85 cleas

20、=0for n=1 to 85 s=s+sqrt(n)endfor?round(s,2)69 编程序求195的平方根的和并输出结果。（保留小数点两位） 621.97cleas=0for n=1 to 95 s=s+sqrt(n)endfor?round(s,2)70 编程序求1125的平方根的和并输出结果。（保留小数点两位） 937.08cleas=0for n=1 to 125 s=s+sqrt(n)endfor?round(s,2)71 编程序求1135的平方根的和并输出结果。（保留小数点两位） 1051.31cleas=0for n=1 to 135 s=s+sqrt(n)endfor?

21、round(s,2)72 编程序求1155的平方根的和并输出结果。（保留小数点两位） 1292.51cleas=0for n=1 to 155 s=s+sqrt(n)endfor?round(s,2)73 编程序求1115的平方根的和并输出结果。（保留小数点两位） 827.32cleas=0for n=1 to 115 s=s+sqrt(n)endfor?round(s,2)74 编程序求178的平方根的和并输出结果。（保留小数点两位） 463.46cleas=0for n=1 to 78 s=s+sqrt(n)endfor?round(s,2)75 已知一个数列的前3个数为0，1，2，以后每

22、个数为前3个数的和，编程序求此数列的第30个数。 cleadime f(30)f(1)=0f(2)=1f(3)=2s=0for n=4 to 30f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s 76 已知一个数列的前3个数为0，1，1，以后每个数为前3个数的和，编程序求此数列的第20个数。 35890 cleadime f(20)f(1)=0f(2)=1f(3)=1s=0for n=4 to 20f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s77 已知一个数列的前3个数为0，1，2，以后每个数为前3个数的和，编程序求此数列的第25

23、个数。 cleadime f(25)f(1)=0f(2)=1f(3)=2s=0for n=4 to 25f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s78 已知一个数列的前3个数为1，2，3，以后每个数为前3个数的和，编程序求此数列的第20个数。 cleadime f(20)f(1)=1f(2)=2f(3)=3s=0for n=4 to 20f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s79 已知一个数列的前3个数为0，1，2，以后每个数为前3个数的和，编程序求此数列的第35个数。 cleadime f(35)f(1)=0f(2)

24、=1f(3)=2s=0for n=4 to 35f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s80 已知一个数列的前3个数为1，2，3，以后每个数为前3个数的和，编程序求此数列的第35个数。 cleadime f(35)f(1)=1f(2)=2f(3)=3s=0for n=4 to 35f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s81 已知一个数列的前3个数为3，4，5，以后每个数为前3个数的和，编程序求此数列的第28个数。 cleadime f(28)f(1)=3f(2)=4f(3)=5s=0for n=4 to 28f(n)

25、=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s82已知一个数列的前3个数为3，4，5，以后每个数为前3个数的和，编程序求此数列的第33个数。 cleadime f(33)f(1)=3f(2)=4f(3)=5s=0for n=4 to 33f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s 83 已知一个数列的前3个数为3，4，5，以后每个数为前3个数的和，编程序求此数列的第26个数。 cleadime f(26)f(1)=3f(2)=4f(3)=5s=0for n=4 to 26f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)e

26、ndfor?s84 编程序求2+4+8+16+32+这样的数之和。如果累加数大于1500时，则程序终止并输出结果。 2046cleas=0for n=1 to 100 q=2ns=s+q if s1500 exit endifendfor?s85 编程序求2+4+8+16+32+这样的数之和。如果累加数大于980时，则程序终止并输出结果。 1022cleas=0for n=1 to 100 q=2ns=s+q if s980 exit endifendfor?s86 编程序求2+4+8+16+32+这样的数之和。如果累加数大于3000时，则程序终止并输出结果。 4094cleas=0for n

27、=1 to 100 q=2ns=s+q if s3000 exit endifendfor?s87 编程序求2+4+8+16+32+这样的数之和。如果累加数大于5000时，则程序终止并输出结果。 8190cleas=0for n=1 to 100 q=2ns=s+q if s5000 exit endifendfor?s88 编程序求1+3+5+7+9+这样的数之和。如果累加数大于750时，则程序终止并输出结果。 784 cleas=0for n=1 to 800 step 2s=s+n if s750 exit endifendfor?s89 编程序求1+3+5+7+9+这样的数之和。如果累

28、加数大于1200时，则程序终止并输出结果。 1225cleas=0for n=1 to 800 step 2s=s+n if s1200 exit endifendfor?s90 编程序求2+4+8+16+32+这样的数之和。如果累加数大于9000时，则程序终止并输出结果。 16382cleas=0for n=1 to 100 q=2ns=s+q if s9000 exit endifendfor?s 91 编程序求1+3+5+7+9+这样的数之和。如果累加数大于1300时，则程序终止并输出结果。 1369cleas=0for n=1 to 800 step 2s=s+n if s1300 e

29、xit endifendfor?s92 编程序求1+3+5+7+9+这样的数之和。如果累加数大于900时，则程序终止并输出结果。 961cleas=0for n=1 to 800 step 2s=s+n if s900 exit endifendfor?s93 编程序求1+3+5+7+9+这样的数之和。如果累加数大于1000时，则程序终止并输出结果。 1024cleas=0for n=1 to 800 step 2s=s+n if s1000 exit endifendfor?s94 编程序求1100能被7整除的个数。 14cleas=0for n=1 to 100 if n%7=0 s=s+

30、1 endifendfor?s95 编程序求1600能被11整除的个数。 54 cleas=0for n=1 to 600 if n%11=0 s=s+1 endifendfor?s96 编程序求11000能被15整除的个数。 66 cleas=0for n=1 to 1000 if n%15=0 s=s+1 endifendfor?s97 编程序求1800能被5整除的个数。 160cleas=0for n=1 to 800 if n%5=0 s=s+1 endifendfor?s98 编写程序，求1，1000既能被6整除又能被7整除的数的个数。 2cleas=0for n=1 to 100

31、if n%6=0 and n%7=0 s=s+1 endifendfor?s99 编写程序，求1，500既能被3整除又能被5整除的数的个数。 33cleas=0for n=1 to 500 if n%3=0 and n%5=0 s=s+1endifendfor?s100编写程序，求1，500既能被6整除又能被7整除的数之和。 2772cleas=0for n=1 to 500 if n%6=0 and n%7=0 s=s+n endifendfor?s101 已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求1,100之间第10个能被其因子数目

32、整除的正整数。 56cleas=0q=0for n=1 to 100m=0for j=1 to n if n%j=0 m=m+1 endif next if n%m=0 s=s+1 q=n if s9 &当它大于9时，q已经是第十个数了！ exit endif endifendfor?q 102求666,777范围内素数的个数。 16 cleas=0for n=666 to 777 q=0 for j=2 to sqrt(n) if n%j=0 q=1 endif next if q=0 s=s+1 endifendfor?s103求351,432之间所有既不能被3整除,又不能被8整除的正整数

33、的个数。 47cleas=0for n=351 to 432 if n%3!=0 and n%8!=0 s=s+1 endifendfor?s104 求444,666范围内最大的素数是多少？ 661 cleas=0for n=444 to 666 q=0 for j=2 to sqrt(n) if n%j=0 q=1 endif next if q=0 s=n endifendfor?s105 有一个分数序列:2/1,3/2,5/3,8/5,13/8,21/13.（注：该数列从第二项开始，其分子是前一项的分子与分母的和，而其分母是前一项的分子）,求出这个序列前24项的和。要求：按四舍五入的方式

34、精确到小数点后第二位。 39.13cleas=0k=0m=2n=1for j=1 to 24k=m/ns=s+ky=mm=m+nn=yendfor?round(s,2) 106 已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。问100,300之间有多少个能被其因子数目整除的数。 19cleas=0q=0for n=100 to 300m=0for j=1 to n if n%j=0 m=m+1 endif next if n%m=0 s=s+1 endifendfor?s107 求1，5000之间能同时被3和7整除的数的个数。 238 clea

35、s=0for n=1 to 5000 if n%3=0 and n%7=0 s=s+1 endifendfor?s108 设某国今年的国民生产总值为45600亿元,若今后每年以8%的增长率增长,计算多少年后能实现国民生产总值翻两番? 19 2008cleas=0dime f(1000)f(1)=45600f(2)=49248 f(3)=53187.84q=2 & 从第二年开始计算年份，所以f(1)不算。for n=4 to 1000 f(n)=f(n-1)*1.08 s=f(n) q=q+1 if s= exit endifendfor?q109 求1，5000之间能被3或7整除的数的个数。

36、2142cleas=0for n=1 to 5000 if n%3=0 or n%7=0 s=s+1 endifendfor?s110 已知24有8个因子(即：1，2，3，4，6，8，12，24)，而24正好被8整除。求1,100之间第二大能被其因子数目整除的数。 88cleas=0q=0for n=100 to 1 step -1m=0for j=1 to n if n%j=0 m=m+1 endif next if n%m=0 s=s+1 q=n if s1 &当它大于1时，q已经是第2个数了！ exit endif endifendfor?q111 若某整数平方等于某两个正整数平方之和的

37、正整数称为弦数。例如：由于32+42=52，则5为弦数，求100，200之间最大的弦数。 200 cleas=100q=0for n=100 to 200 for j=1 to n-1 for k=1 to n-1 if k2+j2=n2 q=n if qs s=q endif endif endfor endforendfor?s112 若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数,如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求1,500之间有多少个多因子完备数。 5 cleas=0 for n=1 to 500 m=0 for j=1

38、to n if n%j=0 m=m+j endif next if m%n=0 s=s+1 endifendfor?s113 若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数,如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求1,200之间有多少个多因子完备数。 4 cleas=0 for n=1 to 200 m=0 for j=1 to n if n%j=0 m=m+j endif next if m%n=0 s=s+1 endifendfor?s114 设某国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现

39、国民生产总值翻一番? 9cleas=0dime f(1000)f(1)=45600f(2)=45600*1.09 f(3)=(45600*1.09)*1.09q=2 & 从第二年开始计算年份，所以f(1)不算。for n=4 to 1000 f(n)=f(n-1)*1.08 s=f(n) q=q+1 if s=45600*2 exit endifendfor?q115 已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求100,300之间能被其因子数目整除的数中最大的数。 296cleas=0q=0for n=100 to 300m=0for j

40、=1 to n if n%j=0 m=m+1 endif next if n%m=0 s=s+1 q=n endifendfor?q116 有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求这种三位数共有多少个？ 4cleas=0for n=100 to 999a=int(n/100)b=int(n/10)%10c=n%10 if a3+b3+c3=n and a!=b and b!=c and c!=a s=s+1 endifendfor?s117 找满足以下条件: X2+Y2+Z2=412 且X+Y+Z之值最大的三个正整数X,Y,Z

41、, 求X+Y+Z之值. 71 cleas=0for x=1 to 41for y=1 to 41for z=1 to 41 if x2+y2+z2=412 k=x+y+z if ks s=k endif endifendforendforendfor?s118 求2，500之间的所有素数的和。 21536 cleas=0for n=2 to 500 q=0 for j=2 to sqrt(n) if n%j=0 q=1 endif next if q=0 s=s+n endifendfor?s119 求3-1000之间最大的五个素数之和。 4919cleas=0q=0for n=1000 to

42、 3 step -1 m=0 for j=2 to sqrt(n) if n%j=0 m=1 endif next if m=0 s=s+n q=q+1 if q4 exit endif endifendfor?s120 有一个分数序列:2/1,3/2,5/3,8/5,13/8,21/13.(即：该数列从第二项开始，其分子是前一项的分子与分母之和，而其分母是前一项的分子),求出这个序列前56项的和。要求：按四舍五入的方式精确到小数点后第三位。 90.909 cleas=0k=0m=2n=1for j=1 to 56k=m/ns=s+ky=mm=m+nn=yendfor?round(s,3)12

43、1 已知24有8个因子（即：1,2,3,4,6,8,12,24），而24正好被8整除。求100,300之间所有能被其因子数目整除的数之和。 3769cleas=0for n=100 to 300m=0for j=1 to n if n%j=0 m=m+1 endif next if n%m=0 s=s+n endifendfor?s122 问100,200之间有奇数个不同因子的整数共有多少个？ 5cleas=0for n=100 to 200 m=0 for j=1 to n if n%j=0 m=m+1 endif next if m%2=1 s=s+1 endifendfor?s123 水

44、仙花数是一个三位正整数,它等于它的各位数字的立方之和. 例如:153=13+53+33,所以153是水仙花数. 试求所有的水仙花数之积。 cleas=1 &小蔡提醒：特别注意若s=0，则s乘任何数都会为0，所以此时s=1。for n=100 to 999a=int(n/100)b=int(n/10)%10c=n%10 if a3+b3+c3=n s=s*n endifendfor?s124 把一张一元钞票,换成一分、二分和五分硬币,每种至少8枚,问有多少种方案? 80 cleas=0for a=8 to 100 for b=8 to 50 for c=8 to 20 if a+2*b+5*c=100 s=s+1 endif endfor endfornext?s 125 求200,300之间最小的一个有奇数个不同因子的整数。 225cleas=0 for n=200 to 300 m=0 for j=1 to n if n%j=0 m=m+1 endif next if m%2=1