下面程序的功能是将一个一维数组中的元素循环向右移动，每次移位次数由文本框Text中的输入决定。例如，数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动3次后，各元素的值依次为8,9，10，0，1，2，3，4，5，6，7。请将程序补充完整。 Private Sub MoveRight(x() As Integer) Dim i As Integer,j As Integer,k As Integer i=UBound(x) j=x(i) Fork=iTo 1Step-1 2 Next k x(LBound(x))=J End Sub Private Sub Commandl_Click() Dim aAs Integer Dim iAs Integer,j As Integer,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) LoopUntilk=j For i=0 To 10 Print a(i)； Nexti End Sub

1、
2、

【正确答案】 1、正确答案：1, 2、x(k)=x(k-1)

【答案解析】解析：本题考查数组中元素移动。程序运行时，在文本框中输入移动元素的位数，然后调用MovreRight函数逐个元素移动，在MoveRight函数中，保存数组中最后一个元素，数组x中下标从i-1开始到0，所有元素后移一位。那么k的变化为i到1，然后移动x(k)=x(k-1)。