Программирование на алгоритмическом языке

     i1  i2  i3
j1  | 1  2  3 |
j2  | 4  5  6 |
j3  | 7  8  9 |

'Вот как то вот так
 Sub Main()
        Dim MyMatrix(,), CalcValue, value As Integer
        Dim Rnd As New Random()
        Dim i, j As Integer
        ReDim MyMatrix(3, 3)
        'Заполнение массива рандомными числами от -10 до 10
        For i = 0 To 3 'строка
            For j = 0 To 3 'столбец
                MyMatrix(i, j) = Rnd.Next(-10, 10)
            Next
        Next
 
        'Суммирование положительных чисел по диагонали
        For i = 0 To 3 'строка
            For j = 0 To 3 'столбец
                value = MyMatrix(i, j)
                If (value > 1 And i = j) Then
                    CalcValue += MyMatrix(i, j)
                End If
            Next
        Next
    End Sub

Sub matrix()
        Dim MyMatrix(3, 3) As Integer
        Dim CalcValue, value As Integer
        Dim i, j As Integer
        For i = 0 To 3
            For j = 0 To 3
                MyMatrix(i, j) = Rnd() * 10 - 10
            Next
        Next
 
        
        For i = 0 To 3
            For j = 0 To 3
                value = MyMatrix(i, j)
                If (value > 1 And i = j) Then
                    CalcValue = CalcValue + MyMatrix(i, j)
                End If
            Next
        Next
End Sub

Dim CalcValue, value As Integer