第04章数组与自定义类型讲解.ppt

第 * 页 例：在模块的声明段中声明一个名为Student的模块级自定义数据类型。 Private Type Student ′自定义类型名为Student Name As String * 4 ′ 定长字符串元素（姓名） Birthday As Date ′ 日期时间型元素（出生日期） gender As Boolean ′ 逻辑型元素（性别） Mark(2) As Integer ′ 整型数组（成绩） End Type 要使用自定义数据类型，就要声明自定义类型的变量。下面的事件过程中在前面代码的基础上使用了自定义类型Student声明了一个变量、并给它的每个成员赋值，然后使用这些元素的值进行计算。 说明： 使用Private关键字声明的数据类型，只能在本模块中使用。Private|Public关键字可以省略，省略之后，默认为是全局（Public）自定义数据类型，所以，在窗体模块中声明模块级自定义类型时不能省略Private关键字。 自定义数据类型被声明之后，就可以像一般的数据类型一样用来声明变量或数组。 自定义数据类型中的成员可以属于任何已有的数据类型，无论是系统定义类型的还是其他的自定义类型，也可以是数组。 注意，自定义类型中成员的类型，必须使用“As 数据类型”来显式声明。此外，如果自定义类型的一个成员为数组，例如a(3) as Integer，它的下标下界不受Option Base 0|1的影响，总是0。 第 * 页 Private Sub cmd1_Click( ) Dim Ave As Integer Dim a As Student ′ 声明自定义类型变量 a.Name = ″张三″ ′ 给变量的每个成员赋值 a.Birthday = #19810102# a.Gender = True a.Mark(0) = 85 ′给数组成员的元素赋值 a.Mark(1) = 95 a.Mark(2) = 90 Ave = (a.Mark(0)+a.Mark(1)+a.Mark(2))/3 print a. Name ″的平均成绩为：″ Ave End sub Private Type Student Name As String * 4 Birthday As Date Gender As Boolean Mark(2) As Integer End Type * * * * * * * * * * * * * * 第 * 页 例4-11：给定一组数15，8，4，13，6，10，17，1，从键盘输入一个数，用顺序查找法找出该数在数组总的位置 Option Base 1 Dim a(), m%, n%, i% Private Sub Form_Load() Show a = Array(15, 8, 4, 13, 6, 10, 17, 1) m = LBound(a) n = UBound(a) Print 数组元素如下： For i = m To n Print a(i) Next i Print End Sub Show是窗体的一个方法，省略的话在窗体的Load事件中要用print方法输出的内容将看不到！ 第 * 页 Private Sub Form_Click() Dim x%, p As Boolean x = InputBox(请输入要查找的数！) p = False For i = m To n If a(i) = x Then p = True: Exit For Next i If p = True Then Print 在数组中的第 i 位找到了该数！ Else Print 没有在数组中找到这个数！ End If End Sub 第 * 页 例4-12 将由键盘输入的一个数据插入到一个排好序的数列中，使其仍然保持有序。 Dim a() Private Sub Form_Load() a = Array(1, 3, 5, 7, 9, 10, 12, 14, 16, 18) Show Print 初始数据： For i = 0 To UBound(a)