Visual Basic for Applications. Практика. Нагина Е.К - 22 стр.

         If i <> NowAt And Flag (i) = 0 Then
           If Range(“MatrixTrack”).Cells(NowAt,i) _
             < MinKil Then
             NextAt = i
             MinKil = Range(“MatrixTrack”) _
             .Cells(NowAt,NextAt)
           End If
         End If
      Next i
      Route(j) = NextAt
      Flag (NextAt) = 1
      SumKil = SumKil + MinKil
      NowAt = NextAt
    Next j
     SumKil = SumKil + Range(“MatrixTrack”) _
     .Cells(NowAt, 1)
End Sub

Sub DrawRout()
   Dim i As Integer
   Range(“C14”).Value = “МАРШРУТ СЛЕДОВАНИЯ”
   For i = 1 To Quancity + 1
     Range(“A15”).Offset(0, i) = Cities(Route(i))
     Range(“A16”).Offset(0, i) = Route(i)
   Next i
   MsgBox “Общее расстояние: “ & SumKil & “км”, _
          vbInformation, “Общее расстояние”
End Sub

      Задача 2.6. Создать два списка, состоящих из фамилий клиентов
фитнес – центра «Аврора», на листе “Списки”: один список расположить в
столбце, начиная с ячейки А4, второй список расположить в столбце В, на-
чиная с ячейки В4. Первый список должен содержать десять фамилий, а
второй список – двадцать фамилий. Ячейки А3 и В3 должны содержать
заголовки «Клиенты 2007 года» и «Клиенты 2008 года» соответственно.
Отсортировать эти списки в алфавитном порядке. При создании списков
обратить внимание на то, что некоторые клиенты должны быть указаны
только в списке для 2007 года или только в списке для 2008 года, а
некоторые клиенты должны упоминаться в обоих списках. Список в
столбце D, полученный после слияния данных, должен включать
неповторяющиеся имена клиентов из исходных списков.
      Алгоритм слияния списков заключается в следующем.


                                  22