《计算机专业模拟试卷(程序填空和程序改错)》由会员分享，可在线阅读，更多相关《计算机专业模拟试卷(程序填空和程序改错)（2页珍藏版）》请在金锄头文库上搜索。
1、一、 程序填空1、 有学生表ST，其中“编号”（N，2，0）字段值从1开始连续排列。以下程序欲按编号1，9，17，25的规律抽取学生参加比赛，并在屏幕上显示参赛学生的编号，请填空。USE STDO WHILE NOT EOF（）IF MOD_ ?编号ENDIFSKIPENDDO2、 通过键盘输入读者的借书证号，在“读者”表和“借阅”表中查找该读者及借书的有关信息。OPEN DATABASE BOOKSDO WHILE _ACCEPT”请输入借书证号：” TO ZHSELECT * FROM 读者，借阅 WHERE 读者.借书证号=借阅.借书证号 AND ；读者.借书证号=ZHWAIT“继续查询
2、（Y/N）？” TO YNIF UPPER（Y/N）“Y”_ENDIFENDDO_3、 将“借阅”表中借书日期超过一年且还没有归还的记录的“标记”字段填充“*”。 USE 借阅DO WHILE _ IF 还书日期=/ AND DATE（）借书日期365REPLACE _ ENDIF SKIPENDDOUSE RETURN4、 一个自定义函数FX，计算F（X）=EX+3X+10的值，并编写一个主程序调用FX函数，分别计算变量X由5到10（步长为1）的函数值*FX.PRGFOR I=5 TO 10？“X=”，I，“F（X）=”，_NEXTRETURNFUNCTION FX（X）_RETURN F
3、5、下列程序根据输入的学生成绩，来判断学生成绩等级，其中成绩大于或等于90分的为优秀，75-90的为良好，60-74为及格，小于60分的为不及格，请正确补充程序运行。ClearSet talk off _(“ 请输入成绩：”) to cjDo case Case cj60Dj=”不及格” Case cj75Dj=” 及格” Case cj90Dj=”良好” _Dj=”优秀”Endcase? DjSet talk on 6、设表STU.DBF中有“学号、姓名、性别、出生日期、班级”等字段，程序完成根据姓名进行的查询：Set talk offUse stuStore space(6) to xmI
4、ndex on 学号 to xh accept “输入姓名：” to xmlocate for 姓名=xm displayelse ?“查无此人”EndifWait “继续吗？”to ynIf upper(yn)=”N”ExitElseLoopEndifEnddoUse Set talk off 7、请阅读下列判断一个自然数是否为质数的程序,并将程序填空完整. Set talk offInput”请输入一个大于1的自然数:” to nK=0 &K的值为0表示所输入的自然数是质数, 为1表示不是质数j=2Do while jnIf mod (n,j)_LoopElseK=1ExitEndifIf
5、 k=0?_+”是质数”Endif?”再见!”Set talk onReturn8、定义一个二维数组X（8，9），给数组元素为该元素下标组成的数值。SET TALK OFFDIMENSION X(8,9)FOR N=1 TO 8FOR M=1 TO 9_END FOREND FORRETURN 9、在ZGDA.DBF表中查找用户指定的编号。如果查找成功，则显示找到的记录，否则显示一条说明信息。试完成下面的程序。SET TALK OFFUSE D:ZGZGDADO WHILE .T.CLEAR ACCEPT”请输入编号：” TO BHLOCATE FOR _IF FOUND()DISPLAYEL
6、SEWAIT“不存在该编号” WINDOW TIMEOUT 1ENDIFWAIT”是否继续查找？（Y/N）” TO ANSWER WINDOWIF UPPER(ANSWER)”Y”_ENDIFENDDOUSE SET TALK ONRETURN 10、按每次显示一条记录的方式显示JSDA.DBF的所有记录。 SET TALK OFF USE D： JSGLJSDA CLEAR FOR N=1 TO _ DISPLAY SKIP WAIT”按任意键继续” WINDOW ENDFOR USE SET TALK ON RETURN11、输入一个正数，使用过程计算以该数为半径的圆的面积。试完成下面的程
7、序。 CLEAR AM=0 INPUT“请输入一个正数:” TO X DO AREA WITH AM,(X) ?”半径为”+ALLTRIM(STR(X,20,2)+”的圆面积为：”+ALLTRIM(STR(AM,20,2) RETURN _ &定义过程 PARAMETERS AR,R AR=3.14*R*R ENDPROC12、计算分段函数的值：SET TALK OFFCLEARINPUT“请输入X的值：“ TO XIF_Y=2*X+1ELSEY=2*X-1ENDIF?”f(“+ALLTRIM(STR(X)+”ALLTRIM(STR(Y)_RETURN二、程序改错1、下面程序的功能是完成图书查
8、询，用户输入书名后，从图书表（图书.dbf）中查询给定书目的信息。若用户没输入书名，则要求用户重新输入，若用户输入字符串“000“，则结束查询。程序中有两行错误，请将错误语句改正后写在右边相应的横线上。Use 图书 Do while .T. _Accept”请输入书名：” to sm _If LEN(ALLTRIM(SM)=0 _EXIT _ ENDIF _IF ALLTRIM(SM)=”000” _ LOOP _ENDIF _LOCATE ALL FOR 书名=ALLTRIM(SM) _IF FOUND() _DO WHILE .NOT. EOF( ) _DISPLAY _CONTINUE
9、_ENDDO _ELSE _ ?”查无此书” _ENDIF _ENDDO _RETURN2、下面程序的功能是：输入8个字符，如果第三到第六个字符为“OKOK”，则执行命令文件Pass，否则重新输入，若输入超过三次则退出程序运行。程序中有两行错误，请将错误语句改正后写在右边相应的横线上。Clear Password =SPACE(8) I=3 Do while .T. 10,10 SAY “输入口令：” GET PASSWORD Read If str(password,3,4)=”OKOK” _ Quit &退出循环 Else I=I-1 If I=0 Return Endif Endif Enddo Do pass
