Сколько бесплатного супа достанется каждому студенту?

Sub SoupStud()
 
      kc%=5       ' число студентов
      cc#=0.03   ' скорость поглощения супа
      oc#=20      ' 20-литровый котел супа
      Plates=Array(0,0.5,0.6,0.3,0.5,0.4) ' объемы тарелок
      VSoup=Array(0,0,0,0,0,0)              ' сколько супа достанется каждому
      Nstud=Array(0,1,2,3,4,5)               ' исходные номера студентов
 
      Do
          if oc# > 0 then ' Суп еще не кончился?
             if oc# > Plates(1) then
                oc#=oc#-Plates(1) 
                VSoup(1)=VSoup(1)+Plates(1)
             else
                oc#=0
                VSoup(1)=VSoup(1)+oc#
             End if
             '::: Двигаем очередь
             pl#=Plates(1)
             vs#=VSoup(1)
             nn%=Nstud(1)
             For i%=1 to kc%-1
                  Plates(i%)=Plates(i%+1) 
                  VSoup(i%)=VSoup(i%+1)
                  Nstud(i%)=Nstud(i%+1)
             Next i%
             Plates(kc%)=pl#
             VSoup(kc%)=vs#
             Nstud(kc%)=nn%
          Else ' суп кончился - выход
             Exit Do
          End if
      Loop
      '::: Печать результатов:
      For i%=1 to kc%
           Debug.print Nstud(i%);"-й студент съел ";Vsoup(i%);" л. супа"
      Next i%
End sub

Option Explicit
 
Sub main()
Dim O As Range 'объём мисок
Dim Status As Range 'статус студента(0 -прием пищи, 1 -налив, >1 -томление в очереди)
Dim V As Range 'объём супа в миске
Dim VV As Range 'объём супа в брюхе
Dim KC As Long, I As Long, J As Long, BO As Double, CC As Double, OC As Double
KC = [a1] 'к-во студентов
BO = [b1] 'время обслуживания сек
CC = [c1] 'скорость съедания л./сек
OC = [d1] 'объем котла л.
[e1] = [d1] 'остаток супа в котле
Set O = Range(Cells(2, 1), Cells(2, KC))
Set Status = Range(Cells(3, 1), Cells(3, KC))
Set V = Range(Cells(4, 1), Cells(4, KC))
Set VV = Range(Cells(5, 1), Cells(5, KC))
Range(O(1), VV(VV.Count)).Clear
For I = 1 To KC
  O(I) = Int(Rnd * 11 + 5) / 20 'раздаем миски
  Status(I) = I 'раздаем очередь(первому идет налив, остальные ждут)
Next I
Dim t As Single, t0 As Single, dt As Single
t0 = Timer
Do
  t = Timer
  dt = t - t0
  If dt <> 0 Then
    For I = 1 To KC
      If Status(I) = 1 Then 'наполняем миску
        V(I) = V(I) + O(I) * dt / BO
        [e1] = [e1] - O(I) * dt / BO
        If V(I) >= O(I) Then 'миска наполнена
          [e1] = [e1] + V(I) - O(I) 'возвращаем перелив
          V(I) = O(I)
          For J = 1 To KC 'двигаем очередь
            If Status(J) > 0 Then
              Status(J) = Status(J) - 1
            End If
          Next J
        End If
        If [e1] <= 0 Then 'суп кончился
          V(I) = V(I) + [e1]  'отбираем перелив
          [e1] = 0
          Status(I) = 0
          'Exit Do
        End If
      ElseIf Status(I) = 0 Then 'хлебаем
        V(I) = V(I) - CC * dt
        VV(I) = VV(I) + CC * dt
        If V(I) <= 0 Then 'миска пуста
          VV(I) = VV(I) + V(I) 'отрыжка
          V(I) = 0
          Status(I) = WorksheetFunction.Max(Status) + 1 'занимаем очередь
        End If
      End If
      If WorksheetFunction.Sum(V) = 0 Then Exit Do 'прием пищи закончен - все в очередь до нового праздника живота
    Next I
    t0 = t
  End If
Loop
End Sub