1 / 23
文档名称:

小老鼠走迷宫.pptx

格式:pptx   大小:129KB   页数:23页
下载后只包含 1 个 PPTX 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

小老鼠走迷宫.pptx

上传人:wz_198613 2019/12/7 文件大小:129 KB

下载得到文件列表

小老鼠走迷宫.pptx

文档介绍

文档介绍:程式介面選擇迷宮 開始 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