答案：B
第7题 （1.0分） 题号:3689
要将表CJ.DBF与Grid对象绑定,应设置Grid对象的两个属性的值如下().
A:RecordSourceType属性为Cj,RecordSource属性为0
B:RecordSourceType属性为0,RecordSource属性为Cj
C:RowSourceType属性为0,RowSource属性为Cj
D:RowSourceType属性为Cj,RowSource属性为0
答案：B
第8题 （1.0分） 题号:3842
下列关于查询的说法,不正确的一项是().
A:查询是Visual Foxpro支持的一种数据库对象
B:查询就是预先定义好的一个SQL SELECT语句
C:查询是从指定的表中提取满足条件的记录,然后按照想得到的输出类型定向输出查询结果
D:查询就是一种表文件
答案：D
第9题 （1.0分） 题号:3116
当某控件对象获得焦点后又失去焦点,将依次激发()事件.
A:When Valid GotFocus LostFocus
B:When GotFocus Valid LostFocus
C:Valid GotFocus When LostFocus
D:Valid When GotFocus LostFocus
答案：B
第10题 （1.0分） 题号:3121
对列表框的内容进行一次新的选择,将发生()事件.
A:CLICK
B:WHEN
C:InterActiveChange
D:GotFocus
答案：C
━━━━━━━━━━━━━━━━
四、多项选择 共5题 （共计10分）
━━━━━━━━━━━━━━━━
第1题 （2.0分） 题号:344
如果要在屏幕上直接看到查询结果,"查询去向"可以选择().
A:屏幕
B:浏览
C:临时表
D:视图
答案：AB
第2题 （2.0分） 题号:345
使用USE <表文件名>命令打开表文件时,能同时自动打开的相关文件有().
A:备注文件
B:独立复合索引文件
C:结构复合索引文件
D:内存变量文件
答案：AC
第3题 （2.0分） 题号:350
在Visual Foxpro系统中,能移动记录指针的命令有().
A:LIST
B:CONT
C:GO
D:SKIP
答案：ABCD
第4题 （2.0分） 题号:255
以下叙述不正确的是().
A:total命令汇总数据表没有前提条件
B:当两个表建立了关联以后,set skip to(别名)命令支持一对多关系
C:Visual Foxpro不支持循环关联,即A->B,B->A
D:Visual Foxpro程序中定义的内存
变量的作用域为全局变量
答案：AD
第5题 （2.0分） 题号:353
属于记录查找的命令有().
A:TOTAL
B:LOCATE
C:SEEK
D:CONTINUE
答案：BCD
━━━━━━━━━━━━━━━━
五、程序填空 共3题 （共计15分）
━━━━━━━━━━━━━━━━
第1题 （5.0分） 题号:803
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能：表RSDA.DBF结构为：姓名（C，6）；性别（C，2），年
* 龄（N，2），出生日期（D，8）。判断表中是否有"李明"，
* 查询此人的性别及年龄，确定参加运动会的项目。
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
USE RSDA
***********SPACE**********
【?】 FOR 姓名= "李明"
***********SPACE**********
IF .NOT. 【?】
DO CASE
CASE 性别= "男"
?"请参加爬山比赛"
CASE 年龄<=50
? "请参加投篮比赛"
CASE 年龄<=60
? "请参加老年迪斯科比赛"
***********SPACE**********
【?】
ELSE
? "查无此人"
BROWSE
ENDIF
USE
SET TALK ON
RETURN
答案：
=======(答案1)=======
LOCATE
=========或=========
LOCA
=======(答案2)=======
EOF()
=======(答案3)=======
ENDCASE
=========或=========
ENDC
第2题 （5.0分） 题号:850
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能：十个小孩围成一圈分糖果，老师分给第一个小孩 10 块，第
* 二个小孩 2 块，第三个小孩 8 块，第四个小孩 22 块，第
* 五个小孩16 块，第六个小孩 4块，第七个小孩 10 块，第
* 八个小孩 6 块，第九个小孩 14 块，第十个小孩20 块。然
* 后所有的小孩同时将自己手中的糖分一半给左边的小孩；糖
* 块数为奇数的人可向老师要一块。问经过这样几次调整后大
* 家手中的糖的块数都一样？每人各有多少块糖？
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
clear
dime a(12)
a(1)=0
a(2)=10
a(3)=2
a(4)=8
a(5)=22
a(6)=16
a(7)=4
a(8)=10
a(9)=6
a(10)=14
a(11)=20
s=0
do while .t.
for i=2 to 11
a(i-1)=int(a(i-1)/2)+int(a(i)/2)
endf
a(11)=int(a(11)/2)+a(1)
for i=2 to 11
if a(i)%2=1
a(i)=a(i)+1
endif
endf
i=2
***********SPACE**********
do while i<【?】
if a(i)!=a(i+1)
exit
endif
i=i+1
endd
if i=11
***********SPACE**********
【?】
else
a(1)=0
***********SPACE**********
s=s+【?】
endif
endd
? 's=',s,'num=',a(2)
set t
alk on
canc
答案：
=======(答案1)=======
11
=======(答案2)=======
exit
=======(答案3)=======
1
第3题 （5.0分） 题号:807
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能：通过循环程序输出图形：
*
* *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* *
* 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SET TALK OFF
CLEAR
FOR N=1 TO 9
IF N<=5
***********SPACE**********
M1=【?】
ELSE
***********SPACE**********
M1=【?】
ENDIF
?
***********SPACE**********
FOR M=1 TO ABS(【?】)
?? " "
ENDFOR
FOR M=1 TO ABS(M1-2*N+1)
IF M=1 OR M=ABS(M1-2*N+1)
?? "*"
ELSE
?? " "
ENDIF
ENDFOR
ENDFOR
SET TALK OFF
RETURN
答案：
=======(答案1)=======
0
=========或=========
2+(n-1)*4
=========或=========
2+4*(n-1)
=========或=========
(n-1)*4+2
=========或=========
4*(n-1)+2
=======(答案2)=======
18
=========或=========
4* (n-5)
=========或=========
(n-5) *4
=======(答案3)=======
5-N
=========或=========
-N+5
━━━━━━━━━━━━━━━━
六、程序改错 共3题 （共计15分）
━━━━━━━━━━━━━━━━
第1题 （5.0分） 题号:778
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目：打开XSDB.DBF数据表, 分别统计男、女生的人数。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SET TALK OFF
USE XSDB
STOR 0 TO B,G
DO WHILE .NOT.EOF()
***********FOUND**********
IF 性别<>男
B=B+1
***********FOUND**********
ENDIF
G=G+1
ENDIF
SKIP
ENDDO
?"男生人数是："+STR(B)
?"女生人数是："+STR(G)
SET TALK ON
RETU
答案：
=======(答案1)=======
IF 性别 = "男"
=========或=========
IF 性别<> "女"
=========或=========
IF 性别 # "女"
=========或=========
IF 性别 = [男]
=========或=========
IF 性别<> [女]
=========或=========
IF 性别 # [女]
=========或=========
IF 性别 = '男'
=========或=========
IF 性别<> '女'
=========或=========
IF 性别 # '女'
=======(答案2)=======
ELSE
第2题 （5.0分） 题号:832
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目:有结构相同的三个班学生数据库STD1.DBF、STD2.DBF、
* STD3
.DBF。其中学号的前两位是学生所在班级号。一个
* 统计数据库TJ.DBF，其结构包括七个字段：班级C(2)、
* 男、女、党员、团员、群众、少数民族，后六个均为数
* 值型字段N(3,0)。请编写统计程序MODI1.PRG，按班对
* 学生数据进行的性别、政治面目和民族统计，并将统计
* 结果存放到TJ.DBF中。（不得修改学生数据库）
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
set talk off
sele 1
use std1
sele 2
use std2
sele 3
use std3
sele 4
use tj
zap
sele 1
***********FOUND**********
banji=学号
count all for 性别="男" to man
count all for 性别="女" to woman
count all for 民族<>"汉" to minzu
count all for 政治面目="党员" to dangyuan
count all for 政治面目="团员" to tuanyuan
count all for 政治面目="群众" to quanzhong
sele 4
appe blan
repl 班级 with banji,男 with man,女 with woman,党员 with dangyuan,团员 with tuanyuan,群众 with quanzhong,少数民族 with minzu
sele 2
banji=left(学号,2)
count all for 性别="男" to man
count all for 性别="女" to woman
count all for 民族<>"汉" to minzu
count all for 政治面目="党员" to dangyuan
count all for 政治面目="团员" to tuanyuan
count all for 政治面目="群众" to quanzhong
sele 4
appe blan
repl 班级 with banji,男 with man,女 with woman,党员 with dangyuan,团员 with tuanyuan,群众 with quanzhong,少数民族 with minzu
***********FOUND**********
sele 1
banji=left(学号,2)
count all for 性别="男" to man
count all for 性别="女" to woman
count all for 民族<>"汉" to minzu
count all for 政治面目="党员" to dangyuan
count all for 政治面目="团员" to tuanyuan
count all for 政治面目="群众" to quanzhong
sele 4
***********FOUND**********
appe
repl 班级 with banji,男 with man,女 with woman,党员 with dangyuan,团员 with tuanyuan,群众 with quanzhong,少数民族 with minzu
close database
set talk on
return
答案：
=======(答案1)=======
banji= left (学号,2)
=========或=========
banji= subs (学号,1,2)
=========或=========
banji= '01'
=======(答案2)=======
sele 3
=========或=========
sele c
=========或=========
select 3
=========或=========
select c
=======(答案3)=======
appe blank
=========或=========
appect blank
第3题 （5.0分） 题号:841
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目:有如下数据库文件：
* ZY.DBF：职员号N(3,0)，姓名C(6)，性别C(2)，职务C(10)；
* DD.DBF：订单号N(3,0)，客户号N(3,0)，职员号N(3,0)，
* 签订日期D(8)，金额N(6,2)。
* 给定程序MODI1.PRG的功能是：根
据客户号查询该客户的有关
* 订单信息，结果按订单金额降序排序，并显示这些定单的总金额。
* 修改并调试该程序，使之正确运行。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SET TALK OFF
SET SAFETY OFF
SELECT 1
USE zy
INDEX ON 职员号 TO zyi
SELECT 2
USE dd
INDEX ON -金额 TO ddi
***********FOUND**********
SET RELATION ON -金额 TO A
DO WHILE .T.
CLEAR
KH=202
? "请输入客户号：" , kh
?
LOCATE FOR 客户号=kh
***********FOUND**********
IF .NOT.EOF()
? "没有该客户!"
ELSE
? "订单号"+" 职 员"+SPACE(5)+"签订日期"+" 金 额"
?
s=0
DO WHILE !EOF()
? STR(订单号,3)+SPACE(5)+A->姓名+SPACE(5)+DTOC(签订日期)+" "+STR(金额,6,2)
***********FOUND**********
s=金额
CONTINUE
ENDDO
?
? "总金额为:"+STR(s,8,2)
ENDIF
?
WAIT "继续查询吗(Y/N)?" TO p
IF !UPPER(p)="Y"
EXIT
ENDIF
ENDDO
CLOSE DATA
SET SAFETY ON
SET TALK ON
RETU
答案：
=======(答案1)=======
SET RELA TO 职员号 INTO A
=========或=========
SET RELA TO 职员号 INTO zy
=======(答案2)=======
IF EOF()
=========或=========
IF .NOT .FOUND()
=========或=========
IF .NOT .FOUN()
=======(答案3)=======
s= s+金额
=========或=========
s=金额 +s
=========或=========
STOR s+金额 TO s
=========或=========
STOR 金额+s TO s
━━━━━━━━━━━━━━━━
七、程序设计 共2题 （共计10分）
━━━━━━━━━━━━━━━━
第1题 （5.0分） 题号:728
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程找出一批正整数中的最小的偶数。
* 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
dime array(10)
array(1)=1
array(2)=3
array(3)=6
array(4)=96
array(5)=4
array(6)=23
array(7)=35
array(8)=67
array(9)=12
array(10)=88
OUT=-1
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
min=100
for i=1 to 10
if array(i)%2=0
if min>array(i)
min=array(i)
endif
endif
endf
out=min
? out
----------------------
第2题 （5.0分） 题号:700
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程判断一个整数w的各位数字平方之和能否
* 被5整除, 可以被5整除则返回1,否则返回0。
* 将结果存入变量OUT中。
* 请按照题目
要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
? "输入一个整数：w=39"
OUT=-1
w=39
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
s=0
do while w>0
s=s+(w%10)*(w%10)
w=int(w/10)
enddo
if s%5=0
out=1
else
out=0
endif
? out
----------------------
━━━━━━━━━━━━━━━━━━
八、VF窗体设计 共2题 （共计21分）
━━━━━━━━━━━━━━━━━━
第1题 （11.0分） 题号:97
一、基本操作
1、将自由表“定货”与“客户”添加到“学生”数据库中。
2、建立数据库表“课程”与“选修”之间的关联（两表的索引
已经建立）。
3、为（2）题中的两个表之间的联系设置完整性约束，要求
“更新”规则为“忽略”，“删除”规则和“插入”规则均为
“限制”。
二、简单应用
1、设计表单form1，其中有三个按钮，标题分别为“汇报”、“查看”
和“关闭”。单击“汇报”按钮，弹出对话框“您单击的是
汇报按钮！”。单击“查看”按钮，弹出对话框“您单击的是
查看按钮！”。单击“关闭”按钮则退出表单。
2、根据“定货”表和“客户”表建立一个查询cha，查询出所有
所在地是“上海”的公司的“公司名称”、“订单日期”、
“送货方式”，查询结果按“公司名称”升序排列，要求查询
去向是表，表名是que.dbf，并执行该查询。
第2题 （10.0分） 题号:28
---------------------------------------------------------------------
运行状态(如图1)
编辑状态(如图2)
制作如图所示表单。
---------------------------------------------------------------------
设置：
1、设置表单名称为“Form1”，标题为“时间”。
2、设置标签(Label1)的标题为“时间”。
3、设置文本框的名称为“Text1”。
4、设置计时器(Timer1)的时间间隔(Interval)为1000。
5、设置命令按钮(Command1)的标题为“退出”。
要求：
1、表单没有“最大化”和“最小化”按钮。
2、表单内控件如图中所示：文本框中显示当前系统时间，每1秒钟刷新1次。
3、“退出”按钮要具有关闭表单功能。
4、表单整体效果美观，比例合适。
