' Project RandomNumbers 

' Show how to use the Next and NextDouble methods of the Random class
' to generate random numbers.

Imports System.Console
Public Module Module1

    Public Sub Main()

        Dim r As New Random
        Dim n As Integer
        Dim x As Double

        ' Generate simulated rolls of a single die.
        For i As Integer = 1 To 10
            n = r.Next(1, 7)
            Write(n & " ")
        Next
        WriteLine()

        ' Generate 5 random numbers between 0 and 1.
        For i As Integer = 1 To 5
            x = r.NextDouble()
            Write(x.ToString("#0.000") & " ")
        Next
        WriteLine()

        ReadLine()
    End Sub

End Module