루프에서 배열 늘리기 vb

Question

이 코드는 루프의 모든 음수 변수에 대한 문자 이동을 완료합니다. 그런 다음 완성 된 모든 루프에 대해이 텍스트를 표시합니다. 나는 각 변수를 단계 방법을 알고 싶습니다,이 코드에 따라서

Counter = 0 
dim counterarray(24) 

For variable = -1 to -25 
    completeshift() 
    displaytext() 
    counter = counter + 1 
next 

(이름 변수는 너무 '변수'호출되는 유지 필요합니까, 실제로 서브 루틴 중 하나에 대한 매개 변수) 루프가 완료 될 때마다 배열. 기본적으로 나는 첫 번째 counterarray (0)에 들어갈 수있는 루프 displaytext(), counterarray (1)에 들어가는 두 번째 등 모든 것이 완료 될 때까지 필요합니다. 당신이 일을하는 루프를 원하는 경우 귀하의 질문이 무엇인지

Answer 1

를 추가 할 필요가

Dim counterarray(24) 

For i = 0 to 24 
    completeshift() 
    counterarray(i) = displaytext() 
Next 

...

---

아마 너무 정교하지만

Dim count = 25 
Dim counterArray(count - 1) As String 

Enumerable.Range(0, count).Zip(Enumerable.Range(-count, count).Reverse(), 
    Function(counter, variable) counterArray(counter) = DisplayText()) 

Answer 2

완전히 확실하지,하지만 당신은 당신이뿐만 아니라 쓰기 수 있도록 아무것도 variable를 사용하지 않는 step - 1

For variable = -1 to -25 step -1 
    completeshift() 
    displaytext() 
    counter = counter + 1 
next