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

вается к переменной NowAt, используемой в следующей итерации внут-
реннего цикла.


Option Explicit
Option Base 1
Dim Quancity As Integer , Flag() As Integer, _
    Route() As Integer, SumKil As Integer
Dim Cities() As String

Sub MainProcedure()
   Call Initialize
   Call BuildRoute
   Call DrawRoute
End Sub

Sub Initialize()
    Dim i As Integer
    Quancity = Range(“MatrixTrack”).Rows.Count
    ReDim Flag(Quancity)
    ReDim Route(Quancity + 1)
    ReDim Cities(Quancity)
    Route(1) = 1
    Route(Quancity + 1) = 1
    Flag (1) = 1
    For i = 2 To Quancity
        Flag (i) = 0
    Next i
    SumKil = 0
    With Range (“A2”)
      For i =1 To Quancity
          Cities(i) = .offset(0,i)
      Next i
    End With
End Sub

Sub BuildRoute ()
   Dim j As Integer, i As Integer, NowAt _
     As Integer, NextAt As Integer, _
     MinKil As Integer
    NowAt = 1
    For j = 2 To Quancity
      MinKil = 100000
      For i = 2 To Quancity
                          21