下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Text1输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为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 【9】 Step—1
【10】
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