2011春VFP上机试卷含答案

2011年春VFP上机试卷

2011C VFP01

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

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

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

字段名 RQ PM DW DJ 数据类型 D C C N 宽度 20 10 5(小数1位) 字段标题 日期 品名 单位 单价 (1) 设置表的注释：蔬菜批发价格表； (2) 设置RQ字段的默认值：当前系统日期；Date()

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

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

Rq =Date()

(5) 创建普通索引，索引名为abcd，要求按日期排序，日期相同时按单价排序。 2、在AB表中输入如下记录：Dtoc(rq,1)+Str(dj) RQ 2010-5-15 PM 青菜 DW 公斤 DJ 2.4 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(…, AT(“.”, …)) 形式的表达式求得），藏书册数为同一图书类别册数之和。

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表，并按表格中的要求设置相关属性。

字段名 PM YZ SC RKRQ 数据类型 C C N D 宽度 20 10 3 字段标题 片名 语种 时长 入库日期 (1) 设置表的注释：影视记录；

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

(3) 设置时长字段的有效性规则：大于或等于30； SC>=30 (4) 设置语种字段的显示类：列表框；ListBox

(5) 创建普通索引，索引名为abcd，要求按语种排序，语种相同时按时长排序。 2、在AB表中数额如下记录：yz + Str(sc) PM Avatar YZ 英语 SC 150 PKRQ 2010-5-15 3、将自由表CJB中的所有记录彻底删除（即物理删除）。 第一种方法：浏览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表，并按表格中的要求设置相关属性。

字段名 BH IP DW 数据类型 C C C 宽度 5 15 30 字段标题 机器编号 IP地址 单位

ZRR RQ C D 12 负责人 注册日期 (1) 设置机器编号字段的输入掩码：第一个字符为任意字符，其它只能输入数字字符； (2) 设置单位字段的默认值：南京大学；

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

(4) 设置责任人字段的有效性规则：不能为空；not empty(zrr) (5) 创建普通索引，索引名为abcd，要求按注册日期排序，注册日期相同时按单位排序。 表达式：Dtoc(rq,1) +dw

2、在AB表中输入如下记录： BH B1023 IP 194.11.12.222 DW 南京大学XX系 ZRR 张小 RQ 2010-05-14 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,Thisform.spnCols.value)

Thisform.List1.RowSource=?arr1? Thisform.Command2.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=AT(?.?,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+VAL(SUBSTR(cstr1,i,1))*2**(LEN(cstr1)-i)

ENDFOR

FOR j=1 TO LEN(cstr2)

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

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

ENDFOR

ENDFUN m1+m2 && RETURN m1+m2

2011C VFP04

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

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

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

字段名 BZDH QCPH RQ JE 数据类型 C C D N 宽度 12 8 8 字段标题 保险单号 汽车牌号 生效日期 保险金额 (1) 设置保险单号字段的注释：自动编号； (2) 这只保险金额字段的输入掩码：采用会计格式（即形如”1,234,457”）；99,999,999 (3) 设置保险金额字段的有效性规则：大于等于一万，且小于一千万； Je>=10000 and je<=10000000

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

(5) 创建普通索引，索引名为abcd，要求按保险金额降序排列。je 2、在AB表输入如下记录： BXDH 123420110012 QCPH 苏ABC001 RQ 2011-0402 JE 1,200,000 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.Value Thisform.Command1.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表，并按表格中的要求 相关属性。

字段名 ND GJDQ JF BZ 数据类型 C C N M 宽度 4 20 6(小数1位) 字段标题 年度 国家地区 军费 备注 (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、在AB表中输入如下记录： ND 2009 GJDQ 美国 JF 6120 BZ 3、将菜单文件MENU设置为项目“包含”。 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表中国家字段的值并刷新表单。

Thisform.Label3.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

本文来源：https://www.bwwdw.com/article/fm56.html