? SUBSTR(STR，[ ]) N=N+2 ENDDO
DO WHILE N>=3 N=N-2 [ ] ENDDO RETURN
73. 计算XSCJ.DBF中所有人的平均分，填空使程序完整 SET TALK OFF CLEAR
[ ]
DO WHILE .NOT. EOF( )
[ ] 平均分 WITH (计算机+英语+政治+军事)/4 [ ]
——29——
ENDDO USE
74． 从键盘上输入10个数,统计其中偶数的个数，填空使程序完整。 SET TALK OFF S=0
FOR I=1 TO 10
[ ] ‘NUMBER=’ IF INT(N/2)=N/2 S=S+1 [ ] ENDFOR
? ‘10个数中偶数的个数=’ +str(s) CANCEL
75．阅读程序,写出运行结果 SET TALK OFF S=0
——30——
TO N P=10
DO WHILE P<=20 S=S+(P–3) P=P+3 ENDDO ? S
SET TALK ON
76．阅读程序,写出运行结果
主程序如下: set talk off set procedure to pro
public i,j i=4 j=1
k=1 do sub1 ? i
——31——
do sub2 ? j ? k
close procedure set talk on return
*****过程文件名pro.prg****** procedure sub1 i=i*2+1 return
procedure sub2 private j j=i*2+1 k=k*2+1 do sub3 return
——32——