当前位置：文档库 › 2010年(秋)上机试卷

2010年(秋)上机试卷

上机试卷

2010年（秋）上机试卷

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

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

1．在JXSJ 数据库中按如下表格中所示的结构创建AB.DBF 表，并按表格中的要求设

（1）设置AB 表的表注释：世博会参观人数；

（2）设置日期字段的默认值：当前系统日期；（3）设置日期字段的显示类：微调框；

（4）设置记录有效性规则：实际入园人数小于售出门票数量；

（5）创建普通索引，索引名为abcd ，要求按实际入园人数与售出门票数量之比排序。 2．在AB 3．给KC 表中所有学分大于或等于5的记录加删除标记。

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

二、设计查询

已知教师（JS ）表含有工号（gh ，C ）、姓名（xm ，C ）等字段；图书借阅（JYB ）表，含有读者号（dzh ，C ）、分类号(flh ，C)、借阅日期（jyrq ，D ）、还书日期（hsrq ，D ）和罚款（fk ，N ）等字段。按如下要求修改JXGL 项目中的查询chaxun ：

基于JS 表和JYB 表查询教师借书情况，计算过期罚款信息。查询输出字段为：dzh ，xm ，flh ，罚款。查询结果按罚款降序排序；输出去向：文本文件TEMP 。(罚款计算方法为：30天以上超过部分每本每天0.10元；未还书者不计算。dzh 值为借书教师gh 字段值)。三、设计菜单

JXGL 项目中已存在菜单menu ，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单。

1．在“文件”菜单栏右侧创建“数据管理”菜单栏； 2．在“数据管理”菜单栏下插入子菜单“查询”和“数据备份”； 3．为“查询”菜单项设置热键：F12；

4．在菜单项“查询”和“数据备份”之间插入分组线； 5．为“数据备份”菜单项设置过程代码：

图 1

D= GETFILE("dbf","*.dbf")

USE &D

COPY TO BF1

四、设计表单（10分）

表单F101A用于统计输入文本中各类字符的个数。按下列要求修改表单，修改后表单运行时如图所示。

1．修改表单的有关属性，使表单的标题为“字符数统计”，设置字数统计的三个文本框禁用。

2．适当加大Shape1形状的高度，并在其区域内增加一个标签控件Label_Sum和一个文本框控件Text4，设置Label_Sum的标题为“总字符数：”。

3．编写“清空”按钮的Click事件代码，实现如下功能：（1）使编辑框Edit1的文本清除；（2）使“字数统计”矩形区域内的四个文本框的值置0。

4．表单已定义了一个Count( )方法，用来对Edit1编辑框中的文本进行字数统计。编写“统计”按钮的Click事件代码，以实现对表单的Count( )方法的调用。

五、程序改错

下列程序的功能是：按下图所示输出相应的式子。要求：

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

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

CLEAR

n1=''

n2=SPACE(1)

FOR i=1 TO 9

FOR j=1 TO 9

n1=n1+ALLT(STR(j))

ENDFOR

k=ALLT(STR(VAL(n1)*8+i))

m=SPACE(9)+n1+n2+'*'+n2+'8'+n2+'+'+n2+ALLT(STR(i))+n2+'='

?m,k

n1=''

ENDFOR

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

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

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

（1）设置AB表的表注释：汽车违停记录；

（2）设置日期字段的默认值：当前系统日期减1；

（3）设置地点字段的显示类：列表框；

（4）设置汽车牌号字段的有效性规则：不能为空；

（5）创建普通索引，索引名为abcd ，要求按地点排序，相同时根据汽车牌号排序。 2．在AB

3．修改JC 4．JS 表已存在主索引GH ，索引表达式为GH ；KCAP 表已存在普通索引GH ，索引表达式为GH 。以JS 表为主表、KCAP 表为子表，根据GH 建立永久关系，并设置两表之间的参照完整性：更新限制、插入限制。

二、设计查询

