Random Numbers

I would like to generate multiple numbers between two values (Exemple: 2000 and 3000).
I wrote this program but it generate only one value at one click. I want to generate multiple integers in one click (2000, 2001, 2020, 2876...). Here is my code:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim r As Random = New Random
        MsgBox(r.Next(10, 15))
    End Sub
End Class

Any idea please?
Thanks.
hamda000Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Mike TomlinsonConnect With a Mentor Middle School Assistant TeacherCommented:
Maybe something like this?
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rndValues As List(Of Integer)
        rndValues = GetRandomValues(2000, 3000, 25)
        ListBox1.DataSource = rndValues
    End Sub

    Private Function GetRandomValues(ByVal min As Integer, ByVal max As Integer, ByVal quantity As Integer) As List(Of Integer)
        Static R As New Random
        Dim values As New List(Of Integer)
        For i As Integer = 1 To quantity
            values.Add(R.Next(min, max + 1))
        Next
        Return values
    End Function
End Class

Open in new window

0
 
sofsolCommented:
I am assuming you want a character string that looks like "number, number, number"

Create a loop that runs "n" times according to how many random numbers you want.

Initialise a variable to store the result in and for each run through the loop, append a random number and, so long as n is less than the total of random numbers required, a comma and a space.

When the loop has finished, pass the variable back to the calling code.
0
 
hamda000Author Commented:
Thanks. Now I have to work on the sorting.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.