arrays - 在循环 vb 中逐步增加数组

Question

这段代码只是为循环中的每个负变量完成了字符转换。然后它为每个完成的循环显示此文本。（名称变量实际上是其中一个子例程的参数，因此需要保持称为“变量”）

Counter = 0
dim counterarray(24)

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

所以在这段代码中，我想知道每次循环完成时如何提升数组中的每个变量。基本上我需要第一个循环显示文本（）进入counterarray（0），第二个进入counterarray（1）等，直到所有这些都完成。

Answer 1

不完全确定您的问题是什么，但是如果您希望该循环正常工作，则需要添加step - 1

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

Answer 2

你没有使用variable任何东西，所以你不妨写，

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())