VB程序设计

程序设计部分有三个题型:程序改错,程序填空,程序设计,一级不做程序填空

三个题目都只要最后计算出最终结果:一个数值,输入答案时请确认键盘在英文半角状态

源程序存于 考生文件夹 的 program 文件夹下

程序改错 答案:
 程序填空 答案:
 程序设计 答案:
 
  
求[100,800]内所有既不能
被5整除也不能被7的整数的
个数。[pro1.prg]

CLEAR

N=0

FOR X=100 TO 800

IF X%5=0 AND X%7<>0

   N=X+1
  
   ENDIF
  
ENDFOR

X

  
下面的程序是求0到20000中
所有能被5和7整除的偶数个
数，填空完成程序。
(保留整数位)[pro2.prg]

CLEAR

I=0

S=0

DO WHILE I<=20000

IF i%5=0 AND I%7=0
_________

ENDIF

I=_____

ENDDO

S

       
      
求出179869和196037的
最大公约数。

     
 
例题选

程序设计训练

1、计算下面公式的值。T=1/1!+1/2!+1/3!+……+1/m! 当m=5时的结果（按四舍五入保留3位小数

）。答案：1.717

2、求当n=60时下式的和：s=1+1/(1+2)+1/(1+2+3)+......+1/(1+2+3+......+n)（按四舍五入保

留6位小数）。答案：1.967214

3、8232和9678，它们的个、十、百、千各位数字之和是15的倍数，8+2+3+2=15,9+6+7+8=30。编

写程序，求四位数的所有奇数中，这样的数(各位数字之和是15的倍数)的总和。 答案：1533459

4、 计算并输出700以内的最大的10个能被13或者17整除的自然数之和。 答案：6591

5、求x = 1+1/5+1/7+1/9+…的近似值，直到最后一项的绝对值小于10^-5为止。

6、计算如下公式的A20值。 A1=1, A2=1/(1+A1), A3=1/(1+A2), A4=1/(1+A3), ......（按四舍

五入保留10位小数）。答案：0.6180339850

7、求[10,1600]之间能被7整除的奇数之和。答案：90965

8、求800以内的最大的20个素数之和。答案：14510

9、[100,500]之间同时满足除以7余5，除以5余3，除以3余1的整数之和。答案：1042

10、求[100,999]之间所有的素数的个数。答案：143

11、编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即

第1位数加上第2位数等于第2位数加上第3位数。答案：110

12、 /*数列1,2,1,4,7,12,23…具有这样的特征，从第四项（也就是4）开始，每一项是前三项

之和，4=1+2+1，7=2+1+4，12=1+4+7….。下列程序的功能是求出该数列前10项的和。*/   答案

：311

13、 /*求1到2000之间的双胞胎数的对数。双胞胎数：两素数差为2称为双胞胎数。例如227和

229是一对双胞胎数，它们都是素数且差为2。*/答案：61

14、编写程序，统计200~400之间的所有满足三个数字之积为42，三个数字之和为12的数的个数

。答案：4

15、有30个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学

生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？答案

：9

16、爱因斯坦走台阶:有一台阶,如果每次走两阶,最后剩一阶;如果每次走三阶,最后剩两阶;如果

每次走四阶,最后剩三阶;如果每次走五阶,最后剩四阶;如果每次走六阶,最后剩五阶;如果每次走

七阶,刚好走完.求满足上述条件的最小台阶数是多少？答案：119

17、 /*求1000以内最大的10个素数的和。*/   答案：9664

18、 /*求1!+2!+3!+...+7!，7!表示7的阶乘。*/   答案：5913

19、求10000以内所有完数之和，"完数"是指：一个数如果刚好与它所有的真因子（不包括该数

本身）之和相等，如：6=1+2+3，则6就是一个完数。(注：所有变量用int数据类型定义！) 答案

：8658

20、/*数列1,2,1,4,7,12,23…具有这样的特征，从第四项（也就是4）开始，每一项是前三项之

和，4=1+2+1，7=2+1+4，12=1+4+7….。下列程序先给出数列的第一项（1）、第二项（2）、第

三项（1），再逐步计算其它项并保存在数组a中，最后求出该数列的第25项。*/答案：1323525

21、/*求区间[200,3000]中所有回文数的和，回文数是正读与反读都是一样的数，如525，1551

。*/  答案：87970

22、 /*求出二阶Fibonacci数列前10之和，1,1,2,3,5,8…。*/  答案：143

23、已知：Sn=2/1+3/2+4/3+…+(n+1)/n, 求Sn不超过50的最大值（按四舍五入的方式精确到小

数点后第三位）。答案：49.395

24、计算Y=X/1!-X^3/3!+X^5/5!-X^7/7!+……前20项的值(已知：X=2)。要求：按四舍五入的方

式精确到小数点后第二位。答案： 0.91

25、若某正整数平方等于某两个正整数平方之和,称该正整数为弦数。例：3^2+4^2=5^2，则5为

弦数，求[131，200]之间最小的弦数。答案：135

26、已知X,Y,Z为三个正整数，且X^2+Y^2+Z^2=25^2，求X+Y+Z的最大值。答案：43

27、猴吃桃：有一天小猴子摘下了若干个桃子，当即吃掉一半，还觉得不过瘾，又多吃了一个。

第二天接着吃了剩下的桃子中的一半，仍不过瘾，又多吃了一个。以后每天都是吃尚存桃子的一

半零一个。到第10天早上小猴子再去吃桃子时，看到只剩下一个桃子了。问小猴子第一天共摘下

了多少个桃子。答案：1534

28、求[1，50]之间的所有整数能构成直角三角形的三边的组数。例如：3*3+4*4=5*5，它们构成

直角三角形，所以{3，4，5}作为一组，但{4，3，5}视为跟{3，4，5}相同的一组。答案：20

29、15元钱换成1元、2元、5元的票面，问有多少种不同的兑换方法？输出所有的兑换方法。 

答案： 18种

30、用迭代法求x等于a开平方的正数值。迭代公式为：x(n+1)=1/(2*(x(n)+a/x(n)))，要求直到

前后两次求出的x的差的绝对值小于10^-5为止。A的值从键盘输入。

31、求最大的水仙花数，所谓水仙花数，指的是一个三位数，其各个数字的立方之和等于该数。

  答案：407

32、一球从100米的高度自由落下，每次落地后反跳回原高度的一半，再落下。求它在第10次落

地时，共经过多少米？第10次反弹多高？  答案： 299.609375    0.097656

33、求出[2，478]以内的： (1)最大的素数。 *467   (2)素数数目。  *91   (3)所有素数之和

。 *19580

34、求[10,2000]之间能被2或3或5整除的数之和。答案：67795

35、计算：s=f(-30)+f(-29)+......+f(-1)+f(0)+f(1)+......+f(30)的值。其中函数定义如下

：f(x)=(x+1)/(x-2)  如果  x>1； f(x)=0 如果  x=0 或 x=2 ；f(x)=(x-1)/(x-2) 如果 x<0

。(按四舍五入保留6位小数) 答案：65.223018

36、[20,160]之间的所有偶数的平方和。答案：694380

37、计算下面公式的值。 T=1+1/(2*3)+1/(3*4)+……+1/(m*(m+1)),当m=50时的结果（按四舍五

入保留6位小数）。  答案1.480392