VB Code:
Module Module1
Sub Main()
Do
Console.WriteLine(New String("="c, 15))
DisplayRandomNumbers()
Console.WriteLine(New String("="c, 15))
Console.WriteLine("Type 'Exit' to quit, any other key to continue!")
Loop While Not Console.ReadLine.ToLower = "exit"
Console.WriteLine("Exiting... bye!")
End Sub
Private Sub DisplayRandomNumbers()
Dim R As New Random ' if you have 10 here it will always display the same numbers
For I As Integer = 1 To 10
Console.WriteLine(String.Format("Random Number {0}: {1}", I, R.Next(1, 11))) ' you need to speifiy the range here
Next
End Sub
End Module