Приложение с программой VBA

Type park

nom1 As Integer    'порядковый номер 1

marka As String     'марка автомобиля

G As Double          'грузоподъемность

V As Double          'среднетехническая скорость

J As Double           'коэффициент использования грузоподъемности

End Type

Type dop

nom2 As Integer     'порядковый номер 2

izm As String          'изменяющийся параметр

nach As Double      'начальное значение

kon As Double        'конечное значение

shag As Double       'шаг изменения

End Type

Option Explicit

Sub KR_V_42_2015()

Dim auto(9) As park

Dim dopl(9) As dop

Dim i As Double        'счетчик

Dim n1 As Integer      'предпоследняя цифра зачетки

Dim n2 As Integer      'последняя цифра зачетки

Dim L As Double       'расстояние

Dim Tp As Double     'время погрузки