Question

VB这样在文本框数组里添加新数据

一个输入文本框Text1；一个文本框数组Text2(i)，比如Text2(1)……Text2(10)，一个数据添加按钮。文本框数组Text2(i)部分有数据，比如Text2(1)=10、Text2(2)=20、Text2(3)=30……Text2(6)=60，Text2(7)到Text2(10)没有数据；我想在20与30之间添加25（或40与50之间添加42）等，添加时原有的数据不变，只是添加时、从添加点前面数据位置均不变，而添加点后面整体后移一位；比如原数据102030405060，添加后新数据1020253040425060，其中添加了25、42。从Text1输入数据，按添加按钮后，加入数组Text2(i)中；敬请各位大师热心帮助。

Answer 1

dim i as integer ,j as integer
for i=10 to 2 step -1
if text2(i)="" then
if text2(i-1)<>"" then
if val(text1) > text2(i-1) then
text2(i)=text1
exit for
else
text2(i)=text2(i-1)
text2(i-1)=""
end if
end if
end
next i
if i=2 then text2(1)=text1
以上代码，如果text2(10)有数，则 不插入数据。

追问

您好：谢谢您的热心帮助；我已试过，代码可能有一点小问题，比如添加"15"时，text2(1)的"10"不保，也变成"15"；又如添加"5"时，数据均后移是对的，但text2(1)为“空”；其它部位添加数据均正确。可能我叙述内容有错，与我原有想象略有差距，这是我的问题；今天我有一个带图文的提问，叙述相对清晰；愿助人为乐的好心人，帮助一解困惑，在此万分感激。