辽宁医学院 程序填空题 题库.doc

程序填空1. 功能: 已知表文件学生.DBF,向学生表中追加记录。SET TALK OFFUSE 学生DO WHILE .T.APPEND WAIT 继续添加记录吗?(Y/N) TO KIF UPPER(K)=Y【?】ELSE【?】ENDIFENDDORETURN答案为： exit loop2. 功能: 已知表文件入学成绩.DBF和学生.DBF,将两表按学号字段建立关联并显示学生的姓名和语文信息。 SET TALK OFFSELECT 2USE 入学成绩INDEX ON 【?】 TO XHSELECT 1USE 学生 SET RELATION TO 学号 INTO BLIST 姓名,【?】USERETURN答案为：学号 、B.语文3. 功能:显示数据表学生.DBF中男同学的信息。SET TALK OFFUSE 学生LOCATE FOR 性别=男DO WHILE 【?】 DISP【?】ENDDOUSERETU答案为： .not. eof() 、 continue4. 功能: 已知表文件学生.DBF,按姓名快速查找并显示指定记录。SET TALK OFFUSE 学生ACCEPT 输入姓名 TO XMINDE ON 姓名 TO SS【?】 XM【?】USERETURN答案为：seek、 display5. 功能: 已知表文件学生.DBF,按姓名查找学生记录，如果找到了，显示当前记录，否则显示 查无此人。SET TALK OFFUSE 学生ACCEPT 输入姓名： TO NAMELOCATE FOR 姓名=NAMEIF FOUND()【?】ELSE【?】ENDIFUSERETURN答案为：display 、 ? 查无此人6. 功能:显示数据表学生.DBF中计算机专业同学的信息。SET TALK OFFUSE 学生LOCA FOR 专业=计算机DO WHIL 【?】 EOF()DISP【?】ENDDOUSEReturn答案为：.not. 、 continue7. 功能: 已知数据库文件P.DBF和Q.DBF,要求修改Q.DBF文件中N2字段的值，使其成为该字段的原来值与P.DBF文件中相应记录N1字段值的乘积.（注意：只能选用第1和第2工作区）SET TALK OFFCLEARSELE 1USE PINDE ON M TO MNSELE 【?】USE QSET RELA TO 【?】 INTO A REPL 【?】 N2 WITH N2*A-N1LISTclose dataSET TALK ONReturn答案为： 2 、M、all8. 题目：统计学生表中入学成绩大于等于570分的同学的人数。SET TALK OFFUSE 学生N=0DO WHILE .NOT.EOF() IF 入学成绩【?】 N=N+1ENDIF【?】 ENDDO?NUSEReturn答案为：=570 、 skip 19. 功能: 已知表文件学生.DBF和选课.DBF,按学号建立学生表和选课表的关联。SET TALK OFFSELE 1USE 选课INDE ON 【?】 TO XHSELE 2USE 学生SET RELA TO 学号 INTO 【?】LIST 姓名, A.成绩RETURN答案为： 学号 、 A10. 功能: 已知表文件学生.DBF,索引查询1991年8月25日出生的学生记录。SET TALK OFFCLEARUSE 学生【?】 ON 出生日期 TO CR【?】1991/08/25DISPLAYRETURN答案为： index、 seek 11*功能: 已知表文件学生.DBF,以下程序实现按从首记录到末记录的顺序逐条地显示学生表中的记录。SET TALK OFFUSE 学生DO WHILE 【?】DISP【?】ENDDOUSERETURN答案为：.not.eof() 、 skip112. 功能: 已知表文件学生.DBF,编程实现按从末记录到首记录的顺序逐条地显示学生表中的记录。SET TALK OFFUSE 学生GO BOTTOMDO WHILE 【?】DISP【?】ENDDOUSERETURN答案为： .not.bof() 、 skip -113. 功能: 已知表文件学生.DBF和入学成绩.DBF,将学生表和入学成绩表按学号建立关联并显示。SET TALK OFFSELECT 1USE 入学成绩INDEX ON 【?】 TO XHSELECT 2USE 学生SET RELATION TO 【?】 INTO ALIST 姓名,A.数学RETURN答案为： 学号 、学号14. 功能: 对学生表按性别索引，同性别的按专业索引。 SET TALK OFFUSE 【?】INDE ON 【?】 TO XRLISTUSE答案为：学生 、性别+专业15. 功能: 已知表文件学生.DBF,在学生表中按姓名查找某条记录。USE 学生ACCEPT 请输入姓名: TO XMLOCATE FOR 【?】IF 【?】DISPELSE?查无此人!ENDIF答案为： 姓名=XM 、 found()16. 功能:在“学生”表中按姓名查找并显示指定记录。SET TALK OFF 【?】 CLEAR INPUT 请输入姓名: TO NAME LOCATE FOR 姓名= NAME IF NOT EOF( )【?】ELSE ?查无此人ENDIFUSERETU答案为：use 学生、 display17. 功能：从键盘输入一个表的文件名，将该表的第一条记录和最后一条记录的姓名字段内容互换。(设，表中有固定字段姓名)。SET TALK OFFUSE 学生GO 1XM1=姓名GO BOTTOMXM2=【?】REPL 姓名 WITH 【?】go 【?】REPL 姓名 WITH XM2USESET TALK ON RETURN答案为：姓名 、XM1 、 top【代码检查 程序_15XM2=姓名】XM2=姓名REPL 姓名 WITH XM1【代码检查 程序_19GO TOP】18. 功能：从键盘输入某设备的名称，如果找到显示其编号和价格，找不到时给出无此设备的提示。*注意：本题中，不允许使用逻辑常量 .T. 和 .F.SET TALK OFFCLEARUSE SBMC=space(4)accept 输入设备名称: to MC LOCA FOR 名称=【?】 IF 【?】 DISP 编号,价格 ELSE ? 无此设备 WINDOW ENDIFUSESET TALK ONRETURN答案为： MC 、found()19. 功能:找出XSDB.DBF中奖学金最高的学生记录并输出。*注意：本题中，不允许使用逻辑常量 .T. 和 .F.SET TALK OFF【?】MAX=0DO WHILE 【?】 IF MAX=100【?】ENDIFX=X+1【?】?XRETURN答案为：EXIT 、 ENDDO23. 题目：编写程序，计算球的体积。NOTE 计算球的体积INPUT 请输入球的半径： TO r【?】 v=4/3*【?】*r*3 ? 球的体积是：, v ENDIF 答案为： IF r0 、 v=4/3*pi()*r*3 24. 题目：编写程序CC.prg，任意输入两个数到变量M1，M2中，实现变量M1和M2值的交换。SET TALK OFFINPUT M1= TO M1INPUT M2= TO M2M=M1【?】【?】?交换后的两数为:,M1,M2RETURN答案为：M1=M2 M2=M25. 功能: 下面程序的功能是不用第三个变量，实现两个数的对调操作SET TALK OFFclearinput a= to ainput b= to ba=a+【b】 b=【a】- ba= 【a-b】? a=,a,b=,bset talk onCanc答案为：a=a+b b=a-b a=a-b26. 题目：编写程序,修改如图所示的分段函数。打开考生目录下名为程序.prg的文件，请在【】处添上适当的内容，使程序完整。INPUT 请输入一个数： TO xIF X【?】 S=x ELSE IF X【?】 s=x2 ELSE 【?】 ENDIF ?S答案为：=2 、-2 、 S=abs(x)27. 打开考生目录下名为程序.prg的文件，计算2到99的数中能被7整除的个数。clear S=0 N=2 DO WHILE n【?】if 【?】 s=s+1ENDIFN=N+1 ENDDO? S答案为： n=99 、 mod(n,7)=0 或 int(n/7)=n/728. 题目：下面的程序是当从键盘输入y或Y 时，则退出循环。SET TALK OFFDO WHILE 【?】WAIT 输入Y/N TO XIF LOWER(X)=y【?】ENDIFENDDO答案为： .T. 、 EXIT29. 题目：通过键盘输入一个自然数，判断该数,如果是奇数则将其输出。SET TALK OFF【?】X= TO XIF INT(X/2)【?】X/2?XENDIFRETURN答案为: INPUT 、 或 != 或 #30. 题目：编程实现通过键盘输入一个数，判断其奇偶性。SET TALK OFFCLEAR【?】请输入一个自然数： TO XIF MOD(X,2)=【?】 ?这是一个偶数！ELSE?这是一个奇数！ENDIFRETURN答案为：input 、 031. 下面程序是计算1+3+5+99之和的程序。SET TALK OFF【?】I=1DO WHILE I= 【?】 Y=Y+SUBS(X,1,2)+ X=【?】ENDD?YSET TALK ONRETURN答案为 ： （即空格键）、2、 X=substr(x,3)33. 题目：在成绩评定时，常把90分以上的定为优秀，8089分定为优良，7079分定为良好，小于60分的定为不及格，其余的定为及格。clear【?】 请输入成绩： TO xx【?】CASE XX=90 ? 优秀CASE XX=80 ? 优良 CASE XX=70 ? 良好 CASE XX60 ? 不及格 OTHERWISE ? 及格【?】答案为：input 、do case 、endcase 34. 编写鸡兔同笼程序prog31，已知鸡兔的总头数为h，总脚数为f，求鸡兔各有多少只？INPUT 请输入总头数： TO hINPUT 请输入总脚数： TO f X=(4*h【?】)/2 y=(f-【?】)/2 ? 共有鸡：,x? 共有兔：, y 答案为：X=(4*h-f )/2 、 y=(f -2*h)/2 35. 编写程序，求出1到100之间的奇数的平方和。clears=0x=1DO WHILE x【?】 s=【?】 x=【?】ENDDO? S答案为：DO WHILE xmonth(date() age=age-1endifif month=month(date() .and.【?】 【?】endif? 该学生的实足年龄为：,ageSET TALK ONRETURN答案为：date() 、 dayday(date() 、age=age-138. 计算一元二次方程的根。SET TALK OFFclearinpu