More Random Numbers!

[wiccaan]

Hey guys, need a little help with generating some random numbers in a console application.

First, Im trying to the get the program to generate 10 random numbers between 1 and 10 (Including both 1 and 10) and then display all 10 of them in the console itself on seperate lines.

Ive tried using the Random function with a loop to display all 10 numbers, but I kept getting numbers way bigger then 10 and it wouldnt loop all 10 numbers only showing 1.

Thanks in advance to whom ever can help me with this.

[kebo]

can you post your code?
kevin

[wiccaan]

Dispite the fact that I probably did most of it wrong and I didnt save most of it here is what I have left of it:

Module Module1

    Sub Main()
        On Error GoTo ErrorHandel

        Dim a As String
        Dim b
        Dim R As New Random(10)
        Dim I As Integer = R.Next()
Begin:
        a = Rnd(I)

        Console.WriteLine(a)
        Console.WriteLine(a)
        Console.WriteLine(a)
        Console.WriteLine(a)
        Console.WriteLine(a)
        Console.WriteLine(a)
        Console.WriteLine(a)
        Console.WriteLine(a)
        Console.WriteLine(a)
        Console.WriteLine(a)
ErrorHandel:
        Console.WriteLine("There was an error! Please press enter!")
        b = Console.ReadLine
        GoTo Begin
    End Sub

End Module

Like I said, it doesnt work, and its probably completely wrong. Im sorta new to .Net and Im doing this for a science fair project. Thanks in advance.

[wiccaan]

Well I changed that a little bit instead of making 10 Console.WriteLines Im just using a loop:

For Z = 1 to 10
Console.Writeline(a)
Next

Makes 10 lines automaticly, but the rounding isnt doing 1 to 10 without decimals like I need it to.

Thanks again in advance.

[<ABX]

Module Module1
 
    Sub Main()
 
        Do
            Console.WriteLine(New String("="c, 15))
            DisplayRandomNumbers()
            Console.WriteLine(New String("="c, 15))
            Console.WriteLine("Type 'Exit' to quit, any other key to continue!")
        Loop While Not Console.ReadLine.ToLower = "exit"
 
        Console.WriteLine("Exiting... bye!")
 
 
    End Sub
 
 
    Private Sub DisplayRandomNumbers()
        Dim R As New Random ' if you have 10 here it will always display the same numbers
 
 
        For I As Integer = 1 To 10
            Console.WriteLine(String.Format("Random Number {0}: {1}", I, R.Next(1, 11))) ' you need to speifiy the range here
        Next
    End Sub
 
End Module

[wiccaan]

Awsome thanks alot man. Ill work with this to make it do alot of diffrent things. Thanks again. Helped alot!