|
- UID
- 259939
- 帖子
- 4
- 精华
- 1
- 名声
- -2 分贝
- 探客币
- 16 元
- 人品
- 0 %
- 阅读权限
- 255
|
1#
发表于 2008-3-19 14:05
| 只看该作者
 - 这是一篇来自百度知道的问题
[问答] 这些VB代码怎么理解
Private Sub ChanShengShiWu()
<br>Randomize Timer
<br>1:
<br>X = Int(Rnd * 24)
<br>Y = Int(Rnd * 24)
<br>If ZhuangTai(X, Y) > 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 |
|
