Data commit

Task/Conditional-structures/Visual-Basic-.NET/conditional-structures-1.vb

@@ -0,0 +1,7 @@
+Dim result As String, a As String = "pants", b As String = "glasses"
+
+If a = b Then
+  result = "passed"
+Else
+  result = "failed"
+End If

Task/Conditional-structures/Visual-Basic-.NET/conditional-structures-2.vb

@@ -0,0 +1,13 @@
+Dim result As String, a As String = "pants", b As String = "glasses"
+
+If a = b Then result = "passed" Else result = "failed"
+
+If a = b Then
+  result = "passed"
+Else : result = "failed"
+End If
+
+If a = b Then : result = "passed"
+Else
+  result = "failed"
+End If

Task/Conditional-structures/Visual-Basic-.NET/conditional-structures-3.vb

@@ -0,0 +1,9 @@
+Dim result As String, a As String = "pants", b As String = "glasses"
+
+If a = b Then
+  result = "passed"
+ElseIf a <> b Then
+  result = "failed"
+Else
+  result = "impossible"
+End If

Task/Conditional-structures/Visual-Basic-.NET/conditional-structures-4.vb

@@ -0,0 +1,9 @@
+Dim result As String, a As String = "pants", b As String = "glasses"
+
+Select Case a
+  Case b
+    result = "match"
+  Case a : result = "duh"
+  Case Else
+    result = "impossible"
+End Select

Task/Conditional-structures/Visual-Basic-.NET/conditional-structures-5.vb

@@ -0,0 +1,7 @@
+Imports Microsoft.VisualBasic
+
+...
+
+Dim result As String = CType(IIf("pants" = "glasses", "passed", "failed"), String) 'VB 1-8
+
+Dim result As String = If("pants" = "glasses", "passed", "failed") 'VB 9

Task/Conditional-structures/Visual-Basic-.NET/conditional-structures-6.vb

@@ -0,0 +1,11 @@
+Imports Microsoft.VisualBasic
+
+...
+
+Function IIf2(Of T)(ByVal condition As Boolean, ByVal truepart As T, ByVal falsepart As T) As T
+  If condition Then Return truepart Else Return falsepart
+End Function
+
+...
+
+Dim result As String = IIf2("pants" = "glasses", "passed", "failed") ' type is inferred

Task/Conditional-structures/Visual-Basic-.NET/conditional-structures-7.vb

@@ -0,0 +1 @@
+Dim result As String = If("pants" = "glasses", "passed", "failed") ' type is inferred