17.数组练习（1）  
 
先不上机，试试分析下面程序段的运行结果是什么？
    Dim intA(4) As Integer
    Dim intB(4) As Integer
    Dim i  As Integer
    For i = 0 To 2
        intA(i + 1) = i * 2 + 1
        intB(3 - i ) = intA(i + 1)
    Next
    Print intB(i)

呵呵，多上机练习练习就好了，这种题目经常在笔试题里面出现，要求分析程序的运行结果。
可以这样改动程序
Private Sub Form_Click()
    Dim intA(4) As Integer
    Dim intB(4) As Integer
    Dim i  As Integer
    For i = 0 To 2
        intA(i + 1) = i * 2 + 1
        intB(3 - i) = intA(i + 1)
    Next
    Print intB(i) , i 
    Print "******************************"
    For i = 0 To 4
        Print intA(i), intB(i)
    Next
End Sub 
可以看到：
当第一个for循环结束后，“i”的值是3，所以第一个Print语句输出的是数组元素intB(3)的数值，
接下来我们输出一行“*”号来标志，
然后把数组intA和intB里的元素都显示出来，
这样就可以看到第一个For循环都干了些什么，呵呵，自己看看吧。