高职升学考试-QB填空题

二、填空题5.在Qbasic系统中，代表控制台的设备名为_______，代表打印机的设备名为_______6.表达式7^2MOD5^3/3^3的值为_______。7.下面是一个用子程序的方法求4!+5!+6!的值的程序，请补充完整。S=0FORT=4TO6GOSUB200:S=S+PNEXTTPRINT4!+5!+6!=;SEND200P=1FORJ=1TOT_______[P=P*J]NEXTJ_______[RETURN]8.下列程序运行后输出的结果是_______[64]A=2∧2∧3PRINTA=;AEND9.下列程序运行后输出的结果是_______[720]k=1FORJ=1TO5K=K*JNEXTJPRINTK*JEND10.下列程序运行后输出的结果是_______[153]S=0FORK=1TO5J=1FORM=1TOKJ=J*MNEXTMS=S+JNEXTKPRINTSEND11.阅读下面的程序。该程序的作用是任意输入10个数并输出求和结果。请将程序补充完整。N=1WHILE_______[N=10]INPUTM:S=S+M:N=N+1WENDPRINTSEND12.阅读下面的程序。该程序的作用是利用随机函数产生10个1～100之间的随机整数(包含1和100)，并打印其中偶数K1和与奇数和K2。请根据程序的需要在空格处填上所需内容。FORI=1TO10X=INT(RND(1)*100+1)PRINTX;IF_______[X/2=INT(X/2)或INT(X/2)=X/2或XMOD2=0]THENK1=K1+XELSE_______[K2=K2+X]NEXTIPRINTPRINTK1=;K1,K2=;K2END13.程序运行后，输出的结果是_______[16]a$=Francem$=MID$(a$,3,2)FORj=1TO5READb$e=INSTR(b$,m$)s=s+eNEXTjPRINTsDATAIran,China,Japan,Afghanistan,GuyanaEND14.下程序运行后输出C$的值是_______[second]FORJ=1TO3READA$A$=MID$(A$,J,J)C$=C$+A$NEXTJPRINTC$DATAsay,mechanic,noonday15.编写一个子程序，用起泡法对n个数从小到大排序请将程序补充完整。SUBSORT(y(),n)FOR_______[i=1TOn-1]FORj=1TOn-1_______[IFy(j)y(j+1)THENSWAPy(j),y(j+1)]NEXTjNEXTIENDSUB二、填空题8.下面程序运行后输出的结果是_____[12345671234567]DIMtASLONGt=7654321t&=1234567PRINTt,t&END9.下面程序运行后输出的结果是_____[5166]S=0FORN=3TO7STEP2GOSUBF:S=S+PNEXTNPRINT3;!+;5;!+;7;!=;SENDF:P=1FORI=1TONP=P*INEXTIRETURN10.在QBASIC中，可用两种类型的常量:_____[数值常量和实型常量]11.下面程序运行的结果是_____[65432]_____[S=1：N=32或者N=32：S=1FORk%=6TO2STEP-1PRINTa;NEXTk%END12.2的30次方用十进制表示，有多少位的程序运行结果是_____[10]m&=2^30n=LEN(STR$(M&))PRINTn-1END14.顺序文件STD．DAT中顺序存放着学生的学号(NO),姓名(NM#$),数学(M)和英语(E)成绩.下面的程序可人文件中查找到数学和英语成绩均高于80分(含80)分的学生，将其学号,姓名,数学及英语成绩打印出来,将程序补充完整:OPENSTD．DATFORINPUTAS#1WHILENOTEOF(1)INPUT#1,NO,NM$,M,E_____[IFM=80ANDE=80THENPRINTNO,NM$,M,E或者IFE=80ANDM=80THENPRINTNO,NM$,M,EWENDCLOSE#1END15下面程序运行后输出的结果是_____[3455]AA=1：BB=1FORJ=1TO4AA=AA+BB：BB=BB+AANEXTJPRINTAA：BBEND16下面程序的功能是统计字符串中I的个数,请将程序补充完整AAA$=BeijingUniversityM=LEN(AAA$)FORJ=1TOMB$=_____[MID$,J,1]IFB$=ITHENX=X+1NEXTJPRINTX=;XEND17下面程序运行后输出的结果是_____[bottom]A$=FORJ=1TO3READB$A$=A$+RIGHT$(B$,J)NEXTJPRINTA$DATAbomb,root,subtomEND18面程序运行输出的结果是_____[25]DIMA(50)FORJ=1TO10J=J*JA(J)=3NEXTJPRINTA(25)END19下面程序运行后输出的结果是_____[122312331]DIMA(3,3)FORJ=1TO3FORK=1TO3IFJ=KTHENA(J,K)=1IFJKTHENA(J,K)=2IFJKTHENA(J,K)=3NEXTK：NEXTJFORJ=1TO3FORK=1TO3PRINTA(J,K)NEXTKNEXTJEND二、填空题6.数学式2lnxsin2y+SIN2X的QBASIC表达式为______[2*LOG(X)*SIN(2*Y)+SIN(2*X)]7.SCREEN语句中的“色彩”是一个数值表达式，只有在模式为______[0、1和2]时，它才有效，用其他模式时此参数均予以忽略。8.下面程序运行后的输出是______[57.9%]A=12.3:B=45.6:C$=%D$=STR$(A+B)+C$PRINTD$END9.执行下面程序后，输出的结果为______[52]K=1FORJ=6TO10K=K+JNEXTJPRINTK+JEND10.下面程序运行后输出X的值是______[60]FORA=1TO5X=0FORB=1TO10FORC=1TO6X=X+1Y=Y+1NEXTCNEXTBNEXTAPRINTX=;XPRINTY=;YEND11.下面程序运行后输出X的值是______[26]READA,B,C,DX=B+DRESTORE130READA,B,C,DY=B+DRESTOREFORJ=1TO8READANEXTJX=X+Y+APRINTXDATA1,2,3DATA4,5,6DATA7,89END12.下面程序运行后输出S的值是______[120]FORK=1TO5S=0;J=1FORM=1TOKJ=J*MNEXTMS=S+JNEXTKPRINTSEND13.下面程序运行后输出J的值是______[10]X=2Y=RND(X)+4ONYGOTO50,60,70J=J+150J=J+260J=J+370J=J+4PRINTJEND14.程序是从键盘输入一串字符，逆序打印出来，程序不完整，请填空。DECLARE______[FUNCTIONreverse$(a$)]INPUTEnterastring;x$PRINTx$PRINTreverse$(x$)ENDFUNCTIONreverse$(y$)b$=MID$(y$,1,1)IFb$=THENreverse$=ELSEreverse$=reverse$(______[MID$](y$,2))+b$ENDIF______[ENDFUNCTION]15.阅读下面的程序。该程序的作用是利用随机函数产生10个100—200之间(包含100、200)的随机整数，打印其中5的整数倍的数并求及其总和。请根据程序的需要填空：RANDOMIZETIMERFORM=1TO10X=______[INT(RND(1)*101)+100或INT(RND*101+100)]PRINTX；IF(______[XMOD5=0])THENPRINTXK1=K1+XENDIFNEXTMPRINTPRINTK1=;K1END16.编写一个子程序，计算1/n!,请填空：SUBf(s,n)f=1FORi=1TOnf=______[f*i]NEXTis=______[1/f]ENDSUB二、填空题6.设A=3,B=2,C=-1,QBASIC逻辑表达式ABANDCAORNOTCBANDAB的值为_____[0]7.数学式2lnxsin2y+arctan4zcos5w的QBASIC表示为_____[2*LOG(X)*SIN(2*Y)+ATN(4*Z)*COS(5*W)]8.下列QBSIC语句所定义的数组的数据类型是_____[双精度]型的。DIMDPN#(8,4)9.下面程序是在屏幕上指定的位置打印新年贺卡,请将程序补充完整。CLSSCREEN0FORi=1TO5READrow,col,text$LOCATE_____[rowcol]PRINTtext$NEXTiDATA7,10,ToDearmissLiuDATA10,25,X'sChristmasDATA11,31,andDATA12,25,GoodLuck!DATA15,40,SincerelyYoursElleEND10.下面程序运行时输出的结果是_____[80]x=-99READZWHILEZ-9999IFZXTHENX=ZREADZWENDPRINTXDATA-8,0,-70,36,80,76,-9999END11.下面程序运行后，输出的结果是_____[9]FORJ=1TO10IFJMOD30THENA=A+J\3NEXTJPRINTAEND12.下面程序的输出结果为_____[AREAIS120]和_____[AREAIS330]DEFFNA(B,H)=B*H/2X=12:Y=20PRINTAREAIS;FNA(X,Y)B1=X+10H1=Y+10Q=FNA(B1,H1)PRINTAREAIS;QEND13.下面程序运行后，输出的结果是_____[45]FORJ=1TO10A(J)=3*JB(J)=A(J)*3NEXTJPRINTB(J/2-0.1)END14.下面程序运行后的输出是_____[468.3123]A=12.3:B=456:C$=123D$=STRS$(A+B)+C$PRINTD$END15.下程序运行后输出Y的值是_____[61]FORA=1TO5Y=1FORB=1TO10FORC=1TO6Y=Y+1NEXTCNEXTBNEXTAPRINTY=；YEND16.下列程序运行后输出的结果是_____[12]FORJ=1TO3GOSUBF:M=M+NNEXTJPRINTMENDN=N+2RETURN二、填空题6.数学式2sinx+3cosx+|y|-actan2x+1nx的QBASIC表达式为_____[2*SIN(X)+3*COS(X)+ABS(Y)-ATN(2*X)+LOG(X)]7.下面是一个求四个圆柱体体积之和的程序，各个圆柱体的半径及高的数据用READ/DATA语句读入。请把空格处补充完整。DEFFNA(R,H)=3.14159*R*R*HVOL=0FORL=1TO4READA,BVOL=VOL+_____[FNA(A,B)或3.14159*A*A*B]NEXTLDATA1,2,3,4,5,6,7,8PRINTVOL=;VOLEND8.下列程序是画一条半径为20个单位，圆心在(50，50)的圆。请将程序补充完整。CLS:SCREEN1,0:COLOR3CIRCLE_____[(50,50),20]END9.下列程序运行后输出V的值是_____[333.3]M$=333.3:N$=-444.4L$=M$+N$V=VAL(L$)PRINTVEND10.下列程序运行后输出X的值是_____[10]M=1N=INT(RND(M))ONN