2012VFP期中考试题

义函数，函数名为SS。

SET TALK OFF

CLEAR

INPUT &uot;请输入一个正整数:&uot; TO N

S=0

J=1

DO WHILE J<=20

IF SS(N)=.T.

?&uot; &uot;+STR(N)

S=S+N

J=J+1

ENDIF

N=N+1

ENDDO

?&uot;这20个素数之和:&uot;,S

SET TALK ON

PROC PP1

FUNC SS

PARA X

FOR I=2 TO X-1

IF MOD(X,I)=0

EXIT

ENDIF

ENDFOR

IF I=X

RETURN.T.

ELSE

RETU.F.

ENDIF

ENDPROC



2、已知表文件“学生成绩表”包含字段：学号(C,12), 姓名(C,8), 数学(N,4,0), 英语(N,4,0), 计算机(N,4,0), 总分(N,4,0), 平均分(N,5,1)，奖学金(N,5,0)。编程完成以下操作：

(1) 计算每条记录的总分和平均分；

(2) 将总分大于等于270分的记录，其奖学金评定为5000元；将总分大于等于240分的记录