[sooriaty03]

تفضل أخي الكريم
أسأل الله أن يكون كما تريد
شرح بسيط
سيأخذ رقم عشوائي وسيضيف إليه رقمين عشوائيين مختلفين وسيضيفهم ضمن ListView
ولن يكرر الرقم العشوائي الأول أبدا أبدا

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Code As String = ""
        Dim N1, N2, N3 As Integer
        N1 = RandomInteger(0, 21)
        Do While RepeatedRandomCount(N1) > 0
            N1 = RandomInteger(0, 21)
        Loop
        N2 = RandomInteger(0, 21)
        Do While N1 = N2
            N2 = RandomInteger(0, 21)
        Loop
        N3 = RandomInteger(0, 21)
        Do While (N2 = N3) Or (N1 = N3)
            N3 = RandomInteger(0, 21)
        Loop
        TextBox1.Text = N1 & "|" & N2
        ListView1.Items.Add(TextBox1.Text)
        TextBox1.Text = N1 & "|" & N3
        ListView1.Items.Add(TextBox1.Text)
    End Sub
    Private Function RandomInteger(ByVal Lowerbound As Integer, ByVal Upperbound As Integer) As Integer
        Dim Rnd As New Random
        RandomInteger = Rnd.Next(Lowerbound, Upperbound)
    End Function
    Private Function RepeatedRandomCount(ByVal RandomNumber As String) As Integer
        Dim Count As Integer = 0
        For Each Item As ListViewItem In ListView1.Items
            If Item.Text.Split("|")(0) = RandomNumber Then
                Count += 1
            End If
        Next
        Return Count
    End Function