VF程序设计题库

1.3-100的素数 (19)

2. (4!+7!)乘以3! (20)

3.1!+3!+5!+....+99!= (21)

4.3!+5!+7! (21)

5.3!+8!+11!的和 (22)

6.10~100之间不能被3整除的数的和 (22)

7.10~100之间能被3整除的数 (22)

8.1000-1100素数和 (23)

9.编写分段函数程序 (23)

10.计算1！+2！+3！+...+100！ .. (24)

11. 计算1+2+3+...+100 . (24)

12. 输入10个数，找最大值和最小值 (24)

13. 找出几个数（此题中为八个）中的最小数 (25)

14. 一万个i★you (26)

15. 未知题目 (26)

16.99乘法表 (26)

17. 编程序求出1-200以内的能被7整除的数的平方和 (27)

18. 编程序求1~99的平方根的和并输出结果。（保留小数点两位）661.46 (27)

19.编程序统计1~1000能被3整除的数的个数。333 27

20. 编程序求出1~100所有整数的平方和并输出结果。338350 (27)

21. 编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500 时程序退出。550 (28)

22. 编程序求在3000以内被17或者23整除的正整数数的个数。299 (28)

23. 已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。334745777 .28 24. 编程序求出100到200之间同时满足除3余2和除5余3条件的数的个数。 6 (29)

25. 编程序求出2+4+8+16+32+...这样的数之和。如果累加数大于500时，则程序终止并输出结果。510 (29)

26. 编程序求出1~100所有整数的立方和并输出结果。25502500 (29)

27. 编程序求出1到5000之间的能被7整除的前若干个数之和，当和大于1500时退出并输出结果。1617 (29)

28. 编程序求出1到6000之间的能被5整除的前若干个偶数之和，当和大于650时退出并输出结果。660 (30)

29. 编程序求1+3+5+7+9+...这样的数之和。如果累加数大于750时，则程序终止并输出结果。784 . (30)

30. 已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求[1,100]之间第10个能被其因子数目整除的正整数。56 (30)

31.求[444,666]范围内最大的素数是多少？661 (31)

32. 有一个分数序列:2/1,3/2,5/3,8/5,13/8,21/13....（注：该数列从第二项开始，其分子是前一项的分子与分母的和，而其分母是前一项的分子）,求出这个序列前24项的和。要求：按四舍五入的方式精确到小数点后第二位。39.13 . (31)

33. 已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。问[100,300]之间有多少个能被其因子数目整除的数。19 (32)

34. 设某国今年的国民生产总值为45600亿元,若今后每年以8%的增长率增长,计算多少年后能实现国民生产总值翻两番?

19 2008 (32)

35. 已知24有8个因子(即：1，2，3，4，6，8，12，24)，而24正好被8整除。求[1,100]之间第二大能被其因子数目整除的数。88 (33)

36.若某整数平方等于某两个正整数平方之和的正整数称为弦数。例如：由于3^2+4^2=5^2，则5为弦数，求[100，200]之间最大的弦数。200 (33)

37. 若某整数n的所有因子之和等于n的倍数，则n称为多因子完备数,如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求[1,500]之间有多少个多因子完备数。5 (34)

38.设某国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?

9 (34)

39. 有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求这种三位数共有多少个？ 4 (35)

40. 找满足以下条件: x^2+y^2+z^2=41^2 且x+y+z之值最大的三个正整数x,y,z, 求x+y+z之值. 71 (35)

41. 求[2，500]之间的所有素数的和。21536 (36)

42. 求[3-1000]之间最大的五个素数之和。4919 (36)

43. 已知24有8个因子（即：1,2,3,4,6,8,12,24），而24正好被8整除。求[100,300]之间所有能被其因子数目整除的数之和。3769 (37)

44. 问[100,200]之间有奇数个不同因子的整数共有多少个？

5 (37)

45. 水仙花数是一个三位正整数,它等于它的各位数字的立方之和. 例如:153=1^3+5^3+3^3,所以153是水仙花数. 试求所有的水仙花数之积。8547940170 (38)