已知学生（XS ）表含有学号（xh ，C ）、姓名（xm ，C ）等字段；自由表图书借阅（JYB ）表含有读者号（dzh ，C ）、分类号(flh ，C)、借阅日期（jyrq ，D ）和还书日期（hsrq ，D ）等字段，其中学生的读者号同学号。按如下要求修改JXGL 项目中的查询CHAXUN ：

基于XS 表和JYB 表查询学生借书情况，计算过期罚款信息。要求：查询输出字段为dzh 、xm 、罚款；查询结果按罚款降序排序；输出去向为文本文件TEMP.TXT 。

注：罚款计算方法为30天以上超过部分每本每天0.05元，未还书者（即还书日期为空的记录）不统计。

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

1．在“文件”菜单栏右侧创建“成绩管理”菜单栏。 2．在“成绩管理”菜单栏下创建子菜单“查询”和插入系统菜单栏“导出（E ）”菜单项。

3．为“查询”菜单项设置命令：SELECT * FROM cj

4．为“导出”菜单项设置跳过条件：CJ 表打开时才可操作（启用）。 5．在菜单项“查询”和“导出”之间插入分组线。

四、设计表单

表单F101C 用于数据的录入。按下列要求修改表单，修改后表单运行时如图2所示。 1．设置文本框控件的输入掩码，使其只能接受四位数字，不允许输入字母、汉字或其它字符，并设置文本框中的数字以粗体显示。

2．在表单的空白区域添加一个复选框控件Check1（如图所示），设置其标题为“自动排序”，值为逻辑假（.F.），并设置有关属性使其能自动调整大小。

3．若复选框Check1被选中，表示列表框List1中的项自动排序，否则不自动排序。编写Check1的Click 事件代码，根据Check1自身的值，用一条语句设置列表框控件List1的自动排序属性（Sorted ）

。

4．编写“清除”按钮的Click 事件代码，用2条语句实现如下功能：将列表框List1的所有数据项清空，将文本框Text1的值置零。五、程序改错

我国古代数学家张丘建在《算经》一书中曾提出著名的“百钱买百鸡”问题，该问题是： 1只公鸡5元、1只母鸡3元、3只仔鸡1元，若用100元恰好买100只鸡，则公鸡、母鸡

图 1 图 2

和仔鸡各多少只？修改下列程序以解决上述计算问题，要求：同vfp01

CLEAR

cString=''

FOR i = 0 TO 100/5

FOR j = 0 TO 100/3

FOR k = 0 TO 3*100

IF accord(i, j, k) = 1

cString ="公鸡：" + ALLT(STR(i)) + "只，母鸡："+ ALLT(STR(j)) ;

+"只，小鸡：" + ALLT(STR(k))+"只"

?cString

ENDIF

ENDFOR

ENDIF

ENDFOR

FUNCTION accord

PARA i, j, k

IF 5*i+3*j+k/3=100 OR i+j+k =100

RETURN 1

ELSE

RETURN 0

ENDIF

ENDFUNC

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

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

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

（1

（2）设置日期字段的默认值：系统当前日期；

（3）设置报销单位字段的显示类：列表框；

（4）设置日期的有效性规则：不能为星期六和星期日（提示：使用DOW函数）；

（5）创建普通索引，索引名为abcd，要求按报销单位排序，相同时根据日期排序。

3．将DMB中类型（LX）为“文化程度”的记录复制到新的表中（表名为WHCDB）。

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

二、设计查询

已知教师（JS ）表含有工号（gh ，C ）、院系专业代码（yxzydm ，C ）等字段；自由表工资（GZB ）表含有工号（gh ，C ）、基本工资（jbgz ，N ）、岗位津贴（gwjt ，N ）、综合津贴（zhjt ，N ）、住房补贴（zfbt ，N ）、等字段。按如下要求修改JXGL 项目中的查询CHAXUN ：

