[sooriaty03]

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

وأي استفسار أنا جاهز

PHP كود :

If TextBox1.Text.Length < 1 Then Exit Sub
        Dim StringLength As Integer = TextBox1.Text.Length
        Dim PossibleString As Integer = 2 ^ TextBox1.Text.Length
        Dim ResultString(PossibleString) As String
        For H = StringLength - 1 To 0 Step -1
            Dim AdditionFraction As Double = IIf(H = StringLength - 1, 0, 2 ^ ((H + 2) - StringLength))
            Dim Letter As String = TextBox1.Text.Substring(H, 1).ToUpper
            For I = 0 To PossibleString - 1
                If (I * AdditionFraction) Mod 2 = 0 Then
                    If Letter = Letter.ToUpper Then
                        Letter = Letter.ToLower()
                    Else
                        Letter = Letter.ToUpper()
                    End If
                End If
                ResultString(I) = Letter & ResultString(I)
            Next
        Next
        MsgBox(Strings.Join(ResultString, vbNewLine))
    End Sub