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 num from 0 to but not including 1 

        intnum2 = gen.Next()       'generates num from 0 to billions

    intnum3 = gen.Next(100)    ' generates num upto 100

intnum4 = gen.Next(10, 51) ' generates num between 10 and 51

console.WriteLine(dblnum1.ToString())

console.writeline(intnum2.ToString())

console.writeline(intnum3.ToString())

console.writeline(intnum4.ToString())

​

    End Sub

End Module