在一位数组中利用移位的方法显示如下的结果：
1 2 3 4 5 6 7
7 1 2 3 4 5 6
6 7 1 2 3 4 5
5 6 7 1 2 3 4
4 5 6 7 1 2 3
3 4 5 6 7 1 2
2 3 4 5 6 7 1
1 2 3 4 5 6 7
本人编程如下：
Private Sub Form_Click()
    Dim a(1 To 7)
    Dim i As Integer, j As Integer, t As Integer
    For i = 1 To 7
        a(i) = i
        Print a(i);
    Next i
    Print
    For i = 1 To 7
        t = a(7)
        For j = 6 To 1
            a(j + 1) = a(j)
        Next j
        a(1) = t
        For j = 1 To 7
            Print a(j);
        Next j
        Print
    Next i
End Sub
运行后得不到正确的结果，请高手们帮忙修改，不胜感激！！

只找到你一行出现错误
        For j = 6 To 1
改为
        For j = 6 To 1 Step -1
-------------------
for 循环的变量是 自加1 ,
而 for 条件判断是 循环变量小于等于 结束值

而你 起始值比结束值要大的情况下,
根据判断,直接跳过循环.

在这种情况下,要手动指定循环变量变化值.
当 变化值>0 时,按 循环变量 小于等于 结束值 而中断循环.
当 变化值<0 时,按 循环变量 大于等于 结束值 而中断循环.

在这你这个程序里,是要求变量递减1 ,所以 手动指定循环变化值 为 -1

谢谢！我确实将这一点忽视了，改正后，程序运行正常，谢谢指教！

对的~