Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim n As Integern = CInt(TextBox1.Text)Dim result As String = ""
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i As Integer = 1 To nDim n As Integer
n = CInt(TextBox1.Text)
Dim result As String = ""
result &= i & Environment.NewLine
Next
TextBox2.Text = result
End Sub