0

このコードは、ループ内の負の変数ごとに文字のシフトを単純に完了します。次に、ループが完了するたびにこのテキストを表示します。(名前変数は、実際にはサブルーチンの 1 つのパラメーターであるため、「変数」と呼ばれる必要があります)

Counter = 0
dim counterarray(24)

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

したがって、このコードでは、ループが完了するたびに配列内の各変数をステップアップする方法を知りたいと思います。基本的に、最初のループ displaytext() が counterarray(0) に入る必要があり、2 番目のループが counterarray(1) に入るなど、すべてが完了するまで続きます。

4

2 に答える 2

3

あなたの質問が何であるか完全にはわかりませんが、そのループを機能させたい場合は、追加する必要がありますstep - 1

For variable = -1 to -25 step -1
   completeshift()
   displaytext()
   counter = counter + 1
next
于 2013-05-29T09:36:22.237 に答える
1

あなたは何にも使っていない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())
于 2013-05-29T09:43:44.987 に答える