VB를 사용하여 1~33 사이의 반복되지 않는 6자리 숫자 조합을 내보내는 방법에 대해 알아보세요!

'약 10초, 출력 파일은 C 드라이브의 루트 디렉터리에 있습니다.

Private Sub Command1_Click()

Dim a, b, c, d, e, f, n As Long, arr(1 To 1107568), t

t = 타이머

For a = 1 To 28

For b = a 1 ~ 29

c = b의 경우 1 ~ 30

d = c의 경우 1 ~ 31

e = d 1 ~ 32의 경우

f = e 1 ~ 33

n = n 1

arr(n) = a amp "," b amp "," c amp; ; "," amp; "," f

열기 "c:\ out.txt" For Output As #1

Print #1, Join(arr, vbNewLine)

Close #1

MsgBox "ok :" amp; 타이머 - t

Sub 종료

'---------

' vb 환경이 필요하지 않도록 다음 코드를 vbs 파일로 복사하여 저장합니다:

Dim a, b, c, d, e, f, n, arr(1107567), t, fso, ts

t = 타이머

a = 1 ~ 28의 경우

b = a의 경우 1 ~ 29

c = b 1 ~ 30의 경우

d = c 1 ~ 31의 경우

e = d 1 ~ 32의 경우

f = e 1 ~ 33의 경우

n = n 1

arr(n - 1) = a amp; "," amp; amp; "," amp; "," & f

다음

다음

p>

다음

다음

다음

Set fso = CreateObject("Scripting.FileSystemObject")

Set ts = fso.CreateTextFile("c:\out.txt", True)

ts.Write (Join(arr, vbNewLine))

ts.Close

MsgBox "확인:" 타이머 - t