基于JS 表和GZB 表查询各院系专业教师人数和应发工资总额。要求：查询输出字段为yxzydm 、人数、应发工资总额；查询结果按应发工资总额降序排序，且仅输出应发工资总额最多的前三个院系；输出去向为表文件TEMP 。

注：应发工资总额=jbgz +gwjt +zhjt +zfbt 三、设计菜单 JXGL 项目中已存在菜单MENU ，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单，菜单运行后的效果如图1所示。

1．在“文件”菜单栏右侧创建“数据库”菜单栏。 2．在“数据库”菜单栏下创建子菜单“浏览文件”。 3．为“浏览文件”菜单设置快捷键“CTRL + D ”。

4．在“数据库”菜单栏下插入系统菜单“打开”和系统菜单“关闭”。 5．为“浏览文件”菜单项设置命令代码：DIR *.dbc

四、设计表单

表单F101G 用于实现用户登录。按下列要求修改表单，修改后表单运行时如图2所示。 1．设置文本框Text1的相关属性，使其最多能输入6个字符，且文本居中显示；设置文本框Text2的密码占位符为“*”。

2．创建一个包含当前表单的表单集FormSet1，然后在该表单集中添加一个新表单Form2，并设置Form2的有关属性，使其在初始运行时隐藏。

3．为了使文本框Text1输入的字符数不少于4，可通过

其Valid 事件进行检验。编写其Valid 事件代码，要求：当Text1

中字符数小于4时返回.F.（表示验证不通过，焦点不会离开）。

4．修改“登录”按钮的Click 事件代码，实现如下功能：如果文本框Text1中输入的用户名为“admin ”，且Text2中输入的密码为“123456”，则显示Form2表单，同时关闭Form1表单。

五、程序改错

回文数是指正读和反读都是一样的数，例如121，1001，1221等。下列程序的功能是：求出小于2000的所有回文数，并将它打印出来（每行打印5个数，最后一行打印总个数）。要求：同vfp01

STORE O TO n, n1, n2 FOR i=1 TO 2000 s=ALLT(STR(i)) n1=LEN(s) n2=INT(n1/2) istrue =.T.

FOR j=2 TO n1

IF SUBSTR(s, j, 1)<>SUBSTR(s, n1-j+1, 1) istrue=.F.

图

1 图 2

EXIT

ENDIF

ELSE

IF istrue

n=n+1

?? i

IF INT(n/5)=n/5

ENDIF

ENDFOR

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

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

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

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

（1）设置AB表的表注释：汽车超速记录；

（2）设置日期字段的默认值：当前系统日期；

（3）设置地点字段的显示类：列表框；

（4）设置车速字段的有效性规则：大于120或小于60；

（5）创建普通索引，索引名为abcd，要求根据地点排序，相同时根据车速排序。

2．在AB

3．修改JC表数据：所有记录的单价字段的值增加10%。

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

二、设计查询

已知教师（JS）表含有工号（gh，C）、院系专业代码（yxzydm，C）等字段；自由表图书借阅（JYB）表含有读者号（dzh，C）、借阅日期（jyrq，D）、还书日期（hsrq，D）等字段，教师的读者号同工号。按如下要求修改JXGL项目中的查询CHAXUN：基于JS表和JYB表查询各院系专业借书情况。要求：查询输出字段为yxzydm、借书本数、未还本数、最大借阅天数；查询结果按最大借阅天数降序排序；输出去向为临时表TEMP。

注：借阅天数为hsrq 与jyrq 之差，未还的图书按当前系统日期计算借阅天数。

三、设计菜单

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

图 1

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

1．在“文件”菜单栏右侧创建“数据管理”菜单栏。

2．在“数据管理”菜单栏下创建子菜单“教师”和“学生”。

3．为“教师”菜单项设置跳过条件：JS表打开时菜单项才可操作（启用）。

4．为“教师”菜单项创建子菜单“浏览”、“复制”，并且插入分组线。

5．为“复制”菜单项设置命令代码：COPY TO bfjs

