[3boody]

السلام عليكم ورحمة الله وبركاته

كل المبرمجين تعرف الفئة Random التي تتيح عمل ارقام عشوائية حسب الاختيار ولكن هل يمكن حصر الارقام وبدون تكرار طبعا انا اقصد لسرعة الاداة وليس مجرد كود كما في مثالي الذي عملته
حيث قمت بتصميم الكود يضيف رقم عشوائي غير مكرر على اللست بوكس
لكن المشكلة هي المسج بوكس الي في النهاية الكود شغال بدون مشكلة لكن الارقام الي تتكرر تبطئ العملية اكيد السرعة مو ملاحظه لكن عند افضل اداة للبرنامج تفرق السرعة لدي حتى لو كانت اجزاء من الثانية

وشكرا

كود :

Public Class Form1

   Dim rand As New Random
   Dim Nr As Integer = 0

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       Nr = 0
       Do Until ListBox1.Items.Count = 1000
           Dim n As Integer = rand.Next(0, 1001)
           If Not ListBox1.Items.Contains(n) Then
               ListBox1.Items.Add(n)
           Else
               Nr += 1
           End If
       Loop
       MsgBox(Nr & " عدد مرات تكرار الارقام")
   End Sub
End Class