2011春VFP上机试卷含答案

2011年春VFP上机试卷

2011C VFP01

一、项目、数据库和表操作

打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。

1、在JXSJ数据库中按如下表格中所示的结构创建AB.DBF表，并按表格中的要求设置相关属性。

(1)

(2)设置RQ字段的默认值：当前系统日期；Date()

(3)设置单位字段的显示类：选项按钮组；OptionGroup

(4)设置表的更新触发器：日期字段的值等于当前系统日期时可以更新记录；

Rq =Date()

(5)创建普通索引，索引名为abcd，要求按日期排序，日期相同时按单价排序。

2、在

3、为项目设置项目信息：项目的图标为PC.ICO文件。右击项目管理器

4、KC表已存在主索引KCDM，索引表达式为KCDM；CJ表已存在普通索引KCDM，索引表达式为KCDM。以KC表位主表，CJ表为子表，根据KCDM建立永久关系，并设置两表之间的参照完整性：删除级联、插入限制。

二、设计查询

已知自由表图书表（TSB）含有分类号（flh，C）、册数（cs，N）、价格（jg，N）等字段。按如下要求修改JXGL项目中的查询CHAXUN；

基于TSB表查询图书类别、藏书册数等信息。要求：查询输出字段为图书类别、藏书册数和平均单价；查询结果按藏书册数降序排序，相同时按平均单价升序排序；输出去想为文本文件TEMP。

注：图书类别为flh中“.”前的内容（可用LEFT(…, A T(“.”, …)) 形式的表达式求得），藏书册数为同一图书类别册数之和。

LEFT(flh, AT(“.”,flh)-1) as 图书类别

Sum(cs) as 藏书册数

Avg(jg) as 平均单价

分组：图书类别

排序：自己写

去向：自己写

三、设计菜单

JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退

出菜单”项。按如下要求设计菜单，菜单运行后的效果如图1所示。

1、在“文件”菜单栏右侧创建“图书管理系统”菜单栏。

2、为“图书管理系统”菜单栏创建子菜单“预约”、“借书”和“还书”。

3、在菜单项“预约”、“借书”和“还书”之间插入分组线。

4、为“借书”菜单项设置命令代码：DO FORM js

5、在“文件”菜单栏下插入系统菜单“全部关闭”。

四、设计表单

表单F102F用了按小组查看世界杯球队信息。按下列要求修改表单，修改后表单运行时如图2所示。

1、设置表格Grid1的数据只读，无滚动条，删除“组别”列。

ReadOnly .T.

在“属性”窗口中，选择组别这一列（Column3还是Column2来着?），然后在组别这一列的Text处点一下，再按键盘上的“Delete”删除键即可

2、在“组别”标签下方添加一个列表框控件List1（用来选择组别），设置其数据源类型为“3-SQL语句”，数据源为“SELECT DIST 组别FROM fifa INTO CURSOR tmp”。

RowSourceType RowSource里把代码抄进去，不要引号

3、编写表单的Load事件代码，实现：定义一个全局变量sGroup，并赋初值为字符“A”。

Public sGroup

sGroup=?A?

4、世界杯球队信息存储在自由表fifa中，表结构如下：组别（C，1）、编号（C，1）、国旗（G）、国家（C，12）、简介（M），且fifa表已添加在表

单的数据环境中。编写List1的InterActiveChange事件代码，

实现：（1）将List1中当前选定的值赋给变量sGroup，并对当

前数据工作区中的fifa标设置筛选条件；按sGroup变量中的

值对“组别”字段进行记录筛选；（2）将记录指针指向首行记

录，并刷新表单。会哪行写哪行，不会的空一行

sGroup=Thisform.List1.Value

Set Filter to 组别=sGroup

Go top

Thisform.Refresh

五、程序改错

回文数是指正读和反读都是一样的数，例如1001、1221

等。下列程序的功能是：求出大于1000小于2000的所有回文

数，并将它们打印出来（每行打印5个数，最后一行打印总个数）。要求：

①将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改；

