Question

VB编程实现一维数组A(10)中数组元素循环向右移动一个位置

VB编程实现一维数组A(10)中数组元素循环向右移动一个位置

Answer 1

for i=10 to 0 step -1
     if i>0 then
        if i=10 then temp=a(10)
        a(i)=a(i)-1
    else
        if i=0 then a(0)=temp
    endif
    
next
数组元素循环向右移动一个位置,最后一个位置,移动到最前面(左)

Answer 2

Private Sub Command1_Click()
Dim i%, t%
Dim a(10) As Integer
For i = 1 To 10
a(i) = Rnd * 100
Next
t = a(10)
For i = 10 To 2 Step -1
a(i) = a(i - 1)
Next
a(1) = t
End Sub