下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框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【 】 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