[ali ahmed 1997]

لدي هادا الكود بلغة بايثون 
import itertools
.res = itertools.product('abc', repeat=3) # 3 is the length of your result
:for i in res
(print ''.join(i

النتيجه :

aaa
aab
aac
aba
abb
abc
aca
acb
acc
baa
bab
bac
bba
bbb
bbc
bca
bcb
bcc
caa
cab
cac
cba
cbb
cbc
cca
ccb
ccc

(يقوم بحساب احتمالات النص الدي تدخله بعد تحديد طول النص المطلوب)
اريد كود vb.net يؤدي نفس الوظيفه

[سعود]

جرب بنص بسيط واستخدم راندوم للاندكس لكي تدخل له حرف عن طريق insert

[الوادي]

يا علي،

جرب أبسط طريقة ب For Next

PHP كود :

For i1 = Asc("a") To Asc("c")
    For i2 = Asc("a") To Asc("c")
        For i3 = Asc("a") To Asc("c")
            ListBox1.Items.Add(Chr(i1) & Chr(i2) & Chr(i3))
        Next
    Next
Next