四、设计表单

表单F101D用于实现系列数据的录入。按下列要求修改表单，修改后表单运行时如图2所示。

分别为30和60。

2．在表单的空白区域添加一个微调框控件Spinner1（如图所

示），用来控制列表框中数据的最大行数。设置其初值为5，微调

可达最小值为5，最大值为50。

3．在“添加”按钮的Click事件代码中增加一条语句，要求

实现在向列表框中添加一行新的数据后，在该行的第二列显示行

图 2

号，且行号显示宽度为2个字符。

4．将“添加”按钮的Click事件的所有代码放入一个IF…ENDIF语句结构中，要求根据微调框控件的值来控制向列表框中添加数据，即如果列表框中的数据行数已经达到Spinner1的值，则给出对话框提示“已经达到最大行数，不能添加！”，否则执行原来的所有代码。

五、程序改错

有红、黄、绿三种颜色的球，其中红球3个，黄球3个，绿球6个，现将这12个球混放在一个盒子中，从中任意摸出m个球，问会出现多少种不同情况？下列程序的功能是解决上述问题，要求：同vfp01

CLEAR

FOR m= 1 TO 12

?"任意取"+ ALLT(STR(m))+"球的取法有"+ ALLT(STR(solutionCount(m))) +"种"

ENDFOR

FUNCTION solutionCount()

PARA iNum

sumNum = 0

FOR i = 0 TO 3

FOR j = 0 TO 3

FOR k =0 TO 6

IF i+j+k = 12

sumNum =sumNum + 1

ENDIF

ENDFOR

EXIT sumNum

ENDFUNC

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

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

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

（1（2）设置通话开始时间字段的默认值：当前系统日期与时间；（3）设置通话类型字段的显示类：选项按钮组；

（4）设置记录有效性规则：通话结束时间大于通话开始时间；

（5）创建普通索引，索引名为abcd ，要求按手机号码排序，相同时按通话类型排序。 23．为JC 表增加一个字段名为NDJ 、类型为数值型、宽度为2的字段，并计算该字段的值：NDJ 字段的值为单价（DJ ）字段值的70%，小数部分四舍五入。

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

二、设计查询

已知学生（XS ）表含有学号（xh ，C ）、院系专业代码（yxzydm ，C

）等字段；自由表

图书借阅（JYB ）表含有读者号（dzh ，C ）、借阅日期（jyrq ，D ）、还书日期（hsrq ，D ）等字段，教师的读者号同工号。按如下要求修改JXGL 项目中的查询CHAXUN ：

基于XS 表和JYB 表查询各院系专业借书情况。要求：查询输出字段为yxzydm 、借书本数、未还本数、最大借阅天数；查询结果按最大借阅天数降序排序；输出去向为临时表TEMP 。注：借阅天数为hsrq 与 jyrq 之差，未还图书按当前系统日期计算借阅天数。三、设计菜单

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

1．创建“图书管理系统”菜单栏。

2．在“图书管理系统”菜单栏下创建子菜单“采购”、“流通”和“统计”。 3．为“流通”菜单项创建子菜单“读者”、“借阅”和“还书”。 4．为“流通”菜单项设置快捷键“CTRL+L ”。 5．为“借阅”设置提示信息：“每本书一次借阅不能超过30天”。四、设计表单

表单F101E 实现对汉字文本加密。按下列要求修改表单，修改后表单运行时如图2所示。

1．设置表单边框类型为“固定对话框”。已知表单已创建了

图 1 图 2

一个方法程序Encrypt，其功能是对给定的汉字字符串进行加密，并返回密文字符串，设置该方法的说明文本：“汉字字符串加密”。

2．设置编辑框控件Edit1的有关属性，使其最多只能输入20个汉字。设置编辑框控件Edit2的有关属性，使其内容不可修改，但可获得焦点。

