VB 第七章 数组和自定义数组(2).pptVIP

程序设计基础（VB） 主讲人：孟永伟 Email:ywmeng@yahoo.cn 第七章 数组和自定义数据类型 教学基本要求 掌握数组、控件数组的概念； 掌握数组应用的一般方法； 了解自定义数据类型的应用。 教学内容 7.1 数组的概念 7.2 静态数组声明及应用 7.3 动态数组声明及应用 7.4 控件数组的概念及应用 7.5 自定义数据类型 7.6 列表框和组合框控件 主要知识点与重点 静态数组声明及应用； 动态数组声明及应用； 控件数组的建立及应用。 通过前面的学习，我们知道，定义数组，是用数值常数或符号常量定义数组的维数及下标的上、下界。VB编译程序在编译时为数组分配了相应的存储空间，并且在应用程序运行期间，数组一直占据这块内存区域，这样的数组称为静态数组。但是，在实际应用中，有时事先无法确定到底需要多大的数组，数组应定义多大，要在程序运行时才能决定。如果定义的数组过大，显然会造成内存空间的浪费。 动态数组提供了一种灵活有效的管理内存机制，能够在程序运行期间可以根据用户的需要随时改变数组的大小。 7.3 动态数组声明及应用 7.3.1 动态数组的声明 动态数组的声明分为两步： 第一步：声明一个没有下标参数的数组。 Dim 数组名（）[As 类型] 第二步：引用数组前用 ReDim语句重新定义。 ReDim [Preserve] 数组名（[下界 to ] 上界[，[下界 to ] 上界……]）[As 类型] 7.3 动态数组声明及应用 例如： Private Sub Command1_Click（） Dim a（）As Integer Dim n% …… n = Val（InputBox（input n）） ReDim a（n） …… End Sub 7.3 动态数组声明及应用 说明： 1）格式中的“说明符”、“ 数组名”、“ 类型”等说明同一维数组的定义。 2）下界、上界可以是常量，也可以是有了确定值的变量。 3）ReDim语句用来重新定义数组，能改变数组的维数及上、下界，但不能用其改变可调数组的数据类型，除非可调数组被声明为Variant类型。 4）每次使用ReDim语句都会使原来数组中的值丢失，可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve后只能改变多维数组中最后一维的大小，前几维的大小不能改变。 5）ReDim语句只能出现在过程中。 7.3 动态数组声明及应用 7.3.2 动态数组的应用 例：编程输出Fibonacci数列：0，1，1，2，3，5，8，……的前n项。 分析：要求输出前n项，n是一个变量，因此，应该使用动态数组。 程序代码如下： Private Sub Command1_Click（） Dim Fib（），i%，n% ‘ 避免溢出，定义数组为Variant类型 n = InputBox（输入n的值（n1）） ReDim Fib（n） 7.3 动态数组声明及应用 Fib（1）= 0：Fib（2）= 1 For i = 3 To n Fib（i）= Fib（i - 1）+ Fib（i - 2） Next i For i = 1 To n Print Fib（i） If i Mod 5 = 0 Then Print 每行输出5个数 Next i End Sub 7.3 动态数组声明及应用 演示7.3.1 本小节介绍控件数组，控件数组为我们处理功能相近的控件提供了极大的方便。在实际应用中，我们有时会用到一些类型相同且功能类似的控件。如果对每一个控件都单独处理，就会多做一些麻烦而重复的工作。这时，我们可以用控件数组来简化程序。 7.4 控件数组的概念及应用 控件数组由一组相同类型的控件组成，这些控件共用一个控件名字，具有相似的属性设置，共享同样的事件过程。控件数组中各个控件相当于普通数组中的各个元素，同一控件数组中各个控件的Index属性相当于普通数组中的下标。 比如，假设有一个包含4个按钮的控件数组Command1，它的4个元素就是Command1（0），Command1（1），Command1（2）， Command1（3） 。 7.4 控件数组的概念及应用 7.4.1 控件数组 例： Private Sub command1 _Clic