복권 이색구, 15 번호를 연속 6 개 번호로 분해하는 방법, 고수에게 써 주세요.

() 를 문자열로 어둡게 합니다

Dim I 1, I2, I3, I4, I5, I6 은 정수입니다

K 를 정수로 치수기입합니다

텍스트1에서 숫자를 가져옵니다.

A () = split (텍스트1. 텍스트, "")

텍스트 2. 텍스트 = ""

I 1 = 0 ~ 9 의 경우

I2 = 1 끝 10 의 경우

I3 = 2 부터 1 1 까지의 경우

I4 = 3 부터 12 까지의 경우

I5 = 4 부터 13 까지의 경우

I6 = 5 부터 14 까지의 경우

If (I1< I2) 및 (I2 & ltI3) 및 (I3 & ltI4) 및 (I4 & ltI5) 및 (I5 & ltI6) 그리고

텍스트 2. 텍스트 = 텍스트 2. 텍스트 & ampA(I 1) 및 amp "& 하나 (I2) 및 amp" & AMPA (i3) 및 amp "& 1 (I4) 및 amp

K = K+1

만약 ... 끝날거야

다음 I6

다음 I5

다음 I4

다음 I3

다음 I2

다음 I 1

표시되는 결과 항목 수를 입력합니다.

MsgBox K, vbOkOnly, "힌트"

끝단 접합

최종 결과는 5005 항목입니다.