浙江财经期末考试VFP答案.docx

浙江财经期末考试VFP答案.docx

《浙江财经期末考试VFP答案.docx》由会员分享，可在线阅读，更多相关《浙江财经期末考试VFP答案.docx（9页珍藏版）》请在冰豆网上搜索。

浙江财经期末考试VFP答案

程序填空题

1在在学生表中查找并输出指定学生的所有信息。

INDEXON学号TOIXH

!

FOUND（）

DISPLAY

2判断给定的正整数值表达式的值是否为素数。

FORI=2TOX-1 

I>XORX=1

IFUPPER（YN）=”Y” 

3、给定程序的功能是:

输入边长，如果能构成三角形，则计算三角形面积。

DOWHILE.T.

LOOP

M=SQRT（U*（U-X）*（U-Y）*（U-Z））

4、给定程序的功能是:

在屏幕上显示输出一个乘法九九表。

显示格式如下:

X=1

?

?

str（X,1）+"*"+str（Y,1）+"="+str（X*Y,2）+””

?

5、给定程序的功能是:

根据输入的数据,计算不大于该数的所有奇数累加和。

UPPER（YN）="Y"

INT（X/2）<>X/2

WAIT

6、给定程序的功能是:

根据输入的数据，判断该数是否为偶数,可以循环输入。

DOWHILEUPPER（YN）="Y"

MOD（N,2）!

=0

WAIT

7、给定程序的功能是:

显示指定表中的全部字段名,并由用户输入显示表信息的条件,最后列表显示满足条件的记录。

USE（TBN）

FCOUNT（）

&EXPR

8、接收从键盘输入的任意10个数，输入的数字可以是负数，但包括符号位最多三位。

程序的功能是，找出其中最大的

ZX=X

DOWHILEN>1

ZX>X 

9、程序的功能是,显示输出学生表中每个班级的男女同学的奖学金总金额。

DOWHILE!

EOF（）

LEFT（学号，3）=CLASS           

SKIP

10返回给定的字符串表达式的倒置字符串。

如:

输入字符串"ABCD",倒置后输出的字符串为"DCBA"。

C=””

DOWHILIEL>0

C+Q

11、本程序实现:

利用公式ex=1+X+X2/2!

+X3/3!

+…+Xn/n!

，输入X和N，计算ex的近似值。

S=1

FORI=1TON

S=S+A/B

12、本程序实现:

输入一个正整数M，判断并显示1~M中有哪些数可以分为两个相等的素数。

ELSE

J=2TOI-1

IFJ>I-1

13、本程序实现口令验证。

输入次数在3次以内，给予重输的提示，超过3次，则进入死循环。

EXIT

IFI>2

I=I+1

14、本程序显示学生表中的获得奖学金的学生姓名和奖学金数额.

DOWHILE!

EOF（）

IF奖学金>0

SKIP

15、本程序显示学生表中1990年或以前出生的学生姓名和出生年月（日期型）。

FORYEAR（出生年月）<=1990

DOWHILEFOUND（）

CONTINUE

16.本程序计算一个十进制正整数N的各位数字之和。

ELSE

DOWHILEM>0

M=INT（M/10）

17.本程序实现从键盘中输入5个数，去掉一个最大数和一个最小数，然后求平均值。

STORENTOA,B,S

A

S=S+N

18．程序1：

求1!

+3!

+5!

+…+N!

，N由键盘输入。

INPUT"N="TON

S=S+T

T=T*J 

19．设变量N的输入值为5，字符A的ASCII码为65。

程序的运行如下图所示：

SPACE（N-I）

2*I-1

CHR（65+I-1）

20.将表“学生.DBF”中指定学生（由键盘输入）的奖学金加60，并显示该学生的记录。

LOCATEFOP学号=M

REPLACE奖学金WITH奖学金+60

ENDIF

21．下面程序统计指定学生的平均成绩及该成绩的档次。

LOCATEFOR学号=XH

AVERAGE成绩TOPJCJFOR学号=XH

OTHERWISE

22．程序输出的结果如下图所示：

H=5

SPACE（H-K）

2*K-1

23．编程实现将日期转换成中文星期的自定义函数。

N=DOW（D）

OTHERWISE

RETURNC

24．本程序实现“百钱买百鸡”的计算（取自《算经》：

“鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。

百钱

FORY=0TO33

IF5*X+3*Y+Z/3=100

ENDFOR

25．输入一个自然数，判断该数是否为完数。

