[حريف برمجة]

وعليكم السلام ،،،
هذا هو الكود المطلوب .

كود :

 TextBox2.Text = TextBox1.Text.Substring(1, 3) & "a"
       TextBox3.Text = TextBox1.Text.Substring(1, 3) & "b"
       TextBox4.Text = TextBox1.Text.Substring(1, 3) & "c"
       TextBox5.Text = TextBox1.Text.Substring(1, 3) & "d"
       TextBox6.Text = TextBox1.Text.Substring(1, 3) & "e"

       TextBox7.Text = TextBox1.Text.Substring(1, 2) & "ba"
       TextBox8.Text = TextBox1.Text.Substring(1, 2) & "bb"
       TextBox9.Text = TextBox1.Text.Substring(1, 2) & "bc"
       TextBox10.Text = TextBox1.Text.Substring(1, 2) & "bd"
       TextBox11.Text = TextBox1.Text.Substring(1, 2) & "be"

       TextBox12.Text = TextBox1.Text.Substring(1, 2) & "ca"
       TextBox13.Text = TextBox1.Text.Substring(1, 2) & "cb"
       TextBox14.Text = TextBox1.Text.Substring(1, 2) & "cc"
       TextBox15.Text = TextBox1.Text.Substring(1, 2) & "cd"
       TextBox16.Text = TextBox1.Text.Substring(1, 2) & "ce"

       TextBox17.Text = TextBox1.Text.Substring(1, 2) & "da"
       TextBox18.Text = TextBox1.Text.Substring(1, 2) & "db"
       TextBox19.Text = TextBox1.Text.Substring(1, 2) & "dc"
       TextBox20.Text = TextBox1.Text.Substring(1, 2) & "dd"
       TextBox21.Text = TextBox1.Text.Substring(1, 2) & "de"

       TextBox22.Text = TextBox1.Text.Substring(1, 2) & "ea"
       TextBox23.Text = TextBox1.Text.Substring(1, 2) & "eb"
       TextBox24.Text = TextBox1.Text.Substring(1, 2) & "ec"
       TextBox25.Text = TextBox1.Text.Substring(1, 2) & "ed"
       TextBox26.Text = TextBox1.Text.Substring(1, 2) & "ee"