VB 에서 배열 조합에 대해 질문하십시오.

알겠습니다. 복권 조합처럼. 서로 다른 위치에 있는 몇 개의 숫자를 조합해 봅시다.

단지 2 차원 배열과 1 차원 배열로 임시로 저장될 뿐이다. 2 차원 배열은 소위 그룹 수를 저장한 다음 무작위로 얻은 결과를 1 차원 배열에 저장합니다. 여러 배열 위치는 사전 설정된 코드에 저장됩니다. 즉, 두 개의 중첩된 루프로 숫자가 없는 수를 결합할 수 있습니다.

조합된 알고리즘을 배열하는 것이 좀 어렵다는 뜻입니다. 이것은 순환으로 대체할 수 있다. 나는 이런 알고리즘 조작이 있다는 것을 기억하지만, 약간의 기억과 인코딩이 필요하다.

조합을 정렬하는 알고리즘은 일반적으로 반복 함수로 수행되며, 알고리즘의 코드는 명확하고 간결합니다. 그러나 반복 프로세스는 루프로 대체될 수 있으며 코드는 더 복잡해질 수 있습니다. 나는 너의 보상 점수가 너무 작아서 완전한 코드를 쓸 수 없을까 봐, 여기에 시간을 쓸 가치가 없다. 여기에 당신을위한 단락이 있습니다: 그리고 여전히 몇 가지 문제가 있습니다.

1. 배열에 상한선이 있어 Otawa 에서 그룹 수가 너무 긴 곳에서는 사용할 수 없습니다. 네가 그것들을 확장해라. 2. 확장 후 배열은 많은 메모리를 사용하며 오류를 일으킬 수 있습니다. 3. 다음 코드는 배열 초기화 및 할당 과정을 생략하고, 나는 너에게 매우 간단하다고 생각한다.

상수 배열 번호 = 4

Dim 사전 선택 번호 (1 ~ 5, 1 ~ 5) 는 문자열입니다

문자열 형식의 Dim 조합 결과 (1 ~ 5 5)

Dim I 는 정수, j 는 정수, k 는 정수입니다

Dim st( 1 끝 그룹 번호) 를 문자열로 사용

문자열 형식의 Dim temp

"Dim sx( 1 ~ 5) As Integer" 는 각 데이터 세트에 대해 결합할 숫자를 선택하는 일련 번호를 나타냅니다.

Sx (1) =1:sx (2) =1:sx (3) =1:;

다음 조합을 시작합니다

K = 1

하다

임시 = ""

J = 1: sx(j) = 1

하다

J> 그룹 수 또는 사전 선택 수 (j, sx (j)) = "n" 인 경우

J = j-1

J = 0 이면 Do 를 종료합니다

온도<& gt ""인 경우 temp = Left(temp, Len(temp)-1)

Sx(j) = sx(j)+1

기타

온도 = 온도& 사전 선택 숫자 (j, sx(j))

J = j+1

J> 라면 그룹 번호

조합 결과 (k) = 온도

디버깅. 인쇄 온도

K = k+1

기타

Sx(j) = 1

만약 ... 끝날거야

만약 ... 끝날거야

고리

J = 0 이면 Do 를 종료합니다

고리

I = 1 ~ 5 5 의 경우

조합 결과 (I )& gt；; "그럼

셀 (4+i, 6) = 결과 병합 (I)

기타

종료 ...

만약 ... 끝날거야

다음으로 저는