Imports System

Public Module Module1

    Public Sub Main()

        Dim dblnum1 As double

        Dim intnum2 As Integer

        Dim intnum3 As Integer

        Dim intnum4 As Integer

        'Create Random number

        Dim gen As New Random()

        dblnum1 = gen.NextDouble        ' Generates a number from 0 up to but not including 1

        intnum2 = gen.Next()            ' Generates a number from 0 to 2,147,483,647

        intnum3 = gen.Next(100)         ' Generates a number from 0 to 99

        intnum4 = gen.Next(1,11)        ' Generates an number from 1 to 10

        Console.WriteLine(dblnum1.ToString)

        Console.WriteLine(intnum2.ToString)

        Console.WriteLine(intnum3.ToString)

        Console.WriteLine(intnum4.ToString)

    End Sub

End Module