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

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

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

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

　　

第五题

　　

　　给定程序MODI1.BAS其功能是：打开一个随机文件"goods.dat",用以存放10种货物的货号、货名、价格和存货量。用TYPE定义了记录型变量goods，包括num,nam,price及stock四个域。用READ/DATA语句读入数据，用OPEN语句打开文件。请根据程序的需要在【1】、【2】及【3】三处填上所需的内容，将程序补充完整。

　　

　　注意：不得增行或删行，也不得更改程序的结构!

　　

　　TYPE goods

　　

　　num AS STRING * 10

　　

　　nam AS STRING * 12

　　

　　price AS SINGLE

　　

　　stock AS INTEGER

　　

　　END TYPE

　　

　　DIM dress AS goods

　　

　　’**********found**********

　　

　　OPEN 【1】 FOR 【2】 AS #1 LEN = LEN(dress) ’参考答案：OPEN "goods.dat" FOR RANDOM…

　　

　　DO

　　

　　 READ dress.num, dress.nam, dress.price, dress.stock

　　

　　 IF dress.num = "g9999 " THEN EXIT DO

　　

　　 PUT #1, , dress

　　

　　’**********found**********

　　

　　【3】 ’参考答案：loop

　　

　　CLOSE

　　

　　DATA g1001,Shirt,65,120, g1002,Skirt,76,108

　　

　　DATA g1004,Coat,231.5,67, g1005,Soaks,4.5,250

　　

　　DATA g1006,Pants,121.7,87, g1008,Underwear,34,86

　　

　　DATA g1010,Cap,54.8,73, g1023,Shoes,145,90

　　

　　DATA g1221,Woolly,231,34,g1243,Quilt,210,38

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

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

发表评论：

匿名发表

用户名:

查看评论

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