More Random Numbers!

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.

can you post your code?
kevin

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:

Code:

---


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.

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

Code:

---

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.

VB Code:

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

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