[عبد الهادي بهاب]

السلام عليكم

لاحظت كثيرا على الفايسبوك لعبة يعطي احدهم 3 احرف ويطلب  انتاج كلمات منها

برمجيا 

ضع مربع نص 1 textbox1
زر
مربع نص متعدد الاسطر textbox2

 الكود

PHP كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Retxt = ""
        Dim NewTxt = ""
        TextBox2.Text = ""
        Dim txt = TextBox1.Text
        For i = 0 To txt.Length - 1
            Retxt = Retxt & txt
        Next

        Dim ali = ""

        Dim strt = 0
        Dim Lmax = txt.Length - 1
        Do Until strt = Lmax + 1
            NewTxt = ""
            For p = strt To strt + Lmax
                NewTxt = NewTxt & Retxt(p)
            Next
            ali = ali & NewTxt & vbNewLine

            NewTxt = ""
            For p = strt + Lmax To strt Step -1
                NewTxt = NewTxt & Retxt(p)
            Next
            ali = ali & NewTxt & vbNewLine
            strt += 1
        Loop

        TextBox2.Text = ali

    End Sub
End Class 


حاولت من اجل  كلمات من اكثر من 4 
المحاولة ناقصة 
----- مجرد ترفيه برمجي --------------
المهم ...... بالتوفيق