考试网 >> IT认证 >> 等级 >> 等级动态 >> 全国计算机考试二级FoxBASE程序修改题2

全国计算机考试二级FoxBASE程序修改题2

发布时间：2006-07-25 12:00 点击：

分页:上一页 1 2 3 4 5 [6] 7 8 9 下一页

　　

　　SET TALK OFF

　　SELECT 1

　　USE DB1

　　SELECT 3

　　USE DB2

　　SELECT 5

　　USE DB3

　　*********FOUND************

　　SELECT 0 &&原句为select X

　　A=SELECT()

　　IF A>1

　　SELECT A-1

　　FILENAME=ALIAS()

　　**********FOUND************

　　store fcount() to fnum &&原句为SUM FIELD TO fnum

　　**********FOUND************

　　count to recnum &&原句为SUM TO RECNUM

　　CLEAR

　　@ 6,6 SAY "在"+STR((A-1),1)+"区中已经打开了:" + FILENAME

　　@ 7,6 SAY "该数据库中的字段数是:" + STR(FNUM,1)

　　@ 8,6 SAY "该数据库中的记录数是:" + STR(RECNUM,1)

　　ENDIF

　　SET TALK ON

　　RETURN

　　

　　（资料来源：Http://www.eastedu.com.cn）

　　

　　

　　第八题：MODI1.PRG的功能是：在指定范围内产生一个由指定个数的整数构成的等差数列。修改调试如下程序，使之能正确运行。改错要求：程序中共有三处错误，请修改*****found****下面的错误，并调试运行。注意：要求在原来位置修改，不得增加或删减程序行。（资料来源：Http://www.eastedu.com.cn）

　　

　　set talk off

　　do while .t.

　　store 1 to s,m,n

　　clear

　　@ 2,2 say "请输入等差数列的首项值: " get s

　　@ 3,2 say "请输入等差数列的最末项值: " get m

　　@ 4,2 say "请输入等差数列的项数:" get n range1,20

　　*****************found*****************

　　read &&原句为wait

　　d=int((m-s)/n) &&计算公差数

　　t=n

　　dimension a(n)

　　store 0 to a(n)

　　do while n>0

　　a(n)=s+(n-1)*d && 计算各项值

　　n=n-1

　　enddo

　　n=1

分页:上一页 1 2 3 4 5 [6] 7 8 9 下一页

版权申明:未经书面授权请勿转载本站信息!!作品版权归所属媒体与作者所有!!

发表评论：

匿名发表

用户名:

查看评论

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