Question

编一vb程序，将一堆数组中的元素向左循环移位，移位次数由键盘输入

如 数组各元素的原值依次为0，1，2，3，4，5，6，7，8，9，10；移位3次后，各元素值位3，4，5，6，7，8，9，10，0，1，2。

Answer 1

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

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

For i = 1 To 11
Print a(i) & " ";
Next

End Sub