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