Question Random Numbers

[soni_1985]

I want to get random numbers between 0 to 100..But i do not want the random number to be repeated.

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim objRand As New Random
        objRand.Next(0, 100)
    End Sub

Suppose first time random numb generated is 10..Next time if same random number is generated,den i want to get the other random number..Can somebody help me in solving it???

 

[Solitaire]

Use the Shuffle Sort algorithm.

The Shuffle Sort algorithm uses an array, swaps the array indexes randomly.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mix, temp As Integer
        Dim num As Integer = 100
        Dim randarray(num) As Integer
        Dim randnum As New Random()

        For x As Integer = 1 To num
            randarray(x) = x
        Next x

        For x As Integer = 1 To num
            mix = randnum.Next(1, num + 1)
            temp = randarray(mix)
            randarray(mix) = randarray(x)
            randarray(x) = temp
        Next x

        TextBox1.Clear()
        For x As Integer = 1 To num
            TextBox1.Text &= randarray(x).ToString & " "
        Next x
    End Sub

 

[soni_1985]

Thx very -2 much.hello sir tell me one thing there is no option is this site that marked thraed as resolved