لدي عناصر في لستة
ارجو اختيار مجموعة من الاسماء عشوائيا وعرضهم في لستة اخري
استخدمت rnd و int و randomise
لكن واجهتني مشكلة وهي في مرة من المرات لاحظت تكرار العنصر المختار
اي لو اخترت 3 اسماء الاحظ تكرار شخص مرتين في احد الاختيارات \شكرا
ListBox2.Items.Clear() Dim l As New List(Of Object) For Each item As String In ListBox1.Items.ToString() l.Add(item) Next Dim x As Integer = CInt(TextBox1.Text) Dim index As Integer Dim s As String Dim r As New Random() While (x > 0) index = r.Next(ListBox1.Items.Count) s = ListBox1.Items(index).ToString() If Not ListBox2.Items.Contains(s) Then ListBox2.Items.Add(s) l.RemoveAt(index) x = x - 1 End If End While