SECJ<59
输入表名,如果存在,则显示该表中所有字段,否则输出‘找不到该文件’。
FNAME
(4)(5)
?fields(i)
2008-2009学年第二学期VFP练习二——表操作
EXITENDIFENDDSETTALKON(4)A、FILE(FNAME)C、FILE(&;FNAME)(5)A、I
'N'C、IF!UPPER(X)#'N'程序三【程序说明】(07春)输入字符串“000”,则结束查询。【程序】SettalkoffUse成绩(7)Accept‘输入=’toxhIf(8)loopEndifIfallt(xh)=’000’(9)EndifLocafor=allt(xh)Iffound()Dowhil!eof()Disp(10)enddoElse?‘没有该’EndifEnddoUseSettalkon【供选择的答案】(7)A、dowhiltC、fori=1torecc()(8)A、allt(xh)=0C、len(allt(xh))=0(9)A、loopC、skip-1(10)A、contC、skip-1B、FILE('FNAME')D、FILE(FNAME+.DBF)B、I<=FCOUNT()D、I<=RECCOUNT()B、IFLOWER(X)='N'D、IFUPPER(X)='n'
输入,显示该的所有成绩;若用户输入空串或空格串,系统要求用户重新输入;当用户
B、dowhileof()D、dowhil.t.B、len(str(xh))=0D、allt(xh)=’0’B、exitD、skip100B、skipD、gon
第4页共8页
2008-2009学年第二学期VFP练习二——表操作
程序四阅读下列程序(段)并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。(06春)【程序】SETTALKOFFUSE学生DISPLAYNEXT3?RECNO()APPENDBLANK?RECNO()LOCAFOR奖学金=50CONT?RECNO()REPL奖学金with100ALL?RECNO()USESETTALKON【供选择的答案】(11)第一个显示的RECNO()值为A、2A、5A、1B、3B、6B、6C、4C、7C、7(12)第二个显示的RECNO()值为D、8。D、8。(13)第三个显示的RECNO()值为(14)第四个显示的RECNO()值为。D、5。&;&;第四个显示&;&;第三个显示&;&;第二个显示&;&;第一个显示
A、1B、6C、7D、8程序五:阅读下列程序(段)并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。(08秋)【程序】SETTALKOFFCLEAUse学生ACCEPT‘输入班级号=’TOASTORE0TOS1,S2,S3,S4DOWHILE!EOF()IFSUBSTR(,1,3)=ALLT(A)S3=S3+奖学金S4=S4+1IF性别S1=S1+奖学金ELSES2=S2+奖学金ENDIFENDIF
第5页共8页
2008-2009学年第二学期VFP练习二——表操作
SKIPENDDO?”S1=”,S1,”S2=”,S2?”S3=”,S3,”S4=”,S4USESETTALKON【供选择的答案】(15)当输入班级号为951时,输出值S1为A、0A、0A、0B、50B、1B、125C、75C、4C、75D、25。D、75。D、50。(16)当输入班级号为951时,输出值S2为(17)当输入班级号为951时,输出值S3为(18)当输入班级号为951时,输出值S4为。
A、1B、2C、4D、3程序六:阅读下列程序(段)并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。(07秋)【程序】SETTALKOFFCLEASETDELEONUse学生LISTNEXT2?=5REPLWITH‘王五’STORETO?,,M.GO1DELEGOTOP?DISPREST?RECNO()USESETTALKON【供选择的答案】(19)第一个显示?的值为A、953008A、王五C、55王五5B、951001B、9540065(20)第二个显示?,,M.的值为B、王五王五D、5。C、951003D、9530085。C、951