Заполнить в памяти ЭВМ матрицу L размерности m×n так, чтобы значение каждого элемента было равно индексу строки, в ко

Private Sub Form_Load()
    Const m = 4, n = 5
    Dim i&, j&, A$, B$, C$, arr
    Dim matrix&(1 To m, 1 To n)
    
'-------------------------------------[ 1 ]
    For i = 1 To UBound(matrix, 1)
        For j = 1 To UBound(matrix, 2)
            matrix(i, j) = i
    Next j, i
    
    
    
'-------------------------------------[ 2 ]
    While Not IsNumeric(A)
        A = InputBox("Введите A от 1 до " & n, , 1)
    Wend
    While Not IsNumeric(B)
        B = InputBox("Введите B от 1 до " & n, , 1)
    Wend
    While Not IsNumeric(C)
        C = InputBox("Введите C от 1 до " & n, , 2)
    Wend
    arr = Array(0, 0)
    For i = 0 To UBound(arr)
        For j = 1 To UBound(matrix, 2)
           arr(i) = arr(i) + matrix(Choose(i + 1, B, C), j)
    Next j, i
    B = arr(0): C = arr(1)
    MsgBox "A = " & B * C / A
End Sub