Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n, i, m As Integer
        Dim sum As Integer
        sum = 0
        n = CInt(TextBox1.Text)
        TextBox2.Text = Nothing
        i = 1
        For m = 1 To n \ 10
            While sum < m * 10
                sum = sum + i ^ 2
                i = i + 1
            End While
            TextBox2.Text = TextBox2.Text & "Sum of squares is at least " & CStr(m * 10) & vbCrLf
            TextBox2.Text = TextBox2.Text & "i = " & CStr(i) & " sum = " & CStr(sum) & vbCrLf
            TextBox2.Text = TextBox2.Text & vbCrLf
        Next
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub
End Class