Question

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

Counter = 0
dim counterarray(24)

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

所以在这段代码中，我想知道每次循环完成时如何升级数组中的每个变量。基本上我需要第一个 loop displaytext（）进入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())

在循环vb中加强数组

2 个答案: