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

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

Прошу помощи: Даны расходы электроэнергии 7 предприятиями за каждые 2 месяца года. Для каждой пары месяцев найти предприятие с наименьшим расходом электроэнергии. Написать в VB

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

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

                            Private Sub Command1_Click()
Dim a(1 To 7, 1 To 6) As Long
Dim i As Integer, j As Integer
Dim min As Long, k As Integer, f As Integer
Print "Таблица данных";
For i = 1 To 7
 Print
  For j = 1 To 6
    a(i, j) = InputBox("Введите расход предприяния №" & i & " за группу месяцев №" & j, "Значение расхода кВт", "85000")
    Print a(i, j);
   Next
Next
min = a(1, 1)
Print
For i = 1 To 7
 Print
  For j = 1 To 6
    If a(i, j) < min Then min = a(i, j): k = i: f = j
   Next
Next
Print "Наименьший расход был у предприятия №" & k & Chr(10) + Chr(13) & "В группу месяцев №" & f & Chr(10) + Chr(13) & "Значение расхода=" & min & " кВт"
End Sub
                        