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

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 从下一元素