VB菜鸟提问???

来源：百度知道 编辑：UC知道 时间：2024/06/05 15:09:37
刚刚看一个关于小球连续运动的实验,有些代码不理解哦:
Private Sub cmdstart_Click()
Timer1.Enabled = True
End Sub

Private Sub cmdstop_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Dim j As Integer
For j = 1 To 8
Shape(j).Visible = flase
Next j
End Sub

Private Sub Timer1_Timer()
Static j As Integer
Shape(j).Visible = False
j = (j + 1) Mod 9
Shape(j).Visible = True
End Sub
这里的"j = (j + 1) Mod 9
Shape(j).Visible = True"是什么意思呢?
还有"For j = 1 To 8
Shape(j).Visible = flase
Next j"是什么意思?
怎么看起来两个有点冲突???

Private Sub cmdstart_Click() '单击cmdstart按钮后
Timer1.Enabled = True 'timer1 控件被激活,那么才开始执Timer1_Timer() 后面的语句,
End Sub

Private Sub cmdstop_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load() '初始化界面,
Dim j As Integer
For j = 1 To 8
Shape(j).Visible = flase
Next j
End Sub '上面定义的是这个不可见,当点了cmdstart后开始运行timer

Private Sub Timer1_Timer()
Static j As Integer
Shape(j).Visible = False
j = (j + 1) Mod 9
Shape(j).Visible = True
End Sub

还有"For j = 1 To 8
Shape(j).Visible = flase
Next j"是什么意思?
===这个的意思是个循环,就是说执行了8 次，那么shape(1)到 shape(8)的值都是false的.