VF程序设计综合自测题

VF程序设计综合自测题

单选题：

1. 在Visual FoxPro中，使用LOCATE FOR命令按条件查找记录，当查找到满足条件的第一条记录后，如果还需要查找下一条满足条件的记录，应使用（ C）。

A.再次使用LOCATE FOR命令 B.SKIP命令 C.CONTINUE命令 D.GO命令

2. 关系运算中的选择运算是（A ）。 A.从关系中找出满足给定条件的元组的操作 B.从关系中选择若干个属性组成新的关系的操作

C.从关系中选择满足给定条件的属性的操作 D.A和B都对

3. 下列叙述中正确的是(A )

A.软件测试的主要目的是发现程序中的错误 B.软件测试的主要目的是确定程序中错误的位置 C.为了提高软件测试的效率，最好由程序编制者自己来完成软件测试的工作 D.软件测试是证明软件没有错误

4. 从工程管理角度，软件设计一般分为两步完成，它们是___ A _____。 A.概要设计与详细设计 B.数据设计与接口设计 C.软件结构设计与数据设计 D.过程设计与数据设计

5. 设已经执行了正确的命令mx=[98+2]，再执行命令? mx，屏幕将显示( B )。 A.100 B.98+2 C.[98+2] D.100.00

6. 函数Int(-4.5)的返回结果是( D )。 A.-4.5 B.-5 C. 4 D.-4

7. 在数据库设计器中要为两个表建立一对多联系，则关于两个表的索引类型描述正确的是 9. 为一个打开的表文件增加新字段，应当使用命令（ B ）。 A.APPEND

B.MODIFY STRUCTURE C.INSERT D.BROWSE

11. 将内存变量定义为全局变量的Visual FoxPro命令是（C）。 A.LOCAL B.PRIVATE C.PUBLIC D.Release

12. 假设表单 My Form 隐藏着，让该表单在屏幕上显示的命令是____ C ____。 A.MyForm. List B.MyForm. Display C.MyForm. Show

D.MyForm. ShowForm

13. 显示和隐藏命令窗口的操作是（D） A.单击\常用\工具栏上的\命令窗口\按钮 B.通过\窗口\菜单下的\命令窗口\选项来切换 C.直接按CTRL+F2或CTRL+F4的组合键 D.以上方法都可以

15. SQL语句中删除表的命令是(A )。 A.DROP TABLE B.ERASE TABLE C.DETETE TABLE D.DELETE DBF

16. 若能够正常执行下面命令，说明字段\修理日期\的类型是（B ）。

REPLACE ALL 修理日期 WITH DTOC(DATE()) A.数值型 B.字符型 C.逻辑型 D.日期型

17. 在Visual FoxPro中，为了实现单击command1按钮来退出表单（将表单从内存中释放掉）,则command1按钮的Click事件代码应为（D）。 A.ThisForm.Refresh B.ThisForm.Delete C.ThisForm.Hide D.ThisForm.Release

18. 执行LIST NEXT 1命令之后，记录指针的位置指向（ ）。 A.下一条记录 B.原来记录 C.尾记录

1

D.首记录 正确答案:B

19. 下面命令中，会生成新的表文件的命令是（A ）。 A.SORT TO B.BROWSE C.APPEND FROM D.RECALL

20. Visual FoxPro支持两种类型的菜单，即（ ）。

A.条形菜单和下拉式菜单 B.下拉式菜单和弹出式菜单 C.条形菜单和弹出式菜单 D.下拉式菜单和系统菜单 正确答案:C

21. 关于对象的Click事件，下列正确的叙述是（ ）。

A.用鼠标双击对象时引发 B.用鼠标单击对象时引发 C.用鼠标右键双击对象时引发 D.用鼠标右键单击对象时引发 正确答案:B

22. 结果总为逻辑值的表达式是( )。 A.字符表达式 B.关系表达式 C.算术表达式 D.日期表达式 正确答案:B

