Question

求vb编程题编程实现一维数组 A(10)中数组元素循环向右移动一

编程实现一维数组 A(10)中数组元素循环向右移动一
个位置，即将最后一个元素移到第一个元素的位置
上。并输出移动之前和移动之后的元素值。假设：移
动 前 的 数 列 为 0,1,2,3,4,5,6,7,8,9,10， 移 动 后 为
10,0,1,2,3,4,5,6,7,8,9。数组元素的值可用 Rnd 函数产
生。若要移动若干位。程序又如何实现？

Answer 1

Private Sub Command1_Click()

  Dim a(10) As Integer

  For i = 1 To 10

    a(i) = i

    Print a(i);

  Next i

  Print

  Print "要移动的位数：";

  n = CInt(InputBox("要移动的位数："))

  Print n

  For i = 1 To n

    t = a(10)

    For j = 10 To 2 Step -1

      a(j) = a(j - 1)

    Next j

    a(1) = t

  Next i

  Print

  Print "移动以后的数组："

  For i = 1 To 10

    Print a(i);

  Next i

  Print

End Sub