结构化程序设计模拟试卷一、选择题：1..将逻辑值赋给内存变量LZ的正确方法是：A)LZ=".T." B)STORE "T" TO LZ C)LZ=TRUE D)STORE .T. TO LZ2.将98年国庆节的日期赋给内存变量ND的正确方法是：A)ND=DTOC("10/01/98") B)ND=CTOD([10/01/98])C)STORE DATE() TO ND D)STORE 10/01/98 TO ND3.执行命令INPUT "请输入出生日期：" TO MDA TE时，如果通过键盘输入CTOD("01/01/88")则内存变量MDATE的值应当是：A)CTOD("01/01/88") B)"01/01/88"C)日期值01/01/88 D)拒绝接收，MDATE不赋值4.在DO WHILE .T.的循环中，退出循环应使用的命令是：A)LOOP B)EXIT C)CLOSE D)CLEAR5.下列程序的运行结果是：A=10IF A=10S=0ENDIFS=1？SA)0 B)1 C)程序出错D)结果无法确定6.有如下的程序：SET TALK OFFM=0N=0DO WHILE N>MM=M+NN=N-10ENDDO?MRETURN运行此程序后M的值为：A)0 B)10 C)100 D)997.有如下程序：SET TALK OFFSTORE 2 TO S，KDO WHILE S<14S=S+KENDDO？S，KSET TALK ONRETURN此程序运行后的输出结果是：A)22 10 B)22 8 C)14 8 D)14 108.执行如下程序：SET TALK OFFS=0I=1INPUT "N=？" TO NDO WHILE S<=NS=S+1I=I+1ENDDO？SSET TALK ON如果输入N的值为5，则最后S的显示值是：A)1 B)3 C)5 D)69.有如下的程序：SET TALK OFFM=0N=100DO WHILE N>MM=M+NN=N-10ENDDO？M，NRETURN运行此程序的显示结果为：A)0 10 B)10 90 C)90 100 D)100 9010.运行下列程序后，语句?"123"被执行的次数是：I=0DO WHILE I<10IF INT(I/2)=I/2?"123"ENDIF?"ABC"ENDDORETURNA)10 B)5 C)11 D)611.执行语句DIMENSION M(3),N(2,3)后，数组M和N的元素个数分别为：A)1个，2个B)3个，6个C)3个，5个D)4个，12个12.在程序中，如果先用命令DIMENSION Q(2,3)定义了一个数组，再对每个下标变量赋值，Q(1,1)=1,Q(1,2)=2,Q(1,3)=3,Q(2,1)=4,Q(2,2)=5,Q(2,3)=6，然后执行命令？Q(2)，则显示的结果为：A)变量未定义B)4 C)2 D).F.13.有如下程序：(*)SET TALK OFFDIMENSION K(2,3)I=1DO WHILE I<=2J=1DO WHILE J<=3K(I,J)=I*J??K(I,J)??" "J=J+1ENDDO?I=I+1ENDDORETURN运行此程序的结果是：A)1 2 3 B)1 2 C)1 2 3 D)1 2 32 4 63 2 1 2 3 24 914.假设当前数据表中有5个字段：学号(C)、姓名(C)、政治(N)、英语(N)、数学(N)，当前记录指针指向一个非空的记录，有如下命令序列：(*)DIMENSION X(3)SCA TTER TO XLIST MEMORY顺序执行上述命令之后，数组各元素的值分别是：A)数组各元素的值是一串*号，表示数据溢出B)有5个数组元素X(1)、X(2)、X(3)、X(4)、X(5)，分别是当前记录各个字段值C)有3个数组元素X(1)、X(2)、X(3)，分别是当前记录的前3个字段值D)有3个数组元素X(1)、X(2)、X(3)，分别从当前记录开始，连续3个记录的学号字段值15.能够把数组的值存入数据表当前记录的命令是：(*)A)STORE B)REPLACE C)SCATTER D)GA THER16.有如下程序：主程序ZCX.PRG 子程序ZCX1.PRGSET TALK OFF K1=K1+'200'K1='AB' ?K1DO ZCX1 RETURN?K1RETURN执行命令DO ZCX后，屏幕显示的结果为：A)AB B)AB200 C)AB200 D)200AB200 AB200 AB 20017.有如下程序：主程序SS.PRG 子程序SUB1.PRGSET TALK OFF PARAMETER A,BX=10 X=A+10A=2 A=A+BB=3 ?X,A,BDO SUB1 WITH A,B RETURNDO SUB1 WITH A,B?X,A,BSET TALK ONRETURN执行命令DO SS之后，第1行输出的结果是：A)10 5 3 B)12 5 3 C)12 8 5 D)都不对18.有如下的程序：主程序ZZ.PRG 子程序Z1.PRG 子程序Z2.PRGSET TALK OFF X2=X2+1 X3=X3+1STORE 2 TO X1,X2,X3 DO Z2 RETURN TO MASTER X1=X1+1 ? X1+X2+X3DO Z1 RETURN?X1+X2+X3RETURN用命令DO ZZ执行程序后，屏幕显示的结果是：A)9 B)5 C)8 D)419.下面可以使程序单步执行的命令是A)SET STEP ON B)SET ESCAPE ONC)SET DEBUG ON D)SET STEP OFF20.清除主窗口屏幕的命令是A)CLEAR B)CLEAR ALLC)CLEAR SCREEN D)CLEAR WINDOWS21.Visual FoxPro 中DO CASE-ENDCASE属于什么结构A)顺序结构B)选择结构C)循环结构D)模块结构22.在Visual FoxPro中，用于建立或修改程序文件的命令是A)MODIFY <文件名> B)MODIFY COMMAND <文件名>C)MODIFY FILE <文件名> D)上面B和C都对23.下面DO循环中，一共要循环( )次X=10Y=15DO WHILE Y>=XY=Y-1ENDDOA)15 B)10 C)6 D)524.如果要保证循环必须执行至少一次，最合理的循环开头语句是A)DO WHILE .F. B)DO WHILE EOF()C)DO WHILE .T. D)DO WHILE time<325.在Visual FoxPro中，用于建立过程文件PROG1的命令是A)CREA TE PROG1 B)MODIFY COMMAND PROG1C)MODIFY PROG1 D)EDIT PROG126.在交互方式下，可对L型变量输入数据的命令是A)ACCEPT B)W AIT C)READ D)INPUT27.用ACCEPT命令给内存变量输入数据时，内存变量得到的数据类型是A)取决于所输入的数据类型B)数值型C)字符型D)日期型二、填空题1.有3个数A，B，C，其中两个数相等，而另一个数比其他两个数都大，下列程序段的功能是找出其中最大的那个数，请填空。
DO CASECASE？"C="，CCASE？"B="，BCASE？"A="，AENDCASE2.程序A.PRG的功能是求1到100之间所有整数的平方和并输出结果，请填空。
SET TALK OFFCLEARS=0X=1DO WHILE X<=100(1)(2)ENDDO？SRETURN3.阅读下列程序，并给出运行结果。
SET TALK OFFCLEARSTORE 1 TO XSTORE 20 TO YDO WHILE X<=YIF INT(X/2)<>X/2X=1+X^2Y=Y+1LOOPELSEX=X+1ENDIFENDDO？X？YSET TALK ONRETURN运行结果X的值为：，Y的值为：。
4.有如下程序：SET TALK OFFI=1DO WHILE I<=2CLEARINPUT "A=" TO AIF A>INT(A).OR.A>=10LOOPELSEINPUT "B=" TO BIF B=INT(B).AND.B<10LOOPELSE?A,"+",B,"=",A+BENDIFENDIFI=I+1ENDDO执行以上程序，如果依次输入数据 2.5,8,2.5,3,2,2,10，则输出结果是以及。
5.下列程序的功能是删除输入字符串中所含的空格，请填空。
SET TALK OFFACCEPT "请输入字符：" TO XI=2DO WHILE " "$XI=AT(" ",X)(1)I=I+1ENDDO?XRETURN6.执行下列程序，如果依次输入数据2，3.5，3.5，3，2，2，3，则输出结果是。
SET TALK OFFI=1DO WHILE I<=2CLEARINPUT "A=" TO AIF A<>INT(A).OR.A<1.OR.A>99LOOPELSEINPUT “B=” TO B??A,"+",B,"=",A+BENDIFI=I+1ENDDO7.下列程序的功能是对ABC.DBF中的字段"数量"里的数，求其偶数之和，并显示所有偶数，请填空。
SET TALK OFFUSE ABCS=0DO WHILE .T.IF (1)?数量S=S+数量ENDIF(2)IF EOF()(3)ENDIFENDDO？SRETURN8.请阅读下列程序，并根据运行结果填空。
SET TALK OFFM=1DO WHILE M<5N=1??MDO WHILE N<MTT=N+M??TTN=N+1ENDDO?M=M+1ENDDORETURN此程序共显示行数据，第1行是，最后一行是。