VB 언어는 8 과 6 의 모든 조합에서 행을 필터링합니다.

A(9) 를 정수로 어둡게 합니다

A (1) =1:a (2) = 2: a (3) = 3

A(4) = 6: a(5) = 8: a(6) = 9

A(7) = 12: a(8) = 16

Dim Arr 을 문자열로 사용

Dim newArr 은 문자열이고 Oldarr 은 문자열입니다

D: ₩ 456.txt 를 # 12 출력으로 엽니다

I = 1 ~ 8 의 경우

J = I+1 ~ 8 의 경우

Arr = ""

M = j+1 에서 8 까지의 경우

N = m+1 에서 8 까지의 경우

P = n+1 ~ 8 의 경우

Q = p+1 에서 8 까지의 경우

NewArr = a(i) 및 amp "-"& 아 (j) 와 amp "-"& A (m) & -"& 명사& "-"& "상위 5 위"

Oldarr = newArr 인 경우

Arr = """"은 (는) ""; 줄바꿈

기타

Arr = new arr& "-"& 답 (질문)

Oldarr = newArr' 는 반복되지 않고 이전 값을 변경합니다.

만약 ... 끝날거야

인쇄 배열

인쇄 번호 12, Arr

다음 질문

다음 p

다음 n

다음 m

다음 J.

다음으로 저는

닫기 # 12

끝단 접합

개인 하위 명령 1_Click ()

Cls

돌

끝단 접합

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 456.txt

1-2-3-6-8-9

1-2-3-6-9- 12

1-2-3-6-12-16

1-2-3-8-9- 12

1-2-3-8-12-16

1-2-3-9-12-16

1-2-6-8-9- 12

1-2-6-8-12-16

1-2-6-9-12-16

1-2-8-9-12-16

1-3-6-8-9- 12

1-3-6-8-12-16

1-3-6-9-12-16

1-3-8-9-12-16

1-6-8-9-12-16

2-3-6-8-9- 12

2-3-6-8- 12- 16

2-3-6-9- 12- 16

2-3-8-9- 12- 16

2-6-8-9- 12- 16

3-6-8-9- 12- 16