vb简单程序加载多张图片用一个timer控件实现动态代码如opt

加载多张图片用一个timer控件实现动态 代码如option explicit Dim i As Integer Private Sub Form_Load() i = 0 End Sub Private Sub Timer1_Timer() Dim j As Integer If i >= 0 Then Picture1.Cls j = i Mod 7 + 1 FileName = "f:\图片\" & j & ".bmp" Picture1.Picture = LoadPicture(FileName) i = i + 1 End If End Sub 为什么i要在通用模块中进行定义，在后面定义为什么达不到效果？？？？？？？ vb简单程序加载多张图片用一个timer控件实现动态代码如optionexplicitDimiAsIntegerPrivateSubForm_Load()i=0?