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

2025-02-27 15:56:12

推荐回答（3个）

回答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

回答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

回答3：

我还没弄懂抱歉帮不上忙

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

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