第三题、 简单程序(共 15 分,每项 1.5 分)
1. 执行以下语句后,变量 A 的值为多少______。 A=1 for I=1 to 4 A=A*I+I endfor A.85 B.86 C.87 *D.88 2. 在表单 FORM1 中,有一个计时器控件 TIMER1,其 INTERVAL 属性是用来定时引发 TIMER 事件的, 其初值为 2000,单位为毫秒,TIMER1 的 ENABLED 属性为 F;另外在 FORM1 中还有一 个文本框 TEXT1 及一个按纽 CMD1,TEXT1 的 VALUE 属性初值为 0,CMD1 的 CAPTION 属性初值为" 开始"。下面是事件代码: CMD1.CLICK 事件代码: IF THISFORM.TIMER1.ENABLED=.T. THEN THISFORM.TIMER1.ENABLED=.F. THIS.CAPTION="开始" THISFORM.TEXT1.CAPTION=0 ELSE THISFORM.TIMER1.ENABLED=.T. THIS.CAPTION="结束" ENDIF TIMER1.TIMER 事件代码: THISFORM.TEXT1.VAULE=THISFORM.TEXT1.VALUE+10 当程序运行时,第一次单击 CMD1,5 秒后,按钮 CMD1 上显示什么,文本框里显示内 容为什么? A.开始,20 *B.结束,20 C.开始,30 D.结束,30 3. 在表单 FORM1 中有:一个按钮 CMD1、一个文本框 TEXT1、及一个标签 LABEL1, 其 CMD1 的 CLICK 事件代码为:
thisform.label1.caption=thisform.text1.value thisform.refresh 在程序运行时,标签 label1 显示的内容为"china",后来在文本框 TEXT1 中输入"中国", 然后单击按钮 CMD1,此时标签 label1 显示的内容为______。 A.china B.CHINA *C.中国 D.无内容显示 4. 设有如下程序段: A=10 B=20 C=30 IF A>B IF C>A C=A+B ELSE C=A-B ENDIF ENDIF ?C 执行该程序,显示结果为_______。 *A.30 B.-10 C.10 D.40 5. 运行下面程序,输出的结果系列是什么? DOMENSION A(5) A(1)=4 A(2)=6 A(3)=10 A(4)=2 A(5)=8 S=0 M1=A(1) M2=A(1) FOR I=1 TO 5 S=S+A(I) IF M1
M1=A(I) ENDIF IF M2>A(I) THEN M2=A(I) ENDIF ENDFOR ?S ?S/5 ?M1 ?M2 A.25,5,10,2 *B.30,6,10,2 C.2,10,6,10 D.30,5,8,4 6. 执行以下语句后,变量 X 的值为多少______。 D1={^2001/03/20} D2={^2001/04/23) X=D2-D1 A.{^0000/01/03} B.33 *C.34 D.{^0000/01/04} 7. STUDENT 是一个表文件,执行下列语句后,输出的结果是_______? USE STUDENT GO bottom ?BOF() *A..F. B..T. C.Y D.N 8. 有一表 BOOKS,表内容如下所示 RECORD# 书号 1 P8291D 2 P1322F 3 B1963E 书名 操作系统 接口技术 离散数学 作者 王仲一 刘达 周云飞 定价 12.00 13.00 9.30
4 F9136h 单片机 于群 8.50 执行如下命令序列,命令 LIST 所显示数据记录中,记录号顺序是什么? USE BOOKS INDEX ON 书号 TO SH SET INDEX TO SH LIST A.1,2,3,4 B.4,3,2,1 *C.3,4,2,1 D.3,4,1,2 9. 下列程序的功能为______。 USE LOCATE FOR 性别="女" DO WHILE NOT EOF( ) IF ="杜晓青" DELETE ENDIF CONTINUE ENDDO PACK USE A.将性别为“女” 的所有教师的记录删除 B.将性别为“女” ,名字为“杜晓青”的教师记录逻辑删除 C.将名字为“杜晓青”的教师记录删除 *D.将性别为“女” ,名字为“杜晓青”的教师记录物理删除
10. 下列程序运行结果为______。 S=10 FOR K=8 TO 1 STEP –2 S=S+K ENDFOR ?S A.10 B.20 *C.30 D.40 11. 执行下列程序显示结果为______。
*MAIN.PRG X=5 Y=7 DO SUB1 ? X,Y *****子程序 PROCEDURE SUB1 PRIVATE Y X=10 Y=X RETURN A.5 7 B.10 5 C.5 10 *D.10 7 12. 在 FORM1 中有文本框 TEXT1, 标签 LABEL1, 及按钮 CMD1, 文本框 TEXT1 的 VALUE 属性初值为 0,按钮 CMD1 的 CLICK 事件代码为: n=thisform.text1.value x=2 s=0 for k=1 to n x=1+1/x s=s+x endfor thisform.label1.caption=alltrim(str(s)) thisform.refresh 程序运行时,如果在 TEXT1 中输入数字 3,然后单击 CMD1,请问在标签 LABEL1 中显 示结果为______。 A.5.1 B.5.2 *C.5 D.4 13. 运行 MAIN.PRG 程序,显示结果为_________。 *main.prg x=3 y=3
do sub.prg ?y return *sub.prg private x,y,z x=3 y=4 z=x+y return *A.3 B.4 C.7 D.无 14. 下列程序中 DO 循环循环体执行的次数为______. K=20 L=25 DO WHILE L>=K L=L-1 ENDDO A.0 B.5 *C.6 D.不确定 15. 阅读下面的程序,最后一句的含义是_______? USE STUDENT LIST STURCTURE LIST DISPLAY USE A.关闭记录 B.打开当前库 *C.关闭当前库 D.显示记录 16. 阅读下面的程序,第 3 句的含义是_______。 USE
STUDENT LIST FOR 年龄>18 SKIP -1 DISPLAY GO TOP A.显示 B.显示年龄等于 18 岁的记录 C.显示结构 *D.显示年龄大于 18 岁的记录 17. 运行下列语句后,当前记录是________。 SELECT 1 USE STUDENT GO 5 USE TEACHER IN 0 A.1 区 5 号记录 B.2 区 5 号记录 C.0 区 1 号记录 *D.2 区 1 号记录 18. 根据 CJ.DBF 表执行下面的程序,结果是_______。 ***CJ.DBF ___________________________ XM GRADE ___________________________ 李红 90 王芳 78 吴江 92 刘庆 69 张华 81 ____________________________
set talk off use cj sum=0 do while recno()<=reccount() sum=sum+grade skip enddo ?sum average=sum/reccount()
?average use
*A.410,82 B.408,81.6 C.410,80 D.410,81.6 19. 运行下面程序,输出的结果系列是什么? F1=1 F2=1 FOR I=1 TO 4 ?F1 ?F2 F1=F1+F2 F2=F2+F1 ENDFOR A.1,1,2,3,4,5,6,7 *B.1,1,2,3,5,8,13,21 C.1,2,3,5 D.1,1,2,3 20. 下列语句执行完毕后,输出的结果是_______。 A=1 B=2 IF A>B A=A-B ELSE A=A+B ENDIF ?A A.–1 B.1 C.2 *D.3 21. 下列程序是实现输入一组数据, 以-1 为结束标志, 统计输入数据的个数, 请为程序空白处选择正确的答案. N=0
INPUT TO X ______ N=N+1 INPUT TO X ENDDO ?N A.DO WHILE X=1 *B.DO WHILE X<>-1 C.FOR I=1 TO X D.SCAN 22. 执行如下程序,如果输入 X 的值为 5,则最后 S 的显示值为________。 SET TALK OFF S=0 I=1 INPUT “X=” TO X DO WHILE S<=X S=S+I I=I+1 ENDDO ?S SET TALK ON A.1 B.3 C.5 *D.6 23. 下列程序的运行结果是______。 A=10 IF A=10 S=0 ELSE S=1 ENDIF ?S S=2 ?? S A.0 1 *B.0 2
C.1 1 D.1 2 24. 有以下 VFP 程序: SET TALK OFF DO WHILE .T. CLEAR ? "1.查询 2.打印" ? " 3.维护 4.退出" ACCEPT "请输入选择(1-4)" TO GG DO CASE CASE GG="1" DO CX CASE GG="2" DO DY CASE GG="3" DO WH C
ASE GG="4" EXIT OTHERWISE LOOP ENDCASE ENDDO RETURN 运行此
程序时,如果输入了 1~4 以外的字符将会______。 A.使程序停止运行 *B.重新显示菜单 C.死循环 D.使程序出错 25. 有一个自定义函数 AA.PRG 如下: *AA.PRG PARAMETER X,Y SET TALK OFF F=X-Y RETURN F 运行下列程序的结果是______。 * MAIN.PRG SET TALK OFF A="28" B="18"
?AA(A,B) *A.2818 B.10 C.1828 D.0 26. 在表单 FORM1 中有:一个按钮 CMD1、一个文本框 TEXT1、及两个标签 LABEL1、 LABEL2, LABEL1.CAPTION='ABC' LABEL2.CAPTION='ADC'其 CMD1 的 CLICK 事件代码为: I=thisform.label1.caption k=thisform.label2.caption if I>=k then thisform.text1.value=I else thisform.text1.value=k endif 运行时我们单击 CMD1 按钮,TEXT1 显示内容为______。 A.ABC *B.ADC C..adc D.无内容显示 27. 运行下列程序, “?X”命令显示结果为______. Y=0 X=100 DO WHILE X>0 Y=Y+X X=X-10 ENDDO ? X *A.0 B.10 C.20 D.100 28. 阅读下面的程序,第 4 句的含义是________? USE STUDENT GO BOTTOM
?RECNO() ?RECCOUNT() USE A.输出记录总数 B.输出记录号 C.输出最大记录 *D.输出实际记录个数 29. 下面程序的运行结果为_______。 set talk off tt=0 ss=0 do while .t. tt=tt+1 ss=7*tt if mod(tt,2)=0 loop else ??ss endif if tt>=7 exit endif enddo A.7,14,21,35 B.7,21,35,42 *C.7,21,35,49 D.7,21,28,35 30. 现有表 XSCJ.DBF(记录数为 10) ,执行下列操作: USE XSCJ GO 7 SKIP ?RECNO( ) 屏幕显示的结果是______。 A.6 *B.8 C.7 D.9
31. 有如下程序: INPUT TO A IF A=10 S=0 ENDIF S=1 ?S 假定从键盘输入的 A 的值一定是数值型的,那么上面的条件选择程序的执行结果是 ________。 A.0 *B.1 C.由 A 的值决定 D.程序出错 32. STUDENT 是一个表文件,执行下列语句后,输出的结果是________? USE STUDENT GO TOP ?BOF() A..T. *B..F. C.Y D.N
第二卷 主观题 填空题(共 30 分,每项 2 分。注意:填两个空的题的时候,要按照 从上至下,从左至右的顺序添入答题卡! )
1. 下列程序是求 1!+2!+…+10!,请完成下列程序 S=0 T=1 FOR I=1 TO 10 T=T*I S=_________ S+T ENDFOR ?"1!+2!+…+10!=",S
2. 下列程序可以求 1-100 之间偶数的和,请完成程序 SET TLAK OFF S=0 N=0 DO WHILE ________ N<100 N=N+2 S=S+N ENDDO ?"1-100 偶数之和:",S 3. 在表 STUDENT 中已有若干记录,下面的程序是显示出表 STUDENT 中所有记录, 请完成程序 SET TLAK OFF I=1 DO WHILE NOT EOF() I=________ I+1 DISPLAY GO I ENDIF USE 4. 完成下列
查询全部女生的程序 SET TALK OFF USE STUDENT LOCATE FOR 性别="女" DO WHILE .T. DISPLAY CONTINUE IF _______ EOF() EXIT ENDIF ENDDO 5. 下列程序用于逐个显示职称为教授的数据记录,请完成程序 SET TALK OFF USE TEACHER DO WHILE NOT EOF() CLEAR IF 职称<>"教授" THEN
SKIP ______ LOOP ENDIF DISPLAY WAIT "按任意键继续!" ENDDO USE 6.
计算机等级考试的查分程序如下,请填空。 SET TALK O
FF USE STUDENT INDEX ST ACCEPT "请输入准考证号:" TO NUM SEEK _________ NUM IF ________ FOUND() ?,"成绩:"+STR(成绩,3) ELSE ?"没有此考生!" ENDIF USE SET TALK ON 7. 下面程序是化简分数,分子 M、分母 N 的最大公约数求法使用辗转相除法, 请完成下列程序。 *SUB.PRG PARAMETERS M,N IF M______ THEN
0 M=N N=R R=_____ M%N 或 MOD(M,N) ENDDO RETURN N *MAIN.PRG ACCEPT "请输入分子:" TO X ACCEPT "请输入分母:" TO Y
K=SUB(X,Y) X=X/K Y=Y/K ?"化简后分子为:",X ?"化简后分母为:",Y 8. 下面的程序是找出