[elgokr]

وعليكم السلام ورحمة الله وبركاته

مرحباً اخى sads فى البداية انصح ان تطلع

على دورات بخصوص الخوارزميات فسيفيدك كثيراً

فى مثل هذه الامور وسيسهل عليك الامور اكثر مما تتخيل

ثانياً بما تطلبه بشكل عام فاسقوم بشرح الامر نظرياً

فى بداية الامر انت محتاج انشاء تعرف يحتوى على الاحرف الانجليزية من a الى z

مثال للتوضيح

كود :

Dim aa As String = "abcdefghijklmnopqrstuvwxyz"

ومن ثم بحسبب عدد الاحرف التى تحتاج ان تعرض

والمقصود بها ان يبداء من aaa وينتهى مثلاً عند zzz

فانت هنا بحاجة لعمل For متعدد لتحويل كل حرف لتكرار 3 مرات

وعرض الامر من aaa الى zzz

المثال التالى لحرف واحد فقط

كود :

       For a As Integer = 0 To aa.Length - 1
           MsgBox(aa(a))
       Next

طيب الطريقة التى بالاعلى تفيد لاى كان الاحرف عربى او انجليزيى او اى لغة

طيب لو كان الاحرف انجليزية المطلوب العمل عليها فيمكن فقط بمثل هذا الكود تنفيذ الامر مباشر

المثال لحرف واحد فقط

كود :

       For ii As Integer = 65 To 90
           MsgBox(Chr(ii))
       Next

عند اختبار الامر ستجد الكود لكلاهما يعطى نفس الامر

طيب بعد الشرح نظرياً مع الاكواد السابقة الان

كيف اتمام الامر طبقاً لما هو فى الموضوع

الكود بالطريقة الثانية من aaa الى zzz

كود :

       For i As Integer = 65 To 90
           For ii As Integer = 65 To 90
               For iii As Integer = 65 To 90
                   ListBox1.Items.Add(Chr(i) + Chr(ii) + Chr(iii))
               Next
           Next
       Next

الكود بالطريقة الثانية من aaa الى aaz طبقاً لما هو بالصورة

كود :

       For i As Integer = 65 To 90
           For ii As Integer = 65 To 90
               For iii As Integer = 65 To 90
                   ListBox1.Items.Add(Chr(i) + Chr(ii) + Chr(iii))
                   If (Chr(i) + Chr(ii) + Chr(iii)).ToString = "AAZ" Then Exit Sub
               Next
           Next
       Next

لاحظ الامر لا يختلف فقط تم وضع هذا السطر

كود :

If (Chr(i) + Chr(ii) + Chr(iii)).ToString = "AAZ" Then Exit Sub

طيب بالطريقة الاولى بوضع معرف بالاحرف

من aaa الى zzz

كود :

       Dim aa As String = "abcdefghijklmnopqrstuvwxyz"
       For i As Integer = 0 To aa.Length - 1
           For ii As Integer = 0 To aa.Length - 1
               For iii As Integer = 0 To aa.Length - 1
                   ListBox1.Items.Add(aa(i) + aa(ii) + aa(iii))
               Next
           Next
       Next

الطريقة الاولى من aaa الى aaz طبقاً للصورة

كود :

       Dim aa As String = "abcdefghijklmnopqrstuvwxyz"
       For i As Integer = 0 To aa.Length - 1
           For ii As Integer = 0 To aa.Length - 1
               For iii As Integer = 0 To aa.Length - 1
                   ListBox1.Items.Add(aa(i) + aa(ii) + aa(iii))
                   If (aa(i) + aa(ii) + aa(iii)).ToString = "aaz" Then Exit Sub
               Next
           Next
       Next

وكما تلاحظ ان الفرق الوحيد فقط وجود سطر

كود :

If (aa(i) + aa(ii) + aa(iii)).ToString = "aaz" Then Exit Sub

تحياتى لك

وتمنياتى لك التوفيق