操作2013A模拟题与答案11.docVIP

综合测试（5—9章）一、程序设计题1、编写一密码校验程序（假设密码为ABC）,密码正确显示 ”欢迎使用本系统！密码不正确显示“密码错误！注用信息框函数显示。程序文件名为A3..PRG*A3.prgclearset talk offaccept 密码: to Xif X=ABC?欢迎使用本系统elsemessagebox(密码错误)endifset talk on火车站托运行李收费规定如下：:每票每人行李 15公斤以下（含15公斤）每公斤收费0.75元，超过部分一律按每公斤1.60元收费．计算收费金额的程序。程序文件名为A2.PRG.。 *A2.PRG clear set talk off input 行李重量: to a if a=15 m=0.75*a else m=0.75*a+(a-15)*1.6 endif ?收费金额:,m set talk on在学生情况表.dbf中按学生姓名查找记录。如果找到了，显示该学生信息，否则显示“表中无此学生”。注：显示“表中无此学生”用信息框显示,程序文件名为A1..PRGuse E:\学生情况表.dbfaccept 请输入学生姓名: to a locate for 姓名=aif found ()displayelseMessagebox（“表中无此学生”）EndifUse Set talk on4编程显示sp.dbf表中单价大于等于1000元的所有商品记录，（用SCAN…… ENDSCAN指针型循环语句）Clear Set talk offuse E:\sp.DBFscan for 单价=1000display loopendscan Use Set talk on二、程序阅读及程序改错题（一）阅读程序：请将运行结果写在答题卡相应位置的横线上。1. SET TALK OFFX=5DO WHILE .T.X=X+1IF X=INT(X/5)*5? XELSELOOPENDIFI F X26EXITENDIFENDDORETURN 运行结果为：10 15 20 25 302． ClearT=1For i=1 to 6T=T*iEndfor?”T=”,T运行结果为：7203、set talk off STORE 1 TO T,IDO WHILE I5 I T=T*I I=I+1 ENDDO set talk on ？“T=”，T运行结果为24（二）、程序改错题： 下面这段程序是求1+3+5+7··········101 的和，其中有两个地方有错误，请你改正，并将答案填写在答题卡指定的地方：1、N=1 S=0DO WHILE N=101 N=101 本行有错S=S+NN=N+1 N=N+2 本行有错ENDDO? “S=”,S RETURN下面这段程序是求2+4+6+8··········56 的和，其中有两个地方有错误，请你改正，并将答案填写在答题卡指定的地方：2、N=0 S=0DO WHILE N=56 N=56 本行有错S=S+NN=N+1 N=N+2 本行有错ENDDO? “S=”,S RETURN三、表单设计题1．设计表单如下，请说明其中使用了哪些种类的控件,并说明各控件的主要属性设置，及相应的控件代码。对象属性属性值Label1Caption输入第一个数Label2Caption输入第二个数Label3Caption输入第三个数Label4Caption中间数为Text1-4value0Command1Caption计算Command2Caption退出计算控件CLICK的事件代码: a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valued=thisform.text4.valuem=max(a,b,c)n=min(a,b,c)d=a+b+c-m-nthisform.text4.value=d退出控件CLICK的事件代码:release thisform2．表单如下，输入一长方体的长、宽、高，计算其体积和表面积。请说明其中使用了哪些种类的控件,并说明各控件的主要属性设置，及相应的控件代码。填写在答题卡上对象属性属性值Label1Caption请输入长方体的长、宽、高Label2Caption长方体的表面积为：Label3Caption长方体的体积为：Text1-5value0Command1Caption计算Command2Caption退出计算控