Added Permutations and Anagrams for VBA

Author: Undalevein

visualbasic/Anagrams.vb

@@ -0,0 +1,24 @@
+Module Anagrams
+    Sub GeneratePermutations(ByVal a As Char(), ByVal n as Integer)
+        If (n <= 0) Then
+            Console.WriteLine(new String(a))
+        Else
+            For i = 0 To n - 1
+                GeneratePermutations(a, n - 1)
+                Dim j as Integer = If(n MOD 2 = 0, 0, i)
+                Dim temp as Char = a(j)
+                a(j) = a(n)
+                a(n) = temp
+            Next
+            GeneratePermutations(a, n - 1)
+        End If
+    End Sub
+
+    Sub Main(args As String())
+        If (args.Length <> 1) Then
+            Throw New System.Exception("ERROR: There must be exactly 1 argument.")
+        End If
+        Dim letters as Char() = args(0).ToCharArray()
+        GeneratePermutations(letters, letters.Length - 1)
+    End Sub
+End Module

visualbasic/Hello.vb

@@ -1,4 +1,4 @@
-Module Clockhands
+Module Hello
     Sub Main()
         Console.WriteLine("Hello, World!")
     End Sub

visualbasic/Permutations.vb

@@ -0,0 +1,23 @@
+Module Permutations
+    Sub PrintPermutations(ByVal a As String(), ByVal n as Integer)
+        If (n <= 0) Then
+            Console.WriteLine(String.Join(vbTab, a))
+        Else
+            For i = 0 To n - 1
+                PrintPermutations(a, n - 1)
+                Dim j as Integer = If(n MOD 2 = 0, 0, i)
+                Dim temp as String = a(j)
+                a(j) = a(n)
+                a(n) = temp
+            Next
+            PrintPermutations(a, n - 1)
+        End If
+    End Sub
+
+    Sub Main(args As String())
+        If (args.Length < 1) Then
+            Throw New System.Exception("ERROR: There must be at least 1 argument.")
+        End If
+        PrintPermutations(args, args.Length - 1)
+    End Sub
+End Module

visualbasic/test.ps1

@@ -20,10 +20,16 @@ function Initialize-File {
 $project = "$PSScriptRoot\project"
 
 $Error.clear()
+    Initialize-File("Anagrams.vb") && dotnet run --project $project rats |
+        Compare-Object (Get-Content "$PSScriptRoot\..\test\rats_heap_expected") |
+        Assert-MatchTests &&
     Initialize-File("Clockhands.vb") && dotnet run --project $project |
         Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
         Assert-MatchTests &&
     Initialize-File("Hello.vb") && dotnet run --project $project &&
+    Initialize-File("Permutations.vb") && dotnet run --project $project I like carrots |
+        Compare-Object (Get-Content "$PSScriptRoot\..\test\carrots_expected") |
+        Assert-MatchTests &&
     Initialize-File("Triple.vb") && dotnet run --project $project |
         Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") |
         Assert-MatchTests &&