VB-源码--字符排列组合

1、效果图Q字符排列组合学符串kl23b总个数：120al 23b al2b3al 32bal 31)2alb23alb32a213ba21b3a231ba23bla2bl3a2b31a312b8311)2a321ba32bla3bl2a3b21abl23abl32ab213ab231ab312ab321la23bIa2b3la32bIa3b2lab23lab3212a3b12aL3123 ab1231a12b a312b3a13a2b13ab2132ab132*ba13ba213b2alba23lba32Ib2a3lb23a1B3g2lb32a2al3b2alb32a31b2a3bl2abl32

2、ab3121a3b21ab3213=ab2131)21ba321b3a23alb23abl231 ab231 ba23b*l23bl&2bal32ba312bla32bl3a2b3al2b313al2b3ilb23&21b3bl3bl23ib2131a2b3Ub2312ab3L2h31b231b2a32alb32血321 ab3211a32b al32b la3bal23ba213bl23bl2a3b2al3b21abal23bal32ba213La231ba312ba321bla23bla32B12a3bl 23aI13a21132b2al3B2a31b213b213ab23alb231ab

3、3al2b3a21B31a2b312ab32alb321a生成厂可以重复宇符串Ial23b总个敎：3125aaaaaaaaalaaa2aaaa3aaaabaaal aaaallaal2aaal3*aaalbaaa2aaaa21aaa22aaa23aaa2baaaSaaaaSiJaaa32aaa33aaaSbaaataaaatlaaa*b2aaab3aaabbaa.1 辭a.1 d.aal 2aal a3aal abaal laMiM2aa.113aa.llbaal2aaal21aal22aal23豳12b屯自13卷aa.131aa.132aal33aal3baal*baaallalb2卷令1

4、b3鈕bba2a3a2ab屯自21爼超11aa212aa213自辽lba22aa221aa222屯23ga22baa23aaa231a232自辽33=aa2bla2b2aa2b3aa2bbaa3 aaaa3alaa3a2aa3a3aa3abaa31aaa311aa312aa313aa31baa32aaa321aa322aa323aa32baa33aaa331aa332aa333aa33baa3baaa3blaa3b2aa3b3&a3bbaabaaaabalaaba2aaba3aababaablaaabllaabl2aabl3aablbaab2aaab21aab22aab23aab2baab3a

5、aab31aab32aab33aab3baabbaaa.bblaa.bb2aabb3aabLbal aaaal aalala.a2ala.a3al aabal alaal allalal2alal3al albala2aala21al a22al a23al a2bal a3aala31al a32ala33ala3bal abaal allalal)2al ib3al ibbal 1 aaal laialla2alla3al labal 11aallllal 112al 113all lbal 12ao1 171o1 17?o1 173q1 1?ho1 1%o1 IP137 1 ThenGe

6、tStr tempStrElsenewStr = newStr & tempNewStr & tempStr & Ilf (cont + 1) Mod 200 = 0,Chr(13), Chr)终组组合cont = cont + 1Framel. Caption =执行中:& contEnd IftempNewStr = mytempStrNextEnd FunctionPrivate Function GetStr2(ByVai strl As String, ByVai str2 As String) As StringDim tempStr As StringDim i As IntegerFor i = 1 To Len(strl)DoEventsIf Len(str2) + 1 = Len(strl) ThennewStr = newStr & str2 & Mid(strl, i, 1) & Ilf (cont + 1) Mod 200 = 0, Chr(13), Chr(9)cont = cont + 1Frame 1. C