Option Explicit
Option Base 1                   '下届从1开始
Private Sub Form_Click()
    Dim intCount As Integer
    Dim intTemp As Integer
    Const N = 10
    Dim A(N) As Integer        '声明一维数组A
   
    Print "对数组赋初值"
   
    '对数组赋初值
    For intCount = 1 To N
        A(intCount) = intCount  '对数组赋值
        Print A(intCount);      '打印到窗体中
    Next
   
    Print vbCrLf                '输出换行符
    Print "对数组倒置"
   
    '对数组倒置
    For intCount = 1 To N \ 2
        intTemp = A(intCount)
        A(intCount) = A(N - intCount + 1)  '数组倒置
        A(N - intCount + 1) = intTemp
    Next
   
    '输出倒置后的数组
    For intCount = 1 To N
        Print A(intCount);      '打印到窗体中
    Next
   
    Print vbCrLf
End Sub

恕本人愚笨，这是教材里的一段代码，倒置部分看不懂啊，还请哪个高手在那几句中添加个注释啊什么的，现行谢过！

在纸上描描画画就懂..

两满杯水，一杯红色装着红色的水，一杯蓝色装着蓝色的水，怎样将它们百年变成红杯装蓝水，蓝杯装红水呢？不就是再拿一个空杯子过来嘛，来回到两次就行了，你那个问题跟这一样

谢谢三楼非常形象的比喻！