Visual FoxPro 程序设计教程 教学课件作者 刘瑞新 第7章.pptVIP

* * 第7章 数 组 7.1 数组的概念 7.2 使用数组 7.3 对象数组 7.1 数组的概念 7.1.1 数组与数组元素 数组是用一个统一的名称表示的、顺序排列的一组变量。数组中的变量称为数组元素，用数字（下标或称索引）来标识它们，因此数组元素又称为下标变量。 7.1.2 数组的维数 在VFP中允许定义一维和二维数组。VFP对数组的大小和数据类型不作任何限制，同一数组中的数组元素可以具有不同的数据类型，对数组大小的唯一限制是可用内存空间的大小。 7.2 使用数组 7.2.1 数组的定义 1. 数组的声明 数组在使用前必须先声明。声明的语法格式为 {DIMENSION | DECLEAR} 〈数组名〉(〈行数〉[,〈列数〉] ) 2. 数组的赋值 数组在声明之后，每个元素被默认地赋予.F.值。 可以单独为某一个数组元素赋值。如： A(1，2)= 11或STORE 11 TO A(1，2) 都是将数值11 赋予A数组的第一行第二列元素。 也可以用一个命令为一个数组的所有元素赋相同的值。如： A = 13或STORE 13 TO A 都是将数值13赋予A数组的每一个元素。 【例7-1】随机产生14个两位整数，找出其最大值、最小值和平均值。 分析：问题可以分为两部分，一个是产生14个随机整数，一个是对这14个整数求最大、最小以及平均值。为此，需要使用数组。 根据以上分析画出流程图如图7-1、图7-2所示。 输出p P ← p + a(i) a(i) ← INT(RAND() * 90) + 10 i 从1 到14 p ← 输出max, min, s s ← s + a(i) min ← a(i) 真 如果 a(i) min max ← a(i) 真 如果 a(i) max i 从1到14 max ← 10，min ← 100，s ← 0 设计步骤如下： ① 选择“新建”表单，进入表单设计器，首先增加5个标签Label1～Label5和3个命令按钮Command1～Command3，并修改各个控件的属性，如图7-3左所示。 ② 编写代码。 随机整数的生成由表单的Activate事件代码完成： PUBLIC a(14) 因为要在不同的过程中使用数组，故声明为PUBLIC p = FOR i = 1 TO 14 a(i) = INT(RAND() * 90) + 10 p = p + STR(a(i),3) + , ENDFOR THISFORM.Label2.Caption = ALLT(LEFT(p, LEN(p) – 1)) THISFORM.Label3.Caption=最大值 = THISFORM.Label4.Caption=最小值 = THISFORM.Label5.Caption=平均值 = 求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成： min = 100 max = 10 s = 0 FOR i = 1 TO 14 IF a(i) max max = a(i) ENDIF IF a(i) min min = a(i) ENDIF s = s + a(i) Next THISFORM.Label3.Caption = 最大值 = + STR(max,3) THISFORM.Label4.Caption = 最小值 = + STR(min,3) THISFORM.Label5.Caption = 平均值 = + STR(s / 14,6,2) “重置”按钮Command1的Click事件代码： THISFORM.Activate 最后是“关闭”按钮Command3的Click事件代码： RELEASE THISFORM 如果要求产生的随机整数互不相同，应改写表单的Activate事件代码： PUBLIC a(14) p = FOR i = 1 TO 14 yes = 1 DO WHILE yes = 1 x = INT(RAND() * 90) + 10 变量x用来存放刚产生的随机整数 yes = 0 变量yes用来作为标志 FOR j = 1 TO i – 1 IF x = a(j) yes = 1 如与前面的元素相同，则返回到Do循环 EXIT ENDIF ENDFOR EN