1.扫雷小游戏vb设计程序
扫雷小游戏vb设计程序
Public nn As Long
Public n As Long
Public x,扫雷扫雷正数源码求补码 y As Long
Private Sub Form_Load()
nn = 0
n = 1
''Picture1(i).Picture = "地址"
Picture1(i).Width =
Picture1(i).Height =
Timer1.Interval =
Timer1.Enabled = True
Label1.Caption = 0
Picture1(0).Visible = False
End Sub
Private Sub Picture1_Click(Index As Integer)
nn = nn + 1
Unload Picture1(Index)
Label1.Caption = nn
End Sub
Private Sub Timer1_Timer()
Randomize
x = Int((Form1.Width - + 1) * Rnd + )
y = Int((Form1.Height - + 1) * Rnd + )
Load Picture1(n)
Picture1(n).Left = x
Picture1(n).Top = y
Picture1(n).Visible = True
n = n + 1
if nn>= then
timer1.enable=false
''执行语句
end if
End Sub
打窗口上随机出现的砖块游戏