Dim t1 As Integer
Dim t2 As Integer
Dim t3 As Integer
Dim Средняя_скорость As Integer

Private Sub Command1_Click()
t1 = InputBox("Первая скорость")
t2 = InputBox("Вторая_скорость")
t3 = InputBox("Третья_скорость")
Средняя_скорость = (100 + 200 + 300) / (4 + 5 + 1)
Print Средняя_скорость
End Sub    можно с помощью vb

и так решать

Вот еще способ

'Задача вычисления средней скорости

Dim Скорость1 As Double              'Скорость автомобиля на первом участке пути

Dim Время1 As Double                   'Время прохождения первого участка

Dim Путь1 As Double                      'Длина первого участка

Dim Скорость2 As Double              'Скорость автомобиля на втором участке пути

Dim Время2 As Double                   'Время прохождения второго участка

Dim Путь2 As Double                      'Длина второго участка

Dim Средняя_скорость As Double                'Средняя скорость автомобиля

Private Sub Command1_Click()

                'Задание исходных данных

    Скорость1 = 80

    Время1 = 3

    Скорость2 = 90

    Время2 = 2

                'Вычисление результата

    Путь1 = Скорость1 * Время1

    Путь2 = Скорость2 * Время2

    Средняя_скорость = (Путь1 + Путь2) / (Время1 + Время2)

                'Отображение результата

   Print Средняя_скорость

End Sub