루프를 사용하는 증분 및 감소 숫자

Question

일부 텍스트와 함께 1에서 150까지 2 개의 숫자 범위를 인쇄하려고합니다. 첫 번째 범위는 1에서 150까지 오름차순이며 두 번째 범위는 150에서 1까지 내림차순입니다. 오름차순을 인쇄 할 수는 있지만 내림차순으로가는 방법을 모르겠습니다.

Set xml = CreateObject("Microsoft.XMLHTTP") 


For i = 1 to 150 

TL1("HELLO"&i&"INCRESING"&i&";") // In both the statement i should increment from 1 to 150 and 
TL1("HELLO"&n&"INCRESING_I"&i&"DECRESING_N"&n&";") // n should decrement from 150 to 1 

Next 

Set xml = Nothing 

Function TL1(cmd) 
xml.Open "GET", "http://127.0.0.1:2024/TL1?"&cmd, False 
xml.Send 
TL1 = xml.responseText 
WScript.Stdout.Write cmd & vbCrLf 
End Function 

기본적으로 for 문 다음에. 나는 증가해야하고, n은 감소해야한다. 같은 forloop에 n을 추가 할 수있는 방법이 있습니까?

Answer 1

주석에서 논의 된 것처럼 증가 값을 줄이기 위해 필요한 합계를 계산하면됩니다. 값이 변하면 숫자 값을 조정하는 코드 행을 거칠 필요가 없도록 상수 값을 정의하는 데 Const을 사용합니다.

Const MIN_LOOP = 1 
Const MAX_LOOP = 10 

Dim i, n 

For i = MIN_LOOP To MAX_LOOP 
    WScript.Echo "HELLO" & i & "INCRESING" & i & ";" 
    n = (MAX_LOOP + 1) - i 
    WScript.Echo "HELLO" & n & "INCRESING_I" & i & "DECRESING_N" & n & ";" 
Next 

출력 :

HELLO1INCRESING1; 
HELLO10INCRESING_I1DECRESING_N10; 
HELLO2INCRESING2; 
HELLO9INCRESING_I2DECRESING_N9; 
HELLO3INCRESING3; 
HELLO8INCRESING_I3DECRESING_N8; 
HELLO4INCRESING4; 
HELLO7INCRESING_I4DECRESING_N7; 
HELLO5INCRESING5; 
HELLO6INCRESING_I5DECRESING_N6; 
HELLO6INCRESING6; 
HELLO5INCRESING_I6DECRESING_N5; 
HELLO7INCRESING7; 
HELLO4INCRESING_I7DECRESING_N4; 
HELLO8INCRESING8; 
HELLO3INCRESING_I8DECRESING_N3; 
HELLO9INCRESING9; 
HELLO2INCRESING_I9DECRESING_N2; 
HELLO10INCRESING10; 
HELLO1INCRESING_I10DECRESING_N1; 

Answer 2

대신 단지 I를 사용하여 151을 사용 - 전 제 TL1()

Const MIN_LOOP = 1 
Const MAX_LOOP = 10 

Dim i, n 

For i = MIN_LOOP To MAX_LOOP 
    WScript.Echo "HELLO" & i & "INCRESING" & i & ";" 
    n = (MAX_LOOP + 1) - i 
    WScript.Echo "HELLO" & n & "INCRESING_I" & 151 - i & "DECRESING_N" & n & ";" 
Next