2012上半年模拟题9套及答案

2012年上半年VFP机试——模拟题一：

参考答案：

为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹

1.数据库的建立、添加数据表、永久关系的建立： CREATE DATABASE ABC MODI DATABASE ABC ADD TABLE AST

ADD TABLE ASC

利用数据库设计器建立永久关系 2.复制生成文本文件： CLOSE ALL

USE ASC

COPY TO XSXX SDF 3.建立关联、填充数据： CLOSE ALL SELECT 0

USE AST

INDEX ON XH TO AST SELECT 0 USE ASC

COPY TO AXK USE AXK

MODI STRU &&插入第二个字段“XM” SET RELATION TO XH INTO AST REPLACE ALL XM WITH AST.XM CLOSE ALL

第 1 页 共 28 页

操作步骤如下：

1.选择“文件/新建”命令，新建一个项目，项目文件名为PROJ1；

2.单击“代码”列表，并选中“程序”项，单击“添加”按钮，并选中考生文件夹下MAIN.PRG，将该程序添加到项目中；

3.单击“文档”列表，并选中“表单”项，单击“新建”按钮，新建一个新表单； 4.在表单属性窗口中，Caption设置为“页框控件应用”，Height设置为180，Width设置为300； 5.在控件窗口中选择页框控件，在表单的适当位置拖放；

6.在页框上单击右键，选择“编辑”命令，分别单击两个页面，在属性窗口中将它们的Caption分别设置为“关于系统”和“退出系统”； 7.选中第1个页面，在控件窗口中选择编辑框控件，在页面的适当位置添加编辑框控件Edit1,在其属性窗口中,将Value设置为：该系统测试考生对页框控件的理解与应用 8.选中第2个页面，在控件窗口中选择按钮控件，在页面的适当位置添加按钮Command1,在其属性窗口中,将Caption设置为“关闭”，Click事件参考代码如下： ThisForm.Release

9.选择“文件/保存”命令，在弹出的对话框中将其保存到考生文件夹中，文件名为SCRE1； 10.单击工具栏中的“运行”按钮运行该表单，调试通过后关闭表单设计窗口； 11.单击“连编”按钮，在“连编选项”对话框中选中“连编可执行文件”； 12.单击“确定”按钮，在“另存为”对话框的应用程序名处输入“PROJ1”； 13.单击“保存”按钮，完成连编。

第 2 页 共 28 页

操作步骤：

1.使用MODI COMM PROG1 命令进入编程窗口。 参考程序： USE CZF

COPY TO NCZF USE NCZF SCAN

NZC=\

FOR I=1 TO LEN(RTRIM(ZHC)) IF SUBSTR(ZHC,I,1)<>ZM NZC=NZC+SUBSTR(ZHC,I,1) ENDIF ENDFOR

REPL ZC WITH NZC ENDSCAN USE

CANCEL 2.使用CREATE MENU MENU1命令创建菜单，建立菜单项“过滤”和“退出”。 “过滤”项中结果选“命令”，选项中填写“DO PROG1.PRG”或“DO PROG1”； “退出”项中结果选“命令”，选项中填写“QUIT”或“RETURN”或“CANCEL”； 生成菜单程序，运行菜单并执行“过滤”项。

第 3 页 共 28 页

模拟题二：

参考答案：

为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹 参考答案：

为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹 1.复制数据表、追加记录： USE ASTUD COPY TO AST USE AST

APPEND FROM AXSDA 2.建立索引：

USE AXSDA

INDEX ON 性别+学号 TAG XBXH &&或用表设计器建立 CLOSE INDEX 3.统计与变量操作：

USE AXSDA AVERAGE 入学分 TO PJF &&或用CALCULATE AVG(入学分) TO PJF SAVE TO MPJF

第 4 页 共 28 页

操作步骤如下：

1.选择“文件/新建”命令，新建一个项目，项目文件名为PROJ1；

2.单击“代码”列表，并选中“程序”项，单击“添加”按钮，并选中考生文件夹下MAIN.PRG，将该程序添加到项目中；

3.单击“文档”列表，并选中“表单”项，单击“新建”按钮，新建一个新表单；

