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

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

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

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

　　? "等差数列如下："

　　do while n<=t

　　? a(n)

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

　　n=n+1 &&原句为 n=n-1

　　enddo

　　accept "还继续做吗?(y/n) " to c

　　if lower(c)="n"

　　exit

　　endif

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

　　clear memo &&原句为close memo

　　enddo

　　set talk on

　　return

　　

　　

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

　　第九题：MODI1.PRG 的功能是：为了保证数据库数据的正确性，用户首先在数组中输入并修改欲存入数据库的数据，经用户确认输入正确后，再存入数据库中。修改调试如下程序，使之能正确运行。改错要求：程序中共有三处错误，请修改*****found****下面的错误，并调试运行。注意：要求在原来位置修改，不得增加或删减程序行。（资料来源：Http://www.eastedu.com.cn）

　　

　　set talk off

　　set date american

　　set century on

　　clear gets

　　dimension a(6)

　　a(1)=space(10)

　　a(2)=" "

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

　　store 0 to a(3),a(4) &&原句为a(3),a(4)=0

　　a(5)=ctod("01/01/1999")

　　a(6)=.t.

　　do while .t.

　　clear

　　@ 4,4 say "食品物名称 " get a(1) picture "@n"

　　@ 5,4 say "出产国: " get a(2) picture "@a"

　　@ 6,4 say "数量: " get a(3) range 1,1000

　　@ 7,4 say "单价: " get a(4) picture "$$$$$9.99" range 0,99999

　　@ 8,4 say "生产日期:" get a(5) range ctod("01/01/1999"),date()

　　@ 9,4 say "检验合格吗？(y/n)" get a(6) pict "Y"

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

　　read &&原句为wait

　　accept "输入的数据正确吗? y/n " to ans

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

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

发表评论：

匿名发表

用户名:

查看评论

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