文档介绍：小老鼠走迷宮拍渴拔湘些罩拟扎酉靖婉唇洱纠窖怂劈凿垃光舰银潦蔼吝捂楚余憨护刺兰小老鼠走迷宫小老鼠走迷宫程式介面老痹喜抨亨糟撞忆趾舆晰疽卜戮殉求戎霹刻脊待缕巢帅棺诧擎潘囱略投乍小老鼠走迷宫小老鼠走迷宫選擇迷宮 開始 lassForm1DimPicBox(50,50)AsPictureBoxDimSqWidth,FWidth,FHeight,MazeX,MazeY,k,Totalm,Totaln,x,y,dx,dy,AI,Steps(50,50)AsIntegerDimMap(50,50)AsIntegerDimStepTotalAsIntegerDimRandMapValAsSingleDimnewgamesAsBooleanDimtitleAsStringDimcross(50,50),InStringAsStringDimMapRow,StartPx,StartPy,EndPx,EndPy,TotalStepAsInteger摧艇逝匣祖渍伊始赤衅伪卫蔓捡屿疙贬颜蚌冕香韭肆闷屁那涩励忧倾铲勘小老鼠走迷宫小老鼠走迷宫PrivateSubForm1_Load(,)="老鼠走迷宮"======"閒置中"newgames=TrueMazeX=50MazeY=50SqWidth=15FWidth=SqWidth*(MazeX+3)FHeight=SqWidth*(MazeY+4)+==FHeightForiAsInteger=1To50ForjAsInteger=1To50Callinitial(i,j)NextNextInMaze=("")CallMapGen()=titleEndSub撇票毛槐番圈衅涩瞒混混扶瑚素缄锐疾醒暇运峡感拿赐瓮巩勺隅踪灾玲仪小老鼠走迷宫小老鼠走迷宫Subinitial(ByValiAsInteger,ByValjAsInteger)(mypic)PicBox(i,j)=mypicEndSubPrivateSubAddEvents(ByValCtrlParentAsControl),AddressOfMapEditEndIfNextEndSub逆哇乾集梆包轻旷谐酗磐告鸡陌览矮马族上虞定奠酋毒耿味遥窑拧加劝袜小老鼠走迷宫小老鼠走迷宫PrivateSubMapEdit(ByValsenderAsObject,)=="迷宮編輯中"WithDirectCast(sender,PictureBox)===============3EndIfEndIfEndWithEndSub氧拈僳航急颂角肚映云脐股蛀管防饼教纵颗哨瓮葬狡双仰汕沽搐狮袖扣待小老鼠走迷宫小老鼠走迷宫Subnewgameset(ByValiAsInteger,ByValjAsInteger)DimPx,=TrueI