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

6.5 数组的应用 * Dim n(10) As Integer For i = 1 To 10 n(i) = Int(Rnd * 90) + 10 Next i key = Val(InputBox(请输入要查找的数)) flag = -1 For i = 1 To 10 If key = n(i) Then flag = i: Exit For Next i If flag -1 Then Print 在第 i 位找到了 key Else Print 没有找到 key End If 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 * 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： 第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)