Ввести целочисленный массив A(N)... - VB

Формулировка задачи:

Ввести целочисленный массив A(N). Найти минимальное значение среди элементов с четными номерами и максимальное значение среди элементов с нечетными номерами.

null

составила вот такую программу...но она выводит просто минимальное и максимальное....помогите пожалуйста...

Решение задачи: «Ввести целочисленный массив A(N)...»

textual
                            Листинг программы 
                        

                            Dim a() As Integer, n As Integer
Dim Max As Integer, Min As Integer 
Dim flgMax As Boolean, flgMin As Boolean
Dim i As Byte 
n = InputBox("Введите N", " Ввод N ") 
redim a(n)
For i = 1 To n 
  a(i) = InputBox("Введите число для " & i & "-го элемента массива ", " Ввод элементов массива ") 
Next 
flgMax = false
flgMin = false
For i = 1 To n
if a(n) mod 2=0
  if not flgMax then
     Max = a(i)
     flgMax =True
  else
    If Max < a(i) Then Max = a(i) 
  end if
else
  if not flgMin  then
     Min = a(i)
     flgMin =True
  else
    If Min > a(i) Then Min = a(i) 
  end if
end if
Next i
MsgBox "Min=" & Min & Chr(13) & "Max=" & Max
                        