Module Module1
Sub Main()
Dim Generator As System.Random = New System.Random()
Dim n As Integer = Generator.Next(1, 100)
If n >= 1 Then
Console.WriteLine("First {0} prime numbers are:", n)
Console.WriteLine("2")
End If
Dim prime As Integer = 3
Dim numbers As Integer = 2
Dim i As Integer
While numbers <= n
For i = 2 To prime
If prime Mod i = 0 Then
Exit For
End If
Next
If i = prime Then
Console.WriteLine("{0}", prime)
numbers = numbers + 1
End If
prime = prime + 1
End While
End Sub
End Module
' run:
'
'First 37 prime numbers are:
'2
'3
'5
'7
'11
'13
'17
'19
'23
'29
'31
'37
'41
'43
'47
'53
'59
'61
'67
'71
'73
'79
'83
'89
'97
'101
'103
'107
'109
'113
'127
'131
'137
'139
'149
'151
'157
