文档介绍:程式介面選擇迷宮開始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,TotalStepAsIntegerPrivateSubForm1_Load(,)="老鼠走迷宮"======"閒置中"newgames=TrueMazeX=50MazeY=50SqWidth=15FWidth=SqWidth*(MazeX+3)FHeight=SqWidth*(MazeY+4)+==FHeightForiAsInteger=1To50ForjAsInteger=1To50Callinitial(i,j)NextNextInMaze=("")CallMapGen()=titleEndSubSubinitial(ByValiAsInteger,ByValjAsInteger)(mypic)PicBox(i,j)=mypicEndSubPrivateSubAddEvents(ByValCtrlParentAsControl),AddressOfMapEditEndIfNextEndSubPrivateSubMapEdit(ByValsenderAsObject,)=="迷宮編輯中"WithDirectCast(sender,PictureBox)===============3EndIfEndIfEndWithEndSubSubnewgameset(ByValiAsInteger,ByValjAsInteger)DimPx,=TrueIfi>MazeXOrj>MazeYThenPx=MazeX*SqWidthPy=MazeY*SqWidth+15Map(i,j)=1ElsePx=i*SqWidthPy=j*SqWidth+15EndIfWithPicBox(i,j).SetBounds(Px,Py,SqWidth,SqWidth).BackColor==0Ifi=1Orj=1Ori=MazeXOrj===1EndIfIfi=StartPxAndj=StartPyThen