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

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

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

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

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

　　if uppe(ans)="Y" &&原句为if ans="Y"

　　exit

　　endif

　　wait "请修改"

　　enddo

　　wait "将把数据存入数据库中"

　　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

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

　　dime a(6) &&原句为array a(6)

　　a(1)=space(8)

　　a(2)=space(2)

　　a(3)=20

　　a(4)=123.45

　　a(5)=date()

　　a(6)=.t.

　　do while .t.

　　clear

　　@ 4,4 say "姓名: " get a(1) picture "aaaaaaaa"

　　@ 5,4 say "性别: " get a(2) picture "aa" vali a(2)$"男女"

　　@ 6,4 say "年龄: " get a(3) range 1,120

　　@ 7,4 say "工资: " get a(4) picture "$$$$9.99"

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

　　@ 8,4 say "参加工作日期:" get a(5) range ctod("01/01/1970"),date()

　　 &&原句为for a(5)>= ctod("01/01/1970").and.a(5)<=date()

　　@ 9,4 say "婚否? " get a(6) picture "Y"

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

　　read &&原句为input

　　accept "要修改吗? y/n " to ans

　　if upper(ans)="N"

　　exit

　　endif

　　wait "按任意键返回修改"

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

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

发表评论：

匿名发表

用户名:

查看评论

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