下面的程序代碼實(shí)現(xiàn)將一個(gè)一維數(shù)組中元素向右循環(huán)移動(dòng)，移位次數(shù)由文本框Text輸入。例如數(shù)組各元素的值依次為0，1，2，3，4，5，6，7，8，9，10；移動(dòng)三次后，各元素的值依次為8，9，10，0，1，2，3，4，5，6，7。

Private Sub Moveright(x()As Integer)

Dim i As Integer

Dim j As Integer

Dim k As Integer

i=UBound(x)

j=x(i)

For k=i To ______ Step-1

_______

Next k

x(LBound(x))=j

End Sub

Private Sub Command1_Click()

Dim a(10)As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

For i=0 To 10

a(i)=i

Next i

j=Val(Text1.Text)

k=0

Do

k=k+1

Call MoveRight(a)

Loop Until k=j

For i=0 To 10

Print a(i)；

Next i

End Sub

正確答案：

LBound(x)+1x(k)=x(k-1)LBound(x)+1x(k)=x(k-1)