Задачи с массивами - VB (59400)

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

Никак не могу додумать вот эти 2 задачки, буду благодарен за помощь. 1. Ввести массив А(N,M). Составить вектор из элементов, находящихся над главной диагональю. 2. Ввести массив А(N, N). Найти максимальный элемент главной диагонали. Заменить все элементы главной диагонали на максимальный. сама матрица А выглядит так: 7 -4 8 2 3 -5 11 22 -4 5 12 12 -4 -11 7 11 -5 -12 6 -22 -4 7 9 8 -2

Решение задачи: «Задачи с массивами»

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

                            Option Explicit
 
Private Sub Command1_Click()
    Dim A() As Integer, B() As Integer, n As Integer
    Dim i As Integer, j As Integer, k As Integer, max As Integer
    n = 5
    ReDim A(1 To n, 1 To n), B(1 To (n - 1) / 2 * n)
    AutoRedraw = True: Cls
    For i = 1 To n
       For j = 1 To n
              A(i, j) = Val(InputBox("A(" & i & "," & j & ") =", , F(i, j)))
              Print A(i, j) & vbTab;
       Next j
       Print
    Next i
    max = A(1, 1)
    For i = 1 To n - 1
       For j = i + 1 To n
              k = k + 1
              B(k) = A(i, j)
              Print "B(" & k & ") = " & B(k) & "  ";
       Next j
    Next i
    
End Sub
 
Private Function F(r, c)
    Dim z(1 To 5)
    z(1) = Array(7, -4, 8, 2, 3)
    z(2) = Array(-5, 11, 22, -4, 5)
    z(3) = Array(12, 12, -4, -11, 7)
    z(4) = Array(11, -5, -12, 6, -22)
    z(5) = Array(-4, 7, 9, 8, -2)
    F = z(r)(c - 1)
End Function
                        