23. 退出Visual FoxPro 的操作方法是（ ） 。 A.在命令窗口中键入Quit命令 B.单击主窗口右上角的\关闭\按钮 C.按快捷键ALT＋F4 D.以上方法都可以 正确答案:D

24. 在Visual FoxPro中 ，建立数据库表时，将年龄字段值限制在12~14之间的这种约束属于（ ）。

A.实体完整性约束 B.域完整性约束 C.参照完整性约束 D.视图完整性约束 正确答案:B

25. SQL中，建立视图用( )命令。 A.Create Schema

B.Create Table C.Create View D.Create Index 正确答案:C 判断题：

41 . 只列出左表与右表中的相匹配的记录的连接类型为完全连接。 正确答案:错

42 . LOOP语句使执行转向循环语句头部继续循环。 正确答案:对

43 . 在SQL语句中，查询空值的格式是：字段名=NULL 正确答案:错

44 . 条件：年龄 between 30 and 50 相当于条件：年龄>30 and 年龄<50 正确答案:错

45 . 可以通过视图来更新源表中的数据，但查询不可以更新源表。 正确答案:对

46 . 在多分支结构中（Do Case....EndCase），Case语句的个数是不受限制的。 正确答案:对

47 . 数组A(2,3)中的元素个数是6个。 正确答案:对

48 . 在SQL查询中，可以给表指定别名，也可以给字段或表达式指定别名。 正确答案:对

49 . 同一个时刻，一个工作区只能打开一个表文件，一个表可在不同的工作区打开。 正确答案:对

50 . For和While短语都是进行选择操作，所以它们完全相同。 正确答案:错 填空题：

31 . 在Visual FoxPro中，最多允许同时打开_______ 个数据库表或自由表。 正确答案:32767

32 . 在SQL查询语句中，显示部分结果的top短语必须要与_______短语一起来使用。 正确答案:order by/ORDER BY/Order By 33 . 自由表中允许字段名的最大长度为_______个字符。

正确答案:10/十

34 . 对象的引用可分为相对引用和_______引用。

2

正确答案:绝对

35 . 表达式\的结果是_______。

正确答案:.F./.f./假/逻辑假/.n./.N. 36 . 在VFP中表间的关系有一对一、（）、多对多。 正确答案:一对多

37 . MessageBox函数的返回值是一个_______型数据。

正确答案:数值

38 . 视图设计器比查询设计器多了一个_______ 选项卡。

正确答案:更新条件

39 . VFP中，物理删除所有带删除标记记录的命令是_______。

正确答案:pack/PACK/Pack

40 . 在面向对象的程序设计中，把对象可以识别的用户和系统的动作称为_______。 正确答案:事件

简答题：本大题共2小题；每小题10分，共20分。 51 . Visual FoxPro中绝对定位和相对定位的命令分别是什么？它们有何不同？

正确答案:绝对定位的命令是GO，相对定位的命令是SKIP， 格式为： GO n 是将记录指针定位到表中第n个记录 SKIP ±n 是把记录指针向上（-）或向下（+）移动n个位置。

52 . 实体之间的联系有哪几种？分别举例说明。 正确答案:共有三种：一对一联系(1∶1)，一对多联系(1∶n)，多对多联系(m∶n) 一对一联系(1∶1) 例如，一所学校只有一个校长，一个校长只在一所学校任职，校长与学校之间的联系是一对一的联系。 一对多联系(1∶n) 例如，一所学校有许多学生，但一个学生只能就读于一所学校，所以学校和学生之间的联系是一对多的联系。 多对多联系(m∶n) 例如，一个读者可以借阅多种图书，任何一种图书可以为多个读者借阅，所以读者和图书之间的联系是多对多的联系。 单选题：

1. 关于命令的书写规则，下列说法中正确的是（ ）。

A.命令不一定要以命令名开头 B.各短语子句顺序不能改变 C.不能大小写混合