（完数的定义：

若该数除本身之外的所有因子之和等于该数，则为完数。

S=0

INT（M/N）=M/N

S=M

程序改错题

25、本程序在屏幕上显示如下图形：

DOWHILC<=K

?

?

C

K=K+1

24本程序用于输入一个表名，若表存在则打开表，并显示其各个字段名.

IF.NOT.FILE（FNAME+".dbf"） 

?

"此表中的字段有：

",ZDSM,”个”

?

?

FIELDS（I）

23、本程序实现指定表指定条件的任意查询功能。

P202

IF.NOT.FILE（FNAME+".dbf"）

ENDFOR

LISTFOREVALUATE（EXP）

22、本程序实现：

从键盘输入学生的学号，计算该生的平均成绩，并说明成绩的档次（优、良、中、及格和不及格）。

ACCEPT "输入学号="TOXH

AVERAGE成绩TOCJFOR学号=XH

DC=SUBSTR（C,R*6+1,6）

21、本程序用于计算S=1+2+3+…+N的和。

INPUT“N=”TON

DOWHILE I

?

“1+2+3+…+N=”+STR（S,19）

20、本程序将成绩表中成绩小于60分的学号、课程号及成绩显示出来。

    '

GOTOP

?

学号+SPACE（5）+课程号+SPACE（5）+STR（成绩,6） 

?

’当前日期’+DTOC（DATE（））

19、本程序实现：

输入三个正数，判定是否构成一个三角形，如果构成一个三角形，则返回.T.，否则返回.F.。

?

TARER（@X1,X2,X3）

PARAMETERSA,B,C

IFA+B>CANDB+C>AANDC+A>B

18、本程序比较从键盘输入的若干个数的大小，并输出其中的最大数和最小数。

STOREMTOD,X

DOWHILEUPPER（YN）!

='Y'ANDUPPER（YN）!

='N'

IFUPPER（YN）='N'

17、本程序实现：

对输入的正整数，判别其中包含指定数码的个数.

Y=MOD（M,10）

M=INT（M/10）

EXIT

16、本程序输出一个对角线上元素为0,其它元素为1的6*6阶方阵.

DIMENSIONA（6,6）

IFI=JORI+J=7

?

?

STR（A（I,J）,2）

15、本程序实现:

对任意一个正数值型数据

Y=ROUND（Y,2）

D=SUBSTR（C1,2*P+1,2）+SUBSTR（C2,2*I-1,2）+D

Y=INT（Y/10）

14、本程序实现：

将给定的正整数的值分解因子，并输出各个质数因

INPUT “M=”TOM

ELSE

M=M/I

13、本程序是在屏幕上打印如下图形：

DOWHILEC<9-2*K+1

?

ENDDO

12、本程序实现：

对成绩.DBF

USE成绩ORDER学号

DOWHILE学号=XH

SKIP

11、本程序输入一个一位数值（0-9），并把它转化为中文大写数字。

DOWHILE.T.

S=Substr（X,2*N+1,2）

IFUPPER（T）=”N”

10、本程序求S=K！

+…+M！

（K

DOSUB WITHA,I

S=S+A

DOWHILEL<=N

9.本程序用以判断输入的字符串是否是回文

I=LEN（ST）

C=Q+C

IFUPPER（ST）=UPPER（C）

8．求3→200之间的素数。

FORN=2TOM-1

IFINT（M/N）=M/N

IFN>=M

7．本程序显示下列的九九乘法表

?

?

STR（I,4）

FORJ=1TOI

ENDDO

6．程序是显示输出给定行数的对称菱形图案，如下图所示。

?

SPACE（N-1）

FORJ=1TO2*I-1

FORK=1TO2*P-1

5．统计显示“课程”表中所有不同学期考试课和考查课的总学分数。

DOWHILEXQ=学期

KS=KS+学分

SKIP

4．输出3～M（M为正整数，从键盘输入）之间的素数和素数的个数。

IFINT（X/N）=X/N

IFN>X-1

K=K+1

3．用带参调用实现：

M！

／（M-N）！

*N！

DO JC WITHMJ

MNJ=M-N

X=T

2．求X1+X2+X3+X4+…+XN的值。

N，X从键盘输入。

S=0

T=T*X

ENDDO

1．求当1！

+3！

+5！

+…+N！

的值不超过1020时的临界值及N的值。

DOWHILES<=1E+20

T=T*I

N=N+2