中职VFP综合复习之程序填空题

VFP程序填空题（134空）结构化程序设计1．逐条显示学生注册表.dbf中所有女生的记录use学生注册表dowhile.not.eof()if性别=”男”___SKIP________LOOP_______endifwait”按任意键显示女生的记录:”display______SKIP_________________ENDDO___________use2．完成如下程序,其功能删除std1.dbf~std5.dbf这五个表文件的末记录n=1dowhilen=5db=STD+STR(N,1)____use&db_______GOBOTTOM________delepack______N=N+1_________enddouse3．存款利率：年限nx1年，利率ll＝2%年限nx=1年或nx3年，利率ll＝3%年限nx=3年或nx5年，利率ll＝4%年限nx=5年，利率ll＝5%根据输入存款年限,求出相应的利率input“请输入存款年限：”to__NX_______________DOCASE______________ccaasseennxx11llll==00..0022CASENX3llll==00..0033ccaasseennxx55llll==00..0044ootthheerrwwiisseellll==00..0055eennddccaassee??””存存款款利利率率是是：：””，，llll4．下面是计算100以内偶数之和的程序，N是偶数个数，S是偶数之和。cleaallstore0tok,n,sdowhileK=100k=k+1ifMOD(K,2)=0n=n+1___S=S+K_____endifenddo?n,s5．对stud表中数学及格的加5分，不及格的加10分。settalkoffusestuddowhile.NOT.EOF()if数学60REPL数学WITH数学+10elserepl数学with数学+5endif_____SKIP________enddo*6．职工数据库表中有”工资表”和”职工表”,其中工资表包括字段(职工号,基本工资,奖金,扣款,实发工资),职工表中包括字段(职工号,职工姓名,年龄,)其中工资表中实发工资的字段值为空,求出实际的实发工资的字段值,并在屏幕上显出实发工资=1000的职工姓名,实发工资.cleaseleause职工表INDEXON职工号TOZGHselebuse工资表REPLALL实发工资WITH基本工资+奖金-扣款SETRELATO职工号INTOAlista.职工号,姓名,实发工资FOR实发工资=1000______closeall*7．循环输入学生的姓名,在学生表中查找，若找到则显示学生的情况,若没有则显示”没有某某学生”,直到用户停止输入use学生store“Y”tomDOWHILE.T.accept“请输入要查询的学生姓名:”toxmLOCAFOR姓名=XMif!eof()?”学号”+学号,”姓名”+姓名else?”没有+XM+”学生”_endiwati”是否继续查找(y/n)?”to___M___ifupper(m)=”Y”____LOOP______elseEXITEndifENDDOuse8、已知学生档案数据库表（XSDA.DBF）中，有学号、姓名、性别字段，要求将每个男生信息显示在屏幕上，请将程序补充完整。clearclearallUSEXSDA@1,16say“学号姓名性别”@2,16say“********************************”n=1scanfor性别=”男”@n+2,18say学号@n+2,30say学号@n+2,42say学号N=N+1ENDSCANusereturn*9．设有student.dbf(学号、姓名、民族)和score.dbf(学号、成绩)两个数据表，要在它们之间建立逻辑连接，然后为每个少数民族考生（即“民族”字段不等于“汉”的考生）的成绩增加5分，最后显示全体考生的学号、姓名和成绩。请对如下程序填空：clearcleaallselect1usestudentINDEXON学号toINXselect2usescoresetrelationto学号INTOAreplace成绩with成绩+5forA-民族!=”汉”list学号,A-姓名,成绩setrelationtocloseallreturn10．填上适当的语句，求100以内能被3整除但不能被7整除的数字之和，请填空。clearclearallStore0tos,ndowhilen=100IFN%3=0ANDN%70S=s+nendifN=N+1Enddo?”s=”+str(s)return11．逐条显示数据表stud.dbf中的所有女生记录：clearusestuddowhil.not.eof()if性别='男'SKIPLOOPendifdispwait'按任意键显示下一记录'SKIPendduse12．打印如下乘法表，请填空：123451)12)243)3694)4812165)510152025程序如下：clear?'12345'j=1dowhileJ=5?str(j,3)+')'i=1dowhileI=J??STR(J*I,4)i=i+1enddoj=j+1ENDDOreturn13．以下是四川师范大学等级考试成绩查询程序，其成绩表为ks.dbf,其字段有考号、姓名、系别、上机成绩、笔试成绩、合格否。请填空：clearUSEKSaccep'请输入考生考号:'getkhLOCAFOR考号=KHifNOTEOF()dispelse?'考号有误!!!'ENDIFuse*14．有一“备份程序”如下，其功能是将硬盘上9个班的成绩数据表文件复制到A盘上。数据表文件名分别为chj1.dbfchj2.dbf,...等，备份文件名前面冠以年号，如97chj1.dbf,97chj2.dbf,...。在c盘上运行该程序clearaccept'输入年号'tonh&&两位年号I=1dowhileI=9dbn='chj'+str(i,1)bdbn=NH+DBNuse&dbncopytoA:&BDBNi=i+1ENDDOuse*15．下面程序的功能是通过字符串变量操作先横向显示“学习刻苦”，后竖向显示“刻苦学习”，请填空？显示结果为：学习刻苦刻苦学习clearstore刻苦学习toxy?SUBSTR(XY,5,4)??subs(xy,1,4)n=1dowhilen8?SUBSTR(XY,N,2)N=N+2enddreturn16．有计算机考试查分程序如下(字段名有：准考证号(C),姓名(C),笔试成绩(N),上机成绩(N))。例如：若输入：9901后，则显示：张三9901笔试成绩:98上机成绩:76clearusestudINDEXON准考证号TAGABCacce请输入准考证号:tonumseekNUMIFNOTEOF()?姓名,准考证号,笔试成绩:+STR(笔试成绩,5,1)+;上机成绩:+STR(上机成绩,5,1)else?没有此考生!!!endifuse17．数据表文件da.dbf存放的是某单位职工的档案。在下面的程序中，用户通过按A键或B键，分别显示出全体女职工或全体男职工的记录。已知A键的ascii为65，B键的ascii为66，ESC键的ascii为27usedadowhile.t.clearWAIT“A—全体女职工B—全体男职工X—退出”TOKdocasecasek=’A’LISTFOR性别=”女”Casek=’B’LISTFOR性别=”男”caseK=’X’exitendcaseEnddouse18．下面是一个用“*”构成一个4行的金字塔形,第一行的“*”位于第10列。****************cleai=1Dowhilei=4?space(10-i)j=1Dowhilej=2*i-1??*j=j+1enddoi=i+1enddo19、以下程序在父表“学生”表与子表“选课”表间按学号建立关联，按姓名查询学生情况。SELE1&&选择1号工作区USE选课&&打开选课表INDEON学号TAGXHASELE2USE学生SETRELATO学号INTO选课&&建立关联ACCE“请输入姓名：”TOXM&&交互式输入姓名LOCAFOR姓名=ALLTRIM(XM)&&查询?姓名，A.课程号，A.成绩&&显示CLEAALL20、下面是统计表STUD.DBF中数学及格和不及格人数的程序：usestudn1=0n2=0dowhilenoteof()docasecase数学60n1=n1+1case数学=60n2=n2+1endcaseskipenddo?”不及格人数：”,n1,”及格人数：”,n221、以职工表ZGJK为主表，按职工号对工资表GZ.DB建立关联，查询“张军”的工资SELE2USEGZINDEON职工号TAGZGHASELE1USEZGJKSETRELATO职工号INTOBLOCAFOR姓名=‘张军’?姓名，职称，GZ.基本工资SETRELATIONTO&&取消关联CLEAALL&&关闭表表单设计1．设计如下图所示的表单，表单运行时，在文本框中输入字符，单击“红色”按钮，文本框中的文本变成红色；单击“蓝色”按钮，文本框中的文本变成蓝色；单击“还原”按钮，将文本框中的文本颜色还原成输入时的颜色。以下为该表单设计的相关代码，有多处空，请补充完整：form的init事件代码为：publicx设计文本框text1的LostFocus事件代码为：x=this.forecolor编写命令按钮组commandgroup1的click事件代码为：docasecasethis.value=1thisform.text1.forecolor=rgb(255,0,0)casethis.value=2thisform.text1.forecolor=RGB(0,0,255)casethis.value=3thisform.text1.forecolor=Xendcasethisform.refresh“退出”按钮的click事件代码为：THISFORM.RELEASE2．根据成绩表（考号，笔试，上机）设计如下所示的表单，在文本框text1中输入考号后，单击“确定”按钮在表中按文本框中输入的考号进行查询。如果找到了就显示，并在标签label1上显示相关的信息（如果该同学上机和笔试都在60分以上，显示“祝贺你，考试通过了！”；如果该同学笔试和上机有不及格的则显示“很遗憾，你××几科不及格，请继续努力！”），如果未找到就在label1上显示“该考号不存在，请重新输入考号！”，并将焦点设置到文本框上。表单数据环境和相关对象属性设置已完成，相关代码设计如下，有多处空，请补充完整：为了使得表单运行时，标签label1上不显示任何信息，应将标签label1的init代码设置为：THISFORM.LABEL1.CAPTION=””“确定”按钮的click事件代码为：locatefor考号=ALLTRIM(THISFORM.TEXT1.VALUE)iffound()n=0str1=if笔试60n=n+1str1=str1+笔试endifif上机60n=n+1str1=str1+上机endififn=0thisform.label1.caption=祝贺你，考试通过了！elsethisform.label1.caption=很遗憾，你+STR1+STR(N,1)+科不及格，请继续努力endifelsethisform.label1.caption=该考号不存在，请重新输入考号！THISFORM.TEXT1.SETFOCUSendifthisform.refresh*3．以下是一通话计费的表单：表单运行时，表单的标题为“通话计费”；单击text1，在text1显示通话开始的时间；单击text2,在text2中显示通话结束时