46. 把一张一元钞票,换成一分、二分和五分硬币,每种至少8枚,问有多少种方案? 80 (38)

47. 求[200,300]之间最小的一个有奇数个不同因子的整数。225 (38)

48. 一个数出现在该数的平方数的右边，称这个数为"同构数"。例如，5出现在平方数25的右边，25出现在平方数625

的右边，则5、25都是"同构数"。找出1到1000之间的所有"同构数"的个数。 6 (39)

49. 求[300,400]之间最小的一个有偶数个不同因子的整数。324 (39)

50. 求[200,300]之间第二大有奇数个不同因子的整数。256 (40)

51. 一个14*14方阵a(i,j),其每个元素的值为该元素下标的立方和,求出该矩阵所有元素的累加和(注：i,j从1到14). 308700 (40)

52. 求[100,200]之间最大的有奇数个不同因子的整数。196 (41)

53. 一个数如果恰好等于它的所有真因子之和，这个数就称为"完数"。例如，6的真因子为1，2，3，而6=1+2+3，因此，6是"完数"。求1000以内的所有完数之和。530 (41)

54. 一个数如果恰好等于它的所有真因子之和，这个数就称为"完数"。例如，6的真因子为1，2，3，而6=1+2+3，因此，6是"完数"。求[8100，8200]之间的所有完数。8128 (42)

55. 一个数如果恰好等于它的所有真因子之和，这个数就称为"完数"。例如, 6的真因子为1，2，3，而6=1+2+3，因此，6是"完数"。求[1，1000]之间的最大完数。496 (42)

56. 一个数如果恰好等于它的所有真因子之和，这个数就称为"完数"。例如，6的真因子为1，2，3，而6=1+2+3，因

此，6是"完数"。求[1,1000]之间的第二大完数。28 (42)

57. 求数学式1-1/2+1/3-1/4+1/5-1/6+...+1/99-1/100的值（按四舍五入方式精确到小数点后4位）0.6882 . (43)

58. 某自然数平方的末几位与该数相同时,称此数为自同构数,例如25^2=625, 则称25为自同构数,求出[10,100000]之间最大的自同构数。90625 (43)

59. 设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512，9+1=5*2，试问所有这样的四位数之和是多少？1078289 (44)

60. 求符合下列条件的四位完全平方数(某个数的平方数为完全平方数)，它的千位数字与十位数字之和等于百位数字与个位数字之积，例如，3136=56^2, 且3+3=1*6 故3136是所求的四位完全平方数. 求其中最大的一个数。7921 .. 44 61. 求在[10，1000]之间的所有完备数之和。各真因子之和（不包括自身）等于其本身的正整数称为完数。例如：6=1+2+3，6是完数。524 (45)

62. 求满足a*b=718368，使a+b最小，且a,b（a

63. 求[200,300]之间最大的有奇数个不同因子的整数。289 (46)

64. 求[3333，6666]之间所有能被5整除同时能被7整除的数,问共有多少个这样的数？95 (46)

65. 设某四位数的各位数字的平方和为100，且该数能被3整除。求共有多少个这样的四位数。24 (46)

67. 计算y=1+2/3+3/5+4/7+...+n/(2*n-1)(n=50), 要求：按四舍五入的方式精确到小数点后第二位。26.47 . (47)

68. 若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对，该素数称为友素数。例如，由于8*9-1=71，因此，8与9是友数对，71是友素数。求[100，200]之间的所有友素数之和。983696 (47)

69. 求数列：2/1，3/2，5/3，8/5，13/8，21/13，......前50项之和(注：此数列从第二项开始，其分子是前一项的分子与分母之和，其分母是前一项的分子)。（按四舍五入的方式精确到小数点后第二位）81.20 .. (48)

70. 求[1，1000]之间能被3整除，且至少有一位上的数是5的所有数之和。46509 (48)

71. 当m的值为50时，计算下列公式之值：t=1-1/(2*2)-1/(3*3)-...-1/(m*m) 要求：按四舍五入的方式精确到小数点后第四位。0.3749 (49)

