考试网 >> IT认证 >> 等级 >> 二级考试 >> 二级Foqro样卷（三）

发布时间：2006-06-27 23:58     点击：

？"MAX=",M,"MIN=",N

RETURN

8．下面程序的功能是利用函数检查输入的文件名中是否有空格，如果无空格，则文 件名输入正确，跳出循环，否则要求重新输入。

SET TALK OFF

DO WHILE ___________ 

　CLEAR 

　ACCEP "输入文件名：" TO FNAME

　IF AT(" ",FNAME)>0

　　＠8，10 SAY "文件名中不能有空格" ＠10，10 SAY "请重新输入"

　　FNAME=" "

　ELSE _________________ 

　ENDIF 

ENDDO 

SET TALK ON

RETURN 

9．画出如右图的图形。 

SET TALK OFF 　　　　　　　　 * 

CLEA 　　　　　　　　　　　　* *

I=1 　　　　　　　　　　　　* * *

Q="*" 　　　　　　　　　　　* * * *

_____________ 　　　　　　* * * * *

＠I，1 SAY Q

______________

Q＝Q+SPACE(1)+"*"

ENDDO

RETU 

10．将ZG库中添加10条记录，编号是从不间断的3201开始要求自动生成。 

SET TALK OFF 

CLEA 

USE ZG 

N=1

BH＝3201

DO WHILE _______________

　APPE BLANK

　____________

　N=N+l

　BH=BH+1

ENDDO 

RETU

四、程序改错(以下每题都有一个错误，在题后空白处写出有错误语句的行号及改正 后的程序全行。本大题共8小题，每小题2分，共16分）

1．将ZG.DBF文件中的工资字段值求和，并在该文件未尾增加一条空记录，其中工 资字段的值用求和结果取代。

（1）SET TALK OFF

（2）USE ZG 

（3）COUNT 工资 TO GZH 

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。