[Fantastico]

السلام عليكم
فكرتي كالاتي وعليك تحويلها الى كود
بالاضافة الى
أنا اعمل فقط على vb.Net ولست متأكد من أن الفكرة يمكن تطبيقها في vb6

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

PHP كود :

   Private Function CheckWord(word As String, queue As String()) As Boolean

        For i As Integer = 0 To UBound(queue)
            If word = queue(i) Then Return True
        Next

        Return False
    End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim txt As String = TextBox1.Text
        Dim words() As String = txt.Split(" ")
        Dim queue_1, queue_2, queue_3 As String() ' إملأها بنفسك

        If words.Count <> 3 Then Exit Sub ' لان عدد المجموعات 3

        If CheckWord(words(0), queue_1) And
            CheckWord(words(1), queue_2) And
            CheckWord(words(2), queue_3) Then

            MsgBox("Exact !")
        End If
    End Sub 


أتمنى أن الفكرة قد وصلت