Сдвинуть массив - VB

Формулировка задачи:

Sub LastLab()
Dim A(11) As Integer, B, i As Integer, s As String
Randomize
s = "Г€Г±ГµГ®Г¤Г*Г»Г© Г¬Г*Г±Г±ГЁГў:" & vbCrLf
For i = 1 To 10
A(i) = Int(Rnd * 99 + 1)
s = s & "A(" & i & ")=" & A(i) & "  "
Next i
B = A
s = s & vbCrLf & vbCrLf & "ГђГҐГ§ГіГ«ГјГІГ*ГІ:" & vbCrLf
For i = 10 To 1 Step -2
A(i) = B(i / 2)
A(i + 1) = B(10 - (i / 2))
Next i
For i = 1 To 10
s = s & "A(" & i & ")=" & A(i) & "  "
Next i
MsgBox s
End Sub

Мне надо сдвинуть исходный массив на 2 элемента (чтоб А9-10 встали на А1-2), а получается вообще нечто. Можете исправить?

Решение задачи: «Сдвинуть массив»

textual
                            Листинг программы 
                        

                            For i = 2 To 11
A(i Mod 10 + 1) = B(i - 1)
Next i
                        

Оцени полезность:

8 голосов , оценка 3.25 из 5

Похожие ответы