September Morn Update

Task/Van-der-Corput-sequence/Visual-Basic-.NET/van-der-corput-sequence.visual

@@ -0,0 +1,30 @@
+Module Module1
+
+    Function ToBase(n As Integer, b As Integer) As String
+        Dim result = ""
+        If b < 2 Or b > 16 Then
+            Throw New ArgumentException("The base is out of range")
+        End If
+
+        Do
+            Dim remainder = n Mod b
+            result = "0123456789ABCDEF"(remainder) + result
+            n = n \ b
+        Loop While n > 0
+
+        Return result
+    End Function
+
+    Sub Main()
+        For b = 2 To 5
+            Console.WriteLine("Base = {0}", b)
+            For i = 0 To 12
+                Dim s = "." + ToBase(i, b)
+                Console.Write("{0,6} ", s)
+            Next
+            Console.WriteLine()
+            Console.WriteLine()
+        Next
+    End Sub
+
+End Module