②在修改程序时，不允许修改程序的总体框架和算法，不允许增加减少语句数目。STORE 0 TO n, n1, n2

FOR i=1000 TO 2000

s=ALLT(STR(i))

n1=LEN(s)

n2=INT(n1/2)

s1=??

FOR j=1 TO n2

s1=s1+RIGHT(s, 1)

s=LEFT(s, n1-1)

ENDFOR

IF LEFT(s, n1)=s1

n=n+1

??i

IF INT(n/5)=n/5

?

ENDIF

ENDFOR &&改为ENDIF

ENDFOR

??小于2000的回文数共?+STR(n)+?个?

2011C VFP02

一、项目、数据库和表操作

打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。

1、在JXSJ数据库中按如下表格中的结构创建AB.DBF表，并按表格中的要求设置相关属性。

(1) 设置表的注释：影视记录；

(2) 设置片名字段的格式：删除字段值的前导空格；T

(3) 设置时长字段的有效性规则：大于或等于30；SC>=30

(4) 设置语种字段的显示类：列表框；ListBox

(5) 创建普通索引，索引名为abcd，要求按语种排序，语种相同时按时长排序。

第一种方法：浏览cjb表，在命令窗口中输入ZAP

第二种方法：（1）浏览cjb表，“表”菜单-“删除记录”，范围写ALL，FOR不写

（2）“表”菜单-“彻底删除”

4、KC表已存在主索引KCDM，索引表达式KCDM；CJ表已存在普通索引KCDM，索引表达式为KCDM。以KC表为主表、CJ表为子表，根据KCDM建立永久关系，并设置两表之间的参照完整性，更新级联、删除级联、插入限制。

二、设计查询

已知课程表（KC）含有课程代号（kcdm，C）、学分（xf，N）和课程名称（kcmc，C）等字段；成绩表（CJ）含有成绩（cj，N）、课程代码（kcdm，C）和备注（bz，M）等字段，成绩等级信息存放在备注字段的前7个字节中，按如下要求修改JXGL项目中的查询CHAXUN：

基于KC表和CJ表查询每门课程成绩优秀和不及格的学生信息。要求：查询输出字段为kcmc、xh、学分、成绩等级、补考日期；查询结果按课程名称排序，课程名称相同的按成绩等级排序；仅输出成绩等级为“A优秀”或“F不及格”的记录。

注：当cj.cj>=60时，学分为xf字段的值，否则为0；当cj.cj <60时，补考日期的值为“2010.09.06”，否则为10个字符的空字符串。

Iif(cj.cj>=60,xf,0) as 学分

Left(bz,7) as 成绩等级

IIF(cj.cj<60,”2010.09.06”,Space(10)) as 补考日期

满足条件：两行

成绩等级= “A优秀”OR

成绩等级= “F不及格”

排序：自己排

分组：没有使用合计函数，不用分组

三、设计菜单

JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单，菜单运行后的效果如图1所示。

1、在“文件”菜单栏下插入系统菜单“发送（D）…”。

2、在“文件”菜单栏右侧创建“管理信息系统”菜单栏。

3、为“管理信息系统”菜单栏创建子菜单“使用说明”和“主程序”。

4、为“使用说明”菜单项设置命令代码：MODI COMM 操作说明.TXT。

5、设置有关选项，使菜单运行时执行“清理”代码：CLOSE TABLES ALL

“显示”菜单-“常规选项”-勾选“清理”，然后点“确定”，会有一个“清理窗口”，在其中输入代码即可

四、设计表单

表单F102E用来按小组查看世界杯球队信息。按下列要求修改表单，修改后表单运行时如图2所示。

1、设置表格grdFifa不显示删除标记列；不显

示滚动条，行高设置为27.

DeleteMark .F. ScrollBars .F.

RowHeight 27

2、在表格grdFifa的“国旗”列中，删除文本

框控件Text1，添加一个OLE绑定型控件。并设置

该控件在显示图像时按“等比填充”方式显示。

增加控件：在属性窗口中选中column3

然后在“控件”工具栏里选择

“OLEBoundCnontrol”（蓝色的那一个），然后

