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

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