计算机专业模拟试卷(程序填空和程序改错).doc

《计算机专业模拟试卷(程序填空和程序改错).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一、程序填空1、有学生表ST，其中“编号”（N，2，0）字段值从1开始连续排列。以下程序欲按编号1，9，17，25……的规律抽取学生参加比赛，并在屏幕上显示参赛学生的编号，请填空。USESTDOWHILENOTEOF（）IFMOD__________??编号ENDIFSKIPENDDO2、通过键盘输入读者的借书证号，在“读者”表和“借阅”表中查找该读者及借书的有关信息。OPENDATABASEBOOKSDOWHILE___________ACCEPT”请输入借书证号：”TOZHSELECT*FR

2、OM读者，借阅WHERE读者.借书证号=借阅.借书证号AND；读者.借书证号=ZHWAIT“继续查询（Y/N）？”TOYNIFUPPER（Y/N）<>“Y”_______________________ENDIFENDDO_______________________3、将“借阅”表中借书日期超过一年且还没有归还的记录的“标记”字段填充“*”。USE借阅DOWHILE_________IF还书日期={/}ANDDATE（）—借书日期>365REPLACE___________ENDIFSKIPE

3、NDDOUSERETURN4、一个自定义函数FX，计算F（X）=EX+3X+10的值，并编写一个主程序调用FX函数，分别计算变量X由5到10（步长为1）的函数值*FX.PRGFORI=5TO10？“X=”，I，“F（X）=”，_________NEXTRETURNFUNCTIONFX（X）________________RETURNF5、下列程序根据输入的学生成绩，来判断学生成绩等级，其中成绩大于或等于90分的为优秀，75-90的为良好，60-74为及格，小于60分的为不及格，请正确补充程序运行

4、。ClearSettalkoff____________(“请输入成绩：”)tocjDocaseCasecj<60Dj=”不及格”Casecj<75Dj=”及格”Casecj<90Dj=”良好”____________Dj=”优秀”Endcase?DjSettalkon6、设表STU.DBF中有“学号、姓名、性别、出生日期、班级”等字段，程序完成根据姓名进行的查询：SettalkoffUsestuStorespace(6)toxmIndexon学号toxhaccept“输入姓

5、名：”toxmlocatefor姓名=xmdisplayelse?“查无此人”EndifWait“继续吗？”toynIfupper(yn)=”N”ExitElseLoopEndifEnddoUseSettalkoff7、请阅读下列判断一个自然数是否为质数的程序,并将程序填空完整.SettalkoffInput”请输入一个大于1的自然数:”tonK=0&&K的值为0表示所输入的自然数是质数,为1表示不是质数j=2Dowhilej

6、______LoopElseK=1ExitEndifIfk=0?__________________+”是质数”Endif?”再见!!”SettalkonReturn8、定义一个二维数组X（8，9），给数组元素为该元素下标组成的数值。SETTALKOFFDIMENSIONX(8,9)FORN=1TO8FORM=1TO9________________ENDFORENDFORRETURN9、在ZGDA.DBF表中查找用户指定的编号。如果查找成功，则显示找到的记录，否则显示一条说明信息。试完成下面的

7、程序。SETTALKOFFUSED:ZGZGDADOWHILE.T.CLEARACCEPT”请输入编号：”TOBHLOCATEFOR________________IFFOUND()DISPLAYELSEWAIT“不存在该编号”WINDOWTIMEOUT1ENDIFWAIT”是否继续查找？（Y/N）”TOANSWERWINDOWIFUPPER(ANSWER)<>”Y”___________________________ENDIFENDDOUSESETTALKONRETURN10、按每次显示

8、一条记录的方式显示JSDA.DBF的所有记录。SETTALKOFFUSED：JSGLJSDACLEARFORN=1TO_______DISPLAYSKIPWAIT”按任意键继续”WINDOWENDFORUSESETTALKONRETURN11、输入一个正数，使用过程计算以该数为半径的圆的面积。试完成下面的程序。CLEARAM=0INPUT“请输入一个正数:”TOXDOAREAWITHAM,(X)?”半径为”+ALLTRIM(STR(X,20,2))+”的圆面积为：”+ALLTRIM(STR(