D.命令行太长时，可以分行书写 正确答案:D

2.SQL查询语句中HAVING子句的作用是（ C ） A.指出分组查询的范围 B.指出分组查询的值 C.指出分组查询的条件 D.指出分组查询的字段

3. 使用命令dimension mm(2,3)定义的数组，包含的数组元素(下标变量)的个数为（ ）。 A.2 B.3 C.5 D.6 正确答案:D

4. 要将A盘上根目录下STK.DBF文件复制到C盘的\\DB子目录，应在VFP命令窗口中使用命令（ ）。

A.COPY A:STK.DBF C:\\DB

B.COPY FILE A:\\STK.DBF TO C:\\DB\\STD.DBF C.COPY FILE STK.DBF TO C:\\DB\\STD.DBF D.COPY TO A:\\STK.DBF 正确答案:B

5. 在数据库设计器中要为两个表建立一对多联系，则关于两个表的索引类型描述正确的是（ ）。

A.\一方\表建主索引或候选索引，\多方\表建普通索引

B.\一方\表建主索引，\多方\表建普通索引或候选索引

C.\一方\表建普通索引，\多方\表建主索引或候选索引

D.\一方\表建普通索引，\多方\表建候选索引或普通索引 正确答案:A

6. 在Visual FoxPro中，下列关于表的叙述正确的是（ ）。

A.在数据库表和自由表中，都能给字段定义有效性规则和默认值

B.在自由表中，能给表中的字段定义有效性规则和默认值

C.在数据库表中，能给表中的字段定义有效性规则和默认值

D.在数据库表和自由表中，都不能给字段定义有效性规则和默认值 正确答案:C

7. VFP系统中，内存变量只定义了数组MK(12)，

3

它具有12个下标变量。用LIST MEMORY命令显示已定义的内存变量个数是( )。 A.12 B.1 C.0

D.有时是1，有时是12 正确答案:B

13. 下面命令有语法错误的是（ ）。 A.LIST ALL B.DISP ALL C.MODIFY ALL STRU D.MODIFY COMMAND 正确答案:C

21. 设当前数据表文件有数值型字段salary，则命 A.将数据表中所有记录的salary字段的值都改为1500

B.只将数据表中当前记录的salary字段的值改为1500

C.由于没有指定条件，所以不能确定 D.将数据表中以前未更改过的salary字段的值改为1500 正确答案:B

22. 一个索引文件中包含多种索引排序方式，这种索引文件被称为( )文件 。 A.单索引 B.复合索引 C.主索引 D.普通索引 正确答案:B

23. 扩展名为 pjx 的文件是________。 A.数据库表文件 B.表单文件 C.数据库文件 D.项目文件 正确答案:D

24. 下列叙述中正确的是( )

A.软件测试的主要目的是发现程序中的错误 B.软件测试的主要目的是确定程序中错误的位置 C.为了提高软件测试的效率，最好由程序编制者自己来完成软件测试的工作 D.软件测试是证明软件没有错误 正确答案:A

25. 下列程序执行以后，内存变量 y 的值是__D______。 x=34357

y=0

DO WHILE x＞0 y=x+y*10 x=int（x/10） ENDDO A.3456 B.34567 C.7654 D.75343

26. 在Visual FoxPro环境下，要从磁盘上删除一个名为SDB.DBC的数据库文件，使用的命令是（ ）。 A.DELETE TABLE SDB B.DELETE SDB

C.DELETE DATABASE SDB 正确答案:C

27. 使用下面命令必须打开索引文件的是（ ）。 A.SORT B.LOCATE C.SEEK D.SUM 正确答案:C

28. 关系运算中的投影运算是（ ）。 A.从关系中找出满足给定条件的元组的操作 B.从关系中选择若干个属性组成新的关系的操作

C.从关系中选择满足给定条件的属性和元组的操作

D.A和B都对 正确答案:B

