VB数组中插入和删除一个元素.doc

《VB数组中插入和删除一个元素.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB数组中插入和删除一个元素PrivateSubCommand1_Click()'插入一个元素，J为要插的值，M为要插入的位置，之后输出新的数组，j=Val(Text1.Text):n=Val(Text2.Text)DimxDimibAsInteger,iaAsIntegerIfnUBound(a)+1Thenx=MsgBox("输入的n不在范围之内",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()'删除一个元素，之后输出新的数组，DimxDimicAsInteger,iaAsIntegerm=Val(Text3.Text)IfmUBound(a)+1Thenx=MsgBox("输入的m不在范围之内",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):这一句提示“下限越界”，这个应该怎么修改将数据存在一个动态的数组中(dataArr)dimdataArr()dimiaslong1.插入(J为要插的值，M为要插入的位置)ReDimPreservedataArr

4、(UBound(dataarr)+1)'将数组放大fori=UBound(dataarr)tom-1step-1'从最下面向m-1循环dataarr(i)=dataarr(i-1)nextidataarr(m)=j2.删除(M为要删除的位置)fori=mtoUBound(dataarr)-1'从m向ub..-1dataarr(i)=dataarr(i+1)nextiReDimPreservedataArr(UBound(dataarr)-1)