VB源码字符排列组合学习资料

VB 源码字符排列

组合

效果图

口字符排列组合二

宇滴孑~|| Ial23b

总他1加

si 23b al 32b *131? slB23 all32 *213b 盈"3 a231l «23bl a2L1.3 a213L a312b甜1協a^SlL a3^1kb吃*3b2i iblM

abl3£ab213abJSl a b312ab35i la23b la32L la3b£

LibSS收2好b，l£tb3l£3tb12b *3l£b9«i3i2l

13112 132ib L32" 1311213b2*lb&23此鈕IM石lb23«

lb3*lb32a 2*13b 2alb32^31b2^12abl3 2ab312L13L

2UV5E13^b21陶21b3a 23Ub£3ibl231命Z31U

23bla 2阳1£bl益201孔级112b3U 35121 3«.lb2 3abl2 3&b21 31t2b31ib2 312ib 312b«

31L^ 31b2a32alb 32all 321 ab 32b al32b la 3bil2

3ba21 3bl2a3b2al3b21a bal23 bal3£ba213baE31

ba^]£b诬L bla23bl迦L12a3blS^a bl3a2 bl3£a

b^a31b21a3b215a b23*l b£31a b3al2 b3a21 b31a2 1)31 Za

b32al b321a

JiMIBI ■■■■■■■KMHIlin ■■■■■!■ 厂可以■重夏! 生成

「

5字羚排列组合

2鱼A 建PA直宜2 白如业

aS

SLX&b 段茧赶1

a

色厘直il直底

生勺

a^talb诅程aaa^lL aaa^2皇殂£3aaa^b NS.韵i aaa32a^a33 aaa3b aaala aa.aLl aaa^2^aalb3电狂

albb nl«L4丘M L I S a«l «b逊］a ulll 迢12

**113 aillb Ml 二a S^121諷1£2&11Z3 Ml 2b4&1 $0 aa.131aal3Z aal33aal3b aaltl b2^al b3 aa.lbb曲2辭包垃盛昌盛春aaZ^b啦11皿堆皿】3Q盈lb自逐1皿益«223

a«23k 皿丸牡止3E 皿33 aQb 沁“4«2bl诚垃aa2b3 aa2bb aaSaaL aa3 al包a3丘a^3a3 aa3ab aa31a 曲11 aa3i£a33l3 aaGlb aaS^a嗣21aa3纶aa3£3 远Eb aa^3a aaJ^l a屈E 谕芻旦曲db 直aJta aaJbl a&Jb£ii3b3 aa3tb aAb&a a&b&l a&t aZ Aab«3ftab&b aabla aablL aabl£a4bl3 aablb aab2a*ab21 dab 22 aa.b^3a^.b2b a^b^a.aab31aab3£aab33 ^ab^b g&bbg a^bbl WKb al tu al itl wl鱼迄al询

il ub al al a■l&U al 112ald3 al ilb si 121 ala£2 al a23 al a2b al a3a al a31 al石2al k33al 13b al aba■al abl al alE al aliS al abb al 1宜鱼^ll&l 311a2 “请al 1 ib gill® aim all IE al 113^Lllb all2w □ 1 171◎1 197al 1?3Q11?h ei◎1 HI4l 117小133

匝可以重夏编程界面生成

& TH1 - Forml (Form)

□= □

iff1—d 电学钟洌组合I 口II回I匡

厂字符串--------------------------------------------------------------------------- :

Kaai.jkHai.j&iajKiai.4GiaiijEijKJEijK

厂可工二工：二工m工工：工工m 生咸

所有源码

Opti on Explicit

Private n ewStr As String, tempNewStr As String, cont As Long

Private Sub Comma nd1_Click()

Text1.E nabled = False

RichTextBox1.E nabled = False

RichTextBox1.Text =""

Dim tempStr As Stri ng tempStr = Trim(Textl.Text) n ewStr = "": tempNewStr ="" cont = 0

If Check1.Value = 0 Then GetStr tempStr

If Check1.Value = 1 Then GetStr2 tempStr,""

RichTextBox1.Text = newStr

Frame1.Caption ='总个数:"& cont

Text1.E nabled = True

RichTextBox1.E nabled = True

RichTextBox1.Fi nd

End Sub

Private Sub Text1_Cha nge() RichTextBox1.Text =""

Frame1.Caption =总个数:"

End Sub

Private Function GetStr(ByVal str1 As String) As String

str1 = Trim(str1)

If str1 = "" Then Exit Function

Dim i As Integer, tempStr As String, tempChr As String, tempLen As Integer Dim mytempStr As Stri ng

mytempStr = tempNewStr

For i = 1 To Len (str1)

DoEve nts

tempChr =""

tempChr = Mid(str1, i, 1)'取一个字符

tempNewStr = tempNewStr & tempChr 单组组合

tempStr = Left(str1, i - 1) & Right(str1, Len(str1) - i)'剩余新字符

If Len(tempStr) > 1 Then

GetStr tempStr

Else

n ewStr = n ewStr & tempNewStr & tempStr & llf((c ont + 1) Mod 200 = 0,

Chr(13), Chr(9))'终组组合

cont = cont + 1