使用循环递增和递减数字答案

【问题标题】：Increment and decrement number using loop使用循环递增和递减数字
【发布时间】：2016-08-31 14:49:24
【问题描述】：

我正在尝试打印从 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 语句之后。 i 应该增加，n 应该减少。有没有办法可以在同一个 forloop 中添加这个 n ？

【问题讨论】：

在第二个 TL1() 中不要只使用 i，而是使用 150 - i
@RobertAltman，实际上应该是151 - i，因为i以1开头
@VictorMoraes 触摸先生。好收获！
@RobertAltman 将此作为答案发布，因为您是第一个在这里发表评论的人 :)

标签： for-loop vbscript increment decrement

【解决方案1】：

只需要计算减少增量值所需的总和，正如 cmets 中所讨论的那样。还要注意使用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;

【讨论】：

【解决方案2】：

不要只使用 i，而是在第二个 TL1() 中使用 151 - i

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

【讨论】：