VFP程序强化训练一、分析程序运行结果1、设X和Y均为整型变量，下列程序的运行结果为：SETTALKOFFCLEARX=1FORI=1TO50IFX>=10EXITENDIFIFX%2=0X=X+5LOOPENDIFX=X-3ENDFOR?XSETTALKONRETURN2、设I为整型变量，则下面程序的执行结果为：CLEARFORI=10TO4STEP-1IFI%3#0I=I-1ENDIFI=I-2ENDFOR?I3、下面程序的执行结果为：CLEARFORI=0TO1I=I+1FORJ=0TO3IFJ%2#0LOOPELSEI=I+1ENDIFENDFORI=I+1ENDFOR？I4、下列程序是计算的，执行后的结果是X=1S=0DOWHILEX<=100S=S+XX=X+2ENDDO?”S=”+STR(S,4)5、下面程序的执行结果为：A=10B=20C=40IFA>BIFC>AC=A+BELSEC=A-BENDIFENDIF?C6、运行下列程序后,输入的X,Y,.Z的值分别为3,4,10,则程序的运行结果为INPUT“请输入X的值:“TOXINPUT“请输入Y的值:”TOYINPUT“请输入Z的值:”TOZIFMAX(X,Y)=60?”计算机等级是”+”及格”CASE计算机>=75?”计算机等级是”+”良好”CASE计算机>=851?”计算机等级是”+”优秀”ENDCASE8、执行如下程序,如果输入X的值为5,则最后S的显示值为SETTALKOFFS=0I=1INPUT“X=”TOXDOWHILES<=XS=S+II=I+1ENDDO?SSETTALKONRETURN9、下列程序的运行结果为LOCALX1?X1DOP1RETURNPROCEDUREP1X1=1??X1RETURNENDPROC10、设成绩表中有“总分”字段，运行下列程序后，XI显示的值为成绩表中的USE成绩表XI=0SCANXI=MAX（总分，XI）ENDSCAN？XIRETURN11、执行下列程序，运行结果为CLEARI=0DOWHILEI<10IFINT(I/2)=I/2?”W”ENDIF??”ABC”I=I+1ENDDO12、执行下列程序，运行结果为CLEARSTORE.T.TOXSTORE0TOYDOWHILEXY=Y+1IFINT(Y/3)=Y/3??YELSELOOPENDIFIFY>20STORE.F.TOXENDIFENDDORETURN13、设当前目录下有数据表文件学生表,表中共有10条记录,执行下列程序,执行的结果为USE学生表GOBOTTOMFORN=10TO1STEP-1IFBOF()EXITENDIFGONDISPLAYENDFORUSERETURNA)仅显示表中第1条记录B)仅显示表中第10条记录C)按记录号升序逐条显示表中10条记录D)按记录号降序逐条显示表中10条记录14、执行下列程序，运行结果为CLEARLOCALA,BA=100DOCASECASEA<20B=A/BCASEA<50B=A/BCASEA<100B=A/BOTHERWISEB=B2ENDCASE?B15、执行下列程序，运行结果为CLEARSTORE0TOX,YDOWHILE.T.X=X+1Y=Y+XIFX>=10EXITENDIFENDDO?Y16、执行下列程序，运行结果为CLEARFORI=10TO5STEP-2IFI%3=0I=I-1ENDIFI=I-2？？IENDFOR17、执行下列程序，运行结果为SETTALKOFFCLEARDIMENSIONA（6）FORK=1TO6A（K）=20-2*KENDFORK=5DOWHILEK>=1A（K）=A（K）-A（K+1）K=K-1ENDDO？A（1），A（3），A（5）SETTALKONRETURN18、执行下列程序，运行结果为CLEARX=2DOWHILEX<5ANDX>1Y=1DOWHILEYX/2S3=S3+1ENDCASEENDDO?S1，S2，S322、执行下列程序,屏幕第9行上显示的内容是。CLEARSETTALKOFF@4,10SAY"计算二元二次方程式的值"X=13Y=2@9,5SAY"X**2+2*X*Y+Y**2="@9,21SAYX**2+2*X*Y+Y**2SETTALKONRETURN二、程序填空题1、STD.DBF中的记录有：姓名（C，8）、课程名（C，16）、成绩（N，3，0）等字段，下面一段程序用于显示所有成绩及格的学生的信息，请在程序空缺处作适当的选择。SETTALKOFFCLEARUSESTDGOTOPDOWHILE.NOT.EOF()IF?”姓名:”+姓名,”课程:”+课程名,”成绩”+STR(成绩,3,0)ENDIFENDDOUSESETTALKONRETURN2、已经建立了工资数据库文件GZB.DBF,要修改其中基本工资字段值,请填空.SETTALKOFFCLEARUSEGZBACCEPT“清除基本工资数据吗?(Y/N)”TOXIFREPLACEALL基本工资WITH0ENDIFGOTOPBROWSEFIELDS姓名,基本工资USERETURN3、下列程序用来求1+2+3+……+100的值。S=0FORS=S+NE...
