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, m, k As Integer
        k = CInt(TextBox1.Text)
        TextBox2.Text = Nothing
        For n = 1 To k
            TextBox2.Text = TextBox2.Text & vbTab & CStr(n)
        Next
        TextBox2.Text = TextBox2.Text & vbCrLf
        TextBox2.Text = TextBox2.Text & vbCrLf
        For n = 1 To k
            TextBox2.Text = TextBox2.Text & vbCrLf & CStr(n)
            For m = 1 To k
                TextBox2.Text = TextBox2.Text & vbTab & CStr(n * m)
            Next
        Next
    End Sub

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

    End Sub
End Class