VFP程序填空

RECNO() ____1____ 1

SKIP 6

RECNO() ____2____ 7

DELE

PACK

LIST

RECNO() ____3____ 20

RECCOUNT() ____4____ 19

USE

SET TALK ON

编号行对应的输出结果是（）

4.程序运行时，从键盘输入包裹的重量，自动计算并输出需要付的运费，如果输入的数据为负值(即小于0)则退出程序。

SET TALK OFF

DO WHILE ____1____ .t.

CLEAR

INPUT "请输入包裹重量：" TO X

IF X<=0

____2____ EXIT

ENDIF

IF X<=100

Y=5

ELSE

Y=5+(X-100)*0.2

ENDIF

'您需要付费：'，____3____ Y

WAIT "按任意键继续…… "

____4____ ENDDO

SET TALK ON

请选择填空（）

5.有STUDENT.DBF表文件，其中学号、姓名字段为字符型，性别字段为逻辑型，出生年月字段为日期型。查找并显示1992年以前出生的学生名单(表记录如下：)

记录号学号姓名性别出生年月

1 2012010001 张海静.F. {^1993-05-06}

2 2012010002 王林丰.T. {^1992-12-25}

3 2012010005 林小军.T. {^1993-01-12}

4 2012010008 周伟.T. {^1992-10-05}

5 2012020007 林华.F. {^1991-09-18}

6 2012020016 王韵玳.F. {^1994-03-09}

SET TALK OFF

CLEAR

USE STUDEND

____1____ LOCATE FOR YEAR(出生年月)<1992

____2____ DO WHILE !EOF()

姓名

____3____ CONTINUE

____4____ ENDDO

USE

SET TALK ON

6.显示输出正整数M(从键盘输入)内的奇数和奇数之和。

SET TALK OFF

CLEAR

INPUT "M=" TO M

____1____ S=0

FOR I=1 TO M

____2____ IF MOD(I,2)!=0

I

____3____ S=S+i

ENDIF

____4____ endfor

S

7.已有学生.DBF表(学号-字符型，宽度6；姓名-字符型8；性别-逻辑型，宽度1；出生年月-日期型，宽度8；奖学金-数值型，宽度6，小数位2)，以下程序实现的功能是：统计输出各班获奖学金人数，其中学号前3位表示班级号。

SET TALK OFF

CLEA

USE 学生

INDEX ON 学号TO X1

DO WHILE !EOF()

S=0

BJH=SUBSTR(学号,1,3) &&截取学号前3位

DO WHIL ____1____ SUBSTR(学号,1,3)=BJH

IF ____2____ 奖学金>0

S=S+1

ENDIF

SKIP

____3____ ENDDO

BJH,'班获奖学金人数为',S

____4____ ENDDO

SET TALK ON

8.显示输出20之内的偶数和偶数和。

SET TALK OFF

CLEAR

____1____ SUM=0

FOR M=1 TO 20

____2____ IF INT(M/2)=M/2

M

SUM=SUM+M

ENDIF

____3____ ENDFOR

____4____ SUM

SET TALK ON

10.如下程序实现的功能是：从键盘输入一个数,判断它是奇数还是偶数。SET TALK OFF

CLEA

____1____ '请输入一个数=' TO SH INPUT

A=INT(SH)

IF A=SH

IF A%2=0

____2____ ? STR(A)+'是偶数!'

ELSE

A,'是奇数!'

____3____ endif

ELSE

'不是整数'

____4____ endif

SET TALK ON

CLEA

DO WHIL .T.

ACCEPT "输入文件名(包含扩展名)：" TO FNAME

IF FILE("&FNAME..DBF")

USE &FNAME

I=____1____ 1

DO WHIL I<=FCOUNT()

____2____ FIELD(i)

I=I+1

ENDDO

ELSE

'找不到该文件'

ENDIF

WAIT '输入是否继续？(Y-继续/N-退出)' TO X

____3____ IF UPPER(X)= 'N'

EXIT

ENDIF

____4____ ENDDO

SET TALK ON

14.以下程序的功能是：求1！+3！+5！+……+N!的值。N由键盘输入，且为奇数。SET TALK OFF

CLEAR

____1____ INPUT "N=" TO N

STORE 0 TO S,T

FOR I=1 TO N STEP ____2____ 2

DO SUB1

____3____ S=S+T

ENDFOR

S

SET TALK ON

PROC SUB1 &&过程SUB1

T=1