案例六章数组.pptxVIP

第六章数组

数组由一组相关联的数据组成，组成数组的数据称为数组元素。为了表示数组中的各数据，引入了“下标”概念，下标表示某数组元素在数组中的位置，因此数组元素也称为下标变量。通过数组名和下标就可以引用数组中的任一元素。第六章数组

2.数组的操作3.数组应用举例1.数组的定义第六章常用控件4.控件数组

6.1数组的定义

数组使用之前必须先定义。通过定义数组，为数组的各元素安排一块连续的存储单元。定义数组就是确定数组的名字、数组的维数、数组各下标的取值范围和数组元素的数据类型。根据数组的定义方式，可以把数组分为静态数组和动态数组。

6.1数组的定义

6.1.1静态数组的定义Dim数组名(下标1范围[,下标2范围])[As数据类型]例如：Dima(1To5)AsIntegerDimb%(5,4)OptionBase1Dima(3,4)AsInteger

6.1数组的定义

6.1.1静态数组的定义例如：Dima%(5)定义了整型数组a，默认情况下a有6个元素。如果执行了语句：a(3)=100则数组a的存储结构如下：a(0)a(1)a(2)a(3)a(4)a(56.1数组的定义

6.1.2动态数组的定义(1)使用Dim语句定义数组，给数组赋一个空维下标。(2)用Redim语句重新定义数组的下标范围。例如：Dima()AsIntegerPrivateSubForm_Click() n=InputBox(“请输入下标上界”)Redima(n)AsInteger ……EndSub

6.2数组的操作

例6.2.1通过赋值语句给数组各元素赋值，然后输出数组。PrivateSubForm_Click()Dima(5)AsIntegera(0)=1:a(1)=5:a(2)=6:a(3)=8:a(4)=9:a(5)=10Fori=0To5Printa(i)NextiEndSub

6.2数组的操作

例6.2.2用ForEach…Next语句输出数组a的所有元素。PrivateSubForm_Click()Dima(5)AsIntegera(0)=1:a(1)=5:a(2)=6:a(3)=8:a(4)=9:a(5)=10ForEachxInaPrintxNextxEndSub

6.2数组的操作

例6.2.3计算并输出数组a中各元素的平均值。PrivateSubForm_Click()Dima(5)AsIntegerDimsumAsSingle,nAsIntegera(0)=1:a(1)=5:a(2)=6:a(3)=8:a(4)=9:a(5)=10ForEachxInasum=sum+xn=n+1NextxPrint平均值为：;sum/nEndSub

6.2数组的操作

ForEach…Next语句一般用于数组的输出和查询，不能用于数组的输入。例如下面程序是正确的：OptionBase1PrivateSubForm_Click()Dima(5)AsIntegerFori=1To5a(i)=InputBox(请输入整数：)NextiForEachxInaPrintxNextxEndSub

6.2数组的操作

而下面程序得不到正确的输入结果：OptionBase1PrivateSubForm_Click()Dima(5)AsIntegerForEachxInax=InputBox(请输入整数：)NextxForEachxInaPrintxNextxEndSub

6.3数组应用举例

例6.3.1从键盘输入10个整数，然后按输入的倒序输出。OptionBase1PrivateSubForm_Click()Dima(10)AsIntegerFori=1To10a(i)=InputBox(请输入整数：)NextiFori=10To1STEP-1Printa(i)NextiEndSub

6.3数组应用举例

例6.32输出斐波那契（Fibonaccii）数列的前20项。斐波那契数列的规律是：数列中的第1及第2项都是1，从第3项起，该项是其前两项之和(1，1，2，3，5，8，13，21，……)。Priva