29. 下面有关索引的描述正确的是( )。 A.建立索引以后，原来的数据库表文件中记录的物理顺序将被改变

B.索引与数据库表的数据存储在一个文件中 C.创建索引是创建一个指向数据库表文件记录的指针构成的文件

D.使用索引并不能加快对表的查询 正确答案:C

判断题：本大题共10小题；每小题1分，共10分。 41 . 视图是一个从一个或几个基本表导出的虚表，我们可以修改视图的结构。 正确答案:错

42 . 查询教师表中职称为讲师和教授的全部记录，

令：REPLACE salary WITH 1500 的功能是 ( )。 D.DELETE FILE SDB

4

则条件表达式可写成：职称=\讲师\职称=\教授\。 正确答案:错

43 . 在Visual Foxpro中，最多同时允许打开32767个数据库表和自由表。 正确答案:对

44 . 排序能改变记录的物理顺序,而索引不改变记录的物理顺序。 正确答案:对

45 . 只有数据库表才能建立主索引。 正确答案:对

46 . 三种程序结构（顺序、分支、循环）中，顺序结构是最基本的程序结构。 正确答案:对

47 . 命令go top与go 1功能是完全相同的。 正确答案:错

48 . 执行命令WAIT TO M后，内存变量M的数据类型是数值型。 正确答案:错

49 . 用PACK命令可以直接删除表中的记录。 正确答案:错

50 . 修改表的结构必须以独占或非只读方式打开表。 正确答案:对

填空题：本大题共10小题；每小题1分，共10分。 31 . 在面向对象的程序设计中，类的实例又称为_______。 正确答案:对象

32 . 用当前表单中的LABEL1控件来显示系统时间的语句是：THISFORM.LABEL1._________=TIME() 正确答案:Caption/caption/CAPTION

33 . 每一个数据表可以容纳的最大记录数是_______ 亿个。 正确答案:10/十

34 . 创建的菜单运行后，使用set sysmenu to_______命令来退出用户菜单，并恢复系统原来的菜单。

正确答案:default/defa/Default/DEFAULT 35 . 一个关系对应一张表，表中的一列称为一个字段，表中的一行称为一个________ 。 正确答案:记录/元组

36 .作用范围最小的变量是_______变量。 正确答案:局部

37 .在Visual FoxPro中，视图可以分为本地视图

和_______视图。 正确答案:远程

38 .wait 命令可以从键盘接收一个_______。 正确答案:字符

39 .程序中未加说明而直接定义的变量，是_______变量。提示：全局/私有/局部 正确答案:私有

40 在面向对象的程序设计中，把对象可以识别的用户和系统的动作称为_______。 正确答案:事件

简答题：本大题共2小题；每小题10分，共20分。 51 . Visual FoxPro中分支结构有哪几种，写出它们的结构控制语句。

正确答案:Visual FoxPro中分支结构有三种，分别是：单分支结构：IF ?? ENDIF 双分支结构：IF ?? ELSE ?? ENDIF 多分支语句：DO CASE CASE ?? CASE ?? CASE ?? OTHERWISE ?? ENDCASE

52 . 范围子句有哪些？作用分别是什么？ 正确答案:Visual FoxPro中范围子句有四种情况，分别是： All 表示对当前表所有记录做指定的操作； Next n 表示对当前表从当前记录开始连续的n条记录做指定的操作 Record n 表示对当前表第n条记录做指定的操作； Rest表示对当前表从当前记录开始一直到最后一条记录做指定的操作。 1.什么是数据库、数据库管理系统和数据库系统？ 数据库是在数据库管理系统的集中控制之下，按一定的组织方式存储起来的、相互关联的数据集合。

数据库管理系统(Database Management System，DBMS)是对数据进行统一的控制和管理，从而可以有效地减少数据冗余，实现数据共享，解决数据独立性问题，并提供统一的安全性、完整性和并发控制功能的系统软件。

