В массиве из М чисел ( М вводится с клавиатуры) рассортировать числа с чет-ными индексами по возрастанию, с нечетными – по убыванию.
это задание вот моя форма http://ashetaki.ifolder.ru/17337030
вот код :
Private Sub Command1_Click()
Dim i As Integer, A() As Integer, B() As Integer, C() As Integer
M = CInt(InputBox("введите чило элементов в массиве"))
ReDim A(M)
For i = 1 To M
A(i) = CInt(InputBox("введите число"))
Next i
For i = 1 To M
If i Mod 2 = 0 Then k = k + 1 Else G = G + 1
Next i
ReDim B(k)
ReDim C(G)
For i = 1 To k
For j = j + 1 To k - 1
If B(i) >= (j + 1) Then N = B(i + 1): B(i + 1) = B(i): B(i) = N
Next j, i
For i = 1 To G
For j = j + 1 To G - 1
If C(i) >= C(j + 1) Then V = C(j + 1): C(j + 1) = C(i): C(i) = V
Next j, i
End Sub

что надо добавить в код чтобы в LIST1 отображались числа чётные по возрастанию а в LIST2 нечётные по убыванию?

спасибо