3．在表单空白区域添加一个命令按钮Command1，设置其标题为“清空”，并编写该按钮的Click事件代码，要求实现清空两个编辑框中的文本。

4．为了确保编辑框控件Edit1只能输入汉字，可在该控件的KeyPress事件发生时（即按键时），对字符的键值（nKeyCode）进行检查，如果键值小于127，则取消按键操作（用CANCEL命令）。编写Edit1控件的KeyPress事件代码，实现上述功能。

五、程序改错

15个男生和15个女生（共30人）围成一圆圈，从第一个人开始依次报数，每数到第九个人就出列，如此循环直到仅余15个人为止。问怎样排法才能使每次出列的人均是女生？下列程序给出的排法可以使得每次出列的人均是女生（程序中数组a(30)表示30个人，数组元素的值为“1”表示男生、“0”表示女生）。要求：同vfp01

CLEAR

DIME a(30)

a='1'

STORE 0 TO i, j, m

DO WHILE m<15

DO WHILE .T.

i=IIF(i+1=31, 1, i+1)

IF a(i)='0'

j=j+1

ENDIF

IF j=9

a(i)='0'

m=m+1

j=0

LOOP

ENDIF

ENDDO

FOR i=1 TO 30

?? a(i)

ENDFOR

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

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

1．在JXSJ数据库中按如下表格中所示的结构创建AB.DBF表，并按表格中的要求设

（1）设置AB表的表注释：考生成绩；

（2）设置是否缺考字段的默认值：.F.；

（3）设置是否缺考字段的显示类：复选框；

（4）设置笔试成绩字段的有效性规则：大于或等于0，小于或等于60；

（5）创建普通索引，索引名为abcd ，要求按笔试成绩与上机成绩之和排序。 2

3．将DMB 表中类型（LX ）为“民族”的记录复制到新的表中（表名为MZB ）。 4．XS 表已存在主索引XH ，索引表达式为XH ；CJ 表已存在普通索引XH ，索引表达式为XH 。以XS 表为主表、CJ 表为子表，根据XH 建立永久关系，并设置两表之间的参照完整性：更新限制、删除级联。

二、设计查询

已知教师（JS ）表中含有姓名（xm ，C ）和出生日期（csrq ，D ）等字段。按如下要求修改JXGL 项目中的查询CHAXUN ：

基于JS 表查询统计教师生日信息。要求：输出字段为姓名、年龄、生日信息；查询结果仅输出年龄为5整数倍的记录；按年龄降序排序，年龄相同时按生日信息排序（生日信息使用xx 月xx 日表示，可用MONTH()和DAY()从出生日期中求得）。三、设计菜单

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

1．在“文件”菜单栏下插入系统菜单“打开”。

2．在“文件”菜单栏右侧创建“工资处理”菜单栏。

3．为“工资处理”菜单栏创建子菜单“基本工资”、“住房补贴”和“住房公积金”，并且插入分组线。

4．为“基本工资”菜单项设置命令代码：

SELECT gh ，jbgz FROM gzb ORDER BY 2 DESC 5．为“基本工资”菜单项设置访问键“B ”。

四、设计表单

表单F101F 实现对汉字文本加密。按下列要求修改表单，修改后表单运行时如图2所示。

1．在“加密”按钮的左侧添加一个标签控件Label3和一个组合框控件Combo1。设置标签的标题为“加密方式”；设置组合框的样式为“下拉列表框”，数据行源类型为“值”，数据源为“方

式1,

方式2”。

2．编写组合框Combo1的Init 事件代码，要求只用一条语句实现：使在表单运行后，默认选中“方式2”（即该控件的ListIndex

属性值取2）。

3．已知表单已创建了用于加密的方法程序：Encrypt(enType, SourceStr)，其中enType 参数表示加密的方式，可取整数值1或2；SourceStr 参数表示需要加密的原文，返回值为密文字符串。修改“加密”按钮的Click 事件代码，以实现：根据组合框控件Combo1当前选定的加密方式，对Edit1控件中的源文加密，并将密文显示在Edit2控件中，要求只在原代码上修改，不允许增加新的语句。提示：enType 参数可取Combo1当前选定行的索引号

