《Visual FoxPro6.0程序设计教程》课件第7章

任务7.1使用数组任务7.2对象数组

任务导入

学习目标

任务实施

1.数组和数组元素

数组是用一个统一的名称表示的、顺序排列的一组变量。数组中的变量称为数组元素，用数字(下标)来标识它们，因此数组元素又称为下标变量。任务7.1使用数组

2.数组的维数

如果一个数组的元素只有一个下标，则称这个数组为一维数组。例如，数组a有10个元素：a(1)、a(2)、a(3)、…、a(10)，依次保存10个学生的一门功课的成绩，则a为一维数组。一维数组中的各个元素又称为单下标变量。

如果有10个学生，每个学生有5门功课的成绩，见表7-1。表7-1学 生 成 绩 表

3.声明数组

数组在使用前必须先声明。声明数组的语法格式为：

{DIMENSION|DECLEAR}〈数组名〉(〈行数〉[,〈列数〉])

4.数组的赋值

数组在声明之后，每个元素被默认地赋予.F.值。

【例7-1】

随机产生5个两位整数，编制程序输出其最大数、最小数和这5个数的平均值。

(1)建立应用程序用户界面与设置对象属性。

进入表单设计器，首先增加5个标签Label1～Label5和3个命令按钮Command1～Command3，并修改各个控件的属性，参见图7-1所示。图7-1建立应用程序用户界面与设置对象属性

(2)编写代码。

运行程序，结果如图7-2所示。图7-2求随机整数中的最大数、最小数和平均值

【例7-2】

修改例7-1使其产生的随机整数互不相同。

运行程序，结果与图7-2相同。

【例7-3】

编写程序，建立并输出一个10×10的矩阵，该矩阵两条对角线元素为1，其余元素均为0。

(1)建立应用程序用户界面与设置对象属性。

在表单中使用编辑框控件Edit1，参见图7-3所示。当然，也可以用列表框控件来显示矩阵的元素。

(2)编写代码。

运行程序，结果如图7-4所示。图7-3建立用户界面图7-4程序运行结果

5.重新定义数组的维数

重新执行DIMENSION命令可以改变数组的维数和大小，也就是说，数组的大小可以增加或减少，一维数组可以转换为二维数组，二维数组可以转换为一维数组。

6.释放数组变量

【例7-4】

求斐波那契(Fibonacci)数列。Fibonacci数列为1，1，2，3，5，8，…。

(1)建立应用程序用户界面。

进入表单设计器，增加一个标签控件Label1、一个文本框控件Text1、一个列表框List1、两个命令按钮Command1～Command2，如图7-5所示。

(2)设置各对象的属性，见表7-2。其他属性参见图7-5所示。图7-5建立用户界面与设置对象属性表7-2属性设置

(3)编写代码。

程序运行结果如图7-6所示。图7-6求斐波那契(Fibonacci)数列

7.二维数组表示为一维数组

假如，已经建立了一个二维数组，对二维数组，也可以使用一维数组表示法来表示其下标。

【例7-5】

矩阵的加法运算。两个相同阶数的矩阵A和B相加(矩阵A和B中各元素的值由计算机随机产生)，是将相应位置上的元素相加后放到同阶矩阵C的相应位置。进入表单设计器，在表单中增加3个编辑框Edit1～Edit3、2个标签Label1～Label2和一个命令按钮组CommandGroup1。

设置Edit1～Edit3的ScrollBars属性为0—无，其他对象的属性如图7-7所示。图7-7建立用户界面和设置对象属性

(2)编写代码。

运行程序，结果如图7-8所示。图7-8矩阵加法运算

8.处理数组元素的函数

数组提供了一种快速排序数据的方法。如果数据保存在数组中，就可以很方便地对其进行检索、排序或其他各种操作。

9.数组元素的排序

【例7-6】

产生5个随机数，然后将这些数从小到大顺序输出。

在表单上增加4个标签控件Label1～Label4和3个命令按钮Command1～Command3，各控件属性的设置参见图7-9所示。图7-9建立“排序”问题的程序界面并设置对象属性

(2)编写代码。

运行程序，结果如图7-10所示。图7-10对随机整数从小到大排序

10.数组元素的搜索

【例7-7】

如图7-11所示，使用数组作为组合框的数据源。

进入表单设计器，增加一个组合框Combo1、一个文本框Text1、一个复选框Check、一个标签Label1和一个命令按钮Command1，如图7-12所示。图7-11在组合框中使用数组图7-12建立应用程序用户界面

(2)设置对象属性。

设置对象属性，见表7-3。其他控件的属性设置参见图7-12所示。

(3)编写事件代码。

运行程序，结果如图7-11所示。表7-3属性设置任务导入

学习目标

任务实施

1.对象的引用与释放

创建对象的引用不等于复制对象，引用比添加对象占用更少的内存，编写的代码相对较短，而且可以很容易地在过程之间进行数据传递。任务7.2对象数组

【例7-8】

引用对象和释放对象的引用示例。

2.运行时创建对象

3. WITH…ENDWITH命令

对于同类的多个对象，使用数组来引用多个对象，可以使代码更加清晰。

4.对象数组应用示例

下面的例子中，在程序运行时创建一组对象，通过调用数组来引用对象。

【例7-9】

用“筛去法”找出1～50之间的全部素数。

分析：“筛去法”求素数表是由希腊著名数学家Eratosthenes提出来的，其方法是：在纸上写出1～n的全部整数，如图7-13所示。图7-13写出1～50之间的全部素数

(1)先将1筛掉；

(2)用2去除它后面的每个数，把能被2整除的数筛掉，即把2的倍数筛掉，如图7-14所示；

(3)用3去除它后面的每个数，把3的倍数筛掉；

(4)分别用4、5、…各数作为除数去除这些数后面的各数(4已被筛掉，不必再用4当除数，只需用未被筛掉的数作除数即可)。这个过程一直进行到除数为为止(如果不是整数就取其整数部分)。筛掉后的结果如图7-15所示。图7-14开始用2作除数，将2的倍数筛掉图7-15剩下的全是素数

(1)建立应用程序用户界面与设置对象属性。

进入表单设计器，增加一个标签控件Label1、一个容器控件Container1和两个命令按钮Command1～Command2。设置各控件的属性，参见图7-16所示。图7-16建立用户界面

(2)编写程序代码。

运行程序，结果如图7-13～图7-15所示。技能训练

1.