又请教一个低级的问题

Dim a(10) As String

Private Sub Form_Load()
a(1) = "我"
a(2) = "爱"
a(3) = "你"
a(4) = "们"
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 1000
i = i + 1
display (i)
If i > 4 Then i = 0
End Sub

Private Sub display(i)
Label1.Caption = a(i)
End Sub
今天是将书上的一个程序抄下来，结果达不到书上的演示效果，只能显示“我”，其他不行，请问为什么，是盗版软件的错吗？