Vba, Нужна помощь в проверке кода Опции

[Lord of assembly]

Код

Option Explicit
Sub êðç1()
Dim a(100) As Integer
Dim i As Integer
Dim N As Integer
Dim K As Integer
Dim R As Integer
For i = 1 To 100
Cells(1, i) = Int(Rnd * 100 - 50)
a(i) = Cells(1, i)
Next i
For i = 1 To 100
If a(i) Mod 2 = 0 Then
a(i) = a(i) * 2
Cells(3, i) = a(i)
End If
Next i
For i = 1 To 100
If a(i) Mod 2 <> 0 Then
a(i) = a(i) - 1
Cells(3, i) = a(i)
End If
Next i
For K = 1 To 100 - 1
    For i = 1 To 100 - K
        If a(i) < a(i + 1) Then
            R = a(i)  
            a(i) = a(i + 1)
            a(i + 1) = R
        End If
    Next i
Next K
For i = 1 To 100
    Cells(5, i) = a(i)
Next i
If a(i) Mod 5 = 2 Then
a(i) = Cells(7, i)
a(i) = a(i + 1)
For i = 1 To 100
Next i
N = N - 1
End If
End Sub

Помогите пожалуйста проверить код, а задача звучит так
Задан одномерный массив F(N). В данном массиве выполнить:
1. Увеличить все чётные элементы массива в два раза, а нечётные уменьшить на единицу. Полученный массив распечатать.
2. Элементы полученного массива расположить по убыванию. Массив распечатать.
3. Удалить из вновь образованного массива все элементы, кратные пяти. Массив распечатать.
4. Во вновь образованной последовательности вычислить сумму чётных элементов и вставить это значение перед каждым элементом, кратным трем. Значение суммы и вновь образованный массив распечатать.
И если не затруднит подскажите как сделать четвертую часть ну очень надо. Заранее благодарен.

[Lord of assembly]

Код

Option Explicit
Sub Rhp1()
Dim a(5, 5) As Integer
Dim i As Integer, j As Integer
Dim s As Double, k As Double
Dim min As Integer, max As Integer
Dim ih As Integer, imax As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Cells(i, j)
Next j
Next i
s = 0: k = 0: max = 12
For i = 1 To 5
For j = 1 To 5
If a(i, j) Mod 2 <> 0 Then s = s + a(i, j) Else k = k + 1
If a(i, j) > max Then
max = a(i, j)
imax = i
ih = Cells(i, 1) + Cells(1, 2)
End If
Next j
Next i
Cells(7, 6) = ("Сумма нечетных элементов = " & s)
Cells(8, 6) = ("Количество четных элементов = " & k)
Cells(9, 6) = ("Максимумы  - " & imax)
Cells(10, 6) = ("Произведение элементов в первой четверти = " & ih)
End Sub

Помогите пожалуйста проверить ещё один код
Вот задание
1.Сформировать матрицу вида

1 2 2 2 2
3 1 2 2 2
3 3 1 2 2
3 3 3 1 2
3 3 3 3 1

2.Вычислить в этой матрице сумму нечетных элементов.
3.Вычислить количество четных элементов в каждой строке матрицы.
4.Вычислить максимумы в нечетных столбцах.
5.Вычислить произведение элементов в первой четверти.

Сообщение отредактировано: Lord of assembly - 16.05.2006 16:21