Матрица - VB (60784)

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

Дана матрица F(3,4) из целых чисел. Если сумма первых индексов чётных элементов меньше суммы вторых индексов нечётных элементов, то заменить положительные элементы нулями, иначе поменять местами вторую и последнюю строки матрицы. Полученную матрицу вывести.

Решение задачи: «Матрица»

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

                            Private Sub Command1_Click()
Dim max, i, j As Integer
Dim X() As Double
Dim y() As Double
Dim z() As Double
Dim sum_1 As Double
Dim sum_2 As Double
Cls
sum_1 = 0
sum_2 = 0
ReDim X(1 To 3, 1 To 4)
For i = 1 To 3
    For j = 1 To 4
        X(i, j) = Int(Rnd * 20 - 1)
        If X(i, j) Mod 2 = 0 Then sum_1 = sum_1 + i Else sum_2 = sum_2 + j
        Print X(i, j); vbTab;
    Next j
    Print
Next i
Print vbLf
Print "ГЏГ®Г«ГіГ·ГҐГ*Г*Г*Гї Г¬Г*ГІГ°ГЁГ¶Г*:"
ReDim y(1 To 3, 1 To 4)
ReDim z(1 To 3, 1 To 4)
If sum_1 < sum_2 Then
                For i = 1 To 3
                    For j = 1 To 4
                        If X(i, j) > 0 Then z(i, j) = 0 Else z(i, j) = X(i, j)
                        Print z(i, j); vbTab;
                        Next j
                    Print
                Next i
            Else
                For i = 1 To 3
                    For j = 1 To 4
                        y(i, j) = X(i, j)
                        If i = 2 Then y(i, j) = X(3, j)
                        If i = 3 Then y(i, j) = X(2, j)
                        Print y(i, j); vbTab;
                        Next j
                    Print
                Next i
End If
End Sub
                        