Public Class Form1

Private Sub btnKoniec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKoniec.Click

Close()

End Sub

Private Sub btnOblicz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOblicz.Click

Dim W As Single

Dim L As Integer

Dim J As Integer

Dim Y As Double

W = Val(txtW.Text)

L = InputBox("Input L")

J = 0

If W > 0 And W < 100 Then

Do

Y = (2 * Math.Sqrt(W)) / (L - J)

J = J + 1

lblJ.Text = Str(J)

lblY.Text = Str(Y)

MsgBox("Next...")

Loop Until Y < 0

Else

MsgBox("No calculations, because the number is less than zero or greater than a hundred.")

End If

End Sub

End Class

---