VB數(shù)組中插入和刪除一個元素.doc

《VB數(shù)組中插入和刪除一個元素.doc》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、VB數(shù)組中插入和刪除一個元素PrivateSubCommand1_Click()'插入一個元素，J為要插的值，M為要插入的位置，之后輸出新的數(shù)組，j=Val(Text1.Text):n=Val(Text2.Text)DimxDimibAsInteger,iaAsIntegerIfnUBound(a)+1Thenx=MsgBox("輸入的n不在范圍之內(nèi)",5+48,"輸入n的值")Ifx4ThenEndElseText2.Text=""Text2.SetFocusEndIfElseDoWhileia=n-1Andia<=U

2、Bound(a)a(ia)=b(ib+1):ia=ia+1:ib=ib+1LoopForib=0ToUBound(b)Picture2.Printb(ib);NextibEndIfEndSubPrivateSubCommand2_Click()'刪除一個元素，之后輸出新的數(shù)組，DimxDimicAsInteger,iaAsIntegerm=Val(Text3.Text)IfmUBound(a)+1Thenx=MsgBox("輸入的m不在范圍之內(nèi)",5+48,"輸入m的值")Ifx4ThenEndElseText3.Tex

3、t=""Text3.SetFocusEndIfElseDoWhileia=m-1Andia<=UBound(a)a(ia+1)=c(ic):ia=ia+1:ic=ic+1LoopForic=0ToUBound(c)Picture3.Printc(ic);NexticEndIfEndSuba(ia+1)=c(ic):這一句提示“下限越界”，這個應(yīng)該怎么修改將數(shù)據(jù)存在一個動態(tài)的數(shù)組中(dataArr)dimdataArr()dimiaslong1.插入(J為要插的值，M為要插入的位置)ReDimPreservedataArr

4、(UBound(dataarr)+1)'將數(shù)組放大fori=UBound(dataarr)tom-1step-1'從最下面向m-1循環(huán)dataarr(i)=dataarr(i-1)nextidataarr(m)=j2.刪除(M為要刪除的位置)fori=mtoUBound(dataarr)-1'從m向ub..-1dataarr(i)=dataarr(i+1)nextiReDimPreservedataArr(UBound(dataarr)-1)