arr = "0123456789"For j = 1 To 10 Step 1 a = Mid(arr, j, 1) For k = 1 To 10 Step 1 b = Mid(arr, k, 1) For l = 1 To 10 Step 1 c = Mid(arr, l, 1) For u = 1 To 10 Step 1 d = Mid(arr, u, 1) For i = 1 To 10 Step 1 e = Mid(arr, i, 1) For o = 1 To 10 Step 1 f = Mid(arr, o, 1) TracePrint a&b&c&d&e&f //此處改成SayString a&b&c&d&e&f 可輸入生成的字串 Next Next Next Next NextNext
按鍵精靈窮舉輸出6位純數字密碼程式碼如下:
arr = "0123456789"For j = 1 To 10 Step 1 a = Mid(arr, j, 1) For k = 1 To 10 Step 1 b = Mid(arr, k, 1) For l = 1 To 10 Step 1 c = Mid(arr, l, 1) For u = 1 To 10 Step 1 d = Mid(arr, u, 1) For i = 1 To 10 Step 1 e = Mid(arr, i, 1) For o = 1 To 10 Step 1 f = Mid(arr, o, 1) TracePrint a&b&c&d&e&f //此處改成SayString a&b&c&d&e&f 可輸入生成的字串 Next Next Next Next NextNext