下载文档原格式
VFP面向对象程序设计习题作业200 至200 学年计算机与信息科学系VFP练习题习题一一、单项选择题1. 数据库管理系统的英文缩写是d。
A) DBM B) DB C) DBS D) DBMS2. 支持数据库各种操作的软件系统是d。
A) 操作系统B) 命令系统C) 数据库系统D) 数据库管理系统3. c是存储在计算机存储设备上相关数据的集合。
A) 网络系统B) 操作系统C) 数据库D) 数据库管理系统4. 由计算机、操作系统、DBMS、数据库、应用程序及用户组成的一个整体叫b。
A) 数据库管理系统B) 数据库系统C) 文件系统D) 软件系统5. 数据库系统的核心是b 。
A) 数据库B) 数据库管理系统C) 操作系统D) 文件系统6. 数据库DB，数据库系统DBS，数据库管理系统DBMS，三者之间的关系是c。
A) DBMS包括DB和DBS B) DB包括DBS和DBMSC) DBS包括DB和DBMS D) DBMS包括DBS7. VFP是一种d数据库管理系统。
A) 网状型B) 共享型C) 层次型D) 关系型8.在关系模型中，将两个关系通过共同字段名组成一个新的关系，是c 关系运算。
A) 选择B) 投影C) 连接D)层次二、填空题1. 数据库系统的核心部分是数据库管理系统。
2. 在关系数据库的三种关系运算是选择、投影、连接。
3. 从关系中找出满足条件的元组的操作是_选择__运算。
习题二一、单项选择题1. 在进行VFP表的结构设计时，其字符型字段的宽度不允许超过__b____。
A）255 B）254 C）20 D）无限制2. 要显示和隐藏VFP所有的工具栏，应使用___b___菜单下的“工具栏”命令。
A）文件B）显示C）工具D）窗口3. VFP表文件中，对字符型字段的值，最多可输入__d____个字符。
A）255 B）128 C）8 D）2544. 在表设计器中设计了表的备注字段后，系统会自行产生该表文件的备注文件，该文件的主文件名与表文件同名，而扩展名是___c____。
一、选择题1．下列选项中能够直接实现对数据库中数据操作的软件是（ c ）。
A、字处理软件B、操作系统C、数据库管理系统D、翻译系统2．下列关于数据库系统的正确叙述是（ a ）。
A、数据库系统减少了数据冗余B、数据库系统避免了一切数据冗余C、数据库系统中数据的一致性是指数据类型的一致D、数据库系统比文件系统能管理更多的数据3．数据库DB、数据库系统DBS、数据库管理系统DBMS这三者之间的关系是（ a ）。
A、DBS包括DB和DBMSB、DBMS包括DB和DBSC、DB包括DBS和DBMSD、DBS就是DB，也就是DBMS4．按照数据模型分类，Visual FoxPro属于（ c ）。
A、层次型B、网状型C、关系型D、混合型5．关系数据库管理系统存储与管理数据的基本形式是（ b ）。
A、关系树B、二维表C、结点路径D、文本文件6．下列数据为常量的是（ c ）。
A、02/18/99B、FC、.N.D、TOP7．下述字符串表示方法正确的是（ b ）。
A、""等级考试""B、['等级考试']C、{"等级考试"}D、[[等级考试]]8．执行命令STORE CTOD([08/11/99]) TO AA后，变量AA的数据类型是（ a ）。
A、日期型B、数值型C、字符型D、浮点型9．设L=668，M=537，N="L+M"，表达式5+&N的值是（ c ）。
A、类型不匹配B、5+L+MC、1210D、5+&N10．某数据表中包含如下的两个字段:性别（C，2）、奖金（N，6，2），如果需要查询奖金在 100元以下或400元以上的男职工和奖金在200元以上的女职工，应该使用的条件是（d ）。
A、性别="男".AND.奖金<=100.OR.奖金>=400.AND.性别="女".AND.奖金>=200B、性别="男".AND.奖金<=100.OR.奖金>=400.OR.性别="女".AND.奖金>=200C、性别="男".AND.（奖金<=100.OR.奖金>=400）.AND.性别="女".AND.奖金>=200D、性别="男".AND.（奖金<=100.OR.奖金>=400）.OR.性别="女".AND.奖金>=20011．在下列表达式中，运算结果为数值的是（ d ）。
VFP 综合练习题（一）题号一二三四总分分数一、选择题（本大题共40个小题，每小题1分，共40分）1、Visual FoxPro 在创建数据库时建立了扩展名分别为（ ）的文件.A ．DBCB ．DCTC ．DCXD ．.DBC .DCT .DCX2、通过Visual Foxpro 项目管理器窗口的按钮不可以完成的操作是（ ）。
A ．新建文件B ．添加文件C ．删除文件D ．为文件重命名3、下列关于变量的叙述中不正确的是（ ）A ．变量值可以随时改变B ．变量值不可以随时改变C ．Visual FoxPro 的变量分为字段变量和内存变量D ．在Visual FoxPro 中,可以将不同类型的数据赋给同一个变量4、下列表达式中运算结果为数值的是（ ）A ．？CTOD （[07/21/02]）-20B ．？500+200=400C ．？“100”-“50”D ．？LEN （SPACE （4））+15、SQL SELECT 语句中的GROUP BY 和HAVING 短语对应查询设计器上的（ ）选项卡A ．字段B ．联接C ．分组依据D ．排序依据6、在查询设计器中，选定“杂项”选项卡中的“无重复记录”复选框，与执行SQL SELECT 语句中的（ ）等效A ．WHEREB ．JOIN ONC ．ORDER BYD ．DISTINCT7、下列关于查询的说法正确的一项是（ ）A ．查询文件的扩展名为 .QPXB ．不能基于自由表创建查询C ．根据数据库表或自由表或视图可以创建查询D ．不能基于视图创建查询8、在Visual FoxPro中,内联接是指( )A ．只有满足联接条件的记录出现在查询结果中B ．除满足联接条件的记录出现在查询结果中外，第一个表中不满足联接条件的记录也出现在查询结果中C ．除满足联接条件的记录出现在查询结果中外，第二个表中不满足联接条件的记录也出现在查询结果中·2·Visual FoxPro 6.0简明教程配套习题D．除满足联接条件的记录出现在查询结果中外，两个表中不满足联接条件的记录也出现在查询结果中9、设关系模式SCG（S#，C#，Grade）中S#为学生学号，C#为课程号，Grade为某学号的学生学习某号课程的考试成绩。
vf对口升学试题及答案# vf对口升学试题及答案一、选择题（每题2分，共20分）1. 在Visual FoxPro中，以下哪个命令用于创建新表单？- A. `CREATE TABLE`- B. `CREATE FORM`- C. `DEFINE WINDOW`- D. `ADD FORM`答案：B2. VFP中的表单设计器提供了哪种类型的控件用于输入数据？ - A. 文本框- B. 标签- C. 命令按钮- D. 以上都是答案：D3. 在VFP中，以下哪个函数用于计算字符串的长度？- A. `LEN()`- B. `STR()`- C. `LEFT()`- D. `RIGHT()`答案：A4. 如果要在VFP中实现数据的排序，应该使用哪个命令？ - A. `SORT`- B. `ORDER`- C. `ARRANGE`- D. `INDEX`答案：C5. 在VFP中，以下哪个属性用于设置文本框的只读状态？ - A. `ReadOnly`- B. `Enabled`- C. `Visible`- D. `Caption`答案：A6. VFP中的数据库容器对象是什么？- A. 表- B. 视图- C. 数据库- D. 容器答案：C7. 在VFP中，如何将一个表单的数据保存到数据库中？ - A. 使用`SAVE`命令- B. 使用`PACK`命令- C. 使用`USE`命令- D. 使用`APPEND`命令答案：D8. 在VFP中，以下哪个事件通常用于执行表单加载时的初始化操作？ - A. `Click`- B. `Init`- C. `Load`- D. `Activate`答案：C9. VFP中，以下哪个命令用于删除数据库中的一个表？- A. `DELETE TABLE`- B. `REMOVE TABLE`- C. `DROP TABLE`- D. `ERASE TABLE`答案：C10. 在VFP中，以下哪个函数用于将数值转换为字符串？- A. `STR()`- B. `VAL()`- C. `CHRS()`- D. `AT()`答案：A二、填空题（每题2分，共20分）11. 在VFP中，使用________命令可以打开一个数据库表。
大学生vfp考试题及答案一、选择题1. 在Visual FoxPro（VFP）中，以下哪个选项不是数据库表的完整性规则？A. 实体完整性B. 域完整性C. 参照完整性D. 触发器完整性答案：D2. VFP中，要实现数据的排序，可以使用以下哪个命令？A. SELECTB. ORDER BYC. SORTD. INDEX答案：C3. 在VFP中，以下哪个函数用于计算字符串的长度？A. LEFT()B. RIGHT()C. LEN()D. SPACE()答案：C4. 在VFP中，要创建一个表单，应该使用以下哪个命令？A. CREATE TABLEB. CREATE FORMC. USED. BROWSE答案：B5. VFP中，以下哪个控件用于显示图像？A. LabelB. TextBoxC. Image ControlD. Grid答案：C二、填空题6. 在VFP中，要将一个字段设置为自动增长的编号，应该使用字段属性_________。
答案：AutoIncrement7. 当需要在VFP中实现多表连接查询时，可以使用_________函数。
答案：JOIN8. 在VFP中，要实现对表进行记录的追加操作，应使用的命令是_________。
答案：APPEND9. VFP中，要对表中的记录进行删除操作，应使用的命令是_________。
答案：DELETE10. 在VFP中，要实现对表中数据的局部更新，可以使用_________命令。
答案：UPDATE三、简答题11. 简述在VFP中如何建立一对多关系？答案：在VFP中，建立一对多关系通常涉及两个表。
首先，需要在一个表中创建一个与另一个表的主键相匹配的字段，这个字段称为外键。
然后，通过设置数据库的参照完整性规则来建立关系，确保在子表中引用的每个父表记录都是有效的。
12. 描述在VFP中如何使用报表向导创建一个简单的报表？答案：在VFP中，使用报表向导创建报表的步骤如下：- 打开报表向导。
vfp考试题目及答案一、选择题（每题2分，共20分）1. 在Visual FoxPro中，以下哪个选项是正确的数据类型？A. IntegerB. TextC. DateD. All of the above答案：D2. 使用Visual FoxPro创建表单时，以下哪个控件用于显示文本？A. LabelB. TextBoxC. CheckBoxD. ComboBox答案：A3. 在Visual FoxPro中，如何将一个表的所有记录添加到另一个表中？A. COPY TOB. INSERT INTOC. APPEND FROMD. SELECT INTO答案：C4. Visual FoxPro中，以下哪个函数用于计算字符串的长度？A. LENB. LENGTHC. STRLEND. STRSIZE答案：A5. 在Visual FoxPro中，如何设置表单的标题？A. Form.Caption = "New Title"B. Form.Text = "New Title"C. Form.Title = "New Title"D. = "New Title"答案：C6. Visual FoxPro中，以下哪个命令用于排序记录？A. ORDER BYB. SORTC. INDEX OND. ALL OF THE ABOVE答案：D7. 在Visual FoxPro中，如何将一个字段的值设置为NULL？A. Field.Clear()B. Field.Value = NullC. Field.Nullify()D. Field = Null答案：D8. Visual FoxPro中，以下哪个函数用于将字符串转换为日期？A. CTOD()B. DTOC()C. STRTODATE()D. DATETOSTR()答案：A9. 在Visual FoxPro中，如何使用SQL语句删除表中的记录？A. DELETE FROM table_name WHERE conditionB. REMOVE FROM table_name WHERE conditionC. DROP TABLE table_name WHERE conditionD. DELETE table_name WHERE condition答案：A10. Visual FoxPro中，以下哪个命令用于创建索引？A. CREATE INDEXB. INDEX ONC. SET INDEXD. ALL OF THE ABOVE答案：B二、填空题（每题2分，共20分）1. 在Visual FoxPro中，使用________命令可以打开一个数据库。
vfp练习题（打印版）# VFP练习题（打印版）## 一、选择题1. VFP中，以下哪个选项是用于设置字段的显示格式？A. 显示B. 隐藏C. 格式D. 规则2. 在VFP中，要实现数据的排序，可以使用以下哪个命令？A. `SORT`B. `ORDER`C. `RANK`D. `CLASSIFY`3. VFP中，创建报表时，以下哪个选项是用于设置报表的页眉和页脚？A. `REPORT FORM`B. `REPORT FOOTER`C. `PAGE HEADER`D. `PAGE FOOTER`## 二、填空题4. 在VFP中，使用______命令可以创建一个新的表单。
5. VFP中，要将一个字段的值赋给另一个字段，可以使用______语句。
6. VFP报表设计中，______是用来控制报表的打印格式。
## 三、简答题7. 简述VFP中如何使用SQL语句进行数据查询。
8. 描述VFP中如何实现数据表的连接操作。
## 四、操作题9. 假设有一个名为“学生”的表，包含字段：学号（C型）、姓名（C 型）、年龄（N型）。
请编写VFP命令，实现以下操作：- 显示所有学生的姓名和年龄。
- 按年龄从大到小排序显示所有学生的信息。
10. 给定两个表：“学生”和“课程”，学生表包含字段：学号、姓名；课程表包含字段：课程号、课程名。
请编写VFP命令，实现以下操作：- 将两个表通过学号连接，并显示连接后的所有信息。
## 五、综合应用题11. 设计一个VFP表单，包含以下功能：- 一个文本框用于输入学生姓名。
- 一个按钮，点击后在“学生”表中查找该姓名的学生信息，并在表单上显示。
- 一个命令按钮，用于将输入的姓名添加到“学生”表中。
## 六、编程题12. 编写一个VFP程序，实现以下功能：- 从键盘接收一个数字，判断该数字是奇数还是偶数，并在屏幕上显示结果。
## 七、思考题13. 思考在VFP中如何实现数据的加密和解密操作，并简要描述可能使用的方法。
1: 第1题m个人的成绩存放在score数组中，请编写函数fun,它的功能是：将低于平均分的人作为函数值返回，将低于平均分的分数放在below所指定的函数中。
答案：int fun(int score[],int m,int below[]){int i,k=0,aver=0;for(i=0;i＜m;i++)aver+=score[i];aver/=m;for(i=0;i＜m;i++)if(score[i]＜aver){below[k]=score[i];k++;}return k;}2: 第2题请编写函数fun，它的功能是：求出1到100之内能北7或者11整除，但不能同时北7和11整除的所有证书，并将他们放在a所指的数组中，通过n返回这些数的个数。
答案：void fun(int *a, int *n){int i,j=0;for(i=2;i＜1000;i++)if ((i%7==0 || i%11==0) && i%77!=0)a[j++]=i;*n=j;}3: 第3题请编写函数void fun(int x,int pp[],int *n),它的功能是：求出能整除x且不是偶数的各整数，并按从小到大的顺序放在pp所指的数组中，这些除数的个数通过形参n返回。
答案：void fun(int x, int pp[ ], int *n){int i=1,j=0;k=0,*t=pp;for(i=0;i＜=x;i++)if(i%2!=0){t[j]=I;j++;}for(i=0;i＜j;i++)if(x%t[i]==0){pp[k]=t[i];k++;}*n=k;}4: 第4题请编写一个函数void fun(char *tt,int pp[]),统计在tt字符中"a"到"z"26各字母各自出现的次数，并依次放在pp所指的数组中。
答案：void fun(char *tt, int pp[]){int i;for (i=0;i＜26;i++)pp[i]=0;while (*tt){switch (*tt){case ‘a’: pp[0]++;break;case ‘b’: pp[1]++;break;case ‘c’: pp[2]++;break;case ‘d’: pp[3]++;bre ak;case ‘e’: pp[4]++;break;case ‘f’: pp[5]++;break;case ‘g’: pp[6]++;break;case ‘h’: pp[7]++;break;case ‘i’: pp[8]++;break;case ‘j’: pp[9]++;break;case ‘k’: pp[10]++;break;case ‘l’: pp[11]++;break;case ‘m’: pp[12]++;break;case ‘n’: pp[12]++;break;case ‘o’: pp[14]++;break;case ‘p’: pp[15]++;break;case ‘q’: pp[16]++;break;case ‘r’: pp[17]++;break;case ‘s’: pp[18]++;break;case ‘t’: pp[19]++;break;case ‘u’: pp[20]++;break;case ‘v’: pp[21]++;break;case ‘w’: pp[22]++;break;case ‘x’: pp[23]++;b reak;case ‘y’: pp[24]++;break;case ‘z’: pp[25]++;break;}tt++;}}5: 第5题请编写一个函数void fun(int m,int k,int xx[]),该函数的功能是：将大于整数m且紧靠m的k各素数存入xx所指的数组中。
VFP综合练习题（一）一、选择题（本大题共40个小题，每小题1分，共40分）1、Visual FoxPro在创建数据库时建立了扩展名分别为（ D ）的文件.A．DBC B．DCT C．DCX D．.DBC .DCT .DCX2、通过Visual Foxpro项目管理器窗口的按钮不可以完成的操作是（ D ）。
A．新建文件B．添加文件C．删除文件D．为文件重命名3、下列关于变量的叙述中不正确的是（ B ）A．变量值可以随时改变B．变量值不可以随时改变C．Visual FoxPro的变量分为字段变量和内存变量D．在Visual FoxPro中,可以将不同类型的数据赋给同一个变量4、下列表达式中运算结果为数值的是（ D ）A．？CTOD（[07/21/02]）-20 B．？500+200=400 C．？“100”-“50”D．？LEN（SPACE（4））+15、SQL SELECT 语句中的GROUP BY和HAVING短语对应查询设计器上的（D ）选项卡A．字段B．联接C．分组依据D．排序依据6、在查询设计器中，选定“杂项”选项卡中的“无重复记录”复选框，与执行SQL SELECT语句中的（ D ）等效A．WHERE B．JOIN ON C．ORDER BY D．DISTINCT7、下列关于查询的说法正确的一项是（ C ）A．查询文件的扩展名为.QPX B．不能基于自由表创建查询C．根据数据库表或自由表或视图可以创建查询D．不能基于视图创建查询8、在Visual FoxPro中,内联接是指( A )A．只有满足联接条件的记录出现在查询结果中B．除满足联接条件的记录出现在查询结果中外，第一个表中不满足联接条件的记录也出现在查询结果中C．除满足联接条件的记录出现在查询结果中外，第二个表中不满足联接条件的记录也出现在查询结果中D．除满足联接条件的记录出现在查询结果中外，两个表中不满足联接条件的记录也出现在查询结果中9、设关系模式SCG（S#，C#，Grade）中S#为学生学号，C#为课程号，Grade为某学号的学生学习某号课程的考试成绩。
VFP综合练习题（一）一、选择题（本大题共40个小题，每小题1分，共40分）1、Visual FoxPro在创建数据库时建立了扩展名分别为（）的文件.A．DBC B．DCT C．DCX D．.DBC .DCT .DCX2、通过Visual Foxpro项目管理器窗口的按钮不可以完成的操作是（）。
A．新建文件B．添加文件C．删除文件D．为文件重命名3、下列关于变量的叙述中不正确的是（）A．变量值可以随时改变B．变量值不可以随时改变C．Visual FoxPro的变量分为字段变量和内存变量D．在Visual FoxPro中,可以将不同类型的数据赋给同一个变量4、下列表达式中运算结果为数值的是（）A．？CTOD（[07/21/02]）-20 B．？500+200=400C．？“100”-“50” D．？LEN（SPACE（4））+15、SQL SELECT 语句中的GROUP BY和HAVING短语对应查询设计器上的（）选项卡A．字段 B．联接 C．分组依据 D．排序依据6、在查询设计器中，选定“杂项”选项卡中的“无重复记录”复选框，与执行SQL SELECT语句中的（）等效A．WHERE B．JOIN ON C．ORDER BY D．DISTINCT7、下列关于查询的说法正确的一项是（）A．查询文件的扩展名为 .QPX B．不能基于自由表创建查询C．根据数据库表或自由表或视图可以创建查询D．不能基于视图创建查询8、在Visual FoxPro中,内联接是指( )A．只有满足联接条件的记录出现在查询结果中B．除满足联接条件的记录出现在查询结果中外，第一个表中不满足联接条件的记录也出现在查询结果中C．除满足联接条件的记录出现在查询结果中外，第二个表中不满足联接条件的记录也出现在查询结果中·2·Visual FoxPro 6.0简明教程配套习题D．除满足联接条件的记录出现在查询结果中外，两个表中不满足联接条件的记录也出现在查询结果中9、设关系模式SCG（S#，C#，Grade）中S#为学生学号，C#为课程号，Grade为某学号的学生学习某号课程的考试成绩。
综合练习题（一）在以下各题中，有的要用到数据库文件RYQK.DBF和GZ.DBF，其文件内容分别如下（不考虑前面程序运行影响）RYQK.DBF数据库结构为：职工编号（C，4）、姓名（C，6）、性别（C，2）、出生日期（D，8）、部门（C，6）、职务（C，6）、婚否（L，1）GZ.DBF数据库结构为：职工编号（C，4）、基础工资（N，6，1）、岗位津贴（N，5，1）、奖金（N，5，1）、水电一、阅读程序题阅读下列程序，将正确的运行结果填到答题纸的对应题号处。
1. SET TALK OFFX=‟XX‟Y=‟YY‟XX=12YY=24?&X+&YRETURN362. SET TALK OFFSET HEADING OFFUSE RYQKGO 3DISPLAY 姓名OFFUSERETURN黄小平3. SET TALK OFFSET HEADING OFFUSE RYQKINDEX ON 职工编号TO ABCSKIP 3COPY TO QAZ NEXT 2USE QAZGO TOPDISPLAY 姓名OFFUSERETURN王刚4. SET TALK OFFUSE RYQKINDEX ON 姓名TAG SMFIND 王SKIP?RECNO()USERETURN45. SET TALK OFFSELECT 2USE GZINDEX ON 职工编号TAG XH OF ZGBHSELECT 1USE RYQKSET RELATION TO职工编号INTO BLOCATE FOR 部门=‟人事处‟SELELCT B?RECNO()CLOSE ALLRETURN56. SET TALK OFFSET HEADING OFFSELECT 1USE GZSELECT 2USE RYQKJOIN TO STU WITH A FIELDS 职工编号,姓名,A.基础工资FOR 职工编号=A.职工编号USE STUGO BOTTOMDISPLAY OFFCLOSE ALLRETURN1002 李平500.07. SET TALK OFFUSE GZLOCATE FOR AT(…3‟,职工编号)=1DO WHILE .NOT. EOF()REPLACE 奖金WITH 奖金+50CONTINUEENDDOGO TOPSKIP 2?职工编号,奖金USERETURN3002 1208. **主程序文件K1.PRG清单如下：SET TALK OFFSET PROCEDURE TO SUBH=0DO K2 WITH H,5?HSET PROCEDURE TORETURN**过程文件SUB.PRG清单如下：PROCEDURE K2PARAMETERS X,YX=(Y+5)**2RETURN100.00二、完善程序题将下列程序___________处的正确内容填到答题纸的对应题号处，使程序完善、正确。
1. 显示RYQK库中的第1~3号的纪录信息。
SET TALK OFFUSE RYQKDISPLAY NEXT 3USERETURN2. 求GZ库中的所有职工的实得工资。
SET TALK OFFUSE GZS=0SCANREPLACE 实得工资WITH 基础工资+岗位津贴+奖金-水电费__S=S+实得工资_________ENDSCAN?‟实得工资为：‟,SUSERETURN3. 在RYQK库中将职务为“干事”的纪录其职务改为“副部长”。
SET TALK OFFUSE RYQKDO WHILE .NOT. EOF()IF职务=‟干事‟REPLACE 职务WITH “副部长”SKIPENDIFENDDOUSERETURN4. 该程序可以输出任意输入的20个数中的某一个序号所对应的数。
SET TALK OFFDIMENSION A(20)FOR J=1 TO 20INPUT …请输入任意一个数‟ TO A(J)ENDFORINPUT …请输入序号：‟ TO NN? A(NN)RETURN5. 下面程序用于将变量M1、M2由小到大排序。
SET TALK OFFINPUT …M1=‟ TO M1INPUT …M2=‟ TO M2IF M1>M2T=M1M1=M2M2=TENDIF? M1,M2RETURN6. 比较GZ库中每个职工的实得工资，并显示其中的最高值。
SET TALK OFFUSE GZMAX=基础工资+岗位津贴+奖金-水电费DO WHILE .NOT. EOF()IF MAX<基础工资+岗位津贴+奖金-水电费MAX=基础工资+岗位津贴+奖金-水电费ENDIF__SKIP ________ENDDO? …MAX=‟,MAXUSERETRUN7. 任意输入30个数，求其和。
SET TALK OFFN=1S=0DO WHILE .T.INPUT …请输入X的值：‟ TO XS=S+XN=N+1IF N<=30LOOPENDIF_EXIT__________ENDDO?SRETRUN8. 输出100到1000之间能被9整除的数，每行输出6个数。
SET TALK OFFX=100N=0DO WHILE X<=1000IF MOD(X, 9)=0??XN=N+1IF INT (N/6)=N/6?ENDIFENDIFX=X+1ENDDORETRUN9. 在RYQK库中，追加一条记录，只将职工编号输入为“4001”。
SET TALK OFFDIMENSION A(1)USE RYQKA(1)=‟4001‟APPEND BLANKGA THER FROM ADISPLAYUSERETURN10. 一个数列，它的前两项依次为1，1，从第三项开始，以后每一项是它前两项之和，输出这个数列的前十项。
SET TALK OFFSTORE 1 TO A,B,I?A,BDO WHILE I<=10A=A+B_B=A+B__________??A,BI=I+1ENDDORETURN三、程序改错题以下每个小题中有一个错误，在答题纸的对应题号处写出有错误行的行号及改正后的语句全行。
（每行语句前的序号之标注行号，非程序本身的内容）1. 在RYQK库中计算职工的平均年龄。
(1) SET TALK OFF(2) USE RYQK(3) COUNT TO N(4) S=0(5) GO TOP(6) DO WHILE .NOT. EOF()(7) S=S+(YEAR(DATE())-YEAR(出生日期))(8) EXIT SKIP(9) ENDDO(10) ?‟平均年龄为：‟，S/N(11) USE(12) RETURN2. 在RYQK库中，显示所有符合给定查找条件的纪录。
(1) SET TALK OFF(2) USE RYQK(3) ACCEPT …输入性别：‟ TO XB(4) LOCATE FOR 性别=XB(5) DO WHILE .NOT. EOF()(6) DISPLAY(7) SKIP CONTINUE(8) ENDDO(9) USE(10) RETURN3. 下面程序实现逆序显示数据库RYQK.DBF中已婚的记录。
(1) SET TALK OFF(2) USE RYQK(3) GO BOTTOM(4) DO WHILE .NOT.EOF() BOF()(5) IF 婚否(6) DISPLAY OFF(7) ENDIF(8) SKIP -1(9) ENDDO(10) USE(11) RETURN4. 查找姓名为“李军”的记录，并显示相关信息。
(1) SET TALK OFF(2) USE RYQK(3) INDEX ON 姓名TO XMM(4) SEEK …李军‟(5) IF FOUND()(6) @10,20 SAY 姓名+出生日期DTOC(出生日期)(7) ELSE(8) @10,20 SAY “查无此人”(9) ENDIF(10) USE(11) RETURN5. 调用函数AREA计算圆的面积。
**MAIN.PRG(1) SET TALK OFF(2) S=0(3) INPUT …请输入圆的半径：‟ TO R(4) S=AREA(R)(5) ? …S=‟,S(6) RETRUN**AREA(7) FUNCTION AREA(8) PARA R1(9) S=3.14*R1**2(10) RETURN RETURN S6. 下面程序能够输出如下图型：******(1) SET TALK OFF(2) CLEAR(3) FOR I=1 TO 3 2(4) FOR J=1 TO 2*I-1(5) ?? …*‟(6) ENDFOR(7) ?(8) ENDFOR(9) RETURN7. 求1到N之间所有奇数的和病输出结果。
(1) SET TALK OFF(2) CLEAR(3) INPUT “请输入N：”TO N(4) S=0(5) FOR I=1 TO N STEP-2 2(6) S=S+I(7) ENDFOR(8) ?S(9) RETURN8. 在RYQK库中，统计“职工编号”字段中第一位数字相同的职工人数。
(1) SET TALK OFF(2) USE RYQK(3)N1=N2=N3=0N1=0 N2=0 N3=0(4) DO WHILE .NOT. EOF()(5) NJ=SUBSTR(职工编号，1，1)(6) DO CASE(7) CASE NJ=‟1‟(8) N1=N1+1(9) CASE NJ=‟2‟(10) N2=N2+1(11) CASE NJ=‟3‟(12) N3=N3+1(13) ENDCASE(14) SKIP(15) ENDDO(16) ?N1,N2,N3(17) USE(18) RETURN综合练习题（二）。
