Data commit

Task/Loops-Nested/Visual-Basic-.NET/loops-nested-1.vb

@@ -0,0 +1,20 @@
+Module Program
+    Sub Main()
+        Const ROWS = 10
+        Const COLS = 10
+
+        ' Initialize with seed 0 to get deterministic output (may vary across .NET versions, though).
+        Dim rand As New Random(0)
+
+        ' VB uses max index array declarations
+        Dim nums(ROWS - 1, COLS - 1) As Integer
+
+        For r = 0 To ROWS - 1
+            For c = 0 To COLS - 1
+                nums(r, c) = rand.Next(0, 21) ' Upper bound is exclusive.
+            Next
+        Next
+
+        ' MISSING IMPLEMENTATION
+    End Sub
+End Module

Task/Loops-Nested/Visual-Basic-.NET/loops-nested-2.vb

@@ -0,0 +1,8 @@
+        For r = 0 To ROWS - 1
+            For c = 0 To COLS - 1
+                Dim val = nums(r, c)
+                Console.WriteLine(val)
+                If val = 20 Then GoTo BREAK
+            Next
+        Next
+        BREAK:

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

@@ -0,0 +1,9 @@
+        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

Task/Loops-Nested/Visual-Basic-.NET/loops-nested-4.vb

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

Task/Loops-Nested/Visual-Basic-.NET/loops-nested-5.vb

@@ -0,0 +1,10 @@
+    Sub Find20Impl(arr As Integer(,))
+        For r = 0 To arr.GetLength(0) - 1
+            For c = 0 To arr.GetLength(1) - 1
+                Dim val = arr(r, c)
+                Console.WriteLine(val)
+                If val = 20 Then Exit Sub
+               'If val = 20 Then Return ' Equivalent to above.
+            Next
+        Next
+    End Sub

Task/Loops-Nested/Visual-Basic-.NET/loops-nested-6.vb

@@ -0,0 +1 @@
+        Find20Impl(nums)

Task/Loops-Nested/Visual-Basic-.NET/loops-nested-7.vb

@@ -0,0 +1,10 @@
+        For r = 0 To ROWS - 1
+            For c = 0 To COLS - 1
+                Dim val = nums(r, c)
+                Console.WriteLine(val)
+                If val = 20 Then
+                    r = ROWS
+                    Exit For
+                End If
+            Next
+        Next

Task/Loops-Nested/Visual-Basic-.NET/loops-nested-8.vb

@@ -0,0 +1,12 @@
+        Dim done = False
+        For r = 0 To ROWS - 1
+            For c = 0 To COLS - 1
+                Dim val = nums(r, c)
+                Console.WriteLine(val)
+                If val = 20 Then
+                    done = True
+                    Exit For
+                End If
+            Next
+            If done Then Exit For
+        Next