Do ... Until Loop 문

2 TextBox1.Text += vbCrLf k = 0 j = j + 1 Loop Until j > 9 TextBox1.Text += vbCrLf j = 1 i = i + 3 Loop Until i > 9 End Sub"> 2 TextBox1.Text += vbCrLf k = 0 j = j + 1 Loop Until j > 9 TextBox1.Text += vbCrLf j = 1 i = i + 3 Loop Until i > 9 End Sub"> 2 TextBox1.Text += vbCrLf k = 0 j = j + 1 Loop Until j > 9 TextBox1.Text += vbCrLf j = 1 i = i + 3 Loop Until i > 9 End Sub">

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

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

    End Sub