Random Distribution List

[atesh]

I'm trying to generate 1,000 random whole numbers from 1 to 100, then put them in a listbox and show how many times each number(1 to 100) was picked randomly.

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim rambo As Integer
       Dim x, y As Integer
       Dim dist(100) As Integer
       For x = 1 To 1000
           rambo = New System.Random().Next(1, 100)
           dist(rambo) += 1
       Next

       For y = 1 To 100
           ListBox1.Items.Add(y & "-- " & dist(y))
       Next

   End Sub

 

But when using the code above I get all numbers 1 to 100 as -- 0, except the following: 3-- 160, 25-- 241, 48-- 209, 58-- 148, 80-- 242.

 

So what the heck is going on?

Thanks alot.

[mutant]

Dont seed the random generator everytime. Try it like this:

Dim r As New Random
'then for every number
r.Next(1,100)

[atesh]

but i get error:

Object reference not set to an instance of an object.

[mutant]

What line and what is the code you are using with what I showed you? If the rest is the same and you just added the declaration and used that object it should work.

Here is what works:

       Dim rambo As Integer
       Dim x, y As Integer
       Dim dist(100) As Integer
       Dim r As New Random
       For x = 1 To 1000
           rambo = r.Next(1, 100)
           dist(rambo) += 1
       Next
       For y = 1 To 100
           ListBox1.Items.Add(y & "-- " & dist(y))
       Next

[atesh]

that is exactly how my code is but the error on the line:

rambo = r.Next(1, 100)

 

Is there an import/inherit required?

[mutant]

No, the error means that you dont have an instance of the Random object.

Are you sure you have the New keyword when declaring your Random object?

[atesh]

that was the case, im sorry about that. It works fine now. thanks again. :)