资源描述：
《等级考试读程序试题.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、读程序表程序1（0701）.数据表（STUDENT.DBF）内容如下：Record#学号姓名性别班级总分11458张萧女１班52021479王琴女２班49531480陆海军男３班50041500李文君女１班46851503海涛男４班515写出执行以下程序结果：usestudentdowhile.t.if性别<>“女”exitendifif班级=“１班”disp姓名，性别，班级，总分endifskipenddouse3(0702)、数据表user.dbf用于存放电话客户信息，其字段有：tno(电话号码，
2、字符型)，uname(姓名，字符型)，addr(地址，字符型)；数据表charge.dbf用于存放客户一年的电话交费信息，其字段有：tno(电话号码，字符型)，tmonth(月份，数值型)，money(电话费，数值型)。 user.dbf的内容如下charge.dbf的内容如下tnounameaddrtnotmonthmoney123u1a14561100456u2a2123290789u3a345651507891300123160456380请写出下述程序的输出结果。SETTALKOFF SEL
3、ECTB USEcharge INDEXONtnoTOcharge SELECTA USEuser SETRELATIONTOtnoINTOcharge SCAN SELECTcharge AVERAGEmoneyTOmmRESTWHILEtno=user->tno SELECTuser ?tno+SPACE(2)+unmae+SPACE(2)+STR(mm,3) ENDSCAN RETURN1（0802）.表文件（积分.dbf）如下表所示。积分.dbf学号（C）积分（N）220140
4、220270220350220420220110220270220360220140220230写出以下程序的运行结果。USE积分STORE0TOX,Y,ZSCANDOCASECASERIGHT(学号,1)="1"X=X+积分CASERIGHT(学号,1)="2"Y=Y+积分CASERIGHT(学号,1)="3"Z=Z+积分ENDCASEENDSCAN?X+Y+ZUSE数字程序2(0702)、有一程序如下，请写出运行结果：SETTALKOFFCLEARI=1DOWHILEI<=50IFI/7=INT(
5、I/7)??STR(I,4)ENDIFI=I+2ENDDORETURN1（0901）.有如下程序，请写出运行结果：CLEAM=1N=1DOWHILEM<10M=M+1IFINT(M/3)<>M/3N=N+MENDIFENDDO?"N=",NRETURN2（0701）．以下程序的运行结果是什么？clearsum1=0cc=''fori=1to5t=0forj=1toit=t+jcc=cc+str(j,1)+'+'endforifi=5cc=cc+'='endifsum1=sum1+tendfor?cc,
6、sum13（0802）.有一程序如下，请写出运行结果。CLEARDIMENSIONA(3,3)FORI=1TO3FORJ=1TO3IFI<>JA(I,J)=0ELSEA(I,J)=9ENDIF??A(I,J)ENDFOR?ENDFORCANCEL3．下面程序运行时输入5，请写出程序执行结果。SETTALKOFFClearINPUT "请输入层数"TONFORK=1TON??SPACE(N-K)FORJ=1TOK??"*"ENDFOR?ENDFOR2（0901）．读如下程序，写出运行结果：CLEARDI
7、MEW1(5)X='A'W1=""FORI=5TO1step-1FORJ=1TOIW1(I)=W1(I)+XENDFORX=CHR(ASC(X)+1)?6-I,W1(I)ENDFOR模块化主程序main.prgcleaa=2b=3c=4dosub1?a,b,cretu*sub1.prgprivb,ca=20b=30c=40?a,b,cdosub2retu*sub2.prgprivaa=100b=2*a?a,b,cretu3（0701）．以下程序的运行结果是什么？4(0702)、有如下程序，请写出运行结
8、果：CLEAPUBLa,ba=1b=2DOsub1WITHa,b?a,bRETURNprocedureSUB1PARAA1,B1B1=10*B1A1=A1+1DOsub2withA1,B1RETURNprocedureSUB2PARAX,YA=3+XB=2+Y?a,bRETURN4(0801)．以下程序的运行结果是什么？主程序main.prgClearA=1B=2C=3Dosub1witha?a,b,cReturn*sub1.prgParabPrivcA
