2006年辽宁省毕业生升本科学校继续学习招生考试计算机VF真题

第二部分：计算机高级语言（Visual ForPro语言）在以下各题中，如果要用到数据库表教师.DBF和学院.DBF，均依据以下表的结构与内容为准。

所以用教师.DBF和学院.DBF的程序均使用下面的原始数据，即不考虑各程序运行的影响。

教师.DBF学院.DBF（学院表）四.填空题（将正确答案填写到答题卡的相应位置上。

每空2分，共10分）41. ?LEN( SUBSTR(REPLICA TE(“*”,5),2,3))的显示结果_____________________。

42.某数据库表中有30个记录，如果当前记录为第1条记录，再使用SKIP-1,此时，函数RECNO()的值是_____________。

43.每个Visual FoxPro基类都有自己的属性、_____________和事件。

44．Visual FoxPro中可执行的表单文件扩展名是________________。

45.若内存变量ino与字段变量重名，当用?ino命令输出变量值时，输出的是________________变量的值。

五、阅读程序题（阅读下列程序，将正确的运行结果填写到答题卡相应的位置上。

每小题3分，共24分）46．SET TALK OFFCLEARI=0USE 教师TO TOPDO WHILE .NOT.EOF( )IF 主讲课程=”数据结构”I=I+1ENDIFSKIPENDDO?IUSERETURN程序的运行结果为：________________________ 47. SET TALK OFFCLEARI=0USE 教师DO WHILE .NOT.EOF( )REPLACE ALL 工资WITH 工资+400ENDDOGO BOTTOMSKIP -3? 姓名,工资USERETURN程序的运行结果为：________________________ 48. SET TALK OFFCLEARI=0USE 教师A VERAGE 工资TO PJGZ FOR 系号=” 02 ”? PJGZUSEVRETURN程序的运行结果为：________________________ 49. SET TALK OFFCLEARSELECT AUSE 教师INDEX ON 职工号码TO TDX1SELECT BUSE 学院INDEX ON 系号TO TDX2SELECT ASEEK “990007”SELECT BSEEK A->系号？系名程序的运行结果为：________________________ 50.SET TALK OFFCLEARSTORE 1 TO I,JFOR N=1 TO 4@I,J+1 SAY “AB”J=J+1ENDFORRETURN程序的运行结果为：________________________ 51.SET TALK OFFCLEARSELECT 2USE 学院SELECT 1USE 教师JOIN WITH B TO JS FOR 系号=B->系号FIELDS; 职工号,姓名,B->系号,B->系名SELECT 3USE JS? 姓名,系号RETURN程序的运行结果为：________________________ 52.SET TALK OFFCLEARSTORE 1 TO H,M,NDO WHILE H<=2M=M*2N=N+M??”P(”+ STR(H,1)+”)=”+STR(M,2)+”,”H=H+1ENDDO??”N=”+STR(N,2)RETURN程序的运行结果为：________________________ 53. SET TALK OFFCLEARX=0Y=0DO WHILE X<0X=X+1IF INT(X/2)=X/2LOOPY=Y+XENDIFENDDO?”Y=”,YRETURN程序的运行结果为：________________________六、完善程序题（请在答题卡相应的位置上，填写正确语句，使程序完整正确。

）54．在教师表中找出工资最高的教师信息SET TALK OFFCLEARUSE 教师______________ON 工资/DUSE 教师1GO TOPDISPRETURN55. 从键盘输入的10个数中找出最大数SET TALK OFFCLEARINPUT “请输入第一个数：” TO XFOR I=1 TO 9INPUT “请输入下一个数：” TO YIF Y>X________________________ENDIFENDFOR?”最大数=” ,XRETURN56.从键盘输入10个字符串，统计其中有几个含有字母”A”的字符串SET TALK OFFCLEARS=0I=1DO WHILE I<11ACCEPT “输入一个字符串:” TO XIF “A”$X________________ENDIFI=I+1ENDDO?”含有字母A的字符串共有：”, SRETURN57. 在学院表的第2号记录前插入一条新记录SET TALK OFFCLEARUSE 学院GOTO 2________________USERETURN58. 下一段程序用于现实教师表中所有工资超出3000元并且主讲课程是“操作系统”的教师信息SET TALK OFFCLEARSELECT * FROM 教师;________________RETURN59.运行下段程序后，将在屏幕上显示如下乘法表1）12）2 43）3 6 94）4 8 12 165）5 10 15 20 256）6 12 18 24 30 367）7 14 21 28 35 42 498）8 16 24 32 40 48 56 649）9 18 27 36 45 54 63 72 81******MAIN.PRG******SET TALK OFFCLEARFOR J=1 TO 9?STR(J,2)+”)”FOR_____________??STR(I*J,3)ENDFORENDFORRETURN60.如下图：表单名为Form1,表单中有两个命令按钮（Command1和Command2）、两个标签、两个文本框（Text1和Text2）。

假设用户名和口令存储在自由表“口令表”中，当用户输入用户名（保留在Thisform.text1.value中）和口令（保留在Thisform.text2.value中）并单击“登录”按钮时，若用户输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。

以下是命令按钮“登录”的Click事件中的代码：USE 口令表GO TOPflag=0DO WHILE .NOT .EOF ( )IF ALLTRIM(用户名) ==ALLTRIM(thisform.text1.value)IF ALLTRIM(口令) ==ALLTRIM(thisform.text2.value)WAIT ”欢迎使用” WINDOW TIMEOUT 2ELSEWAIT ”口令错误” WINDOW TIMEOUT 2ENDIFFlag=1EXITENDIFSKIPENDDOIF __________WAIT ”用户名错误” WINDOW TIMEOUT 2ENDIF61.显示教师表中职工号为99005的记录SET TALK OFFCLEARUSE 教师INDEX ON 职工号码TO TDXFIND ________DISPLAYUSERETURN七．程序改错题（以下每个小题都有一个错误，请在答题卡相应的位置上写出有错误的语句的行号及改正后的完整语句。

每小题3分，共12分）62.在教师表中，找出工资大于4000元的职工号和人数（1）SET TALK OFF（2）CLEAR（3）USE 教师（4）GO TOP（5）STORE 0 TO S（6）LOCATE FOR 工资>4000（7）DO WHILE FOUND()（8）?职工号（9）S=S+1（10）LOOP（11）ENDDO（12）?S（13）USE（14）RETURN错误的行是：______________________改为：______________________________63.计算1+1*2+1*2*3+......+1*2…*10(1) SET TALK OFF(2) CLEAR(3) T=0(4) FOR N=1 TO10(5) P=1(6) FOR I=1 TO N(7) P=P*I(8) ENDFOR(9) T=T+I(10) ENDFOR(11) ?T(12) RETURN错误的行是：______________________改为：______________________________64.从教师表中物理删除主讲“C语言”和“编译原理”两门课的教师信息（1）SET TALK OFF（2）CLEAR（3）USE 教师（4）DELETE FOR 主讲课程=”C语言” AND主讲课程=”编译原理”（5）PACK（6）USE（7）RETURN错误的行是：______________________改为：______________________________65.查询计算机系教师的工资情况，要求得到的信息包括系名、姓名、工资（1）SET TALK OFF（2）CLEAR（3）SELECT 系名,姓名,工资;（4）FROM教师;（5）WHERE 教师.系号=学院.系号AND 系名=”计算机”（6）RETURN错误的行是：______________________改为：______________________________。