Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim i As Integer = 9 '[ ] X  1  = 9 에서 괄호 부분'
        Dim j As Integer = 9 ' 9  X [ ] = 9 에서 괄호 부분' 
        Dim k As Integer = 0 '단을 나눠주는 역할'

        'Do While ... Loop 문'
        TextBox1.Text = ""
        Label1.Text = "Do While ... Loop 문으로 구구단을 3열로 출력합니다."
        Do While i < 10
            Do While j < 10
                Do While k < 3
                    TextBox1.Text += ((i + k) & " X " & j & " = " & ((i + k) * j) & "    ")
                    k = k + 1 '1~3단 출력 ,4~6단 출력, 7~9단 출력'
                Loop
                TextBox1.Text += vbCrLf
                k = 9
                j = j - 1
            Loop
            TextBox1.Text += vbCrLf
            j = 9
            i = i - 3
        Loop
    End Sub