VB常用算法——數(shù)組元素插入與刪除

1、vb?？妓惴ǎㄆ撸?shù)組元素之插入刪除：1、算法說明數(shù)組中元素的插入和刪除一般是在已固定序列的數(shù)組中插入或刪除一個元素，使得插入或刪除操作后的數(shù)組還是有序的。1）插入代碼如下：private sub command1_click() dim a(10) as integer dim i as integer, k as integer for i = 0 to 9 a(i) = i * 3 + 1 print a(i); next i print print 插入 14 for k = 0 to 9 if 14 a(k) then exit for next k for i = 9 to k s

2、tep -1 從最后元素開始逐個后移騰出位置a(i + 1) = a(i) next i a(k) = 14 for i = 0 to 10 print a(i); next i end sub 2）刪除代碼如下：private sub command1_click() dim a() as integer - redim a(1 to n) - for i = k + 1 to n a(i - 1) = a(i) next i redim preserve a(1 to n - 1) end sub 2、實戰(zhàn)練習(xí)1）補充代碼（等級考試原題一）c盤根目錄下文件data4.txt 的內(nèi)容是： 2

3、,4,6,8,10,1,3,5,7,9。下面程序的功能是將文件后半部分的奇數(shù)分別按序插入前半部分的適當位置，得到的新數(shù)列是：1 2 3 4 5 6 7 8 9 10。 （實現(xiàn)方法： 第一次調(diào)整后的數(shù)列是1 2 4 6 8 10 3 5 7 9，第二次調(diào)整后的數(shù)列是：1 2 3 4 6 8 10 5 7 9） 。option explicit private sub form_click() dim a(10) as integer, i as integer, j as integer open c:data4.txt for input as #12 do （1）參考答案：while not

4、 eof(12) j = j + 1 input #12, a(j) loop call insert(a) for i = 1 to 10 print a(i); next i print close #12 end sub private sub insert(a() as integer) dim i as integer, putp as integer, j as integer dim getp as integer, n as integer, tem as integer n = ubound(a) / 2 putp = 1 getp = n + 1 for i = 1 to

5、n tem = a(getp) for j = getp to putp + 1 step -1 （2）參考答案： a(j) = a(j - 1) next j a(putp) = tem getp = getp + 1 putp = （3）參考答案： putp + 2 next i end sub 2）補充代碼（等級考試原題二）下面程序的功能是將無序數(shù)組中相同的數(shù)只保留一個，其余得刪除， 并輸出經(jīng)過刪除后的數(shù)組元素， 刪除相同數(shù)是通過將數(shù)組元素后面的元素在數(shù)組內(nèi)依次前移替換前一個元素的值實現(xiàn)的。數(shù)組各元素從文件data.txt 中讀取。option explicit option base

6、1 private sub form_click() dim i as integer, j as integer, k as integer dim a() as integer, t as integer, m as integer open c:data.txt for input as #1 do while （1）參考答案： not eof(1) i = i + 1 redim preserve a(i) input #1, a(i) loop m = 1: t = （2）參考答案： ubound(a) do while m = t i = m + 1 do while i = t if a(i) = a(m) then for j = m to （ 3）參考答案： t - 1 a(j) = a(j + 1) next j t = t - 1 else i = （4）參考答案：