用鼠标在Column3的Text处点一下，即可添加

一个OLE控件。

不用删除Text，而是在属性窗口中选中该列

修改CurrentControl选择为新增加的

变比填充：在属性窗口中选中OLE控件，修改Stretch属性。

3、世界杯球队信息存储在自由表fifa中，表结构如下：组别（C，1）、编号（C，1）、国旗（G）、国家（C，12）、简介（M）。该表已添加在表单的数据环境中。表单中的选项按钮组Optiongroup1用来选择小组赛的组别。在表单的Init事件代码中，已定义了一个全局变

量cGroup，用来存储当前选定的组别，完善Init事件代码，实现：（1）对当前数据工作区中的fifa表设置筛选条件：按cGroup变量中的值对“组别”字段进行筛选；（2）将记录指针指向首行记录。

Set filter to 组别=cGroup

Go top

4、编写选项按钮组Optiongroup1的InterActiveChange事件代码，实现：调用表单Init 事件的方法程序，并刷新表单。

Thisform.Init

Thisform.Refresh

五、程序改错

下列程序用来产生20个0~100之间不重复的随机整数，并将结果输出。要求：

①将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改；

②在修改程序时，不允许修改程序的总体框架和算法，不允许增加减少语句数目。CLEAR

DIMENSION a(20)

a=0

FOR i=1 TO 20

x=INT(RAND()*100)

iscf=.F.

FOR j=0 TO i-1 &&FOR j=1 TO i-1

IF a(j)=x

Iscf=.T.

EXIT

ENDIF

ENDFOR

IF iscf=.F.

a(i)=x

OTHERWISE &&else

i=I-1

ENDIF

ENDFOR

DISPLAY MEMORY LIKE a*

2011C VFP03

一、项目、数据库和表操作

打开T盘根目录中项目文件JXGL，在该项目中已有一数据库JXSJ。

1、在JXSJ数据库中按如下表格中所示的结构创建AB.DBF表，并按表格中的要求设置相关属性。

(1) 设置机器编号字段的输入掩码：第一个字符为任意字符，其它只能输入数字字符；

(2) 设置单位字段的默认值：南京大学；

(3) 设置IP地址字段的注释：只能为C类地址；

(4) 设置责任人字段的有效性规则：不能为空；not empty(zrr)

(5) 创建普通索引，索引名为abcd，要求按注册日期排序，注册日期相同时按单位排序。

表达式：Dtoc(rq,1) +dw

2、在

3、将自由表CJB添加到当前数据库中，并设置为“包含”。

选择数据库jxsj下方的“表”这个字，然后点“添加”，再在“表”下方找到cjb表，右击，选择“包含”

4、XS表已存在主索引XH，索引表达式为XH；CJ表已存在普通索引XH，索引表达式为XH。以XS表为主表、CJ表为子表，根据XH建立永久关系，并设置两表之间的参照完整性：更新级联、删除级联。

二、设计查询

已知自由表图书表（TSB）含有分类号（flh，C）、书名（sm，C）、价格（jg，N）等字段；自由表图书借阅表（JYB），含有读者类型（lx，C）、分类号（flh，C）等字段，按如下要求修改JXGL项目中的查询CHAXUN：

基于TSB和JYB表查询价格在20（含20）元以上的图书借阅情况。要求：查询输出字段为FLH、SM、教师借阅次数、学生借阅次数、价格；查询结果按价格降序排列；输出去向为表文件TEMP。

注：lx字段值为“J”时表示是教师；为“X”时表示是学生。

筛选：jg>=20

Sum(iif(lx=”J”,1,0)) as 教师借阅次数---注意J大写，字符串区分大小写

Sum(iif(lx=”X”,1,0)) as 学生借阅次数---注意J大写，字符串区分大小写

Jg as 价格

排序：自己排

去向：自己写

分组：FLH

三、设计菜单

JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单，菜单运行后的效果如图1所示。

1、在“文件”菜单栏右侧创建“窗口”菜单栏。

2、在“窗口”菜单栏下插入“数据工作期”和“命令窗口”二个系

统菜单项。

