Imports System

Public Module Module1

    Public Sub Main()

        dim number(100000000) as decimal

        dim i as integer

        dim prime(10000) as integer

        dim a as integer

        for i = 0 to 100000000

        number(i)=i

    next 

    for i = 0 to 100000000

    for a = 0 to 100000000

    if number(i) mod a = 0 then 

        number(i)= -1

    end if 

next 

next 

    End Sub

End Module