Shifting an array

[campster]

How would I shift the elements of an array to the right. For example, I want five shifts of the array to look like this:

0 0 0 0 0
0 0 0 0 5
0 0 0 5 2
0 0 5 2 1
0 5 2 1 8
5 2 1 8 7

Hope this makes sense. This shift will happen once per second in a thread that will update data to graph.

[wild_bill]

Dim arr() As String = {"0", "0", "0", "0", "0"}
        For i As Int32 = 1 To 5
            For ii As Int32 = 0 To arr.Length - 2
                arr(ii) = arr(ii + 1)
            Next
            arr(arr.Length - 1) = i.ToString
        Next

[jmcilhinney]

For i As Integer = myArray.GetUpperBound(0) To 1 Step -1
    myArray(i) = myArray(i - 1)
Next i
 
myArray(0) = 0

[campster]

Thanks guys
I knew it would be simple. I'm in a bit a of rush because my last day at my current job is Friday and I don't want to leave them hanging too much.

[wossname]

If you hadn't already guessed, JMC's version shifts to the right.

[campster]

If you hadn't already guessed, JMC's version shifts to the right.

Yeah, I figured that out. You would think that for what I paid for his advice, it would have been correct. Shifted things around and all is well. Thanks for the help.

[wild_bill]

He asked for right shift, but the example looked like left shift.

[jmcilhinney]

Should look at these things longer shouldn't I? I assumed that you were shifting elements out, but it would make more sense to be shifting them in. It also seemed a bit odd that you had the iterations upside down but I didn't give it too much thought (not much to spare you understand). You probably already have it but I'd do it like this:

For i As Integer = 0 To myArray.Length - 2 Step 1
    myArray(i) = myArray(i + 1)
Next i
 
myArray(myArray.GetUpperBound(0)) = newValue

[campster]

He asked for right shift, but the example looked like left shift.

I'm an engineer so I occasionally get my left and right confused. Thanks again.