se non ti interessano i casi aba bb abc ecc basta che fai una bella serie di cicli.
text1.text = ""
for k = 1 to numeromassimoripetizioni
for x = 1 to 26
for y = 1 to k
text1.text = text1.text & chr(96+x)
next y
text1.text = text1.text & vbcrlf
next x
next k
edit:scusa avevo sbagliato la tabella ascii. l'alfabeto inglese ha 26 lettere non 21.
ho corretto l'errore.
Ultima modifica effettuata da P4p3r0g4 il 22/06/2007 alle 14:35 |