Data commit

Task/Flow-control-structures/Visual-Basic-.NET/flow-control-structures-1.vb

@@ -0,0 +1,7 @@
+  Sub bar2()
+      Dim x = 0
+      GoTo label
+      x = 5
+label:
+      Console.WriteLine(x)
+  End Sub

Task/Flow-control-structures/Visual-Basic-.NET/flow-control-structures-2.vb

@@ -0,0 +1,7 @@
+   Sub foo()
+       On Error GoTo label
+       'do something dangerous
+       Exit Sub
+label:
+       Console.WriteLine("Operation Failed")
+   End Sub

Task/Flow-control-structures/Visual-Basic-.NET/flow-control-structures-3.vb

@@ -0,0 +1,7 @@
+Sub foo2()
+    On Error Resume Next
+    Operation1()
+    Operation2()
+    Operation3()
+    Operation4()
+End Sub

Task/Flow-control-structures/Visual-Basic-.NET/flow-control-structures-4.vb

@@ -0,0 +1,9 @@
+Sub Foo1()
+    If Not WorkNeeded() Then Exit Sub
+    DoWork()
+End Sub
+
+Sub Foo2()
+    If Not WorkNeeded() Then Return
+    DoWork()
+End Sub

Task/Flow-control-structures/Visual-Basic-.NET/flow-control-structures-5.vb

@@ -0,0 +1,11 @@
+Function Foo3()
+    Foo3 = CalculateValue()
+    If Not MoreWorkNeeded() Then Exit Function
+    Foo3 = CalculateAnotherValue()
+End Function
+
+Function Foo4()
+    Dim result = CalculateValue()
+    If Not MoreWorkNeeded() Then Return result
+    Return CalculateAnotherValue()
+End Function