Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mass, ht, raadius, hj, nj, joud, kiirus, kiirendus

        mass = TextBox1.Text
        ht = TextBox2.Text
        raadius = TextBox3.Text
        nj = mass * 9.8
        hj = ht * nj
        kiirus = Math.Sqrt(hj * raadius / mass)
        kiirendus = kiirus * kiirus / raadius
        joud = mass * kiirendus

        Label4.Text = kiirus * 3.6

    End Sub
End Class