Question

Write a program to calculate kinetic energy

Answer 1

Module Module1
    Sub Main()
        Console.Write("Enter the mass(kilograms): ")
        Dim m As Double = Double.Parse(Console.ReadLine())
        Console.Write("Enter the velocity (meters per second): ")
        Dim v As Double = Double.Parse(Console.ReadLine())
        Dim kineticEnergy As Double = (m * v * v) / 2
        Console.WriteLine(vbNewLine + "The  kinetic energy: {0}", kineticEnergy)

        Console.ReadLine()
    End Sub
End Module