72. 若某整数n的所有因子之和等于n的倍数，则n称为多因子完备数,如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求[1,500]之间最大的多因子完备数。496 (49)

73.(2^2/(1*3))+(4^2/(3*5))+(6^2/(5*7))+…+(2k)^2/((2k-1)*(2k

+1)) （按四舍五入的方式精确到小数点后第三位）20.488 (50)

74. 求级数1/(1*2)+1/(2*3)+.....+1/(n*(n+1))的和的近似值,直到级数中有一项的值小于1e－4为止. 要求：按四舍五入的方式精确到小数点后第二位。0.99 . (50)

75. 某自然数平方的末几位与该数相同时,称此数为自同构数,例如25^2=625, 则称25为自同构数,求出[10,100000]之间最大的自同构数。90625 (50)

76. 求1000以内，同时能被3和7整除的所有自然数之和的平方根。（按四舍五入的方式精确到小数点后第二位）。153.91 (51)

77. 已知s1=1, s2=1+3, s3=1+3+5, s4=1+3+5+7,s5=1+3+5+7+9，...，编制一个程序求s=s1+s2+s3+s4+s5+...+s20的值. 2870 (51)

78. 已知s1=2, s2=2+4, s3=2+4+6, s4=2+4+6+8,s5=2+4+6+8+10，...，编制一个程序求s=s1+s2+s3+s4+s5+...+s20的值. 3080 (52)

79. 当n=100时，计算输出下列多项式的值s=(1-1/2)+(1/3-1/4)+......+(1/(2*n-1)-1/(2*n)) 按四舍五入的方式精确到小数点后第三位。0.691 .. (52)

80. 当n的值为25时，计算下列公式的值s=1+1/1!+1/2!+1/3!+…+1/n! 要求：按四舍五入的方式精确

到小数点后第四位。 2.7183 (52)

81. 当n的值为50时，求s的值。s=1+1/(1+2)+1/(1+2+3)+...+1/(1+2+3+...+n) 要求：按四舍五入的方式精确到小数点后第四位。 1.9608 (53)

82. 当m的值为50时，计算下列公式之值: t=1+1/(2^2)+1/(3^2)+...+1/(m^2) (按四舍五入的方式精确到小数点后第四位)。 1.6251 . (53)

83. 当m的值为50时，计算下列公式的值：t=1-1/2-1/3-1/4-...-1/m 要求：按四舍五入的方式精确到小数点后第四位。-2.4992 (54)

84. 求[500,1999]之间的十位数字为7的素数的个数。22 (54)

85. 求[351,432]之间所有既不能被3整除,又不能被8整除的整数的和。18413 (55)

86. 求从6开始的前6个同构数(若某数与其本身的平方数低位部分相等，则称之为同构数，如6，其平方数为36)的和。10484 (55)

87. 若某整数n的所有因子之和等于n的倍数，则n称为多因子完备数,如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求[1,500]之间按从小到大的顺序排列的第三个多因子完备数。28 (56)

88. 求[100,10000]中其各位数字之和能被7整除的数的个数。

1408 (56)

89. 若（x,y,z）满足方程：x^2+y^2+z^2=55^2(注：要求x > y > z),则（x,y,z）称为方程的一个解。试求方程的整数解（包括负整数解）的个数。62 (57)

90. 一只猴子一天从山上摘来一袋桃子，从这天开始，它每天都要把袋中的桃子平分为二堆，吃掉其中的一堆，然后再从剩下的桃中拿出一个解谗，等到第10天，它发现袋中只有一只桃可吃啦，问猴子总共摘了多少桃。1534 (57)

91. 编程求取：[121,140] 之间的弦数的个数（若某正整数的平方等于另两个正整数平方之和，则称该数为弦数. 例如:3^2+4^2=5^2, 因此5是弦数）。8 (58)

92. 回文数是指正读和反读都一样的正整数。例如3773等都是回文数。求出[1000，9999]以内的所有回文数的个数。

90 (58)

