这些VB代码怎么理解

Private Sub ChanShengShiWu()
<br>Randomize Timer
<br>1:
<br>X = Int(Rnd * 24)
<br>Y = Int(Rnd * 24)
<br>If ZhuangTai(X, Y) &gt; 0 Then GoTo 1:
<br>ZhuangTai(X, Y) = 2
<br>Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
<br>End Sub

------------