📄 combination.bas
字号:
For Cd = 0 To Max - Ca - Cb - Cc
For Cbi = 0 To Max - Ca - Cb - Cc - Cd - 5
OpenForms = DoEvents
NoOfComb = NoOfComb + 1
comb = char(Cbi) & char(Cbi + Ca + 1) & char(Cbi + Ca + Cb + 2) & char(Cbi + Ca + Cb + Cc + 3) & char(Cbi + Ca + Cb + Cc + Cd + 4)
If frmMain.optCPMode.Value = True Then
permute (comb)
Else
Select Case OChoice
Case 1:
result = result & vbCrLf & comb
Case 2:
Print #1, comb
Case 3:
SendKeys comb: BFInitialise
Case 4:
processcode (comb)
End Select
End If
'NoOfComb = NoOfComb + 1
'Debug.Print comb, NoOfComb
Next Cbi
Next Cd
Next Cc
Next Cb
Next Ca
Case 6:
For Ca = 0 To Max
OpenForms = DoEvents
For Cb = 0 To Max - Ca
For Cc = 0 To Max - Ca - Cb
OpenForms = DoEvents
For Cd = 0 To Max - Ca - Cb - Cc
For Ce = 0 To Max - Ca - Cb - Cc - Cd
OpenForms = DoEvents
For Cbi = 0 To Max - Ca - Cb - Cc - Cd - Ce - 6
NoOfComb = NoOfComb + 1
comb = char(Cbi) & char(Cbi + Ca + 1) & char(Cbi + Ca + Cb + 2) & char(Cbi + Ca + Cb + Cc + 3) & char(Cbi + Ca + Cb + Cc + Cd + 4) & char(Cbi + Ca + Cb + Cc + Cd + Ce + 5)
If frmMain.optCPMode.Value = True Then
permute (comb)
Else
Select Case OChoice
Case 1:
result = result & vbCrLf & comb
Case 2:
Print #1, comb
Case 3:
SendKeys comb: BFInitialise
Case 4:
processcode (comb)
End Select
'NoOfComb = NoOfComb + 1
'Debug.Print comb, NoOfComb
End If
Next Cbi
Next Ce
Next Cd
Next Cc
Next Cb
Next Ca
Case 7:
For Ca = 0 To Max
OpenForms = DoEvents
For Cb = 0 To Max - Ca
For Cc = 0 To Max - Ca - Cb
OpenForms = DoEvents
For Cd = 0 To Max - Ca - Cb - Cc
For Ce = 0 To Max - Ca - Cb - Cc - Cd
OpenForms = DoEvents
For Cf = 0 To Max - Ca - Cb - Cc - Cd - Ce
For Cbi = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf - 7
OpenForms = DoEvents
NoOfComb = NoOfComb + 1
comb = char(Cbi) & char(Cbi + Ca + 1) & char(Cbi + Ca + Cb + 2) & char(Cbi + Ca + Cb + Cc + 3) & char(Cbi + Ca + Cb + Cc + Cd + 4) & char(Cbi + Ca + Cb + Cc + Cd + Ce + 5) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + 6)
If frmMain.optCPMode.Value = True Then
permute (comb)
Else
Select Case OChoice
Case 1:
result = result & vbCrLf & comb
Case 2:
Print #1, comb
Case 3:
SendKeys comb: BFInitialise
Case 4:
processcode (comb)
End Select
'NoOfComb = NoOfComb + 1
'Debug.Print comb, NoOfComb
End If
Next Cbi
Next Cf
Next Ce
Next Cd
Next Cc
Next Cb
Next Ca
Case 8:
For Ca = 0 To Max
OpenForms = DoEvents
For Cb = 0 To Max - Ca
For Cc = 0 To Max - Ca - Cb
OpenForms = DoEvents
For Cd = 0 To Max - Ca - Cb - Cc
For Ce = 0 To Max - Ca - Cb - Cc - Cd
OpenForms = DoEvents
For Cf = 0 To Max - Ca - Cb - Cc - Cd - Ce
For Cg = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf
For Cbi = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf - Cg - 8
OpenForms = DoEvents
NoOfComb = NoOfComb + 1
comb = char(Cbi) & char(Cbi + Ca + 1) & char(Cbi + Ca + Cb + 2) & char(Cbi + Ca + Cb + Cc + 3) & char(Cbi + Ca + Cb + Cc + Cd + 4) & char(Cbi + Ca + Cb + Cc + Cd + Ce + 5) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + 6) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + Cg + 7)
If frmMain.optCPMode.Value = True Then
permute (comb)
Else
Select Case OChoice
Case 1:
result = result & vbCrLf & comb
Case 2:
Print #1, comb
Case 3:
SendKeys comb: BFInitialise
Case 4:
processcode (comb)
End Select
'NoOfComb = NoOfComb + 1
'Debug.Print comb, NoOfComb
End If
Next Cbi
Next Cg
Next Cf
Next Ce
Next Cd
Next Cc
Next Cb
Next Ca
Case 9:
For Ca = 0 To Max
OpenForms = DoEvents
For Cb = 0 To Max - Ca
For Cc = 0 To Max - Ca - Cb
For Cd = 0 To Max - Ca - Cb - Cc
For Ce = 0 To Max - Ca - Cb - Cc - Cd
For Cf = 0 To Max - Ca - Cb - Cc - Cd - Ce
For Cg = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf
For Ch = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf - Cg
For Cbi = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf - Cg - Ch - 9
OpenForms = DoEvents
NoOfComb = NoOfComb + 1
comb = char(Cbi) & char(Cbi + Ca + 1) & char(Cbi + Ca + Cb + 2) & char(Cbi + Ca + Cb + Cc + 3) & char(Cbi + Ca + Cb + Cc + Cd + 4) & char(Cbi + Ca + Cb + Cc + Cd + Ce + 5) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + 6) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + Cg + 7) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + Cg + Ch + 8)
If frmMain.optCPMode.Value = True Then
permute (comb)
Else
Select Case OChoice
Case 1:
result = result & vbCrLf & comb
Case 2:
Print #1, comb
Case 3:
SendKeys comb: BFInitialise
Case 4:
processcode (comb)
End Select
'NoOfComb = NoOfComb + 1
'Debug.Print comb, NoOfComb
End If
Next Cbi
Next Ch
Next Cg
Next Cf
Next Ce
Next Cd
Next Cc
Next Cb
Next Ca
End Select
frmMain.txtStatus.Text = result
'Debug.Print Len(result) / (cho + 2)
Debug.Print "Total No of combinations processed"; NoOfComb
Debug.Print StartTime, "Started"
Debug.Print Time, "Ended"
Debug.Print "Over"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -