笔试程序填空题分析(S18-29)CP10.doc

笔试程序填空题分析(S18-27)一、 程序18.1坐标INKEY()有如下程序段，其功能的显示汉字“2008 年北京申奥成功！”从屏幕的顶部移至底部，请填空补充该程序。CLEAR / CH=”2008 年北京申奥成功！”/ R=1DO WHILE R=23 R,26 SAY SPACE(60) / ,26 SAY CH T=INKEY(0.2) / ENDDO / RETU R+1或ROW()+1 R=R+1或R=ROW()18.2关联更新已知两个数据库，图书表TS.DBF和订单表DD.DBF,要求计算订单金额。图书表TS.DBF结构如下： 订单表DD,DBF结构如下：书号 书名 作者 出版社 单价 订单号 书号 数量 金额Y001 C语言 王晓 大众出版社 21.50 001 Y001 150Y002 计算机基础 程力 科技出版社 26.00 002 J001 200J003 计算机导论 舒彦 电子出版社 30.50 003 J003 50W004 网页制作 严瑾 科技出版社 28.30 004 W004 100阅读下面程序，请将程序补充完整。 CLEAR ALLSELECT A / USE TS / INDEX TO TSSSELECT B / USE DD / SET RELATION TO 书号 REPLACE ALL 金额WITH LIST 订单号,书号,TS.书名,TS.单价,数量,金额 / RETURN ON 书号 INTO A数量*A.单价18.3输入程序下面程序功能是为表SB-1.DBF编制一个输入程序，要求可连续添加记录。USE SB-1DO WHILE .T.CLEAR / 2,5 SAY“请添加记录：” / 4,5 SAY“编号” GET 编号 / 6,5 SAY“名称” GET 名称 8,5 SAY“启用日期” GET 启用日期 10,5 SAY ”价格” GET 价格 / 12,5 SAY“部门” GET 部门 14,5 SAY“主要设备” GET 主要设备 18,5 SAY“是否输入商标内容?(Y/N)” GET SHB DEFAULT SPACE(1)READIF UPPER(SHB)=”Y”/ MODIFY GENERAL 商标 / ENDIF20,5 SAY“是否继续添加?(Y/N)” GET JX DEFAULT SPACE(1)READIF LOWER(JX)=”n”/ / ENDIFENDDO / RETURNAPPE BLANK READ EXIT19.1菜单读程序，请将程序补充完整。X=0 / CLEAR DO WHIL .T. 10,20 SAY ”主菜单” 11,22 SAY ”1-输入数据”/ 12,22 SAY ”2-查询记录” 13,22 SAY ”3-统计记录”/ 14,22 SAY ”4-退出系统” 15,22 SAY “请输入选择1-4：” GET X DO CASE CSAE X=l / DO SUB1 / CASE X=2 / DO SUB2 CASE X=3 / DO SUB3 / CASE X=4 / ENDCASE ENDDO / RETURN READ EXIT19.2(29.1)子程序下面程序的功能是利用参数传递求三个圆柱体体积。 *主程序EX.PRG 子程序 SUBYZ.PR CLEAR PARA ( ) FOR K=1 TO 3 V=314*R2*H INPUT ”圆半径R=” TO R RETURN INPUT ”高 H=” TO H DO SUBYZ ？”圆柱体V=”，INT(V) ENDFOR( ) / RETURN V=0 或 PUBLIC V WITH R,H,V R,H,V (ENDIF) (R,H,V)20.2删除重复记录设有自由表xs.DBF，以“姓名”字段为关键字建立独立索引文件XSID.IDX。因误操作而使得表中存在重复记录，现编程将重复记录物理删除，请将程序填写完整。use xs / xm=姓名 / skipdo while xm1=姓名If / deleElse / xm=xm1endifskipenddo / use / retu INDE XSID NOT EOF() TRIM(XML)=TRIM(XM) PACK21.1查询以下是一个计算机等级考试查分程序，请完成此程序。已有库文件STUDENT（准考证号，身份证号，姓名，成绩）。USE STUDENT INDEX XM IF FOUND()&XM为表STUDENT的姓名字段的索引文件 DISP OFFTC=Y ELSE DO WHILE TC=Y ?“对不起，无此考号!” ACCE“请输入要查询的准考证号:”; TO NUM WAIT“继续查询吗? y/n” TO TC ENDDO / USE LOCA FOR 准考证号=NUM ENDIFTC=UPPER(TC)22.1图形运行JJ.PRG程序后，将在屏幕上显示如下乘法表：1) 12) 2 43) 3 6 94) 4 8 12 165) 5 10 15 20 256) 6 12 18 24 30 367) 7 14 21 28 35 42 498) 8 16 24 32 40 48 56 649) 9 18 27 36 45 54 63 72 81 请对下面的程序填空: *计算九九乘法表JJ.ORG* / CLEAR FOR ? STR(K,2)+”)”FOR M=1 TO K? ENDFOR / ? ENDFOR / RETU K=1 TO 9 STR(K*M,4)22.2按键显示记录数据表文件DA.DBF存放的是某单位职工的档案。在下面的程序中，用户通过按A键或B 键，可分别显示出全体女职工或全体男职工的记录。已知A键的ASCII为65，B键的ASCII为66，ESC键的ASCII为27 JP1=LIST FOR 性别=”男”/ JP2=LIST FOR 性别=”女” USE DA DO WHILE .T. CLEAR / 1,10 SAY“A全体女职工 B全体男职工 ESC退出” K=INKEY(0) DO CASE CASE K=65 / CASE K=66 / CASE / EXIT ENDCASEENDDO / USE / RETU &JP2 &JP1 K=2723.4求阶乘下面是求S=10！的程序，在空格处填入恰当的语句： 主程序： 子程序：SUB1.PRG CLEAR PARA STORE 0 TO S,SM T=1 A=10 FOR I=1 TO P DO SUB1 WITH A,SM T=T*I ? 10!=, ENDFOR RETURN RETURN SM P,T23.3修改记录下面是根据输入的记录号在数据表“学生”中修改记录的程序： USE 学生 DO WHILE .T. INPUT “请输入要修改的记录号” TO H 6,20 SAY “学号：” GET 学号 6,50 SAY “姓名：” GET 姓名 7,20 SAY “性别：” GET 性别 7,50 SAY “出生年月：” GET出生日期 8,20 SAY “入校成绩：” GET入校成绩 8,50 SAY “电话：” GET 电话 9,20 SAY “家庭地址：” GET家庭地址 READ WAIT “继续输入吗？y/n” TO AN IF LOWER(AN)=”n” / / ENDIF / RETU GO H或LOCA FOR RECN()=H EXIT ENDDO24.3查找显示有数据表职工.DBF和工资.BDF，职工表中有C型字段“职工号”、“姓名”、“职务”，工资表中有N型字段“实发工资”，两表具有相同字段“职工号”。以下程序的功能是：反复输入职工的姓名，在数据表中查找，若找到则显示基本信息及实发工资，若没有则显示“查无此人！”。每次查询结束，出现“继续吗（Y/N）？”信息，回答“Y”或“y”则继续，其余任意键结束程序，请填空： CLEA ALLSELE 2 / USE 工资 / INDEX ON TAG ZGHSELE 1 / USE 职工 / SET RELA TO 职工号 INTO BDO WHILE .T. ACCE “请输入职工姓名：” TO XM LOCA FOR 姓名= IF FOUND() / ? 职工号,姓名,职务,B.实发工资 / ? “查无此人！”ENDIFWAIT “按“Y”继续，其它任意键退出” TO YNIF UPPER(YN)=”Y” / ELSE / ENDIF ENDDO / CLOSE ALL 职工号 XM ELSE LOOP EXIT25.1查找显示记录 今有计算机等级考试的查分程序,请填空。USE KS / ACCEPT “请输入考号:” 考号=KHIF / WAIT “查无此人”ELSE / DISPENDIF / USE TO KH LOCA FOR EOF()25.2计算阶乘之和下面程序功能是输出1到5的阶乘之和。 CLEAR / S=0 / X=1DO WHILE X=5T=T*X / X=X+1ENDDO? “S=”+STR(S) / RETU T=1 S=S+T26.1物理删除重复记录下面程序是对“职工”表的重复职工号进行物理删除，请补充程序。USE职工 / INDEX ON 职工号 TO ZGHDO WHILE ZGH=职工号 / SKIPIF / DELETEENDIF / / CLOSE ALL NOT EOF() 职工号=ZGH ENDDO PACK26.2计算金额有图书表TS.DBF和订单表DD.DBF，要求计算订单金额。图书表TS.DBF的结构如下： 订单表DD.DBF的结构如下：书号 书名 作者 出版社 单价 订单号 书号 数量 金额Y001 C语言 王晓 大众出版社 21.50 001 Y001 150J002 计算机基础 程力 科技出版社 26.00 002 J001 200J003 计算机导论 舒彦 电子出版社 30.50 003 J003 50W004 网页制作 严谨 科技出版社 28.30 004 W004 100阅读下面程序，请将程序补充完整。CLEAR ALL SELECT A / USE TS / INDEX TO TSS SELECT B / USE DD / SET RELATION TO 书号 REPLACE ALL 金额 WITH LIST订单号,书号,TS.书名,TS.单价,数量,金额 / RETU ON 书号 INTO A 数量*A.单价27.1统计字符串个数从键盘上输入10个字符串，其含有字母“M”的，请完成该程序的设计。CLEAR / S= / I=1DO WHILE IX / MI=X / ENDIFDO WHILE ENDIF TO X IF MAX ENDDOMA=X ？MA,MI / RETU N=19 INPUT N=N+128.2查找下列程序的功能是根据输入的学生姓名，并显示学生各门课程的成绩。 SELE 1 / USE 学生登记表 / SELE 2 / USE 学生成绩表 / ANS=”Y” DO WHILE .T. ACCEPT “请输入要查询的学生姓名:” TO NA SELE 1 / LOCATE ALL FOR 姓名=NA IF FOUND() ? ”姓名:”+姓名 / XH=学号 SELE 2 / LOCATE ALL FOR 学号= DO WHILE 学号=XH ? ”课程编号:”+课程编号,”成绩:”+STR(成绩) / ENDDO ELSE / ? “没有”+NA+”这个学生” ENDIF WAIT “是否继续查找(Y/N)?” TO ANSIF (ANS)=”Y” / ELSE / EXITENDIFENDD / USE / RETU XH CONT UPPER LOOP二、 SQL查询三、表单、报表、菜单18.4表单显示当前时间如下图所示，用标签、文本、命令按钮构成一个表单。在标签中显示以下文字“当前时间”，运行表单时，单击“显示”按钮将显示系统时间；单击“清除”按钮，文本框中的内容将被清除，单击“退出”按钮，将退出表单运行。为完成上述要求：(1) “清除”按钮的Click事件代码是 (2) “退出”按钮的Click事件代码是 (3) “显示”按钮的Click事件代码是 (4) 应该设置表单的 属性为 THISFORM.TEXT1.VALUE=”或=SPACE(0)THISFORM.RELEASETHISFORM.TEXT1.VALUE=TIME() CAPTION“显示当前系统时间”26.4表单显示时间日期有如下所示的表单,要求左键单击文本框显示时间,右击文本框显示,请除按钮清除文本框的数据,退出按钮退出表单,请填空 文本框Text1的Click事件代码为:This.Value= 文本框Text1的 事件的代码为:Thisform.Text1. =Date() 清除命令按钮的代码为: 退出的代码为: TIME() RIGHTCLICK VALUE THISFORM.TEXT1.VALUE=”THISFORM.RELEASE29.3表单计数器下边左图为设计时的表单，右图为运行时的表单。表单上有四个控件,标签Label1, Timer1，命令按钮（开始）Command1和命令按钮（停止）Command2。 (1)要求标签控件运行时显示为0.0,则在表单的INIT事件中有如下代码：THISFORM.LABEL1. =”0.0” ;(2)运行表单的时候,单击“开始”命令按钮则开始计时,要求计时精度为0.1秒，“开始”按钮被单击后不可用，Command1的Clik事件代码如下：THIS.ENABLED= / THISFORM.TIMER1.INTERVAL= / N=0(3)Timer1的Timer事件代码如下:N=N+0.1 / THISFORM.LABEL1.CAPTION=ALLT( (N,10,1) VALUE .F. 0.1 STR.27.3表单转换星期如图所示表单： 表单上文本框Text2（图中显示“星期六”的部分）只能显示， 不能修改，则该文本框的 属性应该设置为.T.； 在文本框Text1中输入值，当单击命令按钮COMMAND1（“转换”）时，文本框Text2中自动出现对应的星期数，则在COMMAND1的 事件代码中，应进行如下编程： Q=一二三四五六日 N=VAL(THISFORM.TEXT1.VALUE) THISFORM.TEXT2.VALUE=”星期”+SUBS（Q， ,2）命令按钮COMMAND2的标题为“下一个”，如果在Init事件代码中进行设置，应使用如下命令：THISFORM.COMMAND2. =”下一个” READONLY CLICK 2*N-1 CAPTION24.4表单浏览记录如图所示表单： 表单上三个文本框将绑定学生.DBF中相关字段，则设计时在表单设计器中，应将数据表“学生.DBF”添加到表单的 设计器中 三个文本框的值在运行时不能修改，则在表单设计器中，可设置它们的 属性为 .T. 命令按钮COMMAND1的标题为“上一条”，如果在INIT事件代码中进行设置，应使用如下命令： THISFORM.COMMAND1. =“上一条” 单击COMMAND1（上一条）按钮，显示上一条记录，则应设置COMMAND1的 事件代码为：SKIP 1THISFORM. &刷新表单 数据环境 READONLY CAPTION CLICK REFRESH23.5表单显示绝对值如图所示表单： 运行时表单自动居中，应设置表单的AutoCenter属性为： 命令按钮Command1的标题为“绝对值”,可在表单Init事件过程中设置： =”绝对值” 文本框Text2运行时不可修改，可在表单Init事件过程中设置代码： ThisForm.Text2. =.T. 单击Command1（绝对值）按钮，显示绝对值， 则应设置Command1的 事件代码为：X=VAL(ThisForm.Text1.Value)ThisForm.Text2.Value= .T. THISFORM.CMOMAND1.CAPTION READONLY CLICK STR(ABS(X)21.4表单改变颜色RBG()设计如下表单，运行表单时显示标签文字的颜色为红色， 点击相应的命令按钮时，标签文字按指定的颜色改变。假设：相关属性都设置完成。FORM的 事件代码设置如下：THISFORM.LABEL1.FORECOLOR=RGB(255,00,00)“兰色”按钮的CLICK事件代码设置如下：THISFORM.LABEL1.VISIBLE=.T. / “隐藏”按钮的CLICK事件代码设置如下： 在“结束”按钮的CLICK代码设置如下： INIT THISFORM.LABEL1.FORECOLOR=RGF(000,000,255) THISFORM.LABEL1.VISIBLE=.F. THISFORM.RELEASE19.4表单校对口令创建一个检查口令输入的表单，口令设置为“ABCD”，要求： 运行时，Labe12不显示任何信息，在前两次输入口令错误时显示“口令错，请重新输入口令！”，第三次输入口令错误时显示“对不起，您无权使用本系统！”。 如果口令输入正确，则显示“欢迎使用本系统”。 单击确定”按钮(Commandl)时，检查用户输入口令的正确性及输入次数，口令三次输人错误时，处于禁用状态。 Textl用于接收用户输入的口令，口令输入时，其中的值用“*”号显示，当口令三次 输人错误时，处于禁用状态。 单击“关闭”按钮（Command2）时，关闭本表单。 Label2的caption属性的初始值应设置为 为用“*”号显示输人口令，应设置Textl的 属性，属性值为 “ ”； 表单Form1的 Forml.activate事件代码为 Thisform.Textl.setFocus PUBLIC n / n=0 Commandl按钮（“确定”按钮）的Click事件代码为： m=thisform.textl.value if thisform.label2.caption=”欢迎使用本系统” else n=n+1 thisform.label2.caption=”口令错，请重新输人口令！” thlsform.textl.value= thisform.textl.sctFocus if thisform.label2.caption=”对不起，您无权使用本系统！” thisform.text1.enabled=.f. endif endif 命令按钮Command2（“关闭”按钮）的 Click事件代码为 “” 或 SPACE(0) PASSWORDCHAR “*” UPPER(m)=”ABCD” 同 N=3 THISFORM.COMMAND1.ENABLED=.F.THISFORM.RELEASE28.4系统登录表单口令设计一个如图所示的系统登录表单。其中操作员及口令来自于数据表：操作员.dbf。表中有两个字段：操作员、口令。表单上组合框的 属性应设置为6-字段；组合框的RowSource属性应设置为 。 在文本框Text1中输入口令时，会有占位符“*”出现，是因为设置了文本框的 属性。 在“确定”命令按钮事件代码中，进行如下编程： if trim(thisform.text1.value)操作员.口令 if messagebox(“请重新输入口令”,0+16,”提示”)=1 thisform.text1. endif else do form 系统功能.scx / thisform.refresh endif RowSourceType 操作员.操作员 PasswordChar=”*” SetFocus20.4表单四则运算设计一个四则运算的表单如下图所示：(l) 由以上图可知本表单的_属性应设置成“四则运算”(2) 确定按钮的CLICK代码如下Xl=VAL(THISFORM.TEXT1.VALUE)X2VAL(THISFORM.TEXT2.VALUE)XX=_DO CASECASE XX=1 / THISFORM.TEXT3.VALUE=XlX2CASE XX=2 / THISFORM.TEXT3.VALUE=X1-X2CASE XX=3 / THISFORM.TEXT3.VALUE=Xl*X2CASE XX=4 / THISFORM.TEXT3.VALUE=Xl/X2_(3) 清除按钮的CLICK代码如下THISFORM.TEXTl.VALUE=”THISFORM.TEXT2.VALUE=”THISFORM.TEXT3.VALUE=”_THISFORM.TEXTl.SETFOCUS(4) 退出按钮的CLICK代码如下: _ CAPTION THISFORM.OPTIONGROUP1.VALUEENDCASE THISFORM.OPTIONGROUP1.VALUE=0 THISFORM.RELEASE25.4表单查询列表框-表格创建一个如图所示“查询成绩”表单,当选择列表框中的课程名时，表格控件中的数据随之变化。列表框中显示的是课程表中的课程名，表格中显示的是学生表中的学号、姓名、成绩等3个字段。（1）表单FROM1的 属性为：查询成绩（2）“列表框”LIST1的CLICK事件代码： SET FILTER TO THISFORM.LIST1.VALUE= （3）“表格”GRID1的显示栏目数属性COLUMNCOUNT= （4）“表格”GRID1 中学号的数据源为： =学生.学号（5）命令按钮COMMAND1（“退出”按钮）的CLICK事件代码： CAPTION 课程.课程名 3 THISFORM.GRID1.COLUMN1.CONTROLSOURCETHISFORM.RELEASE22.4表单选项计算用文本框Text1输入正方体的边长，利用选项按钮，选择计算表面积，计算体积等。表单样式如下。要求：(1) 初始时，选项组一个也不选，则：Thisform.OptionGroup1.Value= (2) 文本框Text2和Tex