《计算机等级考试二级VisualFoxPro上机试题及解题思路汇总1-20.pdf》由会员分享，可在线阅读，更多相关《计算机等级考试二级VisualFoxPro上机试题及解题思路汇总1-20.pdf（37页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、.计算机等级考试二级 VisualFoxPro 上机试题与解题思路汇总1-20一、根本操作题(共 4 小题，第 1 和 2 题是 7 分、第 3 和 4 题是 8 分)注意：根本操作题为4 道 SQL 题，请将每道题的 SQL 命令粘贴到 SQL1.txt 文件，每条命令占一行，第1 道题的命令是第 1 行，第 2 道题的命令是第 2 行，以此类推;如果某道题没有做相应行为空。在考生文件夹下完成以下操作：1.利用 SQL SELECT命令将表 stock_sl.dbf 复制到 stock_bk.dbf;2.利用 SQL INSERT命令插入记录(600028,4.36,4.60,5500)到
2、stock_bk.dbf 表。3.利用 SQL UPDATE命令将 stock_bk.dbf 表中股票代码为 600007 的股票现价改为8.88。4.利用 SQL DELETE命令删除 stock_bk.dbf 表中股票代码为 600000 的股票。此题的主要考核点：SQL 语句的使用。1、SELE*FROM stock_sl INTO DBF stock_bk2、INSE INTO stock_bk(股票代码,买入价,现价,持有数量)VALU(600028,4.36,4.60,5500)3、UPDA stock_bk SET 现价=8.88 WHER 股票代码=6000074、DELE F
3、ROM stock_bk WHER 股票代码=600000二、简单应用(2 小题，每题 20 分，计 40 分)1、在考生文件夹下建立数据库sc2，将考生文件夹下的自由表score2 添加进 sc2 中。根据 score2 表建立一个视图 score_view，视图中包含的字段与 score2 表一样，但视图中只能查询到积分小于等于 1500 的信息。然后利用新建立的视图查询视图中的全部信息，并将结果按积分升序存入表 v2。2、建立一个菜单 filemenu，包括两个菜单项文件和帮助，文件将激活子菜单，该子菜单包括打开、存为和 关闭三个菜单项;关闭子菜单项用 SET SYSMENU TODEF
4、AULT命令返回到系统菜单，其他菜单项的功能不做要求。第 1 题，此题的主要考核点是视图的建立。在项目管理器中选择一个数据库，选择本地视图，然后选择新建按钮，打开视图设计器。选择所有字段，在筛选栏输入条件积分=1500，关闭并保存。在数据库设计器中打开视图，用 sort on 积分 to v2 命令存入新表。第 2 题，此题的主要考核点是菜单的建立。新建菜单可按以下步骤：选择 文件菜单中的新建命令，在新建对话框中选择菜单，单击新建文件按钮。在新建菜单对话框中选择菜单按钮，调出菜单设计器。也可用 CREATE MENU命令直接调出菜单设计器。在菜单名称中填入文件、帮助，文件结果为子菜单，单击编辑
5、;在子菜单的菜单名称中输入打开、存为、关闭，关闭结果为命令SET SYSMENU TO DEFAULT。三、综合应用(1 小题，计 30 分)在考生文件夹下有学生成绩数据库 XUESHENG3,包括如下所示三个表文件以与相关的索引文件:1、XS.DBF(学生文件:学号 C8，C8，性别 C2，班级 C5;另有索引文件 XS.IDX，索引键：学号)2、CJ.DBF(成绩文件:学号 C8，课程名 C20，成绩 N5.1;另有索引文件 CJ.IDX，索引键：学号)1/37.3、C.DBF(成绩表文件：学号 C8，C8，班级 C5，课程名 C12，成绩 N5.1)设计一个名为 XS3 的菜单，菜单中有
6、两个菜单项计算和退出。程序运行时，单击计算菜单项应完成以下操作：将所有选修了计算机根底的学生的计算机根底成绩，按成绩由高到低的顺序填列到成绩表文件 C.DBF 中(事前须将文件中原有数据清空)。单击退出菜单项，程序终止运行。(注：相关数据表文件存在于考生文件夹下)此题的主要考核点：结构化查询语言(SQL)中的联接查询、查询的排序、查询的去向等知识解题思路：在此题中要想得到所有选修了计算机根底的学生的计算机根底 成绩与学生的等信息，就需要用到联接查询。因为学生的、班级在表XS.DBF 中，而学生的成绩在表 CJ.DBF中。而这两个表要联接起来可以通过学号字段。有以下两种联接查询的形式：SELEC
7、T XS.学号,班级,课程名,成绩 FROM XS,CJWHERE XS.学号=CJ.学号 AND 课程名=计算机根底 或者 SELECT XS.学号,班级,课程名,成绩 FROM XS LEFT JION CJ ON XS.学号=CJ.学号 WHERE 课程名=计算机根底通过以上的联接查询便得到了所有选修 计算机根底的学生的计算机根底的成绩与学生的等信息。而题中所要求按成绩的降序排序，所以应该在以上SQL 语句的根底上参加:ORDER BY 成绩 DESC将查询所得到的结果放于一个数组变量AFieldsValue 中，要用到INTO ARRAYAFieldsValue.至此一个完整的 SQL
8、 联接查询语句便形成了:SELECT XS.学号,班级,课程名,成绩 FROM XS,CJ WHERE XS.学号=CJ.学号 AND 课程名=计算机根底 ORDER BY 成绩 DESC INTO ARRAY AFieldsValue清空 C.DBF将 tableName 中的资料添加到已被清空的 C.DBF 中 INSERT INTO C FROM ARRAYAfieldsValue一、根本操作题(共 4 小题，第 1 和 2 题是 7 分、第 3 和 4 题是 8 分)在考生文件夹下完成以下操作(在成绩管理数据库中完成)：1.为学生表在学号字段上建立升序主索引,索引名为学号;2.为学生表
9、的性别字段定义有效性规那么,规那么表达式为 性别$男女出错提示信息是:性别必须是男或女。3.在学生表的性别和年龄字段之间插入一个出生日期字段，数据类型为日期型(修改表结构);4.用 SQL 的 UPDATE命令将学生王三风的出生日期修改为 1983 年 5 月 1 日，并将该语句粘贴在 SQL2.TXT 文件中(第一行、只占一行)此题的主要考核点：主索引的建立、字段有效规那么的建立，表结构的更改，SQL 语言的使用。解题思路:1.在表设计器中的索引页面建立索引。2、建立有效性规那么在表设计器中的字段选项卡。在规那么栏中输入性别$男女，提示信息栏输入性别必须是男或女(不要双引号)。4.SQL 语
10、句的用法UPDA 学生 SET 出生日期=1983/05/01 WHER=王三风二、简单应用(2 小题，每题 20 分，计 40 分)1、根据考生文件夹下的 txl 表和 jsh 表建立一个查询 query2,查询出单位是大学 的所2/37.有教师的、职称、，要求查询去向是表，表名是query2.dbf，并执行该查询。2、建立表单 enterf，表单中有两个命令按钮，按钮的名称分别为cmdin 和cmdout，标题分别为进入和退出。第 1 题，此题的主要考核点是建立查询。建立查询可以使用“文件菜单完成，选择文件-新建-查询-新建文件，将txl 和 jsh 添参加查询中，从字段中选择、职称和字段
11、，单击查询菜单下的查询去向，选择表，输入表名query2.DBF。最后运行该查询。第 2 题，此题的主要考核点是表单的建立。可以用三种方法调用表单设计器：在项目管理器环境下调用;单击“文件菜单中的“新建，打开“新建对话框，选择“表单;在命令窗口输入 CREATE FORM命令。打开表单设计器后，在表单控件工具栏上单击“命令按钮，在表单上放置两个按钮。分别修改其属性 Name 为 cmdin 和 cmdout，Caption 属性为“进入和“退出。三、综合应用(1 小题，计 30 分)在考生文件夹下有仓库数据库CK3,包括如下所示两个表文件：CK(仓库号 C(4)，城市 C(8)，面积 N(4)
12、ZG(仓库号 C(4)，职工号 C(4)，工资 N(4)设计一个名为 ZG3 的菜单，菜单中有两个菜单项统计和退出。程序运行时，单击统计菜单项应完成以下操作：检索出所有职工的工资都大于 1220 元的职工所管理的仓库信息，将结果保存在 wh1 数据表(WH1 为自由表)文件中，该文件的结构和 CK 数据表文件的结构一致，并按面积升序排序。单击退出菜单项，程序终止运行。(注：相关数据表文件存在于考生文件夹下)此题主要考核点：菜单的建立、结构化查询语言(SQL)中的嵌套查询、查询结果的去向等知识。解题思路：利用菜单设计器定义两个菜单项，在菜单名称为统计的菜单项的结果列中选择过程，并通过单击编辑按钮
13、打开一个窗中来添加统计菜单项要执行的命令。在菜单名称为退出的菜单项的结果列中选择命令，并在后面的选项列中输入以下退出菜单的命令：SET SYSMENU TO DEFAULT统计菜单项要执行的程序：首先中打开数据库文件 OPEN DATABASE CK3.DBC下面我们分析所要用到的查询语句的实现，题面要求 检索出所有职工的工资都大于1220 的职工所管理的仓库信息，所以得到满足以上条件的仓库号成为解答此题的关键。所有职工的工资都大于 1220 的职工所管理的仓库这个条件可以将其分解为同时满足以下两个条件的结果仓库号不存在于职工的工资小于等于1220的职工所管理的仓库号中并且仓库号存在于表 ZG
14、 中，而以上两个条件我们可以利用SQL 轻松写出来。所以最后形成的查询语句以下：SELECT*FROM CK WHERE 仓库号 NOT IN(SELECT 仓库号 FROM ZGWHERE 工资 0;ORDER BY Student.学号 desc;INTO TABLE netp.dbf第 2 题，此题的主要考核点是使用报表向导制作报表。启动报表向导可在文件菜单中选择新建或者单击工具栏上的新建按钮，打开新建对话框，文件类型选择报表，单击向导按钮。或者在工具菜单中选择向导子菜单，选择报表，或直接单击工具栏上的报表向导图标按钮。然后按照向导提示操作即可。4/37.三、综合应用(1 小题，计 30
15、 分)在考生文件夹下有工资数据库WAGE3,包括数据表文件:ZG(仓库号 C(4)，职工号 C(4)，工资 N(4)设计一个名为 TJ3 的菜单，菜单中有两个菜单项统计和退出。程序运行时，单击统计菜单项应完成以下操作：检索出工资小于或等于本仓库职工平均工资的职工信息，并将这些职工信息按照仓库号升序，在仓库号一样的情况下再按职工号升序存放到 EMP1(EMP1 为自由表)文件中，该数据表文件和 ZG 数据表文件具有一样的结构。单击退出菜单项，程序终止运行。(注：相关数据表文件存在于考生文件夹下)此题主要考核点：菜单的建立、结构化查询语言(SQL)中的联接查询、查询的排序、临时表的概念、查询结果的
16、去向等知识。解题思路：利用菜单设计器定义两个菜单项，在菜单名称为统计的菜单项的结果列中选择过程，并通过单击编辑按钮打开一个窗中来添加统计菜单项要执行的命令。在菜单名称为退出的菜单项的结果列中选择命令，并在后面的选项列中输入以下退出菜单的命令：SET SYSMENU TO DEFAULT统计菜单项要执行的程序：首先是打开数据库文件OPNE DATABASE WAGE3.DBC 我们应该得到每一个仓库的职工平均工资，并将结果放在一个临时的表CurTable中.利用以下语句可以实现:SELECT 仓库号,AVG(工资)AS AvgGZ FROM ZG GROUP BY 仓库号 INTO CURSOR
17、 CurTable.这样就生成了一个表名为 CurTable的临时表。表中有两个字段:仓库号，AvgGZ，容为每一个仓库的仓库号和所对应的职工的平均工资。有了临时表 CurTable后我们可以将其与 ZG 进展联接查询，我们这里联接查询的目的不是为了得到临时表中的容做为结果的一局部，而是要用其中的字段AvgGZ做为查询的条件.我们便可以得到 工资小于或低于本仓库职工平均工资的职工信息 的查询:SELECT ZG.*FROM ZG,CurTable WHERE ZG.仓库号=CurTable.仓库号 AND ZG.工资。一、根本操作题(共四小题，第 1 和 2 题是 7 分、第 3 和 4 题是
18、 8 分)1、请在考生文件夹下建立一个项目WY。2、将考生文件夹下的数据库KS4 参加到新建的项目 WY 中去。3、利用视图设计器在数据库中建立视图 NEW_VIEW，视图包括GJHY表的全部字段(顺序同 GJHY 中的字段)和全部记录。4、从表 HJQK 中查询奖级为一等的学生的全部信息(HJQK 表的全部字段)，并按分数的降序存入存入新表 NEW1 中。此题的主要考核点：项目的建立、将数据库添加到项目中、视图的建立、查询并存入新表。解题思路:1.建立项目 WY创建项目可用“文件菜单中的“新建命令。2.将数据库参加到项目中：在项目管理器的“数据选项卡选择数据库，单击“添加，在“打开对话框中选
19、择要添加的数据库3.在新建对话框中、项目管理器中、或用CREAT VIEW 命令打开视图设计器，建立一5/37.个视图。将 GJHY 表添加到视图中，并将全部字段添参加视图。不做任何筛选，那么视图包括全部记录。最后将视图命名为NEW_VIEW。4.用 SQL 语句select*from hjqk.dbf where 奖级=一等;into table new1 order by 分数 desc可完成此查询。也可建立一个查询完成。在菜单中选择文件-新建-查询-新建文件，在筛选栏中选择字段名为“hjqk.奖级，条件为“=，实例栏输入“一等，排序选择“分数降序，并将查询去向设为表 NEW1。注意 NE
20、W1 要保存到考生文件夹下。最后运行此查询即可。二、简单应用(2 小题，每题 20 分，计 40 分)1、在考生文件夹下，有一个数据库CADB，其中有数据库表 ZXKC 和 ZX。表结构如下：ZXKC(产品编号，品名，需求量，进货日期)ZX(品名，规格，单价，数量)在表单向导中选取一对多表单向导创建一个表单。要求：从父表zxkc 中选取字段产品编号和品名，从子表 zx 中选取字段规格和单价，表单样式选取 阴影式，按钮类型使用 文本按钮，按产品编号升序排序，表单标题为照相机，最后将表单存放在考生文件夹中，表单文件名是 form2。2、在考生文件夹中有数据库 CADB，其中有数据库表 ZXKC 和
21、 ZX。建立单价大于等于 800，按规格升序排序的本地视图 CAMELIST，该视图按顺序包含字段产品编号、品名、规格和单价，然后使用新建立的视图查询视图中的全部信息，并将结果存入表v_camera。第 1 题，此题的主要考核点是使用表单向导制作表单。启动表单向导可在“文件菜单中选择“新建或者单击工具栏上的“新建按钮，打开“新建对话框，文件类型选择表单，单击向导按钮。或者在“工具菜单中选择“向导子菜单，选择“表单，或直接单击工具栏上的“表单向导图标按钮。在“向导选取对话框中选择“一对多表单向导。然后按照表单向导操作即可。第 2 题，此题的主要考核点是建立视图。在“项目管理器中选择一个数据库，选
22、择“本地视图，然后选择“新建按钮，打开“视图设计器。将 zxkc 和 zx 添加到视图中，选择字段产品编号、品名、规格和单价，在“筛选栏输入条件“单价=800，关闭并保存。在数据库设计器中打开视图，用copy tov_camera 命令或在“文件菜单中选择“导出，将结果存入新表v_camera。三、综合应用(1 小题，计 30 分)在考生文件夹下有仓库数据库CHAXUN3 包括三个表文件：ZG(仓库号 C(4)，职工号 C(4)，工资 N(4)DGD(职工号 C(4)，供给商号 C(4)，订购单号 C(4)，订购日期 D，总金额 N(10)GYS(供给商号 C(4)，供给商名 C(16)，地址
23、 C(10)设计一个名为 CX3 的菜单，菜单中有两个菜单项查询和退出。程序运行时，单击查询应完成以下操作：检索出工资多于 1230 元的职工向的供给商发出的订购单信息，并将结果按总金额降序排列存放在ord1 文件(和 DGD 文件具有一样的结构,ord1 为自由表)中。单击退出菜单项，程序终止运行。(注：相关数据表文件存在于考生文件夹下)此题主要考核点：6/37.菜单的建立、结构化查询语言(SQL)中的嵌套查询、查询的排序、查询结果的去向等知识解题思路：利用菜单设计器定义两个菜单项，在菜单名称为查询的菜单项的结果列中选择过程,并通过单击编辑按钮打开一个窗口来添加查询菜单项要执行的命令。在菜单
24、名称为退出的菜单项的结果列中选择命令，并在后面的选项列的中输入以下退出菜单的命令：SET SYSMENU TO DEFAULT查询菜单项要执行的程序:首先打开数据库 Open database CHAXUN3.dbc我们可以通过下面的查询得到工资多于1230 的所有职工的职工号 SELECT 职工号FROM ZG WHERE 工资1230可以通过下面的查询得到地址在的所有供货商的供货商号 SELECT 供货商号 FROMGYS WHERE 地址=而题面所要求的正是同时满足以上两个条件的订购单信息,也就是职工号满足第一个条件上，可用 职工号 IN(SELECT 职工号 FROM ZG WHERE
25、 工资1230)来实现;供货商号满足第二个条件，可用 供货商号 IN(SELECT 供货商号 FROM GYS WHERE 地址=)来实现。因此可得到满足条件的订购单的SQL 查询为：SELECT*FROM DGD WHERE 职工号 IN(SELECT 职工号 FROM ZG WHERE 工资1230)AND 供货商号 IN(SELECT 供货商号 FROM GYS WHERE 地址=)ORDER BY 总金额 DESC INTO TABLE ord1此题还考对查询的排序和查询的去向进展了考核.可以用 ORDER BY order_ItemASC|DESC来让查询的结果按某一列或某几列的升序
26、(ASC)或降序(DESC)进展排列。而查询的去向可以通过INTO TABLE strTableName 而直接生成一个文件名为strTableName的.DBF 表。一、根本操作题一、根本操作题(共四小题，第共四小题，第 1 1 和和 2 2 题是题是 7 7 分、第分、第 3 3 和和 4 4 题是题是 8 8 分分)1、打开数据库 PROD_M 与数据库设计器，其中的两个表的必要的索引已经建立，为这两个表建立永久性联系2、设置 CATEGORY 表中种类名称字段的默认值为：饮料。3、为 PRODUCTS 表增加字段：优惠价格N(8，2)。4、如果所有商品的优惠价格是在进货价格根底上减少1
27、2%，计算所有商品的优惠价格。此题的主要考核点：为已建立索引的表建立联系、设置字段的默认值、字段的添加、字段的替换。解题思路:1.建立两个表的联系。在父表中选中主索引，按住鼠标拖动至子表相应的普通索引上，释放鼠标，联系即已建立。7/37.2.在表设计器中，选中种类名称字段，在字段有效性中的默认值中填入饮料，单击确定。3.增加字段的方法：打开 PRODUCTS 表表设计器，将光标移动到最后的空字段格中，输入新的字段名、字段类型与长度。4.可以使用 BROWSE 浏览表，然后在菜单表中选择替换字段，字段为优惠价格，替换为的表达式为Products.进货价格*0.88，作用围 ALL。也可用命令RE
28、PLACE ALL 优惠价格 WITH 进货价格*0.88二、简单应用二、简单应用(2(2 小题，每题小题，每题 2020 分，计分，计 4040 分分)1、在考生文件夹中有一个数据库GCS，其中 GONGCH 表结构如下：GONGCH(编号 C(4)，C(10)，姓别C(2)，工资N(7，2)，年龄N(2)，职称C(10)现在要对 GONGCH 表进展修改，指定编号为主索引，索引名和索引表达式均为编号;指定职称为普通索引，索引名和索引表达式均为职称;年龄字段的有效性规那么在25 至 65 之间(含 25和 65)，默认值是 45。2、在考生文件夹中有数据库GCS，其中有数据库表 GONGCH
29、。在考生文件夹下设计一个表单，该表单为 GCS 库中 GONGCH 表窗口式输入界面，表单上还有一个名为cmdCLOSE 的按钮，标题名为 关闭，点击该按钮，使用 ThisForm.release 退出表单。最后将表单存放在考生文件夹中。，表单文件名是C_FORM。提示：在设计表单时，打开GCS 数据库设计器，将 GONGCH 表拖入到表单中就实现了 GONGCH 表的窗口式输入界面，不需要其他设置或修改。第 1 题，此题的主要考核点是建立索引和有效性规那么。建立索引在表设计器中的索引选项卡，建立有效性规那么在表设计器中的字段选项卡。在规那么栏中输入年龄=25 AND 年龄+SUBSTR(C,
30、2*N+1,2)SET TALK ON6、将前面的 1 到 5 题，加上循环，使之被调用执行一次，并可以重复对不同的输入值完成一样的操作。提示：只要在需要重复执行的语句序列外加上循环控制结构即可。下面以第 2 小题循环3 次，第 5 小题循环任意次为例说明。(6.2)循环 3 次程序代码：16/37.SET TALK OffCLEARFOR I=1 TO 3INPUT Year=TO Yearif(year%4=0 and year%100!=0)or(year%100=0 and year%400=0)?year,是闰年else?year,不是闰年endifENDFORSET TALK ON
31、(6.5)循环任意次程序代码：SET TALK OffCLEAR?PRESS ESC TO EXIT-C=零壹贰叁肆伍陆柒捌玖DO WHILE.T.INPUT N=TO N?N,-+SUBSTR(C,2*N+1,2)IF INKEY(0)=27EXITENDIF17/37.ENDDOSET TALK ON程序阅读题。阅读以下程序，写出运行结果。1、注：字符A的 ASCII 码为 65。程序代码：SET TALK OFFCLEARC=一二三四五六七八九十B=ABCDR=0L=LEN(B)FOR I=1 TO LW=SUBSTR(B,I,1)D=ASC(W)+R-65S=IF D+SR=R+11E
32、NDFOR18/37.SET TALK ON参考答案：A-一B-三C-五D-七2、设 A 的值为：ABCDEF程序代码：SET TALK OFFCLEARACCEPT A=TO AL=LEN(A)P=SPACE(0)I=1DO WHILE IP=P+SUBSTR(A,L-I,2)I=I+2ENDDO?A+-+PSET TALK ON参考答案：ABCDEF-EFCDAB计算机等级考试二级 VisualFoxPro 上机试题与解题思路(12)19/37.来源：青年人(Qnr)2010-9-17 9:31:25【青年人：中国教育考试第一门户】资料下载教材购置3、写出运行结果程序代码：SET TALK
33、 OFFM=3DO WHILE M10N=2DO WHILE NIF INT(M/N)=M/NEXITENDIFN=N+1ENDDOIF N=M?MENDIFM=M+1ENDDOSET TALK ON参考答案：35720/37.4、写出运行结果程序代码：SET TALK OFFCLEARINPUT M=TO MIF INT(M)!=M OR ABS(M)!=M?输入的数值不符合题目要求!LOOPENDIF?ALLTRIM(STR(M,19)+的质数因子有:I=2DO WHILE I=MIF M%I=0?STR(I,6)M=INT(M/I)LOOPENDIFI=I+1ENDDOSET TALK
34、ONSET ESCAPE ON设：M 的输入值为 12。参考答案：21/37.12 的质数因子有：2 2 35、写出运行结果程序代码：SET TALK OFFCLEAR?*1 2 3 4 5A=1DO WHILE A=5?ALLTRIM(STR(A)+SPAC(2)B=1DO WHILE B=AS=A*B?STR(S,2)+SPAC(2)B=B+1ENDDOA=A+1ENDDOSET TALK ON参考答案：*1 2 3 4 51 12 2 43 3 6 922/37.4 4 8 125 5 10 15 20 256、写出运行结果程序代码：SET TALK OFFCLEARDIMENSION
35、A(6,6)FOR I=1 TO 6FOR J=1 TO 6IF IJA(I,J)=0ELSEA(I,J)=-1ENDIFENDFORENDFORFOR I=1 TO 6?FOR J=1 TO 6?A(I,J)ENDFORENDFORSET TALK ON23/37.参考答案：-1 0 0 0 0 00-1 0 0 0 00 0-1 0 0 00 0-1 0 0 00 0 0-1 0 00 0 0 0 0-15、写出运行结果程序代码：SET TALK OFFCLEAR?*1 2 3 4 5A=1DO WHILE A=5?ALLTRIM(STR(A)+SPAC(2)B=1DO WHILE B=A
36、S=A*B?STR(S,2)+SPAC(2)B=B+1ENDDOA=A+1ENDDO24/37.SET TALK ON参考答案：*1 2 3 4 51 12 2 43 3 6 94 4 8 125 5 10 15 20 256、写出运行结果程序代码：SET TALK OFFCLEARDIMENSION A(6,6)FOR I=1 TO 6FOR J=1 TO 6IF IJA(I,J)=0ELSEA(I,J)=-1ENDIFENDFORENDFORFOR I=1 TO 625/37.?FOR J=1 TO 6?A(I,J)ENDFORENDFORSET TALK ON参考答案：-1 0 0 0
37、0 00-1 0 0 0 00 0-1 0 0 00 0-1 0 0 00 0 0-1 0 00 0 0 0 0-1综合编程题。根据题目要求，编写相应的程序。1、求 X+X2+X3+X4+Xn的值。N，X 从键盘输入。程序代码：SET TALK OFFclearINPUT X=TO XINPUT N=TO NS=0I=1DO WHILE I=N26/37.S=S+XII=I+1ENDDO?X+X2+X3+.+XN=,SSET TALK ON2、求 S=2/1+3/2+5/3+8/5+13/8+.前 20 项之和。程序代码：SET TALK OFFclearS=0N=1X=1Y=2DO WHIL
38、E N=20S=S+Y/XT=XX=YY=Y+TN=N+1ENDDO?2/1+3/2+5/3+.+17711/10946=,S&共有 N=20 项累加SET TALK ON27/37.3、从键盘输入一个正整数，判断其所含5 的个数。(如：输入数值 2345105，其中包含 5 的个数为 2)程序代码：SET TALK OFFclearINPUT 请输入一个正整数X:TO XS=0DO WHILE.T.N=MOD(X,10)&第一次求 X 的个位数 N,第二次求 X 的十位数 N，IF N=5S=S+1ENDIFX=INT(X/10)IF X=0EXITENDIFENDDO?X 中 5 的个数为
39、:,SSET TALK ON4、从键盘输入 20 个数，去掉 20 个数中的最大值和最小值，然后求平均值。程序代码：SET TALK OFFCLEAR28/37.S=0N=1STORE 0 TO MAX,MINDO WHILE NBMIN=BENDIFN=N+1ENDDO?AVERAGE=+STR(S-MAX-MIN)/18,19,2)SET TALK ON5、求 21000 之间完数的个数。(完数：一个数如果恰好等于它的因子之和，因子不包括本身且不能重复。如：6=1+2+3，81+2+4，所以 6 是完数，8 不是完数)程序代码：SET TALK OFFCLEARSN=029/37.?210
40、00 之间的完数为:FOR N=2 TO 1000M=NI=1S=0DO WHILE IIF INT(M/I)=M/IS=S+IENDIFI=I+1ENDDOIF N=SSN=SN+1?NENDIFENDFOR?完数的个数为:,SNSET TALK ON6、本程序首先对矩阵按行读入数据，并将它转置。程序代码：SET TALK OFFINPUT N=TO NDIME A(N,N)30/37.FOR I=1 TO NFOR J=1 TO NINPUT A(+STR(I,1)+,+STR(J,1)+)=TO AI,J)ENDFORENDFORFOR I=1 TO NFOR J=1 TO IT=A(I
41、,J)A(I,J)=A(J,I)A(J,I)=TENDFORENDFORSET TALK ON7、从键盘任意输入 N 个数，去掉其中最大值和最小值，然后求平均值。程序代码：SET TALK OFFCLEARS=0INPUT N=TO NSTORE N TO MAX,MINFOR I=1 TO NINPUT B=TO BS=S+B31/37.IF MAXMAX=BENDIFIF MINBMIN=BENDIFENDFOR?AVERAGE=+STR(S-MAX-MIN)/(N-2),19,2)SET TALK ON8、利用参数传递和过程文件，求(M!+N!)/(M-N)!程序代码：SET TALK
42、OFFCLEARSET PROC TO 程序 20INPUT M=TO MINPUT N=TO NSTORE 0 TO SM,SNDO JC2 WITH M,SMDO JC2 WITH N,SNDO MC2 WITH M-N,N?表达式结果为 S=+STR(SM+SN)/N,10,2)SET PROC TOSET TALK ON32/37.PROC JC2PARA X,YI=1T=1DO WHILE I=XT=T*II=I+1ENDDOY=TRETURNPROC MC2PARA Y,XI=1T=1DO WHILE I=XT=T*YI=I+1ENDDOX=TRETURN9、编程求 11000 之
43、的同构数。(同构数：假设 A 是同构数，那么 A 出现在 A 的平方数的右边。如：5*5=25，5 出现在 25 的右边，3*3=9，3 不出现在 9 的右边，所以 5 是同构数，而3 不是。)程序代码：33/37.SET TALK OFFCLEARFOR X=1 TO 1000P=X*XL=LEN(ALLTRIM(STR(X,19)IF ALLTRIM(STR(X,19)=RIGHT(ALLTRIM(STR(P,19),L)?XENDIFENDFORSET TALK ON10、本程序用于输入一个表名，假设表存在那么打开，并显示出其各个字段名。程序代码：SET TALK OFFDO WHILE
44、.T.ACCEPT 请输入表名：TO FNAMEIF.NOT.FILE(FNAME)WAIT 此表不存在ELSEUSE&FNAMEZDSM=FCOUNT()?此表中的字段有：+STR(ZDSM)+个FOR I=1 TO ZDSM?STR(I)+34/37.?FIELD(I)ENDFORENDIFWAIT 是否继续(Y/N)TO YNIF UPPER(YN)=NEXITENDIFENDDOSET TALK ON表单程序设计1.设计一个表单，界面如图8.43，当表单运行时，标签控件自动从左向右移动。2.设计一个显示中文日期的表单，并且可以实现日期的前翻和后翻，界面如图8.44。3.将文本框中输入的
45、金额转换成中文大写的形式，即将 123.56 转换成壹佰贰拾叁元伍角陆分，最高值为亿。要求：数字金额转换成中文大写金额用方法来实现，表单运行输入数据值金额后，调用这个方法。表单界面如图8.45 所示。4.计算指定班级的奖学金总额，表单界面如图8.46 所示。除了3 个标签控件、3 个文本框和两个命令按钮外，再添加 3 个形状控件，将输入值与显示计算结果的区域、命令按钮的区域区分开来，并设置形状控件的SpecialEffeect 属性为 3 维。注意：班级号不存在，通过对学号的截取来获得，奖学金总额是通过计算得到的。5.显示指定表文件中的全部字段名，表单界面如图 8.47 所示。要求：表单运行时
46、，在文本框中输入表名(不包括扩展名)，在列表框中显示指定表的全部字段名。6.设计表单，查找指定班级学生的，表单界面如图8.48 所示。要求：表单刚运行时，文本框为空白，输入班级号后，按“确定按钮，将指定班级学生的添加到组合框中，如果该班级不存在的话，用消息对话框提示班级不存在的信息。7.设计一个计时器表单，用 3 个文本框分别显示时、分、秒，界面如图 8.49 所示。要求：表单刚运行时，各个文本框中显示“00。单击“开始按钮后，从 0 开始计时，单击“停止按钮停止计时，文本框中显示当前计时的值，单击“退出按钮完毕。35/37.8.设计一个表单，查找指定学生的课程选修情况，其中Combo1 的数
47、据源为学生表的，Label2 的标题根据组合框中的选择而变化，界面如图 8.50 所示。要求：表单运行时，Label2、List1 是不可见的。在组合框中选择后，在List1 中显示该生选修的课程名和成绩。多表操作程序设计题多表操作程序设计题1.对学生“学籍数据库中的“学生表，编写一个输入学生信息的程序，要求保证该表的实体完整性。用户界面可以自行设计。2.对学生“学籍数据库中的“学生表，编写一个按照“学号修改某个学生信息的程序，要求保证该表的实体完整性。用户界面可以自行设计。3.表单的界面与控件布局情况如图8.51 和图 8.52 所示，其中顺序排列的控件Text1Text6 被放置在容器 C
48、ontainer1 中。该表单可实现查询指定学生的所修课程名与成绩情况。具体要求如下：用户可以在控件Combo1 中输入或选择学生;输入或选择学生后，按回车或“确定按钮，可在表单的左部控件中以只读方式显示对应的学号和学生以与指定学生所修各门课程的课程名和成绩以与总平均金额;课程名与成绩显示项可根据表中满足条件的记录个数动态的调整，如果某学生尚无选修任何课程，那么课程名与成绩显示项将不出现(包括显示控件和显示数据)，且在总平均成绩显示项中显示未选修任何课程的信息;表单中命令按钮的汉字标题在表单执行后会自动显现。编写完成上述功能的事件代码，要求写明数据源的设置情况与各个事件的名称与归属(假设销售金
49、额显示项最多不超过10 项)。4.表单的界面与控件布局情况如图8.53 和图 8.54 所示，其中顺序排列的控件Command1Command7 属于组容器 Commandgroup1。该表单可实现学生“成绩表的编辑浏览操作，具体要求如下：可以随时向成绩表中添加新记录;可以随时删除成绩表中当前指针所指的记录;可以随时向前、后、表头、表尾翻动浏览记录，当指针到达表头或表尾时，36/37.自动将相应按钮设为不可访问;在添加或浏览记录时，随着学号的变化，相应的、课程号、课程名和成绩会自动地以只读方式定位显示;控件 Command1Command7 的汉字标题执行后会自动显现。编写完成上述功能的事件代码，要求写明数据源的设置情况与各个事件的名称与归属。37/37