数据库系统是把有关计算机硬件、软件、数据和人员组合起来为用户提供信息服务的

系统。

2.数据库系统的特点是什么？

特点是数据共享，减少数据冗余，具有较高的数据独立性，增强了数据安全性和完整性保护。 3. 试述外部关键字的概念和作用。外部关键字是否允许为空值，为什么？

如果关系中某个属性或属性组合并非关键字，但却是另一个关系的主关键字，则称此

5

属性或属性组合为本关系的外部关键字。关系之间的联系是通过外部关键字实现的。如果该外部关键字不是该关系的主关键字那么根据参照完整性规则，该外部关键字可以是空值，否则如果该外部关键字也是该关系的主关键字则根据参照完整性规则不能是空值。

4.简述Visual FoxPro的数据类型。

Visual FoxPro中的数据类型包括以下几种：1. 字符型，2. 数值型，3. 货币型，4. 日期型，5. 日期时间型，6. 逻辑型，7. 备注型，8. 通用型，9. 二进制字符型和二进制备注型。 5.字段变量与内存变量有何区别?

字段变量就是表中的字段名，它是表中最基本的数据单元。字段变量是一种多值变量， 一个表有多少条记录，那么该表的每一字段就有多少个值，当用某一字段名作变量时，它的 值就是表记录指针所指的那条记录对应字段的值。

内存变量独立于表，是一种临时工作单元，它是一种单值变量。可以用内存变量名直接访问内存变量。

6.什么是自由表？什么是数据库表？

属于某一数据库的表称为数据库表，不属于任何数据库而独立存在的表称为自 由表。

7.一个表有3个备注型字段，该表有多少个备注文件？

一个备注文件。

8. 修改表的结构有哪些方法？它们有何区别？ 有两中方法第一种是先打开表，然后在命令窗口输入modify structure 命令打开表设计器来修改表的结构。第二中方法是先打开表然后在视图菜单中打开表设计器来对表的结构进行修改，这两中方法的实质都是用表设计器来修改表的结构，不同的只是打开表设计器的方法不同而已。 9.DISPLAY和LIST命令有何异同?

两个命令的作用基本相同，区别仅在于LIST是连续显示，当显示的内容超过一屏时，自动向上滚动，直到显示完成为止。DISPLAY是分屏显示，显示满屏时暂停，待用户按任一键后继续显示后面的内容。

10.排序与索引有何区别？索引有哪几种？如何建立索引文件？

排序是改变表中记录的实际物理顺序，而索引是为该表建立一个索引文件设置一个逻辑顺序，索

引可分为下列4种类型：主索引，候选索引，惟一索引，普通索引。建立索引文件有两种方法：1. 用命令建立索引，2. 在表设计器中建立索引。 11. 设置字段的显示标题、字段的注释信息、字段的默认值、字段的有效规则会给数据 库中表的操作带来什么好处？

(1) 数据库表可以使用长表名和长字段名； (2) 可以为数据库表中的字段指定标题和添加注释；

(3) 可以为数据库表的字段指定默认值和输入掩码；

(4) 数据库表的字段有默认的控件类； (5) 可以为数据库表规定字段级规则和记录级规则；

所有这些都是为了能够让用户更方便的输入数据，减少数据出错的几率，并且保证数据的完整性。

12. 字段级规则和记录级规则有何区别？如何设置？

字段有效性用于对当前字段输入数据的有效性、合法性进行检验。记录有效性验证指建立一规则对同一记录中不同字段之间的逻辑关系进行验证。这两种规则都可以在表设计器里面来进行设置。 13. 触发器有哪几种？各有什么作用？

触发器包括插入触发器、更新触发器和删除触发器。这些触发器用于保证当对数据库表进行插入(包括追加)、更新和删除时，不会违反那些已经设置好的有效性规则，只有当规则成立时才能进行相应操作。主要是用于保证记录和数据的完整性。 14.简述SQL语言的功能及特点。

