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
