vfp编程题目和答案

ProProblem ProAnswer ProType disp

求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 236 2 \

求[10,1000]内所有能同时被7和9整除的整数之和。 \1 \

\求[10,1000]内所有能被6整除但不能被9整除的整数之和。 \2 \

\求[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。 \

2 \

\求[10

ProProblem ProAnswer ProType disp

求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 236 2 \

求[10,1000]内所有能同时被7和9整除的整数之和。 \1 \

\求[10,1000]内所有能被6整除但不能被9整除的整数之和。 \2 \

\求[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。 \

2 \

\求[10

ProProblem ProAnswer ProType disp

求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 236 2 \

求[10,1000]内所有能同时被7和9整除的整数之和。 \1 \

\求[10,1000]内所有能被6整除但不能被9整除的整数之和。 \2 \

\求[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。 \

2 \

\求[10

ProProblem ProAnswer ProType disp

求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 236 2 \

求[10,1000]内所有能同时被7和9整除的整数之和。 \1 \

\求[10,1000]内所有能被6整除但不能被9整除的整数之和。 \2 \

\求[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。 \

2 \

\求[10

顺序结构程序设计

1.从键盘输入长方体的长、宽、高，求长方体的表面积。

input “输入长方体的长：” to x input “输入长方体的宽：” to y input “输入长方体的高：” to z s=2*x*y+2*x*z+2*y*z ?”长方体的表面积为：”,s

2.从键盘输入圆的半径，计算圆的面积。

input “输入圆的半径：” to r s=3.14*r^2

?”圆的面积为：”,s

3.建立数据库XS，将表XSQK.DBF添加到该数据库，并浏览该表所有数据，最后关闭数据库。

Create database xs Add xsqk Browse Close all

4.在表XSQK.DBF中，查找出生日期为1983年10月8日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。 Use xsqk

Locate for 出生日期 ={^1983-10-8} Display Continue Display Use

分支结构程序设计 1. 从键盘输入一个数，若为正数则输出，非正数则结束。 input “输入一个数：” to x if x>0 ?x endif return

2. 求一

路径问题的代码为

lcSys16 = SYS(16)

lcjsjname=left(sys(0),(at(\on error llerror=.T. do case

case AT(\

gcdataLj=\ cd &gcdataLj if llerror on error

=MESSAGEBOX(\还没有将应用程序数据所在的目录设置为共享目录。请将它设为共享。（设置时要以原目录名作为共享名，并要允写操作。）\出错提示\ RELEASE ALL EXTENDED CLEAR ALL retu endi

cd \ on error if llerror

=MESSAGEBOX(\还没有将应用程序所在的目录设置为共享目录。为方便其他计算机访问，请将程序所在目录设为共享。（设置时要以原目录名作为共享名，并只能设为只读。）\友情提示\

endi

lcProgram =SUBSTR(lcSys16, AT(\ cd LEFT(lcProgram, RAT(\case AT(\

lcPro

第 1 页 共 6 页

阅读理解题

1、下面程序在输入100时的运行结果是 。 bb(i)=10+i max=n

set talk off input to x if x<50

y=abs(x)+100 else

y=sqrt(x) endif ?y

set talk on

2、下面程序的运行结果是 。 set talk off s=1

for i=1 to 5 step 1 s=s*i endfor ?s

set talk on

3、下面程序的运行结果是 。 set talk off

dimension bb(100) for i=1 to 100 if mod(i,3)=1

else

bb(i)=2*i endif en

Visual FoxPro编程题参考题解

1.编程序求出1-200以内的能被7整除的数的平方和。377986

s=0

for I=1 to 200 if mod(I,7)<>0 loop endif s=s+I*I endfor ?”s=”,s

2.编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是 0~9之间的一位整数。6

n=0

for I=1 to 9 for j=0 to 9 for k=1 to 9

if (I*100+j*10+k)+(k*100+j*10+i)=1333 n=n+1 endif endfor endfor endfor ?n

3.编程序求1~99的平方根的和并输出结果。（保留小数点两位）.661.46 s=0

for I=1 to 99

s=s+sqrt(I) ednfor

?round(s,2)

4.编写程序，求所有符合算式ij*ji=1300的最小数ij（即i*10+j）。其中i、j是1~9之间的一位整数。25 A=0

for I=1 to 9 for J=1 to 9

if (I

**********************************考试形式：上机考试（60分钟）

考试题型说明：10个单选题+2个编程题

下面是编程题目的复习题型，期末考试的编程题型及难易程度与此相近，请大家认真复习，强化练习，打下坚实基础，顺利通过考试。

**********************************

1、编写一计算阶乘的函数fac，在主函数中从键盘输入一个正整数，调用阶乘函数fac计算阶乘并输出计算结果。

2、编写一个求x的y次幂的函数pw，在main函数中从键盘输入a、b的值，然后调用pw函数求a的b次幂，并输出结果。

3、写一函数max，计算三个数中最大数。在主函数中输入三个数，调用该函数求出其中最大数并输出。（要求：三个数为实数）

4、写一个函数计算两个正整数的最大公约数，在主函数中用scanf输入m,

n两个正整数,调用函数后，打印函数返回值（即这两个正整数的最大公约数）。

5、编写一个函数，该函数的功能是判断一个整数是不是素数，在main函数中

调用该函数，输出200以内所有的素数。

6、请编一个自定义函数，功能：将给定的字符串中的所有字母改为小写字母。字符串在主函数中从键盘任意输入（容许包含空格）

7、编写一个函数，该函数的功

目 录

节 1.01 数组应用：矩阵乘法 ................................................................................................ 2 节 1.02 输出指定范围内的同时是素数与回文数的数 ........................................................ 3 节 1.03 求平均值 .................................................................................................................... 4 节 1.04 统计大于等于0的元素 ............................................................................................ 5 节 1.05 斐波那契数列（不用函数） ...........................................................