복권 계산 기능

첫 번째 단계: 다음 그림과 같이 데이터 목록으로 이동합니다.

2 단계: 개발 도구 -visual basic- 모듈 삽입을 클릭합니다.

3 단계: 다음과 같이 사용자 정의 기능 코드를 입력합니다.

기능 ac(a)

Dim arr( 1 끝 100)

Dim zharr( 1 끝 1000, 1 끝 3)

Dim zhgs 는 정수입니다

Gs 를 정수로 사용 데이터 번호

Gs = 0' 통계 수량은 r 값입니다.

의 각 myc 에 대해 다음을 수행합니다

Gs = GS+1

Arr(gs) = myc 입니다. 가치

다음 myc

ZszZS = 0

I = 1 에서 GS-1 까지

J = I+1 to GS 의 경우

Zhgs = zhgs+1

Zharr(zhgs, 1) = arr(i)

Zharr(zhgs, 2) = arr(j)

Zharr(zhgs, 3) = Abs(arr(i)-arr(j))

다음 J.

다음으로 저는

Set ZC zzd = createobject ("scripting.dictionary")

I = 1 to zhgs 의 경우

Zharr(i, 3) > 다음 0 인 경우

Zczdd.exists 가 없는 경우 (zharr (I, 3))

Zczzd 입니다. 플러스 zharr(i, 3), 1

만약 ... 끝날거야

만약 ... 끝날거야

다음으로 저는

Ac = zczzd 입니다. 개수-GS+1

기능을 종료합니다

4 단계: C 1 셀에 공식 =ac(A 1:A$7) 를 입력합니다. 결과는 다음과 같습니다.

5 단계: C 1 의 공식을 C7 로 드롭합니다. 결과는 다음과 같습니다.