기금넷 공식사이트 - 복권 조회 - Vb 복색공은 무엇을 쓰나요? 6 보오수축.

Vb 복색공은 무엇을 쓰나요? 6 보오수축.

Vb 는 복색구 6 보 5 수축을 쓴다.

개인 하위 명령 1_Click ()

Dim b (), I & ampj & amp, k&, ii & ampjj & amp, c&, 숫자& ()

A = 분할 (텍스트 1, vbCrLf)

K = UBound(a)

IsNumeric(a(k)) 이 아니면 k = k-1

ReDim b(k, 5)

I = 0 ~ k 의 경우

J = 0 ~ 5 인 경우

B(i, j) = Split(a(i), "") (j)

그리고 나서

ReDim 번호 (0)

Num(0) = 0

I = 1 끝 k 의 경우

J = 0 에서 하한 (수량) 까지의 경우

C = 0

Ii = 0 ~ 5 인 경우

Jj 의 경우 = 0 ~ 5 입니다

B(i, ii) = b(num(j), jj) 인 경우 c = c+1

그리고 나서

C>= 5 인 경우 종료합니다

그리고 나서

J = UBound(num)+1 이면

ReDim 예약 번호 (j)

Num (j) = i.

만약 ... 끝날거야

그리고 나서

텍스트1= ""

I = 0 부터 UBound(num)-1

0 = 텍스트1& A (번호 (I) I))& amp；; VbCrLf

그리고 나서

0 = 텍스트1& A (번호 (I) I))& amp；; VbCrLf

끝단 접합