帮忙看下这个程序有什么错误

Private Sub Form_Load()
I = 0

For j = 0 To 9

Label1(j * 3).ForeColor = vbRed

Label1(j * 3 + 1).ForeColor = vbGreen

Label1(j * 3 + 2).ForeColor = vbYellow

Next j

End Sub

Private Sub Timer1_Timer()

If I = 30 Then

I = 0

End If

I = I

For j = 0 To 29

Label1(j).Visible = False

Next j

If I Mod 3 = 2 Then

For j = 0 To 9

Label1(j * 3 + 1).Visible = True

Next j

Else

If I Mod 3 = 0 Then

For j = 0 To 9

Label1(j * 3 + 2).Visible = True

Next j

Else

End If
是个彩灯的制作``为什么就是不能闪啊``看下
INTERVAI=400
谢谢拉

帮忙看下这个程序有什么错误 请大家帮忙看下c语言中这个程序有什么错误 帮忙看下这个JAVA程序有什么问题？ 帮忙看下这个MATLAB程序的错误 检查下这个程序有什么错误 各位高手帮忙看一下，这个C语言小程序有什么错误 这个程序有什么错误,麻烦各位大哥帮忙看一下``` 帮忙看下这个程序. 帮忙看下这个句子有没有错误 帮我看一下这个程序,有什么错误?(数据结构)