3、在菜单项“数据工作期”和“命令窗口”之间插入分组线。

4、在“文件”菜单栏下添加“字号还原”菜单项。

5、为“字号还原”菜单项设置命令：_SCREEN.FontSize=9。

四、设计表单

表单F102C用于实现对矩阵进行转置。按下列要求修改表单，修改后表单运行时如图2

所示。

1、设置“行数”微调框spnRows可输入数值的最小值为1，最大值为5，初始值为3.

SpinnerLowValue、KeyBoradLowValue 中均输入 1

SpinnerHighValue、KeyBoradHighValue 中均输入 5

Value 3

2、在“生成”按钮的右侧添加一个命令按钮Command2，设置标题为“转置”，初始状态为禁用。

Caption Enabled .F.

3、已知表单已经创建了一个方法程序

RandArray(m,n)，功能是生成一个m行n列的全局

数组arr1.编写“生成”命令按钮的事件代码，要求

仅用3条语句实现如下功能：（1）调用表单的

RandArray(m,n)方法，将行数和列数微调框spnRows

和spnCols中的值作为实参数，以生成数组，（2）将

全局数组名“arr1”设置为List1的数据源；（3）设

置“转置”按钮可操作。

Thisform.RandArray(Thisform.spnRows.Value,Th

isform.spnCols.value)

Thisform.List1.RowSource=?arr1?

https://www.360docs.net/doc/6b13701986.html,mand2.Enabled=.T.

4、编写微调框spnCols的InterActiveChange事件代码，当spnCols的值发生改变时，用一条语句实现列表框List1的列数与SpnCols的当前值保持一致。

Thisform.List1.ColumnCount=Thisform.spnCols.value

五、程序改错

下列程序的功能是：将二进制转换成十进制数。其基本算法是：将每一位的二进制数字乘以其相应的权并将乘积相加。二进制数字的权为：以小数点为界，整数部分从右向左依次为20、21、22…；小数部分从左向右依次为2-1、2-2、2-3…。例如二进制数1011.11转换成十进制为1*23+0*22+1*21+1*20+1*2-1+1*2-2=11.75。要求：

①将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改；

②在修改程序时，不允许修改程序的总体框架和算法，不允许增加减少语句数目。CLEAR

ACCEPT …请输入二进制数字? TO s2

??二进制数?,s2,?的十进制表示为：?,Trf(s2)

FUNCTION Trf()

Parameters s2 &&Parameters cstr

n=A T(….?,cstr)

cstr1=IIF(n>0,SUBSTR(cstr,1,n-1),cstr)

cstr2=IIF(n>0,SUBSTR(cstr, n+1),??)

STORE 0 TO m1,m2

FOR i=1 TO LEN(cstr1)

m1=m1+V AL(SUBSTR(cstr1,i,1))*2**(LEN(cstr1)-i)

ENDFOR

FOR j=1 TO LEN(cstr2)

m2=m2+V AL(SUBSTR(cstr2,i,1))*2**( -j)

&&改为m2=m2+V AL(SUBSTR(cstr2,j,1))*2**( -j)

ENDFOR

ENDFUN m1+m2 && RETURN m1+m2

2011C VFP04

一、项目、数据库和表操作

打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。

1、在JXSJ数据库中按如下表格中所示的结构创建AB.DBF表，并按表格中的要求设置相关属性。

(1) 设置保险单号字段的注释：自动编号；

(2) 这只保险金额字段的输入掩码：采用会计格式（即形如”1,234,457”）；99,999,999

(3) 设置保险金额字段的有效性规则：大于等于一万，且小于一千万；

Je>=10000 and je<=10000000

(4) 设置表的删除触发器：不能删除；.F.

(5) 创建普通索引，索引名为abcd，要求按保险金额降序排列。je

3、将自由表CJB表添加到当前数据库中，并设置为“包含”。

4、KC表已存在主索引KCDM，索引表达式KCDM；CJ表已存在普通索引KCDM，索引表达式为KCDM。以KC表为主表、CJ表为子表，根据KCDM建立永久关系，并设置两表之间的参照完整性：更新级联、删除限制、插入限制。

