第五章 数组和自定义类型 Visual Basic程序设计教程（第三版）.pptVIP

第5章 数组和自定义类型 5.1 数组的概念 5.2 数组的基本操作 5.3 列表框和组合框控件 5.4 自定义类型及其数组 5.5 综合应用 5.6 常见错误 5.1 数组的概念 2.数组的概念 概念：在VB中，把一组相互关系密切的数据放在一起并用一个统一的名字作为标志，就是数组。 一般来说，数组就是一组相同类型的变量的集合。 数组的分类： 按数组的大小分为定长数组（静态）和变长数组（动态）。 按元素的类型分为数值型、字符型、日期型、变体数组等。 按数组的维数分为一维数组、二维数组、多维数组。 按对象不同分为菜单对象数组和控件数组。 数组必须先声明后使用。声明数组名、类型、维数和数组大小。 使用数组元素时，下标不能超出上下界范围，下标可以是整型的常数、变量、表达式，甚至是一个数组元素。 5.1.2 静态数组及声明 在声明时确定了大小的数组称为静态数组。静态数组从建立到消亡整个阶段中数组的大小是固定的。 静态数组的声明形式： Dim 数组名(下标1[,下标2…]) [As 类型] 声明了数组的名、维数、大小、类型（省略时为变体类型） 维数：几个下标为几维数组，最多60维。 下标：[下界 To ] 上界 省略下界为0，必须为常数。 每一维大小：上界－下界+1 数组大小： 每一维大小的乘积 例：Dim mark(1 to 100) As Integer 5.1.3 动态数组及声明 定义动态数组大小注意： 4.数组的输出 5.求数组和、最值、位置 6.数组排序 （2）冒泡法排序 7.在有序数组中插入数据 Private Sub Form_Click() Dim a(), i%, k%, x%, n% a = Array(1, 4, 7, 9, 12, 23, 56) n = UBound(a) x = InputBox(输入要插入的数) For k = 0 To n 查找欲插入数x在数组中的位置 If x a(k) Then Exit For Next k ReDim Preserve a(n + 1) 数组增加一个元素 For i = n To k Step -1 数组元素后移一位，腾出位置 a(i + 1) = a(i) Next i a(k) = x 数x插入在对应的位置，使数组保持有序 For i = 0 To n + 1 显示插入后的各数组元素 Print a(i); Next i End Sub 8.删除数据 Private Sub Form_Click() Dim a(), i%, k%, x%, n% a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4) n = UBound(a) 获得数组的上界 x = InputBox(输入要删除的数) For k = 0 To n 查找欲删除的数组元素位置 If x = a(k) Then Exit For Next k If k n Then MsgBox (找不到此数据): Exit Sub For i = k + 1 To n 将x后的元素左移 a(i - 1) = a(i) Next i n = n - 1 ReDim Preserve a(n) 数组元素减少一个 For i = 0 To n 显示删除后的各数组元素 Print a(i); Next i End Sub 5.3 列表框和组合框 4. 方法 AddItem：把一个选项加入到列表框或组合框。 对象.AddItem item [, index] 省略index，则新增选项添加在最后；第一个选项的index为0。 RemoveItem：删除指定的选项。 对象.RemoveItem index Clear：清除列表框或组合框的所有内容。 对象.Clear 5. 事件 列表框：Click、DblClick。