задача на массивы в Visual Basic

[Ramzi]

вот условие задачи: Дан массив А(15). Заполнить массив случайными значениями от 0 до 25. Если в массиве есть хотя бы один элемент, равный 2, то все четные элементы массива заменить нулями, иначе найти среднее арифметическое всех нечетных элементов. Вывести начальный и конечный состав массива.

вот кое какие наработки:

Sub A1()
Dim A(15) As Integer, n As Integer, i As Byte
Randomize
For i = 0 To 15
A(i) = Int(Rnd * 25 + 1)
Next i
For i = 1 To 15
        Cells(i, "A") = A(i)
        Next i
If n Mod 2 = 0 Then A(i) = 0
Else
For i = n To 15
S = 0
S = S + A(i)
Next i
End If
S = S / (15 - n)
For i = 1 To 15
        Cells(i, "B") = A(i)
        Next i
End Sub

что нужно исправить и доработать? (в программировании не бум-бум)

[ViktorR]

1.
Видимо в задании пропущено, что это целочисленный массив.
2.
Не верное решение:

A(i) = Int(Rnd * 25 + 1)

По условию задачи значения элементов от 0 до 25:

A(i) = Int(Rnd * 26)

3.
Необходимо просмотреть элементы массива на равенство 2.

flag = false
For i = 1 To 15
  If A(i) = 2 then
     flag = true
     Exit For
  End if
Next i
If flag then ' Тут выполняем замену четных
  For i = 1 To 15
    If i MOD 2 = 0 Then A(i) = 0
  Next i
Else   ' или суммирование нечетных.
  S = 0
  For i = 1 To 15
     If i MOD <> 0 Then S = S + A(i)
  Next i
End If
  Midl = S%8

Так понимаю, что и среднее арифметическое можно считать целым.
Иначе:

Midl= S/8

PS: Не проверял ...
Как-то так, ...

[Ramzi]

спасибо!