2006年6月24日计算机二级VFP试题.doc

2006年6月24日全国高校计算机等级考试（广西考区）二级VFP试题第一卷（本卷共35项，每项2分，共70分）第一部分：基础知识1. 在VFP中,（ ）是合法的字符串。Afoxpro Bfoxpro Cfoxpro D”foxpro”2. 在VFP中，ROUND（123456.789，-2）的值是（）123456.78123456.79123500-123456.793. 与数据表文件同名,但扩展名为.CDX的文件是与该数据表对应的（）结构化复合索引文件非结构化复合索引文件单索引文件 压缩的单索引文件4. 在Visual FoxPro中,如果希望跳出SCANENDSCAN循环体,执行ENDSCAN后面的语句,应使用（）LOOP语句 EXIT语句 BREAK语句 RETURN语句5. 在Visual FoxPro中,使用LOCATE FOR 命令按条件查找记录,当查找到满足条件的第一条记录后,如果还需要查找下一条满足条件的记录,应使用（）再次使用LOCATE FOR 命令 BSKIP命令CONTINUE命令 GO命令6. 已打开的表文件当前记录号为150,要将记录指针移向记录号为100的记录,其命令是（）SKIP 100SKIP 50GO -50GO 1007. 如果要计算所有职称为正、副教授的平均工资，并将结果赋予变量PJGZ中，应使用命令是（）AVERAGE FIELDS 工资 TO PJGZ FOR 职称=”正、副教授”AVERAGE FIELD工资 TO PJGZ FOR ”教授”$职称AVERAGE 工资 TO PJGZ FOR 职称=”副教授” .and. 职称=”正教授”AVERAGE 工资 TO PJGZ FOR 职称=”副教授” .or. 职称=”正教授”8. 要将已打开的XS.DBF中包括字段“姓名”、“性别”、“职务”等，要将所有性别为“男”且职务为“班干部”的记录复制到一个电子表格STD.XLS，应使用命令（）USE XSCOPY TO STD.XLS FOR 性别男 .OR. 职务班干部USE XSCOPY STD.XLS FROM STUDENT FOR 性别男 .AND. 职务班干部USE STUDENTSAVE TO STD.XLS FOR性别男 .AND. 职务班干部COPY TO STD FOR性别男 .AND. 职务班干部TYPE XLS9. 在VFP中，以独占方式打开数据表文件的命令短语是（）EXCLUSIVE SHARED NOUPDATE VALIDATE10. 若当前表有10条记录，当BOF（）为真时，命令？RECNO（）的显示结果是（）1-101011. 在创建表单时，用（）控件创建的对象用于保存不希望用户改动的文本标签文本框编辑框组合框12. 关系数据库的任何检索操作都是由三种基本运算组合而成的，这三种基本运算不包括（）连接比较选择投影13. 在VFP中，删除数据库表XS的SQL命令是（）DROP TABLE XS DELETE TABLE XSDELETE TABLE XS.DBF ERASE TABLE XS14. 报表的数据源可以是（）自由表和其它报表自由表和数据库表自由表、数据库表和视图自由表、数据库表、查询和视图15. VFP的参照完整性规则不包括（）更新规则 查询规则 删除规则 插入规则第二部分：简单程序一编程计算1+2+3+100，并求1100之间的偶数之和 _16_ do while _17_ i=i+1 s=s+i if _18_ t=t+i &统计偶数之和 endif enddo ? “1+2+100=”,s ? “1100的偶数之和”,t16. Astore 0 to i,s,t Bstore i,s,t with 0 Cclear i,s,t Dstore 0 to i、s、t17. Ai=100 Bi100 Ci=60 .OR. 机试成绩=60 B笔试成绩=60 .AND. 机试成绩=60 CXSDA.笔试成绩=60 .AND. XSDA.机试成绩=60DKS.笔试成绩=60 .OR. KS.机试成绩=6021. ACOPY FROM KS BAPPEND KS CAPPEND FROM KS FOR 合格否=.T. DAPPEND FORM KS FOR 合格否三完善下列程序，从键盘输入一串字符串，然后以反序输出,并统计其中数字的个数Accept “请输入字符串” to s1 L=len(s1) s2=” cs=0 for _22_ c=substr(s1,i,1)if _23_ cs=cs+1 endif s2=s2+c _24_ ? “输入的字符串为:”+s1 ? “反序的字符串为:”+s2 ? “数字个数为:”+str(cs) return22. Ai=1 to L Bi=L to 1 Ci=L to 1 step -1 Di=L to 0 step -123. Ac1 .and. c0 .and. c=0 .and. c=0 .or. c=924. Aendif Bendfor Cenddo Dend for四下面程序用于对任意指定的数据表进行追加、删除操作,请在程序中的空格处填上适当的内容.Accept “请输入数据表名:” to fnameUse _25_ ? 1 追加记录 ? 2 删除记录 Wait “请选择” to ch If _26_ append else input 请输入要删除的记录号 to n _27_ delete pack endif use return25. Afname B”fname” C&fname Dto fname26. Ach=1 Bch=2 Cch=”1” D”ch=1”27. Ago n Bgoto &n Cgo top Dgo “n”五下列有两个程序,根据运行结果，选择适当内容填入空格处。 *main.prg* clear set talk off x=5 y=10 z=1000 set proc to b do p1 with x,y ? x,y,z &结果显示_28_ x=5 y=10 z=1000 do p2 with x,y ? x,y,z &结果显示_29_ x=5 y=10 z=100 do p2 with _30_ ? x,y,z &结果显示5 30 100_31_ set talk on *proc b.prg* proc p1 para s1,s2 s1=s1*5 s2=s2+10 return proc p2 para x,y private z x=10 y=x+20 z=x+y return28. A25 20 1000 B5 10 1000 C15,50,1000 D50,20,100029. A5 10 1000 B25 20 1000 C10 30 1000 D10,30,4030. Ax,y By,x Cy,y Dx,x31. Aset proc to Bclose proc to Cclear proc to Dclear proc六人事表rs.dbf中包含有出生日期(日期型)、基本工资、扣款等字段,要求按年龄段进行扣款,下面程序是通过过程计算扣款字段值,请为空格处选择适当的内容. set talk offuse rs _32_ do while !eof() gz=基本工资 do sub with _33_ repl 扣款 with kk_34_ enddo use set talk on *sub.prg* _35_ n=year(date()-year(x) do case case n=30 z=y*0.2 case n30 z=y*0.3 case n40 z=y*0.4 endcase return32. Akk=0 Bgo top Cskip top Duse33. Ars.dbf B出生日期,gz,kk Cx,y,z Dgz,kk,出生日期34. Askip -1 Bskip Cskip next Dgo next35. Apublic x,y,z B空 Cpara x,y,z Dprivate x,y,z第二卷 程序设计（本卷共10项，每项3分，共30分）一设计一个如图所示的表单，上面的计时器timer1用于控制显示文字“欢迎使用”的标签label1在表单中左右反复移动（初始时标签从窗口右边边缘自右向左移动，每当标签全部移出窗口时，标签反向移动，形成来回运动），标签每0.1秒移动一次，每次移动距离为10.(1) 设置表单的Init事件代码如下： public flag flag1= -1 thisform.label1.left=_1_(2) 计时器timer1的Interval属性值应设为_2_(3) 计时器timer1的timer事件代码如下：if thisform.label1.left=thisform.width &标签移出右边界 flag= -1endifif flag1=1 _4_ &标签自左向右移动else _5_ &标签自右向左移动endif二设有如下图表单，用于通过学号查询学生信息表中的记录，已知：1表已按学号建立索引，索引标识为“学号”。