4.在表单属性窗口中，Caption设置为“追加记录”，Height设置为300，Width设置为400； 5.在表单上右击，选择“数据环境”，将B01.DBF表添加到数据环境中； 6.选择表格控件，在表单的适当位置拖放；

7.选择标签控件，在表单的适当位置拖放产生Label1标签，在其属性窗口中，将Caption设置为“准考证号”； 8.选择标签控件，在表单的适当位置拖放产生Label2标签，在其属性窗口中，将Caption设置为“姓名”； 9.选择标签控件，在表单的适当位置拖放产生Label3标签，在其属性窗口中，将Caption设置为“成绩”； 10.选择文本框控件，在表单的适当位置拖放产生Text1文本框； 11.选择文本框控件，在表单的适当位置拖放产生Text2文本框；

12.选择文本框控件，在表单的适当位置拖放产生Text3文本框，在其属性窗口中，将Value设置为0； 13.选择命令按钮控件，在表单的适当位置拖放，在其属性窗口中，Caption设置为“追加”，其Click事件参考代码如下：

APPEND BLANK

REPL 准考证号 WITH THISFORM.TEXT1.VALUE REPL 姓名 WITH THISFORM.TEXT2.VALUE REPL 成绩 WITH THISFORM.TEXT3.VALUE

14.选择命令按钮控件，在表单的适当位置拖放，在其属性窗口中，将Caption设置为“关闭”，其Click事件参考代码如下：

THISFORM.RELEASE

15.选择“文件/保存”命令，在弹出的对话框中将其保存到考生文件夹中，文件名为SCRE1；

第 5 页 共 28 页

16.单击工具栏中的“运行”按钮运行该表单，调试通过后关闭表单设计窗口； 17.单击“连编”按钮，在“连编选项”对话框中选中“连编可执行文件”； 18.单击“确定”按钮，在“另存为”对话框的应用程序名处输入“PROJ1”； 19.单击“保存”按钮，完成连编。

操作步骤：

1.使用MODI COMM PROG1 命令进入编程窗口。 参考程序1：

SELECT 科目, CNT(*) AS 人数, AVG(分数) AS 平均成绩; FROM CJ GROUP BY 科目 ORDER BY 科目;

INTO TABLE KSCJ.DBF

ALTER TABLE KSCJ ALTER 科目 C(30) ALTER 人数 N(10) ALTER 平均成绩 N(16,2) CANCEL

参考程序2：

CREATE TABLE KSCJ(科目 C(30), 人数 N(10) ,平均成绩 N(16,2)) SELECT 0 USE CJ

INDEX ON 科目 TAG 科目 UNIQ COPY TO CCJ CLOSE INDEX SELECT KSCJ

APPEND FROM CCJ SCAN KM=KSCJ.科目 SELECT CJ

COUNT ALL FOR CJ.科目=KM TO RS

AVERAGE ALL 分数 FOR CJ.科目=KM TO PJF SELECT KSCJ

REPLACE 人数 WITH RS ,平均成绩 WITH PJF

ENDSCAN CLOSE ALL

