На ленте расположен массив из 2n меток

VB.Dim A () As IntegerRandomize () Dim k As IntegerDim n As Integern=Rnd ()*100+1ReDim A (n) For k=0 To n A (k)=Rnd ()*-1000+500NextDim Dump As IntegerDim u As Integeru=InputBox ("Введите номер элемента для встанвки в пределах от 0 до " & n) ReDim Preserve A (n+1) For k=n+1 To u+1 Step -1 Dump=A (k) A (k)=A (k — 1) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 A (k — 1)=DumpNext