图 1 图 2

（ListIndex）。

五、程序改错

下列程序的功能是：求一个4位整数ABCD和一个1位整数E（1除外），它们的乘积等于DCBA，如2178*4=8712。要求：同vfp01

CLEAR

DIME n(4), m(4)

FOR i=1000 TO 9999

FOR j=1 TO 4

n(j)=SUBS(ALLT(STR(i)), j, 1)

ENDFOR

FOR k=2 TO 9

s=i*j

IF s<=9999

FOR p=1 TO 4

m(p)=SUBS(ALLT(CHR(s)), p, 1)

ENDFOR

IF m(4)=n(1) AND m(3)=n(2) AND m(2)=n(3) AND m(1)=n(4)

? i, k

ENDIF

ENDFOR

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

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

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

（1）设置AB表的表注释：世博会各场馆参观人数；

（2）设置日期字段的默认值：当前系统日期；

（3）设置场馆名称字段的显示类：列表框；

（4）设置参观人数字段的有效性规则：参观人数小于50000；

（5）创建普通索引，索引名为abcd，要求按场馆名称排序，相同时根据参观人数排序。

2．在AB

3．给KC表中所有学分为5和6的所有记录均加删除标记。

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

二、设计查询

已知课程安排（KCAP ）表是用来存储各学期各班教学课程安排信息的表，含有学期编码（xqbm ，C ）、班级编号（bjbh ，C ）、课程代码（kcdm ，C ）和教师工号（gh ，C ）等字段；课程（KC ）表中含有课程代码（kcdm ，C ）和课时数（kss ，N ）等字段。按如下要求修改JXGL 项目中的查询CHAXUN ：

基于KCAP 表和KC 表查询每个教师每学期各门课程的班级数、课时数。要求：输出字段为gh 、xqbm 、kcdm 、班级数、课时数；查询结果按gh 排序；输出去向为表文件TEMP 。三、设计菜单

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

1．在“文件”菜单栏右侧创建“数据管理”菜单栏。 2．为“数据管理”菜单栏创建子菜单“数据查询”、 “备

份”和“数据打印”。

3．为“数据打印”菜单项创建子菜单“课程表”、“教师表”和“教材表”。 4．在菜单项“课程表”、“教师表”和“教材表”之间插入分组线。 5．为“课程表”菜单项设置过程代码： USE kc

LIST TO PRINT 四、设计表单

表单F101B 用于实现自动统计输入文本中各类字符的个数。按下列要求修改表单，修改后表单运行时如图2所示。

1．设置计时器控件Timer1的相关属性，使其计时器事件发生的间隔为2秒，初始状态为禁用。

2．在表单的空白区域添加一个复选框控件Check1（如图所示），并设置其标题为“自动统计”、初始值为.F.。

3．编写Check1的Click 事件代码，用一条语句实现如下功能：如果Check1被选中，则启用Timer1控件，否则禁用Timer1控件。

4．表单已定义了一个Count( )方法，用来对Edit1编辑框中的文本进行字数统计。编写Timer1控件的Timer 事件代码，以实现对表单的Count( )方法的调用。五、程序改错

下列程序的功能是求解“百钱买百鸡问题”：1只公鸡5元、1只母鸡3元、3只仔鸡1元，若100元买100只鸡，则共有几种结果？要求：同vfp01

CLEAR n=0

FOR i=0 TO 100/5

FOR j=0 TO (100-i*5)/3

FOR k=0 TO 100-i*5-j*3 IF i*5+j*3+k/3=100 AND i+j+k=100 n=n+1

? '鸡翁：', i, '鸡母：', j, '鸡雏：', k

图

图 2

ENDIF

ENDFOR ENDFOR ENDFOR

?'共：'+ n+ '种结果'