[3booody]

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

عملتلك هذا المثال على افتراض لديك لست بوكست لعرض الاجابات وزر بوتون يضيف الاجابات على اللست بطريقة عشوائية في كل مرة

كود :

Dim Ans As String = "Ans1-Ans2-Ans3-Ans4"
   Dim arr As New List(Of Integer)
   Dim q As Object
   Dim Rand As New Random
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       q = From a As String In Ans.Split("-")
       Do Until arr.Count = Ans.Split("-").Count
           Dim n As Integer = Rand.Next(0, Ans.Split("-").Count)
           If Not arr.Contains(n) Then
               arr.Add(n)
               ListBox1.Items.Add(Ans.Split("-")(n))
           End If
       Loop
       arr.Clear()
   End Sub