Visual Basic程序设计及应用 教学课件 作者 郑丽敏 VB第6章.ppt

6.5 数组的应用 * 6.5.3 数组元素的插入与删除 数组元素的插入 【例6-9】已知一个有序数组a，现将一个数插入该数组中，使插入后的数组仍然有序 查找要插入的数在数组中的位置k 从下一元素（a(k+1)）到最后元素（a(n)）依次往后移动一个位置 将要插入的数插入到该位置k 6.5 数组的应用 * a = Array(-1, 1, 3, 5, 8, 79, 102) n = UBound(a) num = Val(InputBox(请输入要插入的数)) For k = 0 To n If num 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) = num For i = 0 To n + 1 Print a(i); Next i a(0)=-1 a(1)= 1 a(2)= 3 a(3)= 5 a(4)= 8 a(5)= 79 a(6)= 102 num = 7 k = 4 a(7)= 102 a(6)= 79 a(5)= 8 a(4)= 7 6.5 数组的应用 * 6.5.3 数组元素的插入与删除 数组元素的删除 【例6-10】 删除数组a中某个元素 查找要删除数组元素的位置k 从下一元素（a(k+1)）到最后元素（a(n)）依次往前移动一个位置 利用ReDim Preserve语句将数组大小减1 6.5 数组的应用 * a = Array(-1, 1, 3, 5, 8, 79, 102) n = UBound(a) num = Val(InputBox(请输入要删除的数)) For k = 0 To n If num = a(k) Then Exit For Next k If k = n + 1 Then MsgBox (找不到此数): End For i = k + 1 To n a(i - 1) = a(i) Next i ReDim Preserve a(n - 1) For i = 0 To n - 1 Print a(i); Next i a(0)=-1 a(1)= 1 a(2)= 3 a(3)= 5 a(4)= 8 a(5)= 79 a(6)= 102 num = 5 k = 3 a(3)= 8 a(4)= 79 a(5)= 102 * 第6章 数组及其他构造类型 Visual Basic程序设计及应用 6.5 控件数组 6.4 数组的应用 6.3 数组的初始化与基本操作 6.2 静态数组和动态数组 6.1 数组的基本概念 * 第6章 数组及其他构造类型 6.1 数组的基本概念 6.1.1 使用数组的目的 * 6.1 数组的基本概念 6.1.2 数组的概念及分类 概念 数组：是一组具有相同类型的变量的集合，由连续的存储空间组成。 下标：表示顺序号，每个数组元素有一个唯一的顺序号。 数组元素：数组中的变量。 数组维数：由数组元素中下标的个数决定。 * 6.1 数组的基本概念 6.1.2 数组的概念及分类 分类 按数组的大小是否可以改变分为：静态数组、动态数组 按元素的数据类型可分为：数值型数组、字符串数组等 按数组的维数可分为：一维数组、二维数组、多维数组 * 6.1 数组的基本概念 6.1.3 数组的声明 数组必须先声明后使用 静态数组 声明时，确定了数组的维数和大小 运行时，数组的维数和大小不能改变 动态数组 声明时，未给出数组的维数和大小 运行时，重新指定数组的维数和大小 * 6.2 静态数组和动态数组 6.2.1 一维数组 一维数组的声明 Dim 数组名([下标下界 To ]下标上界) [As 数据类型] 例如： Dim a(1 To 10) As Integer, b(5) As String, c(5) 说明： 数组名的命名规则 下标必须是常量,可以是正、零、负数，下标下界≤上界 数组元素个数的计算 Option Base 1语句 * 6.2 静态数组和动态数组 6.2.1 一维数组 一维数组的引用 数组名(下标) 说明： 下标可以是常量、变量、表达式 例如：a(100)，b(i)，c(x+y)，d(a(3)) 下标的值为整数，实数则四舍五入 a(5)表示一个数组元素，用一重循环表示整个数组 循环变量和下标的关系 * 6.2 静态数组和动态数组 * 【例6-1】输入5个数，求最大、最小元素的值及它们的下标 Dim a(5) As Integer For i = 1 To 5 a(i) = Val(InputBox(输入第(