Private Sub сmdЗаполнить_Click()

n = Val(InputBox("Количество элементов в массиве", " количество элементов в массиве "))

'Введено количество элементов в массиве — n

ReDim a(1 To n+1) ' Переопределение массива. Количество элементов в массиве — n+ 1

Randomize Timer

For i = 1 To n

a(i) = Int(101 * Rnd())

tхtИсходный.Text = tхtИсходный.Text + "" + Str(a(i))

Next i

End Sub

Private Sub сmdВключить_Сliсk()

Элемент = Val(txtЭлемент.Text)

Позиция = Val(txtПозиция.Text)

For j = n To 1 Step -1 ' Перед включением элемента необходимо раздвинуть массив,

' т.е. передвинуть "хвост" массива на одну позицию. Перемещение элементов нужно ' начинать с конца

a(j + 1) = a(j)

Next j

a(Позиция) = Элемент

For k = 1 To n+1

tхtРезультат.Text = tхtРезультат.Text + Str(a(k)) + " "

Next k