vb課程設(shè)-07-072007迷宮完善后(編輯修改稿)
2025-09-13 00:02 本頁面
【文章內(nèi)容簡介】 39。 入口. PlayerM = m PlayerN = n ElseIf LCase$(ch) = f Then 39。 出口. MFinish = m NFinish = n End If Next n Next mClose fnumWidth = ScaleX(SQUARE_WID * NumCols, ScaleMode, vbTwips) + _ Width ScaleX(ScaleWidth, ScaleMode, vbTwips) Height = ScaleY(SQUARE_HGT * NumRows, ScaleMode, vbTwips) + _ Height ScaleY(ScaleHeight, ScaleMode, vbTwips)開始畫圖. Cls For m = 1 To NumRows For n = 1 To NumCols If LegalMove(m, n) Then If m = MFinish And n = NFinish Then clr = vbRed Else clr = vbWhite End If Else clr = bcolor End If Line (n * SQUARE_WID, m * SQUARE_HGT)Step(
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1