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

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

    End Sub