1、”，T（1）T=0（2）INPUT（3）2*I第4题：复制表XSDA.DBF，生成新表XS.DBF，在新表中查找所有男同学的记录，并将男同学的记录逻辑删除。USE XSDAUSE XSLOCATE FOR 性别=“男”DO WHILE FOUND（）USE（1）COPY TO XS（2）DELETE（3）CONTINUE第5套：表RSDA.DBF结构为：姓名（C，6）；性别（C，2），年龄（N，2），出生日期（D，8）。判断表中是否有“李明”，查询此人的性别及年龄，确定参加运动会的项目。USE RSDA】FOR 姓名=“李明”IF .NOT.【 ？DO CASECASE 性别=“男”“请参加爬
2、山比赛”CASE 年龄=50“请参加投篮比赛”=60“请参加老年迪斯科比赛”*SPACE*【 ？ELSE“查无此人”BROWSE（1）LOCATE（2）EOF（）（3）ENDCASE第6题：显示所有100以内的6的倍数的数，并求这些数的和。I=1=100*SPACE*IF MOD（【 ？】）=0IS=S+II=I+1“S=”，S（1）S=0（2）I，6（3）ENDIF第7题：通过循环程序输出图形： 1 321543217654321FOR N=1 TO 4*SPACE*FOR M=1 TO 【 ？“”FOR M=1 TO 2*N-1STR（【 ？】，1）（1）？（2）8-N*2（3）2*N-M
3、，1第8题： * * * *CLEARFOR N=1 TO 9IF NMAX1NN=RECNO（）“最高成绩：学号=“+学号+”，姓名=“+姓名+”，成绩=“成绩（1）EOF（）（2）SKIP（3）GO NN第14题：从键盘输入某设备的名称，如果找到显示其编号和价格，找不到时给出“无此设备”的提示。USE SBMC=SPACE（4）10，10 SAY“输入设备名称：” GET MCLOCA FOR 名称=【 ？DISP 编号，价格“无此设备” WINDOWS（1）READ（2）MC（3）FOUND（）第15题：对表XSCJ.DBF，如下程序可以完成：1、显示全体同学的记录，2、显示全体男同学的
4、记录，3显示全体女同学的记录0退出DO WHILE .T.10，10 SAY “1、显示全体同学的记录，2、显示全体男同学的记录”14，10 SAY “3、显示全体女同学的记录，0、退出”16，16 SAY “ ”WAIT “请输入选择（03）：” TO XCASE X=“1”LISTCASE X=“2”LIST ALL FOR 性别=“男”CASE X=“3”LIST ALL FOR 性别=“女”CASE X=“0”ENDCASE（1）USE XSCJ（2）EXIT（3）ENDDO第16题：求1到100之间的奇数积、偶数和。S2=1FOR I=1 TO 100IF MOD（I，2）=【 ？S
5、1=S1+IS2=【 ？NEXT“奇数积为：”，S2“偶数和为：”，S1（1）S1=0（2）0（3）S2=S2*I第17题：下面是计算1+3+5+99之和的程序FOR I=1 TO 99【 ？“结果=”，【 ？（1）S=0（2）STEP 2（3）S第18题：在XSDB.DBF数据表中查找学生王迪，如果找到，则显示：学号、姓名、英语、出生年月日，否则提示“查无此人！”XM=“王迪”】姓名=XMIF FOUN（）】 学号，姓名，英语，出生年月日“查无此人！（1）USE XSDB（2）LOCATE FOR（3）DISPLAY第19题：依次显示XSDB.DBF数据表中的记录内容DO WHILE【 ？D
6、ISPUSE XSDB（2）.NOT. EOF（）（3）SKIP第20题：求1到50的累加和（S=1+2+3+50）并显示H=H+IH（1）H=0（2）IOTHERWISEY=Y+X“0100之间的奇数之和为：”，Y（1）MOD（X，2）=0（2）EXIT（3）ENDDO第22题：下面程序根据XSDB.DBF数据表中的计算机和英语成绩对奖学金做相应调整，双科90（包括90）分以上的每人增加30元；双科75分以上（包括75）的每人增加20元；其他人增加10元。USE XSDBCASE 计算机=90 AND 英语=90REPLACE 奖学金 WITH 奖学金+30=75 AND 英语=75REPL
7、ACE 奖学金 WITH 奖学金+20REPLACE 奖学金 WITH 奖学金+10（1）.not. eof（）（2）OTHERWISE（3）SKIP第23题：列出XSDB.DBF数据表中法律系学生记录，将结果显示输出IF 系别=“法律”IF EOF（）（1）USE XSDB（2）SKIP（3）EXIT第24题：统计300到600之间（包括300和600）能被3整除的数的个数。GS=0N=300IF MOD（N，3）=0“300到600之间（包括300和600）能被3整除的数的个数为”，GS（1）N=600（2）GS=GS+1（3）N=N+1第25题：查找XSDB表中计算机成绩最高分的学生，将
8、其姓名和计算机字段的内容显示出来，如：王迪98MAX=计算机DO WHILE .NOT. EOF（）IF MAX计算机XM，MAX（1）XM=姓名（2）XM=姓名（3）SKIP第26题：显示输出图形* * *CLEASPAC（10-1）J=1DO WHILE J=90 and 英语=90（2）OTHERWISE（3）CONT第28题：求0100之间的偶数之和，超出范围则退出。STOR 0 TO 【 ？IF MOD（I，2）=0S（1）I，S（2）I100（3）S=S+I第29题：求1到100之间的奇数之和、偶数之和，并将奇数之和存入S1、偶数之和存入S2显示输出。STOR 0 TO S1，S2
9、S2=S2+IS1，S2（1）MOD（I，2）0（2）ELSE（3）I=I+1第30题：找出xsdb.dbf中奖学金最高的学生记录并输出。MAX=0奖学金JLH=RECN（）SKIPMAXDISP FOR RECN（）=JLH（1）USE XSDB（2）！EOF（）（3）STOR 奖学金 TO MAX第31题：显示输出图形；*DO WHILE 【 ？=7-2*IJ=J+1（1）I4（2）？“*”（3）I=I+1第32题：数据表文件DA.DBF存放的是某单位职工的档案，在下面程序中，用户通过按A键或者B键，可分别显示出全体女职工的或全体男职工的记录，已知A键的ASCII为65，B键的ASCII为66，ESC键的ASCII为27。JP1=LIST FOR 性别=“男”JP2=LIST FOR 性别=“女”USE DA1，10 SAY “A-全体女职工 B-全体男职工 ESC-退出”K=INKEY（0）DO CASE CASE K=65WAITCASE K=66EXIT（1）&jp2（2）&jp1（3）CASE K=27第33题：共有三个表tb1.dbf tb2.dbf tb3.dbf下面程序功能是把每个表的末尾记录删除。N=1DO WHILE N=【 ？TB=【 ？TBDELEPACKEND
