跪求VB简单迷宫的文件及代码-求个迷宫小游戏vb程序

Private a As Long '用于计时抄

'timer的时间设为1000,事件写入 a = a + 1
Private Sub Timer1_Timer()
a = a + 1
End Sub

Private Sub Form_Load()
timer1.Enabled = 0
End Sub

Private Sub CommandButton1_Click()
a = Int(Rnd() * 100) '随机一个袭1~99的整数
timer1.Enabled = 1
Do
b = Val(InputBox("输入数字"))
If a = b Then
timer1.Enabled = 0
MsgBox "猜对了,你用了" & a & "秒"
Exit Do
ElseIf a > b Then
MsgBox "太小了"
Else
MsgBox "太大了zhidao"
End If
Loop
End Sub

这个我有。。。。。。。。。。。。。。。。。。。。。。
链接知:http://pan.baidu.com/share/link?shareid=1673738009&uk=3727484153 密码:sund
这里面道有不少程序，内可以看看。容

http://cuinl.tripod.com/downloads/3dmaze.zip

推荐百一下度这个，自问动生答成，版解答，权3D