Imports System
Public Module Module1
' Program to simulate rolling a die 10 times
Public Sub Main()
'Must define a class and "seed" (ie number in brackets) to create a new sequence of pseudo-random numbers.
Dim RandomClass As New System.Random(45)
' Must declare a variable to store the individual random number
Dim RandomNum As Integer
For i = 1 to 1000
' RandomClass.Next requires 2 parameters: starting value and end value + 1 - don't ask me why!!
RandomNum = RandomClass.Next(20, 100) ' This will create a random number in the range 1 - 6 inclusive
Console.WriteLine(RandomNum)
Next i
End Sub
End Module