[VB 6.0] Одномерные массивы

[Firstaid]

В общем задание у меня такое:

1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-135,175]. Удалить из него все элементы, первая и последняя цифра которых четная.

2. Вставить число К1 после всех элементов, больших заданного числа, а число К2 – после всех элементов, кратных пяти.

3. Перенести первые k элементов в конец: a[k+1], a[k+2], .. ,a[n], a[2], .., a[k].

Вот собственно код заполнения массива:

Dim am(50) As Double
Private Sub Command1_Click()

n = Val(Text1)

Am_Min = -135
Am_Max = 175

For i = 0 To n - 1

am(i) = Am_Min + Int(Rnd * (Am_Max - Am_Min))
Text2.Text = Text2.Text & Str(am(i))

Next

End Sub

На данный момент думаю, как удалить из него все элементы, первая и последняя цифра которых четная. На ум пришло вот это:

if am(i) Mod 2 = 0 and (am(i) Div 10) Mod 2 = 0 Then а дальше не знаю, как их убрать

2. Вставить число К1 после всех элементов, больших заданного числа, а число К2 – после всех элементов, кратных пяти - это как? То есть надо ввести число в отдельное поле, но вот как вставить?

3. Перенести первые k элементов в конец: a[k+1], a[k+2], .. ,a[n], a[2], .., a[k]. Не понимаю, как их перенести, какие функции использовать.

Всем заранее спасибо за помощь!