Одномерные и двумерные массивы

Sub поменять(ByRef массив, ByVal первое, ByVal второе)
временное = массив(первое)
массив(первое) = массив(второе)
массив(второе) = временное
End Sub
 
Sub тест()
Dim исх_массив(9) 'объявляем массив
'просто заполняем числами попорядку
For счетчик = 0 To 9
  исх_массив(счетчик) = счетчик
Next счетчик
 
For счетчик = 0 To UBound(исх_массив) \ 2
  Call поменять(исх_массив, счетчик, UBound(исх_массив) - счетчик)
Next счетчик
End Sub

Sub задание2()
N = 7
Dim предприятия() 'объявляем массив предприятий
предприятия = Array("ООО Я", "ОАО Ты", "ЗАО Мы", "ЧП Он", "ПБОЮЛ Она", "ООО Этот", "ЧП Тот")
Dim товары() 'объявляем массив товаров
товары = Array("Винил", "Ил", "Зил", "Мел", "Хмель")
 
Dim выпуск() 'объявляем двумерный массив выпуска (фирма, товар = выпуск)
ReDim выпуск(N - 1, 4)
'заполнение массива выпуск опускаю
 
сообщение = "" 'тут будет текст сообщения с ответом
 
For фирма = 0 To N - 1 'по каждой фирме
  макс_выпуск = 0 'номер максимально выпускаемого товара
  For товар = 0 To 6
    If выпуск(фирма, товар) > выпуск(фирма, макс_выпуск) Then
      макс_выпуск = товар
    End If
  Next товар
  сообщение = сообщение & предприятия(фирма) & " больше всего выпускает товар "
  сообщение = сообщение & товары(макс_выпуск) & " (" & выпуск(фирма, макс_выпуск) & ")" & vbCrLf
Next фирма
 
'выводим ответ
MsgBox сообщение
End Sub