Создать программу в бейсик Автомобиль трогается с места и его скорость каждую секунду...

Question

Создать программу в бейсик
Автомобиль трогается с места и его скорость каждую секунду увеличивается на 4 км/ч.Какова скорость через 12с?

Answer 1

Sub car()
    Dim s As Double
    For i = 1 To 12
        s = s + 4
    Next i
    MsgBox ("Скорость автомобиля через 12 секунд равна " + CStr(s) + " км/ч")
End Sub