B）统计（Ctrl+T）
C）统计（Alt+T）
D）统计（T）
（10）在DOWHILE…ENDDO循环结构中，EXIT命令的作用是
A）退出过程，返回程序开始处（参见P137）
B）转移到DOWHILE语句行，开始下一个判断和循环
C）终止循环，将控制转移到本循环结构ENDDO后面的第一条语句继续执行
D）终止程序执行
（11）在VisualFoxPro中，关于自由表叙述正确的是（参见P79）
A）自由表和数据库表是完全相同的
B）自由表不能建立字段级规则和约束
C）自由表不能建立候选索引
D）自由表不可以加入到数据库中
（12）在VisualFoxPro中，运行表单T1.SCX的命令是
A）DOT1
B）RUNFORMT1
C）DOFORMT1
D）DOFROMT1
（13）使用SQL语句进行分组检索时，为了去掉不满足条件的分组，应当（参见P98）
A）使用WHERE子句
B）在GROUPBY后面使用HAVING子句
C）先使用WHERE子句，再使用HAVING子句
D）先使用HAVING子句，再使用WHERE子句
（14）在VisualFoxPro中，使用"菜单设计器"定义菜单，最后生成的菜单程序的扩展名是（参见P212）
A）MNX
B）PRG
C）MPR
D）SPR
（15）在VisualFoxPro中，使用SQL命令将学生表STUDENT中的学生年龄AGE字段的值增加1岁，应该使用的命令是（参见P100）
A）REPLACEAGEWITHAGE+1
B）UPDATESTUDENTAGEWITHAGE+1
C）UPDATESETAGEWITHAGE+1
D）UPDATESTUDENTSETAGE=AGE+1
（16）调用报表格式文件PP1预览报表的命令是（参见P248）
A）REPORTFROMPP1PREVIEW
B）DOFROMPP1PREVIEW
C）REPORTFORMPP1PREVIEW
D）DOFORMPP1PREVIEW
（17）假定一个表单里有一个文本框Text1和一个命令按钮组CommandGroup1,命令按钮组是一个容器对象，其中包含Command1和Command2两个命令按钮。
如果要在Command1命令按钮的某个方法中访问文本框的Value属性值，下面哪个式子是正确的？
A）ThisForm.Text1.Value
B）This.Parent.Value
C）Parent.Text1.Value
D）This.Parent.Text1.Value
第（18）-（20）题使用如下三个表：
学生（学号C（8），姓名C（12），性别C
（2），出生日期D，院系C（8））
课程（课程编号C（4），课程名称C（10），开课院系C（8））
学生成绩（学号C（8），课程编号C（4），成绩I）
（18）查询每门课程的最高分，要求得到的信息包括课程名称和分数。
正确的命令是
A）SELECT课程名称,SUM（成绩）AS分数;
FROM课程,学生成绩;
WHERE课程.课程编号=学生成绩.课程编号;
GROUPBY课程名称
B）SELECT课程名称,MAX（成绩）分数;
FROM课程,学生成绩;
WHERE课程.课程编号=学生成绩.课程编号;
GROUPBY课程名称
C）SELECT课程名称,SUM（成绩）分数;
FROM课程,学生成绩;
WHERE课程.课程编号=学生成绩.课程编号;
GROUPBY课程.课程编号
D）SELECT课程名称,MAX（成绩）AS分数;
FROM课程,学生成绩;
WHERE课程.课程编号=学生成绩.课程编号;
GROUPBY课程.课程编号
（19）统计只有2名以下（含2名）学生选修的课程情况，统计结果中的信息包括课程名称、开课院系和选修人数，并按选课人数排序。
正确的命令是
A）SELECT课程名称,开课院系,COUNT（课程编号）AS选修人数;
FROM学生成绩,课程;
WHERE课程.课程编号=学生成绩.课程编号;
GROUPBY学生成绩.课程编号;
HAVINGCOUNT（*）<=2;
ORDERBYCOUNT（课程编号）
B）SELECT课程名称,开课院系,COUNT（学号）选修人数;
FROM学生成绩,课程;
WHERE课程.课程编号=学生成绩.课程编号;
GROUPBY学生成绩.学号;
HAVINGCOUNT（*）<=2;
ORDERBYCOUNT（学号）
C）SELECT课程名称,开课院系,COUNT（学号）AS选修人数;
FROM学生成绩,课程;
WHERE课程.课程编号=学生成绩.课程编号;
GROUPBY课程名称;
HAVINGCOUNT（学号）<=2;
ORDERBY选修人数
D）SELECT课程名称,开课院系,COUNT（学号）AS选修人数;
FROM学生成绩,课程;
HAVINGCOUNT（课程编号）<=2;
GROUPBY课程名称;
ORDERBY选修人数
（20）向学生表插入一条记录的正确命令是（参见P99）
A）APPENDINTO学生VALUES（"10359999",'张三','男','会计',{^1983-10-28}）
B）INSERTINTO学生VALUES（"10359999",'张三','男',{^1983-10-28},'会计'）
C）APPENDINTO学生VALUES（"10359999",'张三','男',{^1983-10-28},'会计'）
D）INSERTINTO学生VALUES（"10359999",'张三','男',{^1983-10-28}）
二、填空题（每空1分，共20分）
请将每一个空的正确答案写在答题纸，答在试卷上不得分。
注意：
以命令关键字填空的必须拼写完整。
（1）在SQLSELECT语句中将查询结果存放在一个表中应该使用【1】子句（关键字必须拼写完整）。
INTOCURSOR（参阅P97）
（2）在VisualFoxPro中选择一个没有使用的、编号最小的工作区的命令是【2】（关键字必须拼写完整）。
SELECT0（参阅p66）
（3）在VisualFoxPro中，CREATEDATABASE命令创建一个扩展名为【3】的数据库文件。
.DBC（参阅p74）
（4）用当前窗体的LABEL1控件显示系统时间的语句是
THISFORM.LABEL1.【4】=TIME（）caption
（5）在VisualFoxPro中，使用SQL语言的ALTERTABLE命令给学生表STUDENT增加一个Email字段，长度为30，命令是（关键字必须拼写完整）
ALTERTABLESTUDENT【5】EmailC（30）add（参阅p88）
（6）设有学生选课表SC（学号，课程号，成绩），用SQL语言检索每门课程的课程号及平均分的语句是（关键字必须拼写完整）
SELECT课程号,AVG（成绩）FROMSC【6】
GROUPBY课程号（参阅p98）
（7）、逻辑删除当前表中第5条记录的完整命令是【7】。
DELETERECORD5
或SKIP4
DELETE
（8）、说明公共变量的命令关键字是【8】。
PUBLIC（参阅p150）
（9）、在学生成绩表中，显示第5号到10号之间的全部记录【9】
listforrecno（）>=5andrecno（）<=10
（10）、学生表STUDENT中有10条记录，执行下列命令后
USESTUDENT
List
此时，BOF（）为【10】，EOF（）为【11】。
.F.,.T.
11、在关系数据模型中，二维表的列称为【12】。
属性（参阅p7）
12、逻辑删除当前表中第3条记录的完整命令是【13】。
DELETERECORD3
或
SKIP2
DELETE
13、隐藏内存变量的命令关键字是【14】。
PRIVATE（参阅p151）
14、查询设计器的“筛选”选项卡用来指定查询的【15】。
条件（参阅p114）
15、写出下列操作的命令语句，所有操作均在表HD.DBF（货号C（6），品名C（8），进口L，单价N（7，2），数量N
（2），开单日期D，生产单位C（16））中，有若干条记录。
请写出下列操作：
将单价超过100元的设备按单价降序建立复合索引，索引标志为JJ【18】
USEHD
INDEXON单价TAGJJFOR单价>100DESCENDING（参阅p60）
2）列出生产单位为“公司”且单价大于3000的所有商品【19】。
LISTFOR“公司”$生产单位AND单价>3000
3）将单价超过10000元的设备按单价升序排序，排序文件为JG.DBF【20】。
SORTON单价TOJGFOR单价>10000（参阅p58）
三、读程序写结果（20，每小题5分）
1、有如下程序
settalkoff
clear
fori=1to3
forj=1toi
?
?
str（i,1）+'*'+str（j,1）+'='+str（i*j,2）+space（3）
endfor
?
endfor
输出：
1*1=1
2*1=22*2=4
3*1=33*2=63*3=9
2、
X=10
Y=-3
FORN=29+XTOXSTEPY
ENDFOR
?
N
RETURN
输出：
9
3、
X=15
Y=7
DOSUBWITHX，Y
？
X，Y
PROCSUB
PARAA，B
A=A+B
B=A-B
RETURN
输出：
22，15
4、
STORE0TOX，Y
USE学生
SCANFOR少数民族否
IF性别=”男”
X=X+1
ELSE
Y=Y+1
ENDIF
ENDSCAN
？
X，Y
USERETURN
输出：
籍贯为少数民族男女生的人数。
四、编程（37分）1、2、3每小题8分，第4小题13分
1、输入一个字符串，要求分别统计出其中英文字母、空格、数字和其它字符的个数
（见prog1）
2、用自定义函数或过程的方法编程求S=A！
+B！
+C！
（其中A，B，C从键盘输入
（见ex9_7_func.prg或ex9_7_pro.prg）
3、用表单设计的方法设计完成求S=A！
+B！
+C！
（其中A，B，C数据从表单的文本框中输入，要求：
1）写出设计表单的步骤
2）表单设计的主要控件和它的主要属性
3）写出完成计算功能的代码
（见prog3）
1）步骤:
①新建表单。
②在表单中添加标签、文本框（Text1～Text4）及命令按钮组件Command1～command3）。
③设置TAB次序。
④保存表单。
2）主要属性：
①表单的Caption属性：
计算A！
+B！
+C！
阶乘值。
②Command1～command3的Caption分别为：
计算、重置、退出。
3）命令按钮“计算”的脚本：
a=fact（val（thisform.text1.value））
b=fact（val（thisform.text2.value））
c=fact（val（thisform.text3.value））
s=a+b+c
thisform.text4.value=allt（str（s））
首先定义函数fact（）的代码：
PARAMETERSn
m=1
fori=1ton
m=m*i
next
returnm
4、设有表XSCJ.DBF，有若干条记录和若干个字段，设计如下图的表单。
当在单选按钮中选中“男”，当单击“显示”命令按钮时，则在表单中显示出XSCJ.DBF表中xb为“男”的所有记录，当选中“女“同样。
当点击“退出”按钮则结束程序。
要求：
1表单上应该加入哪些控件？
需要修改哪些属性？
属性取什么值？
（5分）
2写出显示和退出的事件代码。
（8分）
（见prog4）
解答：
1表单中应加入选项按钮组、命令按钮。
修改选项按钮组控件的属性：
Option1.Caption=”男“，Option2.Caption=”女“。
命令按钮的Caption属性分别为：
“显示”、“退出”。
2．在表单在添加“数据环境”，并选将数据环境中Cursor1对象的Filter属性值设置为.F.
显示的Click事件代码：
ifthisform.Optiongroup2.value=1
Bool="xb='男'"
endif
ifthisform.Optiongroup2.value=2
Bool="xb='女'"
endif
messagebox（Bool,""）
thisform.DataEnvironment.Cursor1.Filter=Bool
thisform.refresh
退出的click事件的代码：
thisform.release
2004年程序设计竞赛VisualFoxPro程序设计答题纸
姓名班级学号成绩
一、选择题.每小题1分，第18~20每题2分，共23分）
二、
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
三、填空题（每空1分，共20分）
四、
1
2
3
4
6
7
8
9
11
12
13
14
16
17
18
19
三、读程序写结果（20，每小题5分）
1、
2、
3、
4、
四、编程（37，1、2、3每小题8分，第4小题13分）
1、
2、
3、
4、
升级会员 