SQL是Structured Query Language(结构化查询语言)的缩写。查询是SQL语言的重要 组成部分，但不是全部，SQL还包含数据定义、数据操作和数据控制功能等部分。SQL语言具有如下特点：

(1) SQL是一种一体化的语言。

(2) SQL语言是一种高度非过程化的语言。 (3) SQL语言非常简洁。

SQL语言可以直接以命令方式交互使用，也可以嵌入到程序设计语言中以程序方式

(4) 使用。

.15.名词解释：类、子类、对象、事件、方法、属性。

类(Class)是具有相同属性特征和行为规则的

6

多个对象的一种统一描述。

子类用来模拟现实世界中的类的层次问题，子类将继承其父类的全部特征和方法程序，当然，在子类中可以对这些继承的特征和方法程序进行修改，以对该子类进行更准确的模拟。

对象是对现实世界中实体的一种模拟工具，是类的实例。

事件是由外部实体作用在对象上的一个动作。在面向对象方法中，事件是驱动蕴涵在对象中的程序的引擎，一个事件有一个事件名，且与一个事件响应程序(方法程序)相关联，当作用在一个对象上的事件发生时，与这个事件相关联的程序就获得一次运行。

属性(Property)是模拟所描述实体的静态特征。

方法(Method)是模拟实体对一些事件(Event)的反映

.16.菜单由哪几部分组成？

常规的菜单系统一般是一个下拉式菜单，由一个条形菜单和一组弹出式菜单组成。 17.简述菜单文件与菜单程序的区别与联系。

菜单文件是菜单设计器中用户定义的保存文件。而菜单程序则是最后用户看到的菜单所 对应的程序代码文件，可以在菜单设计器中用生成命令把菜单文件转化为对应的菜单程序。两者都是对菜单的描述，只不过描述的层次不同而已。 18.报表和表单的区别在哪里？

\表单\能让用户按另一种形式在屏幕上查阅数据表中的数据记录，实用性非常的很强，不但能用它来简化\浏览窗口\，还能更直观的显示和浏览数据、并且可按用户所喜欢的风格来显示记录，以及通过一组控制按钮更方便、更加容易地控制和使用数据记录。报表除了能像查询、表单那样够浏览数据记录外，还能控制打印输出数据记录的格式，并且允许将各种格式的文本与图形对象组合在一起输出，从而建立起清晰的、图文并茂的报表。 19. 报表包括哪几个基本组成部分？

报表主要由两部分组成：数据源和报表布局。数据源是报表的数据来源，报表布局则定义报表打印格式。

20.报表控件是指的什么？

报表控件是显示在报表上的，用来配合报表来向用户输出更多更灵活的内容如图形、图象、表达式等。

21.什么是标签？标签与报表的区别是什么？

标签是一种特殊的报表，它的创建、修改方法与报表基本相同。两者之间主要的不同是标签设计器基于所选标签的大小自动定义页面和列。

程序设计练习

1 . 编一个程序求S=1+(1+2)+(1+2+3)+?+（1+2+3+4+?10）之和。 set talk off clea s=0

for i=1 to 10 for j=1 to i s=s+j endfor endfor ?s

set talk on

2 . 某院校按学生选修的学分收费。学分在12学分以下的收费4000元，若超过12学分，则超过部分每学分加收200元。编一个程序计算收费。输入学号I及学分U，输出学号及应缴学费T。 T=4000 U≤12 T=4000+200(U-12) U＞12 set talk off clea t=0

input \请输入学号：\ input \请输入学分：\ if u<=12 t=4000 else

t=4000+200*(u-12) endif ?i,t set talk on

3. 设一个班有学生10名，循环输入每个学生的分数（百分制），统计并显示各分数段的人数。其中分数段的划分如下：90分以上，80-89分，70-79分，60-69分，60分以下。 clear

store 0 to a,b,c,d,e for i=1 to 10

