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

Dim a&(9), t&, i&, j&
Cls
m = Val(InputBox("输入循环次数"))
For i = 0 To 9
a(i) = Val(InputBox("输入数字"))
Print a(i);
Next
Print
While n < m
t = a(9)
For i = 9 To 1 Step -1
a(i) = a(i - 1)
Next
a(0) = t
n = n + 1
Wend
For i = 0 To 9
Print a(i);
Next
窗体的autoredraw要设为true

Answer 2

打比方你数组有二十个数据a(20)··你要把前面10个一道后面10个··
private sub form_click()
dim i as integer,n as integer
n=10
for i = 1 to n
a(i+10)=a(i)
next i
end sub

Answer 3

我还没弄懂 抱歉帮不上忙