Вычислить вектор V по формуле - VB

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

Помогите создать программу в Visual Basic по следующим задачам: 3)Вычислить вектор V по формуле V=kx+ly,где k-наибольший элемент матрицы А,а l-наименьший элемент матрицы В. К данным задачам также необходимо составить блок-схеммы.Помогите,кто сможет...

Решение задачи: «Вычислить вектор V по формуле»

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

                            Sub Task(A() as double, B() as double, X() as double, Y() as double, V() as double)
Dim k as double
Dim l as double
      '::: макс эл-т A
      k=A(1,1)
      for i%=1 to Ubound(A,1)
          For j%=1 to Ubound(A,2)
               If A(i%,j%) > k then k=A(i%,j%)
          Next j%
      Next i%
      '::: мин эл-т B
      l=B(1,1)
      for i%=1 to Ubound(B,1)
          For j%=1 to Ubound(B,2)
               If B(i%,j%) < k then l=B(i%,j%)
          Next j%
      Next i%
      '::: вектор V
      for i%=1 to Ubound(X,1)
          V(i%)=k*X(i%)+l*Y(i%)
      next i%
End Sub
                        