현재 위치 - 주공해몽공식사이트 - 관음보살의 랜덤 번호 뽑기 - EXCEL 에서 다중 샘플링 VBA 를 어떻게 작성합니까? 루프를 쓰는 방법 ~

EXCEL 에서 다중 샘플링 VBA 를 어떻게 작성합니까? 루프를 쓰는 방법 ~

하위 aa ()

Dim s 1( 1 부터 10000 까지) 만큼 길다

원시 자료

Dim s2( 1 에서 10000 까지) 는 부울 값입니다

원시 데이터에 배열을 정의합니다.

원본 배열이 샘플링되었는지 여부를 식별합니다.

Dim back( 1 부터 100, 1 부터 100 까지) 만큼 길다

대상 오브젝트, 100 그룹 데이터.

I = 1 끝 10000 의 경우

S1(I) = i.

그리고 나서

이 테스트에서는 1 에서 10000 개의 배열이 원시 데이터에 할당됩니다.

I = 1 끝 100 의 경우

100 샘플링

N = 1

N 은 이번 샘플의 샘플 수량을 나타냅니다.

Do While n<= 100' n > 일 때; 100 에서 100 개의 샘플이 추출되었습니다.

불규칙하게 만들다

임의 시드 재할당

K = int (rnd () *10000)+1

10000 내의 난수

S2(k) = false 인 경우

원시 데이터가 샘플링되지 않은 경우

백 (I, n) = s 1(k)

데이터를 저장합니다

S2(k) = 참

로고가 이미 샘플링되었다.

N = n+1

샘플링 데이터 더하기 1

만약 ... 끝날거야

고리

그리고 나서

끝단 접합