闯迷宫游戏代码VB编程实现

1、迷宫游戏源代码Const row = 22, col = 30Dim grid(row + 1, col + 1)Private Sub dmg_Click()Picture1.Left = 400初始化图片位置Picture1.Top = 400Timer1.Enabled = True启动时钟End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)键盘控制图片移动l = Picture1.Left 400t = Picture1.Top 400Line (l * 400, t * 400)-(400 * (l

2、 + 1), 400 * (t + 1), vbGreen, BF显示走过的路径Select Case KeyCode随着键盘的动作来移动Case vbKeyLeftIf Picture1.Left - 400 = 400 ThenIf grid(t, l - 1) = 0 ThenPicture1.Left = Picture1.Left - 400Picture1.Top = Picture1.TopEnd IfEnd IfCase vbKeyRightIf Picture1.Left + 400 = 400 * col ThenIf grid(t, l + 1) = 0 ThenPict

3、ure1.Left = Picture1.Left + 400Picture1.Top = Picture1.TopEnd IfEnd IfCase vbKeyDownIf Picture1.Top + 400 = 400 ThenIf grid(t - 1, l) = 0 ThenPicture1.Left = Picture1.LeftPicture1.Top = Picture1.Top - 400End IfEnd IfEnd SelectIf Picturel.Top 400 = row And Picturel.Left 400 = col - 1 ThenTimerl.Enabl

4、ed = FalseMsgBox (恭喜你，成功走出迷宫！)显示成功信息End IfEnd SubPrivate Sub Form_Load()Open 迷宫矩阵.txt For Input As #1读取迷宫矩阵，绘制迷宫图For i = 0 To row + 1For j = 0 To col + 1If 1 = i And i = row And 1 = j And j = col ThenInput #1, grid(i, j)If grid(i, j) = 1 Then值为1则表示障碍或墙，0则表示通道，即可行路径Line (j * 400, i * 400)-(400 * (j +

5、 1), 400 * (i + 1), vbBlue, BF End IfElseLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbBlue, BF End IfNextNextClose #1End SubPrivate Sub mig_Click()随机获取迷宫矩阵Picture1.Left = 400Picture1.Top = 400Randomizem = row * Int(20 * Rnd)Open 迷宫矩阵.txt For Input As #1读取事先设计好的迷宫矩阵，随机读取一种矩阵Do While n mLi

6、ne Input #1, temp n = n + 1LoopFor i = 1 To rowFor j = 1 To colInput #1, grid(i, j)If grid(i, j) = 1 ThenLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbBlue, BF ElseLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbWhite, B End IfNextNextClose #1End SubPrivate Sub start_Click()Pictu

7、rel.Left = 400Picture1.Top = 400Open 迷宫矩阵.txt For Input As #1初始化迷宫矩阵For i = 1 To rowFor j = 1 To colInput #1, grid(i, j)If grid(i, j) = 1 ThenLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbBlue, BFElseLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbWhite, BEnd IfNextNextClose #1En

8、d SubPrivate Sub Timer1_Timer()使迷宫矩阵动态变化，随机生成的迷宫可能是走不通的X = 1: Y = 1For i = 1 To rowFor j = 1 To colRandomizegrid(i, j) = Int(2 * Rnd)If grid(i, j) = 1 ThenLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbBlue, BFElseLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbWhite, BEnd IfNextN

9、extEnd Sub设计时，只需3个picture控件和1个timer控件即可，故还是比较简单的。 如下图所示：氐 t_t=1t -卜 n Tm t Tc: “一ti m -二“迷宫矩阵.txt”中的内容如下所示（自己设计一个即可）文幽F）制格式冏查看M 整的HiL L L L O 1 u 1 o n o o Q OG o _u L o D 1 _u 1 o _o ,1 o o 1 o 1L _1 IX .A- 1 Q Q o o 110-10 JI Tx _ny Jx _n_ o _u L o o o QODO o 1 o o 1 -1 _HW 1A 1 - -=* - olool o 1

10、o o o o 1 o o o 11 -u 1* 1- o 1 ux 1 rL- Tx dx or 11 I L o I o o L Q L I o- Q o o -o 3 1 o 1 1 D o Q- 1 I 0 0 110 o 1 1 o o Au _u 1L JL o 1 o o o oD- o u o o o u u 1 o oo n o D J u o o -C5 BI I 1J- -Q 1 o 1 1 1 o o o 1 o 11 -u 1 .1 ,o o 1 o 1 1 o u 1 1 D o D D D 1 L D L 1 TJ IX 41_ Jl o 1 o 1 1 o o

11、u o & al o- u 1J 1- o 1 u o 1 o口 o 0 1 1 u o o 1- o- T- _u 1 口 11 0口 1 o o D D n- o u o o o o u o 1 oo 1 o 1 1 L u o o 110-01 o o u o 1 1 o 1 o o 11 Av 1 110 0-01 o J o Q o O-U1LO o 0 u 1- iI -r-JI 1 o Q 1 o loooo o o 1 o 1一 1 o o 1 o 10-011 ,o o o L 1 llo-LO 1 1 Q o o 1 Qu IQ I 1 口 口 L olooo 10 0-00 ni Q nV o o o o o 13 1* _0T I* t-i i- i-I OY t-i 1 o I L L n o L Q oTx- .JA- 11 Aw Av D 1 n* L 1- o o o 1 1 1 1 0 011 lx- 1 o n o io L o L L o o 1 Q o IX - li o o o o o -I .1-1 1-11-1 11111 ix cz- f 1 一 4 -IX Au IL 1- 1L o 1 1 1 o IX i-l -u 1L- ax o IL I o L o o o 1 o 11 11- 1- L 1 nW IX