Обработка двумерных массивов - VB

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

Задание 2.

Обработка двумерных массивов (матриц).

Даны планируемые затраты каждого из 7 предприятий на социально-культурные нужды на каждый из 5 годов. Определить предприятие с наибольшими суммарными планируемыми затратами. Задание 5.

Процедуры и функции пользователя.

Составить процедуру определения суммы элементов массива B(k), k-заданное число. Записать процедуру в Стандартный модуль. Используя процедуру, найти сумму элементов побочной диагонали матрицы A(m,m), m–заданное число. помогите решить какие-нибудь задания, пожалуйста

Решение задачи: «Обработка двумерных массивов»

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

                            Private Sub Command1_Click()
Dim i As Integer
Dim a(1 To 7, 1 To 5) As Double
Dim s(1 To 7) As Double
Dim tmp As Double, max As Double, tmp_ind As Integer
Randomize
Print "Массив:"
For i = 1 To 7
 Print
   For j = 1 To 5
      a(i, j) = Rnd * 1000
      Print Format(a(i, j), "0.00") & "|";
   Next
Next
Print
Print
Print "Массив сумм:"
For i = 1 To 7
tmp = 0
 Print
   For j = 1 To 5
     tmp = tmp + a(i, j)
   Next
   s(i) = tmp
   Print Format(s(i), "0.00");
Next
max = s(1)
For i = 1 To 7
    If s(i) > max Then max = s(i): tmp_ind = i
Next
Print
Print
Print "Предприятие с наибольшими затратами - №" & tmp_ind & vbCrLf & "Затраты равны: " & Format(max, "0.00")
End Sub
                        