内容发布更新时间 : 2024/12/27 0:47:05星期一 下面是文章的全部内容请认真阅读。

? 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——