RosettaCodeData/Task/Loops-Nested/Visual-Basic-.NET/loops-nested-3.visual

        Do
            For r = 0 To ROWS - 1
                For c = 0 To COLS - 1
                    Dim val = nums(r, c)
                    Console.WriteLine(val)
                    If val = 20 Then Exit Do
                Next
            Next
        Loop While False