93. 有一辆以固定速度行驶在高速公路上的汽车, 清晨司机看到里程表上从左到右的读数和从右到左的读数是相同的, 这个数是95859, 7小时后，里程表又出现了一个新的对称数。设里程表为5位数字, 问这个新的对称数是什么? 95959 (59)

94. 利用格里高利公式：α/4=1-1/3+1/5-1/7+1/9-1/11+...-1/99，求α的值。要求：按四舍五入的方式精确到小数点后第二位。 3.13 (59)

95. 已知正整数a,b(假定a

96. 编程求区间[500，2500]中按递增顺序第25个素数。659 (60)

97. 已知：非等腰三角形最长边是60，其它两边的长度都是正整数，且三边之和能被3整除，试编程求取这类三角形的个数（注意：两边的长度交换构成的三角形算作同一个三角形，如：其它两边的长度为30,40的三角形与长度为40,30的三角形视为同一个三角形）。271 (60)

98. 统计[100,10000]之间有多少个这样的整数,其各位数字之和能被7整除1408 (61)

99. s1=1，s2=1+3，s3=1+3+5，s4=1+3+5+7，...，sn=1+3+5+7+...+（2n-1），n为正整数。编程求s1+s2+s3+s4+...+sn的值<20000时的n的最大值。38 (61)

100. 求[1，999]之间能被3整除，且至少有一位数字是5的所有正整数的个数。91 (62)

101. 若一自然数等于其所有真因子(不包括该数本身)之和,则称该数为完数. 例如:6的真因子有1,2,3,且6=1+2+3 ,因此6为完数, 求[3,1000]之间最大的完数。496 (63)

102. 求[500,2500]之间按递增顺序的素数中的第25大的素数。659 (63)

103. 某一正整数，进行递减，第一次减去该数的一半再减一，

以后每次都减去前一次剩下的数的一半后再减一，直到第十次减后，剩１。求该数。1534 (64)

104. 有一辆以固定速度行驶在高速公路上的汽车, 清晨司机看到里程表上从左到右的读数和从右到左的读数是相同的, 这个数是95859, 7小时后，里程表又出现了一个新的对称数。设里程表为5位数字, 问此车的时速是多少公里(是一整数)? 14.2857 (64)

105. 已知s1=1，s2=1+2，s3=1+2+3...，sn=1+2+...n，求s20到s80之间有多少个数能被17或35整除。12 .. (64)

106. 已知s=2+（2+4）+（2+4+8）+（2+4+8+16）+...，求s>6000的s的最小值。8166 (65)

107. 分子分母为正整数，分子小于分母且分子分母无公因数的分数称为最简真分数。对于分数的分母取值范围为[50，90] 时的最简真分数共有多少个. 773 (65)

111. 当k值为20时，求s的值。(1^2/(1*3))*(4^2/(3*5))*(6^2/(5*7))*...*(2k)^2/((2k-1)(2k+1)) （按四舍五入的方式精确到小数点后第三位） 1.552 . (66)

112. 求1000以内，同时能被3和7整除的所有自然数之和的平方根。（按四舍五入的方式精确到小数点后第二位）。153.91 (66)

113. 求y=1-1/2+1/3-1/4+...-1/2*n 前30项之和。要求：按四舍五入的方式精确到小数点后第二位。0.68 .. (67)

114. 当n=100时，计算输出下列多项式的值s=(1-1/2)+(1/3-1/4)+......+(1/(2n-1)-1/(2n)) 按四舍五入的方式精确到小数点后第三位。0.688 (67)

115. 找出2×3矩阵中的最大数和最小数 (67)

119. 计算数列50，52，54，......100的平均值 .. (68)

120. 从键盘输入三个数,求最大值 (68)

121. 铁路拖运行李，从甲地到乙地，按规定每张客票拖运行李不超过50公斤时，每公斤0.25元，如超过50公斤，超过部分按每公斤0.45元计算。编程，把行李重量输入计算机，计算出运费，并打印付款清单。 (69)

122. 11-10 已知系数a,b,c编写程序，求一元二次方程ax2+bx+c=0的根。 (69)

123. 设计一个按不同幼儿年龄服药的程序，年龄变量为age，每次服药次数count，每次服药量mount。程序为: (70)

124. 有一张厚0.5毫米,面积足够大的纸,将它不断对折。问对折多少次后，其厚度可达珠穆郎玛峰的高度(8848米)。71 125. 打印九九乘法表。 (71)

126. 设计一个保密口令程序，要求用户使用某个系统时，必须回答口令，该程序口令为"49712"才能允许进入系统，但最多只允许输入三次，否则，退foxpro系统。程序如下： . 71 127. 某单位举行业余歌手竞赛，竞赛评分专家10人组成，专家各自按百分制评分，对 (72)

128. 应用一维数组对n个数据进行排序. (72)

129. 求任意一个数值的绝对值 (72)

130. 判断输入的整数为奇数还是偶数。 (72)

131. 将用户输入的小写英文字母转化成大写 (73)

132. 比较a、b的大小 (73)

133. 邮局负责邮购小物品规则如下：50公里及以内收取额外金额5元，50-100公里收取10元，100-200公里收取20元，200-500公里收取40元，其余一律收取50元。 (73)

134. 通过键盘输入三角形的边长，若边长正确，立即在屏幕上显示三角形的面积，若边长不正确，重新输入边长，若输入的边长中任意一边为0则程序立即结束。 (74)

135. 将1、2、3、...10顺序输入一维数组，实现顺序输出和逆序输出。.. (74)

136. 有5个英文单词，分别为：word，excel，powerpoint，type，angle，要求设计出如下程序： (75)

137. 判断输入的字符属于字母，数字或特殊符号 (76)

138. 一个三位数的个、十、百位数的立方和等于这个数本身，求这个数 (76)

139. 求水仙花数，即一个三位数，去各位上的数字的立方和等于其本身。如153=1^3+5^3+3^3 (76)

140. 若一个自然数的立方的末三位数字为999，则称这样的自然数为"千禧数"，求最小的"千禧数"。 (77)

141. 已知三角形的三边（从键盘输入），求其面积(s^2=p(p-a)(p-b)(p-c), p=(a+b+c)/2) (77)

142. s=1*2*3*4*......*n 求s不大于400000时n的最大值。. (78)

143. 编程计算s=1*2+2*3+3*4+...+100*101 . (79)

144. 从键盘输入3个数，求他们的最大值，最小值和平均值。 (79)

145. 编程s＝1－1／2＋1／3－1／4＋．．．．－1／10 (80)

146. 求s＝1+1/2+2/3+3/5. . . . . .前10项之和 (80)

147. 求s=1+1+2+1+2+3+1+2+3+4......+1+2+3+4+5+6+7+8+9+10 . (81)

148. 输入一行字符，分别统计出其中英文字母，空格，数字和其他字符的个数。 (81)

149. 按照成绩评定等级（就是成绩输入要在0到100之间，90到100算优秀，80到90算良好.70到80算中等.60到70算及格，其他算不及格） (83)

150. 求sn=a+aa+aaa+aaaa+aaaaaa......a的和.. (83)

151. 利用a/4=1-1/3+1/5-1/7+......求a的值. (83)

152. 百钱买百鸡，100元钱买100只鸡，公鸡2元一只，母鸡3元一只，小鸡五角一只，打印所有方案 (83)

153. 求1到100的无重复勾股数 (83)

154. 编程求pear-apa=pea的数字组合 (83)

155. 一球从100米高度自由落下，每次落地后反跳回原地高度的一半再落下，求在第10次落地时，其经过多少米？第10次反弹多高？ (83)

156. 有1.2.3.4.四个数字，能组成多少个互不相同的无重复数字的三位数，都是多少 (83)

157. 古典问题，有一对兔子，从出生后的第三个月起，每个月都生一对兔子，，小兔子长到三个月以后，每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？ (83)

158. 抓交通肇事犯。一辆卡车违反交通规则，撞人逃跑后，现场三人目击事件，但却没有记住车牌，只有记住车牌的一些特征，甲说，："牌照的前两位数字是相同的，而且不是0，"乙说："牌照后边两位数字是相同的，但却与前边两位数字不同。"丙是数学家，他说四位的车牌的车牌刚好是一个数的平方，" 请根据以上线索求出车号？？ (83)

160. 输入一个三位数，将其反向输出。如输入314，输出413 (85)

161. 编写程序输出一下形式 (85)

162. 从键盘输入2个数，完成以下功能：1输出这两个数2将这两个变量的值进行互换后进行输出 (86)

163. 输入一个数,如果是偶数那么就输出它的平方,如果是奇数就输出它的立方 (86)

164. 1-1000之中偶数的立方和 (87)

165. 1到1000所有奇数的平方和 (87)

166. 输入一个数，判断奇数偶数 (87)

167. 输出99乘法表 (87)

168. 怎样用vf编程做出99乘法表,可以不带框 (88)

169. 输入任意一个五位整数，前后对应位置上的数据进行交换重新排列（即逆序排列 (88)

170. 从键盘输入3个数，对其进行从小到大排序 (89)

172. 判断输入的字符时字母还是数字 (91)

173. 从键盘上接受一个字符串，统计该字符串中包含数字字符（0～9）的总个数 (91)

174. 计算5+55+555+.........+5555555555的值. (91)

175. 下列数字被称为"回文数"，编写程序求出1000--10000间的所有"回文数"并计算其和.22,88,232,565,7887,5445,5555,1111 (92)

176. 编程输出下面的图形 (92)

177. 编程输出下面的图形 (93)

178. 求方程8x-5y=3,在|x|<=150, |y|<=200内的整数解。试问这样的整数解中|x|*|y|的最大值是多少？ (93)

179. 编程输出下面的图形 (93)

180. 编程输出下面的图形 (93)

181.编程输出下面的图形 (94)

182. 编程输出下面的图形 (94)

183. 编程输出下面的图形 (94)

184. 编程输出下面的图形 (95)

185. 请显示出100到200间以内的所有的奇数，每行显示6个数 (95)

186. 编程输出下面的图形 (95)

187. 求方程3x-7y=1在条件|x|<100且|y|<40下的所有整数解的|x|+|y|的最小值 (96)

188. 从1到1000能被9整除且包含数字6的整数个数 97 189. 编写程序，求一正整数等差数列的前6项的和，该数列前四项之和是26，四项之积是880。答案:57 (97)

190. 编程输出下面的图形 (98)

191. 用循环编程方法输出下列图形 (98)

192. 从键盘输入三个数,求最大值 (99)

193.多项式s=1+2+22+23+...+232,请设计一个程序，求s的值. (99)

194.整钱找零（穷举法） (99)

195.矩阵的处理 (99)

196.查找算法 (105)

197.有序数列的插入 (107)

198.有序数列的删除（指定位置上的数据） (108)

199.最大公约数 (109)

200.最小公倍数 (109)

201.梯形积分法 (110)

202. 有序数列的删除（数列中的任意一个数） (110)

203．级数，近视计算cos(x)=1-x^2/2!+x^4/4!+x^6/6!+........ .. (111)

204.二分法求根 (111)

1.3-100的素数

第一种方法：

clear

for n=3 to 100 step 2 ·1

for i=2 to n/2

if mod(n,i)=0

exit

endif

endfor

if i>n/2

?n

endif

endfor

return

第二种方法：

clear

for n=3 to 100

for i=2 to n-1

if n/i<> int(n/i)

else

exit

endif

endfor

if i>n-1

?n

endif

endfor

第三种方法

m=3

do while m<=100

i=2

n=int(m/2)

do while i<=n

if mod(m,i)=0

exit

endif

i=i+1

enddo

if i>n

?m,'是素数'

endif

m=m+1

enddo

第四种方法：

clear

for k=3 to 100

f=0

j=2

do while f=0 and j

if k%j=0

f=1

endif

j=j+1

enddo

if f=0

??k

endif

endfor

2. (4!+7!)乘以3!

clear