Descargar

Private Sub Aleatorio()
        Dim rd As New Random
        Dim n, x, y As Integer
        Do
            x = 0
            Console.WriteLine("Ingrese la Cantidad  de aliatorios")
            n = Val(Console.ReadLine())
 
            While (x < n)
                x += 1
                Console.WriteLine(" {0}> {1}", x.ToString(), rd.NextDouble().ToString())
            End While
            Console.WriteLine("Continuar 1:si" + Chr(13) + "2: no" + Chr(13) + "Numero")
            y = Val(Console.ReadLine())
 
        Loop While (y = 1)
 
    End Sub

Descargar