答案:
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:
查询是VisualFoxpro支持的一种数据库对象
B:
查询就是预先定义好的一个SQLSELECT语句
C:
查询是从指定的表中提取满足条件的记录,然后按照想得到的输出类型定向输出查询结果
D:
查询就是一种表文件
答案:
D
第9题(1.0分)题号:
3116
当某控件对象获得焦点后又失去焦点,将依次激发()事件.
A:
WhenValidGotFocusLostFocus
B:
WhenGotFocusValidLostFocus
C:
ValidGotFocusWhenLostFocus
D:
ValidWhenGotFocusLostFocus
答案:
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
在VisualFoxpro系统中,能移动记录指针的命令有().
A:
LIST
B:
CONT
C:
GO
D:
SKIP
答案:
ABCD
第4题(2.0分)题号:
255
以下叙述不正确的是().
A:
total命令汇总数据表没有前提条件
B:
当两个表建立了关联以后,setskipto(别名)命令支持一对多关系
C:
VisualFoxpro不支持循环关联,即A->B,B->A
D:
VisualFoxpro程序中定义的内存变量的作用域为全局变量
答案:
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)。
判断表中是否有"李明",
*查询此人的性别及年龄,确定参加运动会的项目。
*请在【】处添上适当的内容,使程序完整。
*-------------------------------------------------------
SETTALKOFF
USERSDA
***********SPACE**********
【?
】FOR姓名="李明"
***********SPACE**********
IF.NOT.【?
】
DOCASE
CASE性别="男"
?
"请参加爬山比赛"
CASE年龄<=50
?
"请参加投篮比赛"
CASE年龄<=60
?
"请参加老年迪斯科比赛"
***********SPACE**********
【?
】
ELSE
?
"查无此人"
BROWSE
ENDIF
USE
SETTALKON
RETURN
答案:
=======(答案1)=======
LOCATE
=========或=========
LOCA
=======(答案2)=======
EOF()
=======(答案3)=======
ENDCASE
=========或=========
ENDC
第2题(5.0分)题号:
850
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
十个小孩围成一圈分糖果,老师分给第一个小孩10块,第
*二个小孩2块,第三个小孩8块,第四个小孩22块,第
*五个小孩16块,第六个小孩4块,第七个小孩10块,第
*八个小孩6块,第九个小孩14块,第十个小孩20块。
然
*后所有的小孩同时将自己手中的糖分一半给左边的小孩;糖
*块数为奇数的人可向老师要一块。
问经过这样几次调整后大
*家手中的糖的块数都一样?
每人各有多少块糖?
*请在【】处添上适当的内容,使程序完整。
*-------------------------------------------------------
SETTALKOFF
clear
dimea(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
dowhile.t.
fori=2to11
a(i-1)=int(a(i-1)/2)+int(a(i)/2)
endf
a(11)=int(a(11)/2)+a
(1)
fori=2to11
ifa(i)%2=1
a(i)=a(i)+1
endif
endf
i=2
***********SPACE**********
dowhilei<【?
】
ifa(i)!
=a(i+1)
exit
endif
i=i+1
endd
ifi=11
***********SPACE**********
【?
】
else
a
(1)=0
***********SPACE**********
s=s+【?
】
endif
endd
?
's=',s,'num=',a
(2)
settalkon
canc
答案:
=======(答案1)=======
11
=======(答案2)=======
exit
=======(答案3)=======
1
第3题(5.0分)题号:
807
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
通过循环程序输出图形:
*
**
***
***
***
***
***
***
***
**
*请在【】处添上适当的内容,使程序完整。
*-------------------------------------------------------
SETTALKOFF
CLEAR
FORN=1TO9
IFN<=5
***********SPACE**********
M1=【?
】
ELSE
***********SPACE**********
M1=【?
】
ENDIF
?
***********SPACE**********
FORM=1TOABS(【?
】)
?
?
""
ENDFOR
FORM=1TOABS(M1-2*N+1)
IFM=1ORM=ABS(M1-2*N+1)
?
?
"*"
ELSE
?
?
""
ENDIF
ENDFOR
ENDFOR
SETTALKOFF
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数据表,分别统计男、女生的人数。
*-------------------------------------------------------
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
*-------------------------------------------------------
SETTALKOFF
USEXSDB
STOR0TOB,G
DOWHILE.NOT.EOF()
***********FOUND**********
IF性别<>男
B=B+1
***********FOUND**********
ENDIF
G=G+1
ENDIF
SKIP
ENDDO
?
"男生人数是:
"+STR(B)
?
"女生人数是:
"+STR(G)
SETTALKON
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中。
(不得修改学生数据库)
*-------------------------------------------------------
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
*-------------------------------------------------------
settalkoff
sele1
usestd1
sele2
usestd2
sele3
usestd3
sele4
usetj
zap
sele1
***********FOUND**********
banji=学号
countallfor性别="男"toman
countallfor性别="女"towoman
countallfor民族<>"汉"tominzu
countallfor政治面目="党员"todangyuan
countallfor政治面目="团员"totuanyuan
countallfor政治面目="群众"toquanzhong
sele4
appeblan
repl班级withbanji,男withman,女withwoman,党员withdangyuan,团员withtuanyuan,群众withquanzhong,少数民族withminzu
sele2
banji=left(学号,2)
countallfor性别="男"toman
countallfor性别="女"towoman
countallfor民族<>"汉"tominzu
countallfor政治面目="党员"todangyuan
countallfor政治面目="团员"totuanyuan
countallfor政治面目="群众"toquanzhong
sele4
appeblan
repl班级withbanji,男withman,女withwoman,党员withdangyuan,团员withtuanyuan,群众withquanzhong,少数民族withminzu
***********FOUND**********
sele1
banji=left(学号,2)
countallfor性别="男"toman
countallfor性别="女"towoman
countallfor民族<>"汉"tominzu
countallfor政治面目="党员"todangyuan
countallfor政治面目="团员"totuanyuan
countallfor政治面目="群众"toquanzhong
sele4
***********FOUND**********
appe
repl班级withbanji,男withman,女withwoman,党员withdangyuan,团员withtuanyuan,群众withquanzhong,少数民族withminzu
closedatabase
settalkon
return
答案:
=======(答案1)=======
banji=left(学号,2)
=========或=========
banji=subs(学号,1,2)
=========或=========
banji='01'
=======(答案2)=======
sele3
=========或=========
selec
=========或=========
select3
=========或=========
selectc
=======(答案3)=======
appeblank
=========或=========
appectblank
第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的功能是:
根据客户号查询该客户的有关
*订单信息,结果按订单金额降序排序,并显示这些定单的总金额。
*修改并调试该程序,使之正确运行。
*-------------------------------------------------------
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
*-------------------------------------------------------
SETTALKOFF
SETSAFETYOFF
SELECT1
USEzy
INDEXON职员号TOzyi
SELECT2
USEdd
INDEXON-金额TOddi
***********FOUND**********
SETRELATIONON-金额TOA
DOWHILE.T.
CLEAR
KH=202
?
"请输入客户号:
",kh
?
LOCATEFOR客户号=kh
***********FOUND**********
IF.NOT.EOF()
?
"没有该客户!
"
ELSE
?
"订单号"+"职员"+SPACE(5)+"签订日期"+"金