Imports System

Public Module Module1

    Public Sub Main()

        dim n, i as integer

        dim a1,a2,a3,b1,b2,b3,c1,c2,c3,seed as string

        dim rnd as new random

        Console.WriteLine("Enter 9 digit seed")

        seed = console.readline()

        i = 0

        if seed = "" then

            do

            if i = 0 then

                n = rnd.next(0,2)

            else

                n = 10 * n + rnd.next(0,2)

            end if 

            i = i + 1

            loop until i = 9

        seed = n

        console.WriteLine(seed)

        end if

​

        if seed/100000000 >= 1 then

        a1 = "██"

        n = 100000000

        else    

        a1 = "  "

        n = 0

        end if

        if (seed- n)/10000000 >= 1 then

        a2 = "██"

        n = n + 10000000

        else    

        a2 = "  "

        end if

        if (seed- n)/1000000 >= 1 then

        a3 = "██"

        n = n + 1000000

        else    

        a3 = "  "   

        end if

        if (seed- n)/100000 >= 1 then

        b1 = "██"

        n = n + 100000

        else    

        b1 = "  "   

        end if

        if (seed- n)/10000 >= 1 then

        b2 = "██"

        n = n + 10000

        else    

        b2 = "  "   

        end if

        if (seed- n)/1000 >= 1 then

        b3 = "██"

        n = n + 1000

        else    

        b3 = "  "   

        end if

        if (seed- n)/100 >= 1 then

        c1 = "██"

        n = n + 100

        else    

        c1 = "  "   

        end if

        if (seed- n)/10 >= 1 then

        c2 = "██"

        n = n + 10

        else    

        c2 = "  "   

        end if

        if (seed- n)/1 >= 1 then

        c3 = "██"

        n = n + 1

        else    

        c3 = "  "   

        end if

        console.writeline(a1 & a2 & a3)

        console.writeline(b1 & b2 & b3)

        console.writeline(c1 & c2 & c3)

    End Sub

End Module