Challenge for you...

[Petr]

Code: (Select All)

n = 2

Do Until pcount = 100
    prv = 1
    For x = 2 To n - 1
        If n Mod x = 0 Then prv = 0: Exit For
    Next
    If prv Then Print n; " ";: pcount = pcount + 1
    n = n + 1

Loop