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

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

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

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

　　do while .not.eof() &&将所有系的系名存入数组中

　　store 系名to d(x)

　　x=x+1

　　skip

　　enddo

　　select 2

　　c="y"

　　use p5db2 &&学生信息数据库

　　do while c="y"

　　clear

　　@ 2,4 say "请输入学生信息"

　　@ 4,4 say "系名"

　　@ 6,4 say "学号"

　　@ 8,4 say "姓名"

　　

　　@ 2,20 clear to 20,79

　　@ 4,20 say "选择系名"

　　x=1

　　do while x
　　@ row()+1,20 prompt d(x)

　　x=x+1

　　enddo

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

　　menu to a &&原句为accept to a

　　dept=d(a)

　　@ 2,20 clear to 20,79

　　@ 4,4 say "系名"+ dept

　　store dept to array(3)

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

　　@ 6,4 say "学号" get array(1) range 1,200099 &&原句为... for 学号>1.and.学号< 200099

　　@ 8,4 say "姓名" get array(2)

　　read

　　append blank

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

　　gather from array &&原句为append from array

　　@ 12,4 say "继续吗?(Y/N)" get c

　　read

　　if lower(c)="n"

　　exit

　　endif

　　enddo

　　disp all

　　set talk on

　　return

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

　　

　　

　　

第七题：给定程序MODI1.PRG 的功能是：选择最小号空闲区,若最小号空闲区号大于1, 说明系统当前已有工作区被占用,在这种情况下,测试最小号空闲工作区的前一个工作区打开的数据库文件名,该数据库的字段数和记录数。注：假设字段数和记录数均小于10。修改调试如下程序，使之能正确运行。改错要求：程序中共有三处错误，请修改*****found****下面的错误，并调试运行。注意：要求在原来位置修改，不得增加或删减程序行。（资料来源：Http://www.eastedu.com.cn）

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

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

发表评论：

匿名发表

用户名:

查看评论

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