2.使用CREATE MENU MENU1命令创建菜单，建立菜单项“计算”和“退出(\\

第 6 页 共 28 页

模拟题三：

参考答案：

为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹 1.数据表的排序：

USE AXSDA

SORT TO APX ON 籍贯/D,学号 FIELDS 学号,姓名,籍贯 2.数据表的复制、删除记录：

COPY TO AXS FIELDS 姓名,出生日期 USE AXS

DELETE FOR 2012-YEAR(出生日期)>30 PACK

3.数据表的复制、添加字段、填写值： USE AXSCJ COPY TO ACJ

USE ACJ

ALTER TABLE ACJ ADD 总评 C(6) &&或用MODI STRU命令添加 REPLACE ALL 总评 WITH IIF((语文+数学+英语)/3>=90,\合格\不合格\

第 7 页 共 28 页

操作步骤如下：

1.选择“文件/新建”命令，新建一个项目，项目文件名为PROJ1；

2.单击“代码”列表，并选中“程序”项，单击“添加”按钮，并选中考生文件夹下MAIN.PRG，将该程序添加到项目中；

3.单击“文档”列表，并选中“表单”项，单击“新建”按钮，新建一个新表单； 4.在表单属性窗口中，Caption设置为“圆演示”，Height设置为100，Width设置为400； 5.选择形状控件，在表单的适当位置拖放，在该控件的属性窗口中，将Curvature属性设置为99 ，将Height属性设置为40，将Width属性设置为40，BackColor设为0,255,0；

6.选择线条控件，在表单的适当位置拖放，在该控件的属性窗口中，将Height设置为0，将Width 为400； 7.选择时钟控件，在表单的适当位置拖放，在该控件的属性窗口中，将Interval设置为1000,其Click事件参考代码如下：

THISFORM.SHAPE1.LEFT=THISFORM.SHAPE1.LEFT+5 (此处值可以改变)

8.选择命令按钮控件，在表单的适当位置拖放，在该控件的属性窗口中，将Caption设置为“关闭”，其Click事件参考代码如下：

THISFORM.RELEASE

9.选择“文件/保存”命令，在弹出的对话框中将其保存到考生文件夹中，文件名为SCRE1； 10.单击工具栏中的“运行”按钮运行该表单，调试通过后关闭表单设计窗口； 11.单击“连编”按钮，在“连编选项”对话框中选中“连编可执行文件”； 12.单击“确定”按钮，在“另存为”对话框的应用程序名处输入“PROJ1”； 13.单击“保存”按钮，完成连编。

第 8 页 共 28 页

操作步骤：

1.使用MODI COMM PROG1 命令进入编程窗口。 参考程序： SET TALK OFF USE CCZF

COPY TO NCZF USE NCZF

SCAN ZFC=ZM ASCM=ASC(ZM)

FOR I=1 TO 7

ZFC=ZFC+CHR(ASCM+I) NEXT I

REPLACE ZF WITH ZFC ENDSCAN

SET TALK ON 2.使用CREATE MENU MENU1命令创建菜单，建立菜单项“计算”和“退出”。 “计算”项中结果选“命令”，选项中填写“DO PROG1.PRG”或“DO PROG1”； “退出”项中结果选“命令”，选项中填写“QUIT”或“RETURN”或“CANCEL”； 生成菜单程序，运行菜单并执行“计算”项。

第 9 页 共 28 页

模拟题四：

参考答案：

为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹 1.数据表的复制、填写值： USE ASCR

COPY TO ASFZ USE ASFZ

REPL ALL 总评 WITH 笔试成绩*0.4+上机成绩*0.6

2.复合索引的建立：

USE ASCR

INDEX ON 准考证号 TAG FJG OF SY.CDX CLOSE INDEX

3.统计与内存变量操作：

USE ASFZ

COUNT FOR 笔试成绩<70 TO TJ &&或用CALCULATE CNT() TO TJ FOR 笔试成绩<70 SAVE TO MTJ

第 10 页 共 28 页

操作步骤如下：

1.选择“文件/新建”命令，新建一个项目，项目文件名为PROJ1；

2.单击“代码”列表，并选中“程序”项，单击“添加”按钮，并选中考生文件夹下MAIN.PRG，将该程序添加到项目中；

3.单击“文档”列表，并选中“表单”项，单击“新建”按钮，新建一个新表单； 4.在表单属性窗口中，Caption设置为“选修课程”，Height设置为200，Width设置为400；

5.在控件窗口中选择标签控件，在表单上添加控件Label1，在属性窗口中，将Caption设置为“你的选修课程是”；

6.在控件窗口中选择复选框控件，在表单上添加控件Check1，在其属性窗口中，将其Caption属性设置为“网页设计”，Value属性设置为.F.；

7.在控件窗口中选择复选框控件，在表单上添加控件Check2，在其属性窗口中，将其Caption属性设置为“动漫设计”，Value属性设置为.F.；

8.在控件窗口中选择复选框控件，在表单上添加控件Check3，在其属性窗口中，将其Caption属性设置为“算法设计”，Value属性设置为.F.；

9.在控件窗口中选择列表框控件，在表单上添加控件List1；

10.在控件窗口中选择命令按钮控件，在表单上添加控件Command1，在其属性窗口中，将Caption设置为“添加”，其Click事件参考代码如下： THISFORM.LIST1.CLEAR

IF THISFORM.CHECK1.VALUE=.T.

THISFORM.LIST1.ADDITEM(THISFORM.CHECK1.CAPTION) ENDIF

IF THISFORM.CHECK2.VALUE=.T.

THISFORM.LIST1.ADDITEM(THISFORM.CHECK2.CAPTION) ENDIF

IF THISFORM.CHECK3.VALUE=.T.

THISFORM.LIST1.ADDITEM(THISFORM.CHECK3.CAPTION)

第 11 页 共 28 页

ENDIF

11.在控件窗口中选择命令按钮控件，在表单上添加控件Command2，在属性窗口中，将Caption设置为“关闭”，其Click事件参考代码如下： THISFORM.RELEASE

12.选择“文件/保存”命令，在弹出的对话框中将其保存到考生文件夹中，文件名为SCRE1； 13.单击工具栏中的“运行”按钮运行该表单，调试通过后关闭表单设计窗口； 14.单击“连编”按钮，在“连编选项”对话框中选中“连编可执行文件”； 15.单击“确定”按钮，在“另存为”对话框的应用程序名处输入“PROJ1”； 16.单击“保存”按钮，完成连编。

操作步骤：

1.使用MODI COMM PROG1 命令进入编程窗口。 参考程序： SET TALK OFF USE FCXS COPY TO FCJ USE FCJ SCAN

S=B^2-4*A*C IF S<0 DELE

ELSE

REPL X1 WITH MAX((-B+SQRT(S))/(2*A),(-B-SQRT(S))/(2*A)) REPL X2 WITH MIN((-B+SQRT(S))/(2*A),(-B-SQRT(S))/(2*A)) ENDIF ENDSCAN PACK

CLOSE ALL

CANCEL 2.使用CREATE MENU MENU1命令创建菜单，建立菜单项“计算”和“退出(\\

第 12 页 共 28 页

模拟题五：

参考答案：

为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹 1.数据表的合并： 解法1： SELE 1

USE AZGXX SELE 2

USE AZGGZ

JOIN WITH A TO ADY FOR A.职工号=B.职工号 and A.是否党员=.T. FIELDS A.职工号,A.姓名,A.职称, B.基本工资 解法2：

SELE AZGXX.职工号,姓名,职称,基本工资 FROM AZGXX,AZGGZ WHERE AZGXX.职工号=AZGGZ.职工号 AND 是否党员=.T. INTO TABLE ADY 2.数据表的复制和记录的追加： CLOSE ALL USE AZGXX

COPY TO ANEW USE ANEW

APPEND &&输入记录

3.数据表的复制、字段的追加和成批修改记录： USE AZGGZ COPY TO AGZ

USE AGZ

MODIFY STRU &&追加字段“税收” N(6,2) *或用命令：ALTER TABLE AGZ ADD 税收 N(6,2) REPLACE ALL 税收 WITH 基本工资*0.05

第 13 页 共 28 页

操作步骤如下：

1.选择“文件/新建”命令，新建一个项目，项目文件名为PROJ1；

2.单击“代码”列表，并选中“程序”项，单击“添加”按钮，并选中考生文件夹下MAIN.PRG，将该程序添加到项目中；

3.单击“文档”列表，并选中“表单”项，单击“新建”按钮，新建一个新表单； 4.在表单属性窗口中，Caption设置为“图片设置”，Height设置为200，Width设置为400；

5.在表单控件工具栏中2次选择标签控件，在表单的适当位置添加标签Label1和Label2，分别在属性窗口中，将Caption设置为“高度”和“宽度”；

6.在表单控件工具栏中2次选择文本框控件，在表单的适当位置添加文本框Text1和Text2，分别在属性窗口中，将Value设置为50和70；

7.在表单控件工具栏中选择图像框控件，在表单的适当位置添加图像框Image1，在其属性窗口中，将Stretch设置为2，Width设置为70，Height设置为50,通过Picture属性，选择要显示的图片； 8.在表单控件工具栏中选择命令按钮控件，在其属性窗口中，将Caption设置为“确定”； 其Click事件参考代码如下：

THISFORM.IMAGE1.HEIGHT=THISFORM.TEXT1.VALUE THISFORM.IMAGE1.WIDTH=THISFORM.TEXT2.VALUE

9.在表单控件工具栏中选择命令按钮控件，在其属性窗口中，将Caption设置为“关闭”，其Click事件参考代码如下：

RELEASE THISFORM

10.选择“文件/保存”命令，在弹出的对话框中将其保存到考生文件夹中，文件名为SCRE1； 11.单击工具栏中的“运行”按钮运行该表单，调试通过后关闭表单设计窗口； 12.单击“连编”按钮，在“连编选项”对话框中选中“连编可执行文件”； 13.单击“确定”按钮，在“另存为”对话框的应用程序名处输入“PROJ1”； 14.单击“保存”按钮，完成连编。

第 14 页 共 28 页

操作步骤：

1.使用MODI COMM PROG1 命令进入编程窗口。 参考程序： SET TALK OFF

CLEAR USE TJ

COPY TO NEW USE NEW

FOR I= 101 TO 500 STEP 2 FLAG=.T. FOR J=2 TO SQRT(I) IF INT(I/J)=I/J

FLAG=.F. EXIT ENDIF

NEXT IF FLAG

APPEND BLANK REPL 素数 WITH I

ENDIF

NEXT USE

SET TALK ON 2.使用CREATE MENU MENU1命令创建菜单，建立菜单项“运行(\\

第 15 页 共 28 页

模拟题六：

参考答案：

为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹 1.数据表的复制：

USE ACR

COPY TO ANEW FIELDS 学号,姓名 FOR LEFT(姓名,2)=\陈\ *或COPY TO ANEW FIELDS 学号,姓名 FOR SUBSTR(姓名,1,2)=\陈\2.分类汇总：

USE ACR

INDEX ON 籍贯 TAG JG

TOTAL ON 籍贯 FIELDS 笔试成绩,上机成绩 TO AHZ CLOSE INDEX

3.数据库的建立、添加数据表、有效性规则： CREATE DATABASE AXSXJ

MODI DATABASE AXSXJ

ADD TABLE ACER &&或利用数据库设计器添加

打开数据库表设计器为“性别”字段设置有效性规则：性别=\男\性别=\女\，提示信息：\只能输入男或女\。

第 16 页 共 28 页

操作步骤如下：

1.选择“文件/新建”命令，新建一个项目，项目文件名为PROJ1；

2.单击“代码”列表，并选中“程序”项，单击“添加”按钮，并选中考生文件夹下MAIN.PRG，将该程序添加到项目中；

3.单击“文档”列表，并选中“表单”项，单击“新建”按钮，新建一个新表单； 4.在表单属性窗口中，Caption设置为“成绩管理系统登录”，Height设置为165，Width设置为290； 5.选择标签控件，在表单的适当位置拖放形成Label1，在该控件的属性窗口中，将Caption设置为“用户名”；

6.选择标签控件，在表单的适当位置拖放形成Label2，在该控件的属性窗口中，将Caption设置为“密码”； 7.选择文本框控件，在表单的适当位置拖放形成Text1；在该控件的属性窗口中，将MaxLength设置为8； 8.选择文本框控件，在表单的适当位置拖放形成Text2，在该控件的属性窗口中，将PasswordChar设置为“*”,将MaxLength设置为10；

9.选择选项按钮组控件，在表单的适当位置拖放，在该控件的属性窗口中，将ButtonCount设置为3，Value设置为2，右击选项按钮组，选择“编辑”，将其中三个选项按钮的Caption分别设置为“管理员”、“教师”和“学生”；

10.选择命令按钮控件，在表单的适当位置拖放，在该控件的属性窗口中，将Caption设置为“确定”，其Click事件参考代码如下：

IF alltrim(THISFORM.TEXT1.VALUE)==\ALUE)==\AND THISFORM.Optiongroup1.VALUE=1

MESSAGEBOX(\欢迎使用成绩管理系统\系统提示\ ELSE

MESSAGEBOX(\输入错误\系统提示\

ENDIF

11.选择命令按钮控件，在表单的适当位置拖放，在该控件的属性窗口中，将Caption设置为“关闭”，其Click事件参考代码如下： THISFORM.RELEASE

第 17 页 共 28 页

12.选择“文件/保存”命令，在弹出的对话框中将其保存到考生文件夹中，文件名为SCRE1； 13.单击工具栏中的“运行”按钮运行该表单，调试通过后关闭表单设计窗口； 14.单击“连编”按钮，在“连编选项”对话框中选中“连编可执行文件”； 15.单击“确定”按钮，在“另存为”对话框的应用程序名处输入“PROJ1”； 16.单击“保存”按钮，完成连编。

操作步骤：

1.使用MODI COMM PROG1 命令进入编程窗口。 参考程序： SET TALK OFF SELECT 2 USE SBB SELECT 1 USE DW COPY TO TJ USE TJ

SCAN DWBH=单位编号

SELECT 2

COUNT ALL TO A FOR 单位编号=DWBH SUM ALL 单价 TO B FOR 单位编号=DWBH SELECT 1

REPLACE 设备数量 WITH A,资产总值 WITH B

ENDSCAN CLOSE ALL SET TALK ON 2.使用CREATE MENU MENU1命令创建菜单，建立菜单项“文件”，再建立子菜单项“统计”、“\\-”和“退出”。

“统计”项中结果选“命令”，选项中填写“DO PROG1.PRG”或“DO PROG1”； “退出”项中结果选“命令”，选项中填写“QUIT”或“RETURN”或“CANCEL”； 生成菜单程序，运行菜单并执行“统计”项。

第 18 页 共 28 页

模拟题七：

参考答案：

为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹 1.数据表的建立：

可以通过命令（CREATE）或菜单方式建立，然后录入记录 2.数据表的合并： 解法1： SELE 1 USE ABM SELE 2

USE ABK

JOIN WITH A TO ATS FOR A.书类号=B.书类号 FIELDS A.书类号,A.书名,B.出版单位,B.单价 解法2：

SELE ABM.书类号,书名,出版单位,单价 FROM ABM,ABK WHERE ABM.书类号=ABK.书类号 INTO TABLE ATS CLOSE ALL 3.单索引的建立：

USE ABK

INDEX ON 书类号+出版单位 TO ASY.IDX CLOSE ALL

第 19 页 共 28 页

操作步骤如下：

1.选择“文件/新建”命令，新建一个项目，项目文件名为PROJ1；

2.单击“代码”列表，并选中“程序”项，单击“添加”按钮，并选中考生文件夹下MAIN.PRG，将该程序添加到项目中；

3.单击“文档”列表，并选中“表单”项，单击“新建”按钮，新建一个新表单； 4.在表单属性窗口中，Caption设置为“控件设置”，Height设置为150，Width设置为280；

5.选择标签控件，在表单上添加控件Label1，在该控件的属性窗口中，将Caption设置为“演示文本”，FontSize设置为14，FontBold设置为.T.，FontName设置为“楷体_GB2312”； 6.选择编辑框控件，在表单上添加控件Edit1，在该控件的属性窗口中，将Value设置为“篮球新星林书豪”； 7.在控件窗口中选择复选框控件，在表单上添加控件Check1，在该控件的属性窗口中，将Caption设置为“编辑框前景为红色”，将Value设置为.F.，其Click事件参考代码如下： IF THISFORM.CHECK1.VALUE=.T.

THISFORM.Edit1.FORECOLOR=RGB(255,0,0)

ELSE

THISFORM.Edit1.FORECOLOR=RGB(0,0,0) ENDIF

8.选择复选框控件，在表单上添加控件Check2，在该控件的属性窗口中，将Caption设置为“编辑框背景为黄色”，将Value设置为.F.，其Click事件代码如下： IF THISFORM.CHECK2.VALUE=.T.

THISFORM.Edit1.BACKCOLOR=RGB(255,255,0) ELSE

THISFORM.Edit1.BACKCOLOR=RGB(255,255,255)

ENDIF

9.选择命令按钮控件，在表单上添加控件Command1，在该控件的属性窗口中，将Caption设置为“关闭”，其Click事件参考代码如下： THISFORM.RELEASE

第 20 页 共 28 页

10.选择“文件/保存”命令，在弹出的对话框中将其保存到考生文件夹中，文件名为SCRE1； 11.单击工具栏中的“运行”按钮运行该表单，调试通过后关闭表单设计窗口； 12.单击“连编”按钮，在“连编选项”对话框中选中“连编可执行文件”； 13.单击“确定”按钮，在“另存为”对话框的应用程序名处输入“PROJ1”； 14.单击“保存”按钮，完成连编。

操作步骤：

1.使用MODI COMM PROG1命令进入编程窗口。 参考程序： SET TALK OFF USE NTJ COPY TO NEW USE NEW

DIME A(60)

STORE 1 TO A(1),A(2) FOR I=3 TO 60

A(I)=A(I-1)+A(I-2) IF I>=11

APPEND BLANK REPL 数值 WITH A(I)

ENDIF NEXT

USE

RETURN

SET TALK ON 2.使用CREATE MENU MENU1命令创建菜单，建立菜单项“计算(\\

第 21 页 共 28 页

模拟题八：

参考答案：

为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹 1.数据表结构的复制：

USE ASPXX COPY TO ASP USE ASP

MODI STRU &&在表设计器中修改字段宽度，插入新字段

&&或用ALTER TABLE ASP ALTER 品名 C(14)修改字段 2.数据表的排序：

USE ASPXX

SORT TO AST ON 单位编号/D,品名 3.求和与内存变量操作：

USE ASPXX

SUM 数量 TO ZH FOR 品名=\优冷\ &&或用CALCULATE SUM(数量) TO ZH FOR 品名=\优冷\ SAVE TO MZH close all

第 22 页 共 28 页

操作步骤如下：

1.选择“文件/新建”命令，新建一个项目，项目文件名为PROJ1；

2.单击“代码”列表，并选中“程序”项，单击“添加”按钮，并选中考生文件夹下MAIN.PRG，将该程序添加到项目中；

3.单击“文档”列表，并选中“表单”项，单击“新建”按钮，新建一个表单；

4.在表单属性窗口中，Caption设置为“成绩查询”，Height设置为125，Width设置为255；

5.在表单上右击，选择“数据环境”，将B01.DBF表添加到数据环境中；

6.在控件窗口中选择标签控件，在表单的适当位置拖放形成Label1，在其属性窗口中，将Caption设置为“姓名”、FontName 设置为\黑体\、FontSize设置为11、ForeColor设置为0,0,255；

7.在控件窗口中选择标签控件，在表单的适当位置拖放形成Label2，在其属性窗口中，将Caption设置为“成绩”、FontName 设置为\黑体\、FontSize设置为11、ForeColor设置为0,0,255；

8.在控件窗口中选择下拉列表框控件，在表单的适当位置拖放形成Combo1，在其属性窗口中，将RowSourceType 设置为 6，RowSource设置为B01.姓名，Style设置为2，其Click事件参考代码如下： THISFORM.TEXT1.VALUE=成绩

9.在控件窗口中选择命令按钮控件，在表单的适当位置拖放，在其属性窗口中，将Caption设置为“关闭”，其Click事件参考代码如下：

RELEASE THISFORM

10.选择“文件/保存”命令，在弹出的对话框中将其保存到考生文件夹中，文件名为SCRE1； 11.单击工具栏中的“运行”按钮运行该表单，调试通过后关闭表单设计窗口； 12.单击“连编”按钮，在“连编选项”对话框中选中“连编可执行文件”； 13.单击“确定”按钮，在“另存为”对话框的应用程序名处输入“PROJ1”； 14.单击“保存”按钮，完成连编。

第 23 页 共 28 页

操作步骤：

1.使用MODI COMM PROG1 命令进入编程窗口。 参考程序1： SET TALK OFF USE TJ

COPY TO JS USE JS SCAN S=0

FOR I=1 TO 数值 S=S+I-SQRT(I) NEXT I

REPLACE 运算结果 WITH S ENDSCAN CLOSE ALL SET TALK ON 参考程序2： SET TALK OFF USE TJ

COPY TO JS USE JS SCAN S1=0 S2=0

FOR I=1 TO 数值 S1=S1+I

S2=S2+SQRT(I) NEXT I

REPLACE 运算结果 WITH S1-S2 ENDSCAN CLOSE ALL SET TALK ON

2.使用CREATE MENU MENU1命令创建菜单，建立菜单项“文件”，再建立子菜单项“运算”、

第 24 页 共 28 页

“\\-”和“退出(\\

“运算”项中结果选“命令”，选项中填写“DO PROG1.PRG”或“DO PROG1”；

“退出(\\

第 25 页 共 28 页

模拟题九：

参考答案：

为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹 1.数据表结构的复制：

USE AZG

COPY STRU TO AFZ FIEL 职工号,姓名,工资 2.数据表的复制,记录的插入： USE AZG

COPY TO ANZG USE ANZG

GO 8

INSERT &&在打开的编辑窗口中输入记录 3.内存变量的建立、赋值和保存： A = {^2012-01-01} DIME CC(2) CC(1)= .T.

CC(2)=\低碳生活\ SAVE TO AB.MEM

第 26 页 共 28 页

操作步骤如下：

1.选择“文件/新建”命令，新建一个项目，项目文件名为PROJ1；

2.单击“代码”列表，并选中“程序”项，单击“添加”按钮，并选中考生文件夹下MAIN.PRG，将该程序添加到项目中；

3.单击“文档”列表，并选中“表单”项，单击“新建”按钮，新建一个新表单； 4.在表单属性窗口中，Caption设置为“考试登录”，Height设置为135，Width设置为260；

5.在表单控件工具栏中3次选择标签控件，在表单的适当位置拖放，分别在属性窗口中，将Caption设置为“准考证号”、“考生姓名”和“指定试卷号”；

6.在表单控件工具栏中2次选择文本框控件，在表单的适当位置添加文本框Text1和Text2；

7.在表单控件工具栏中选择微调控件，在表单的适当位置添加Spinner1，在其属性窗口中，将Value设置为1、分别将KeyboardLowValue、SpinnerLowValue值设置为1、KeyboardHighValue、SpinnerHighValue值设置为10；

8.在表单控件工具栏中选择命令按钮控件，在其属性窗口中，将Caption设置为“确定”；

9.在表单控件工具栏中选择命令按钮控件，在其属性窗口中，将Caption设置为“退出”，其Click事件参考代码如下：

RELEASE THISFORM

10.选择“文件/保存”命令，在弹出的对话框中将其保存到考生文件夹中，文件名为SCRE1； 11.单击工具栏中的“运行”按钮运行该表单，调试通过后关闭表单设计窗口； 12.单击“连编”按钮，在“连编选项”对话框中选中“连编可执行文件”； 13.单击“确定”按钮，在“另存为”对话框的应用程序名处输入“PROJ1”； 14.单击“保存”按钮，完成连编。

第 27 页 共 28 页

操作步骤：

1.使用MODI COMM PROG1 命令进入编程窗口。 参考程序： SET TALK OFF SELECT 2 USE GHXX SELECT 1 USE DWXX COPY TO TJ USE TJ

SCAN DWBH=单位编号

SELECT 2

SUM 数量 TO ZSL FOR 单位编号=DWBH

SUM 单价*数量 TO ZHK FOR 单位编号=DWBH SELECT 1

REPLACE 商品总量 WITH ZSL,货款总额 WITH ZHK

ENDSCAN CLOSE ALL

SET TALK ON 2.使用CREATE MENU MENU1命令创建菜单，建立菜单项“文件”，再建立子菜单项“统计”、“\\-”和“退出”。 “统计”项中结果选“命令”，选项中填写“DO PROG1.PRG”或“DO PROG1”； “退出”项中结果选“命令”，选项中填写“QUIT”或“RETURN”或“CANCEL”； 生成菜单程序，运行菜单并执行“统计”项。

第 28 页 共 28 页

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