Question

VB编程 将一维数组中10个元素向右循环移n位

用VB6.0企业版编写例如：数组各元素的值依次为：1、3、5、7、9、2、4、6、8、10；向右位移3次后各元素的值依次为：6、8、10、1、3、5、7、9、2、4 。要求，数组各元素及位移次数n使用InputBox()函数输入，移动前和移动后的数据分别打印在窗体上。

Answer 1

Private Sub Command1_Click()
Dim a(10)
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个数字")
Print a(i),
Next
Print

n = InputBox("输入移动次数")
For j = 1 To n
k = a(10)
For i = 10 To 2 Step -1
a(i) = a(i - 1)
Next i
a(1) = k
Next j

For i = 1 To 10
Print a(i),
Next

End Sub