二、设计查询

院系专业表（YXZY）含有院系专业代码（yxzydm，C）、专业名称（zymc，C）等字段；学生表（XS）含省市（jg，C）和性别（xb，C）等字段。按如下要求修改JXGL项目中的查询CHAXUN：

基于YXZY表和XS表统计各专业各省市的男女学生人数。要求：输出字段为zymc、jg、xb、人数；查询结果按专业名称排序，专业名称相同时按省市排序；输出去向为屏幕。

Count(*) as 人数

分组：zymc jg xb 顺序不可以错

排序：zymc jg 顺序不可以错

去向：

三、设计菜单

JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单，菜单运行后如图1所示。

1、在“文件”菜单栏下插入系统菜单“新建(N)…”。

2、在菜单项“新建”和“退出菜单”之间插入分组线。

3、为菜单项“退出菜单”设置快捷键CTRL+E。

4、将菜单项“退出菜单”的“结果”类型由“命令”改为“过程”，并设置过程代码为：

CLEAR ALL

SET SYSMENU TO DEFAULT

5、在“文件”菜单栏右侧创建“管理信息系统”菜单栏。

四、设计表单

表单F102D用于实现对矩阵进行转置，按下列要求修改表单，修改后表单运行时如图2所示。

1、设置表单样式：无最大化、最小化控制按钮，

单线边框，运行时自动居中。

MaxButton .F. MinButton .F.

BorderStyle AutoCenter .T.

2、设置列表框List1的列分割线隐藏，并设置其

数据类型为“数组”。

ColumnLine RowSourceType

3、编写微调框spnRows的InterActiveChange事

件代码，要求实现当其值发生改变时，列表框List2

的列数与spnRows的当前值保持一致，同时调用“生

成”按钮的Click事件的方法程序，以重新生成矩阵。

要求仅用2条语句完成。

Thisform.List2.ColumnCount=Thisform.spnRows.V alue

https://www.360docs.net/doc/6b13701986.html,mand1.Click

4、已知表单已创建了一个用来对矩阵进行转置的方法程序TranArray()，该方法将List1中的行列数据进行转置，生成一个对应于转置矩阵的全局数组“arr2”，试编写“转置”按钮的Click事件代码，要求仅用2条语句实现：（1）调用表单的TranArray()方法程序以生成转置矩阵的全局数组“arr2”；（2）将数组名“arr2”设置为列表框List2的数据源。

Thisform.TranArray

Thisform.List2.RowSource=?arr2?

五、程序改错

下列程序的功能是：计算汉字的录入速度，单位为：字/分钟。其基本算法是：从键盘录入汉字至一个字符变量中，当按回车键时结束。统计该变量中汉字的个数及所用的时间，统计时忽略所有的非汉字字符（本题讨论的汉字均为GB2312—80的汉字）。要求：

①将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改；

②在修改程序时，不允许修改程序的总体框架和算法，不允许增加减少语句数目。CLEAR

n=0

t1=DATETIME()

ACCEPT …开始输入:? TO s

t2=DATETIME()

DO WHILE LEN(s)>0

IF ASC(LEFT(s,1))>?127?&& IF ASC(LEFT(s,1))>127

n=n+1

s=RIGHT(s,LEN(s)-2)

ELSE

s=LEFT(s,LEN(s)-1)

ENDIF

ENDDO

p=n*60/(t2-t1)

??汉字的录入速度为：?+p &&??汉字的录入速度为：?,p

2011C VFP05

一、项目、数据库和表操作

打开T盘根目录的项目文件JXGL，在该项目中已有一数据库JXSJ。

1、在JXSJ数据库中按如下表格中所示的结构创建AB.DBF表，并按表格中的要求相关属性。

(1) 设置表的注释：世界各国（地区）军费；

(2) 设置年度字段的输入掩码：只能输入数字字符；9999

(3) 设置国家地区字段的显示类：列表框；Listbox

(4) 设置表的更新触发器：只能更新年度为当前年度（以系统日期为准）或上一年

