EXCEL 은 36 에서 7 까지의 모든 숫자 조합을 계산합니다.

Vbs 코드를 작성하고 txt 문서를 작성해 드리겠습니다.

그래서 excel 처럼 페이지를 바꿀 필요가 없습니다. 왜냐하면 그것이 비교적 크기 때문에, 저는 실험만 합니다.

12 7 의 전체 정렬을 선택하고 코드가 테스트를 통과했습니다.

사용법: 다음 코드를 txt 텍스트에 복사한 다음 이것을

Txt 텍스트의 확장자를 vbe-save 로 변경하고 이 vbe 파일을 두 번 클릭하여 실행합니다.

실행 시 텍스트를 결과로 출력하려면 패스를 입력해야 합니다.

기본값은 C: \ res.txt 입니다. 컴퓨터가 작동을 멈추지 않도록 충분히 구성되기를 바랍니다.

-아래 코드 섹션.

Dim fs, objf, LJ, I 1, I2, i3, i4, i5, i6, i7, tem

Lj=inputbox ("텍스트 파일을 만들 경로를 입력하십시오!" & ampchr( 10) "예: c: \ res.txt", "c0de-by-f0rest *", "c: \ rest

Set fs = createobject ("scripting.file system object")

Set objf=fs.createtextfile(lj, true)

Objf.writeline ("복권 36 장 중 7 장의 가능한 모든 결과")

Objf.writeblanklines( 1)

Objf.writeline ("-c0de-by-f0rest *, 사서함: coolbi5@ 163.com-")

Objf.writeblanklines( 1)

I 1= 1 에서 30 까지의 경우

I2=i 1+ 1 에서 3 1 까지의 경우

I3=i2+ 1 에서 32 까지의 경우

I4=i3+ 1 ~ 33 인 경우

I5=i4+ 1 ~ 34 의 경우

I6=i5+ 1 ~ 35 의 경우

I7=i6+ 1 에서 36 까지의 경우

Tem = I1& ","& ampi2 & amp ","& ampi3 & amp ","& ampi4 & amp ","& ampi5 & amp ","& ampi6 "

Objf.writeline(tem)

Tem= ""

그리고 나서

그리고 나서

그리고 나서

그리고 나서

그리고 나서

그리고 나서

그리고 나서

Objf.close

어제 너는 나에게 excel 에서 어떻게 정리하느냐고 물었는데, 나는 너를 돕지 않았다. 데이터가 너무 크기 때문이다.

이것이 너에게 유용하기를 바란다!

사실 나도 복권을 연구한 적이 있는데, 기본적으로 나타나는 조합은 정말 무작위적이다.

운의 성분이 비교적 많아서 연구는 큰 의의가 없다.