Задача на цикл - VB (170270)

Формулировка задачи:

Локомотив на горизонтальном участке пути развивает постоянную силу тяги FТ . На участке пути длиной l скорость поезда возросла с V1 до V2. Определить коэффициент трения. где V1 = 10 м/c; g = 9,81м/c2; F = 200 кН; l = 4000м; 106 <= m <= 3*10^6 кг с шагом 0,5*10^6 кг; 20 <= V2 <= 50м/c с шагом 10 м/с.

Const g As Single = 9.8
Dim M As Single, M0 As Single, dM As Single, Mk As Single
Dim V As Single, V2 As Single, dV As Single, Vk As Single
Dim l As Single, v1 As Single, f As Single, mu As Single
M0 = InputBox("M0") 'начальное значение массы
dM = InputBox("dM") 'шаг массы
Mk = InputBox("Mk") 'конечное значение массы
V0 = InputBox("V0") 'начальное значение скорости
dV = InputBox("dV") 'шаг скорости
Vk = InputBox("Vk") 'конечное значение скорости
l = InputBox("l")
f = InputBox("f")
v1 = InputBox("v1")
V = V0
Do While V <= Vk
'print "v=" & V
M = M0
Do
mu = (f / M * g) - ((V0 ^ 2 - v1 ^ 2) / (2 * l * g))
Print "Pri M=" & M & "    Mu=" & mu
M = M + dM
Loop Until M > Mk
V = V + dV
Loop

Вот такой код у меня получился Вопрос: почему при разной скорости он выдает одинаковое значение силы трения? Буду благодарен за помощь

Решение задачи: «Задача на цикл»

textual
                            Листинг программы 
                        
                            Print "V1 = " & V1 & vbTab & "  V2 = " & V2