度的记录（例如：当前系统日期为2011年，则只能修改2010和2011年度的记录）；

Nd=Str(year(date()),4) or Nd=Str(year(date())-1,4)

(5) 创建普通索引，索引名为abcd，要求按年度排序，年度相同时按军费排序。

Nd + Str(jf)

2

3

4、KC表已存在主索引KCDM，索引表达式KCDM；CJ表已存在普通索引KCDM，索引表达式为KCDM。以KC表为主表、CJ表为子表，根据KCDM建立永久关系，并设置两表之间的参照完整性，更新级联、删除级联、插入限制。

二、设计查询

已知课程表（KC）含有课程代码（kcdm，C）、类型（lx，C）和课程名称（kcmc，C）等字段，成绩表（CJ）含有成绩（cj，N）和课程代号（kcdm，C）等字段。按如下要求修改JXGL项目中的查询CHAXUN：

基于KC表和CJ表查询各种类型课程的选课人数、获学分人数。要求：查询输出字段为lx、选课人数、获学分人数；查询结果按类型降序排序，类型相同时按选课人数排序；去向为临时表TEMP。

注：获学分的条件是cj.cj>=60。

Count(*) as 选课人数

Sum(iif(cj.cj>=60,1,0)) as 选课人数

分组：lx

排序：lx降序、选课人数升序

去向：Temp

三、设计菜单

JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单，菜单运行后如图1所示。

1、在“文件”菜单栏下添加“画图”菜单

项，为“画图”菜单项编写命令代码：RUN/N

mspaint。

2、在“文件”菜单栏右侧创建“成绩管理”

菜单栏。

3、为“成绩管理”菜单栏设置访问键“C”。

4、为“成绩管理”菜单栏创建子菜单“查

询”和“计算学分”。

5、在“查询”和“计算学分”菜单项之间

插入分组线。

四、设计表单

表单F102G用来按小组查看世界杯球队信

息。按下列要求修改表单，修改后表单运行时

如图2所示。

1、列表框List1用来显示选定组别的球队列表，设置其列数为3，数据源类型为“6-字段”，数据源设置为“组别，编号，国家”三个字段。

ColumnCount 3 RowSourceType

RowSource: fifa.组别,编号,国家

2、在“队名”标签右侧添加一个OLE绑定型控件，用来显示国旗。设置其绑定到“国旗”字段，并将图像显示方式设置为“变比填充”方式。

注意：表单控件中有两个OLE控件，应该添加的是蓝色的那个

绑定：设置OLE的ControlSource属性：fifa.国旗

Stretch 变比填充

3、完善“组别”下拉列表看Combo1的InterActiveChange事件代码，在原有代码的IF…ENDIF语句汇总的空白行处加入一条语句实现：如果下拉列表框Combo1当前选择是“全部”，则取消对fifa表的筛选。此外，在原有代码的最后增加一条语句，使List1的第一项被选中。

中间增加一行：Set Filter to

最后增加一行：Thisform.List1.ListIndex=1

4、编写列表框List1的InterActiveChange事件代码，实现：将标签Label3的标题设置为当前选定的fifa表中国家字段的值并刷新表单。

https://www.360docs.net/doc/6b13701986.html,bel3.Caption=fifa.国家

Thisform.Refresh

五、程序改错

下列程序的功能是：在屏幕上显示如图3所示的菱形。要求：

①将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改；

②在修改程序时，不允许修改程序的总体框架和算法，不允许增加减少语句数目。CLEAR

=ff(10,?A?,?B?)

PROCEDURE ff()

PARA 10,S1,S2 && PARA m,S1,S2

FOR i=1 TO m

??SPACE(m-i)

FOR j=1 TO 2*m-1 FOR j=1 TO 2*i-1

??IIF(INT(i/2)=i/2,s1,s2)

ENDFOR

?

ENDFOR

FOR i=m-1 TO 1 STEP –1

??SPACE(m-i)

FOR j=2*i-1 TO 1 STEP –1

??IIF(INT(i/2)=i/2,s1,s2)

ENDFOR

?

ENDFOR