Задача на цикл

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

    Const g As Double = 9.8
    Dim M As Double, M0 As Double, dM As Double, Mk As Double
    Dim V0 As Double, V1 As Double, V2 As Double, dV As Double, Vk As Double
    Dim l As Double, F As Double, mu As Double
    'где 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 м/с.
    M0 = InputBox("M0", , 1000000#) 'начальное значение массы
    dM = InputBox("dM", , 500000#) 'шаг массы
    Mk = InputBox("Mk", , 3000000#) 'конечное значение массы
    V0 = InputBox("V0", , 20) 'начальное значение скорости
    dV = InputBox("dV", , 10) 'шаг скорости
    Vk = InputBox("Vk", , 50) 'конечное значение скорости
    l = InputBox("l", , 4000#)
    F = InputBox("f", , 200000#)
    V1 = InputBox("v1", , 10)
    V2 = V0
    Do While V2 <= Vk
        Print "V = " & V2
        M = M0
        Do
            mu = (F / M * g) - ((V1 ^ 2 - V2 ^ 2) / (2 * l * g))
            Print "    Pri M = " & M & vbTab & "Mu = " & mu
             M = M + dM
        Loop Until M > Mk
        V2 = V2 + dV
    Loop

Print "V1 = " & V1 & vbTab & "  V2 = " & V2