home / study / engineering / computer science / questions and answers / This Question Is For Visual Basics.....I Have Written ... Question: This question is for Visual Basics.....I have writ... BookmarkEdit question This question is for Visual Basics.....I have written a code but I can't see where I am missing it that it does not calculate the Kinetic Energy...What am I missing Public Class Form1 'Function Statement for kinetic energy Function energy(ByVal dblMass As Double, ByVal dblVelocity As Double) As Double Return (0.5) * dblMass * dblVelocity ^ 2 End Function Private Sub btnCalculate_Click(sender As Object, KineticEnergy As EventArgs) Handles btnCalculate.Click 'Declare variables Dim dblMass As Double Dim dblVelocity As Double Dim dblKineticEnergy As Double 'Calculate Kinetic Energy dblKineticEnergy = (0.5) * dblMass * dblVelocity ^ 2 lblKineticEnergyLevel.Text = dblKineticEnergy.ToString("n3") End Sub Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click 'This will clear text boxes txtMass.Clear() txtVelocity.Clear() 'This will clear label boxes lblKineticEnergyLevel.Text = String.Empty 'This will reset focus. txtMass.Focus() End Sub Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click 'Close the Form Me.Close() End Sub End Class