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