input \请输入学生的成绩:\ do case

7

case cj>=90 a=a+1 case cj>=80 b=b+1 case cj>=70 c=c+1 case cj>=60 d=d+1 other e=e+1 endcase endfor

?\成绩在90以上的人数\人\ ?\成绩在80~89的人数\人 \?\成绩在70~79的人数\人 \?\成绩在60~69的人数\人 \?\成绩在60以下的人数\人\

4. 编一个程序，将华氏温度F=77°F，变换成摄氏温度℃,并将结果显示出来。计算公式为： C=5×(F－32)÷9。 SET TALK OFF F=77 C=5*(F-32)/9

?”摄氏：”+STR(C,4)+”度”+”，”+”华氏：”+STR(F,4)+”度” CANCEL

5 . 设计一个程序，输出一个由*组成的三角形。 set talk off clea for i=1 to 6

? space(10-i)+replicate(\Endfor set talk on

6 . 编写一个程序，从键盘输入10个数,找出其中的最大最小值。

7 . 编写一个程序，求1到10之间的奇数之和及偶数之积。要求：奇数之和存放在变量S中，偶数之积存放在变量N中。 set talk off clea s=0 n=1

for i=1 to 10 if int(i/2)=i/2 n=n*i else s=s+i endif endfor ?s ?n

set talk on

8.编写程序求100到999之间的水仙花数。（水仙花数：对于一个三位数abc，a^3+b^3+c^3=abc） 9. 编写一个程序，将Da1.dbf表中凡是工资小于800元的增加100元。 SET TALK OFF USE Da1

DO WHILE NOT EOF( ) IF工资>=800 SKIP LOOP ENDIF

REPLACE 工资 WITH 工资+100 SKIP ENDDO CANCEL

10. 编写一个程序，在Da1.dbf表中，查找职称是“讲师”的记录，计算满足条件的记录个数和工资的总和。 SET TALK OFF USE Da1 S=0 N=0

SCAN FOR 职称=”讲师” DISPLAY S=S+工资 N=N+1 ENDSCAN USE ?”S=”,S ?”N=”,N

11.输入一个三位整数，将其反向输出。如输入326，输出623。 set talk off

input \请输入一个三位数\

8

b=100*mod(a,10)+10*mod(int(a/10),10)+mod(int(a/100),10) ?b return

12..输入学生成绩，若成绩大于80分，则输出“优良”，成绩小于60分，则输出“不及格”，否则输出“中等”。 set talk off

input \请输入学生成绩\if a>80 ?\优良\else if a<60 ?\不及格\ else ?\中等\ endif endif return

13.在学生表中，分别统计汉族学生和少数民族学生的人数。 set talk off use 学生表

count for 少数民族=.T. to a count for 少数民族=.F. to b ?\少数民族学生人数为\?\汉族学生人数为\return

14.假定有包含若干个记录的表文件c1.dbf，其结构是：f1(N,3,0),f2(N,3,0)。编写程序，其功能是把各记录中所有大于40的字段值累加起来，最后把累加的结果存入第一个记录的f2字段中。 set talk off use c1 a=0

do while .not. eof() if f1>40 a=a+f1 endif if f2>40 a=a+f2 endif continue enddo

go top f2=a use return

15.一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数，例如13就是一个绝对素数。试求所有两位绝对素数。 set talk off for m=11 to 99

n=mod(m,10)*10+mod(int(m/10),10) if check(m) and check(n) ?m endif endfor

function check parameters a flag=.t. k=int(sqrt(a)) j=2

do while j<=k and flag if mod(a,j)=0 flag=.F. endif j=j+1 enddo return flag

16.用过程方式求S=A!+B!+C!(其中A,B,C从键盘输入)。 set talk off

input \请输入第一个数到A\input \请输入第一个数到B\input \请输入第一个数到C\?\function ss parameter n m=1

for i=1 to n m=m*i endfor return m

return

9

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