Написать программу VBA

[Reckliss]

Написать программу VBA

Из массива x(10) сформировать новый массив y(10), сдвинув элементы массива x вправо на k элементов.

[Aleksandr H.]

Sub rotor()
    Dim x(9) As Byte, y(9) As Byte
    Dim i, k As Byte
    For i = 0 To 9
        x(i) = Int(20 * Rnd) + 2
        Cells(i + 1, 1) = x(i)
    Next i
    k = InputBox("Input Shift (k)", "Parametr", 0)
    k = k - (k \ 10) * 10
    For i = 0 To k - 1
        y(9 - k + i + 1) = x(i)
        Cells(9 - k + i + 1 + 1, 2) = y(9 - k + i + 1)
    Next i
    For i = k To 9
        y(i - k) = x(i)
        Cells(i - k + 1, 2) = y(i - k)
    Next i
End Sub