第七章数组.pptVIP

第七章 数组 数组的概念 一维静态数组 二维和多维静态数组 动态数组 控件数组 什么是数组 什么是数组，简单地说就是：一群相同类型数据的集合 使用数组的优点是什么呢？比如说：要计算一班级8位同学的语文成绩的总和，然后算出全班的平均分数。我们可以使用八个变量来存储他们的成绩Score1、Score2...Score7、Score8。 当我们的这个班级人数增加到50人的时候，我们再定义50个变量的话，对于编程来说,书写完这些代码的工作将很繁重。如果换成数组来操作的话，工作将变得很有效率。参考下面的代码 Sum=Score1+Score2+Score3+ … … +Score49+Score50  Dim Score( 1 to 50) as interger For i=1 to 50 Sum=Sum+Score ( i ) Next i 数组是保存一组具有相同名字和类型的数据的连续存储单元。 指明数组名字和数组成员的位置号可以引用数组的成员。 例如：如下定义了一个拥有5个子元素的数组 Dim Score(0 to 4) as integer 7.1 一维静态数组 数组定义格式: Dim 数组名(下标下界 To 下标上界 ) As 类型 功能：定义一个一维数组，并初始化所有数组元素。 数组定义说明: 1、数组的维界定义必须为常数或常量符号,不能是变量。 Const k as integer=10 Dim x(10) As Single 正确 Dim a(k) as long 正确 数组定义说明： 2、下标下界和下标上界确定数组包含元素的个数。 3、下标必须为整型常量或整型常量表达式。 4、下标上界的值必须大于或等于下标下界的值。 5、没有指定下标下界的话系统使用默认值0作为其下标 6、可以使用Option Base {1/0}来指定系统的默认值 7、As 类型 指明了数组中元素的数据类型，默认的是变体型即Variant 举例： Dim Mark( 1 to 100 ) 定义了一个有100个元素的数组，其下标范围1 ～100，数据数组中元素的数据类型是Variant Dim Count( 20 ) as String 定义了一个有21个元素的数组，下标范围0～20 Dim num(1 to 20) as Double 定义了一个有20个元素的数组，下标范围1～20 一维数组元素的引用 在程序中引用一维数组元素的格式为： 数组名（下标） 下标用于标识数组元素在数组中的顺序位置 下标可以是数值常量、变量或表达式。 下标值必须落在下标下界和上界之间，否则系统提示“下标越界” 在编程中经常使用For等循环语句来浏览和操作数组中的元素。例如:定义一个数组 Dim sellnum(1 to 50) as integer 我们可以使用如下循环语句来将数组中的50个元素浏览一遍 For i=1 to 50 print sellnum(i) Next I 使用数组的例子 编程：定义一个10个元素的数组用于存放系统随机生成的10个随机数，然后在窗体上输出这10个随机数。 Dim Score(1 to 10) As Integer Dim I As Integer ，j As Integer For i = 1 To 10 Score(i) = Rnd() * 100 Next i For j = 1 To 10 Print j, Score(j) Next j 随机函数的使用 Rnd通常与Int函数配合使用， Int((b-a+1)*Rnd+a) 用于生成[a,b]范围内的随机整数。 例如：要生成[1,100]范围内的一个随机整数,代码如下 Int((100-1+1)*Rnd+1) 一维数组操作 课本例7.2逆序排放数组A中的20个随机数 Randomize For i=1 to 20 A(i)=Int(Rnd()*101) Next i For i=1 to 10 bump=A(i) A(i)=A(20-i+1) A(20-i+1)=bump Next i For i=1 to 20 Text1.text=text1.textA(i) “ ” Next i 说明:Randomize 初始化随机数生成器 排序 — 选择排序算法原理题目：对10个随机数进行递增排序 第一次循环：找出A(1)～A(10)中最小数的位置p，将A(p)与A(1)交换，于是数组A的最小数交换到A(1)； 第二次循环：找出A(2)~A(10)中最小数的位