module1.bas

数据结构课程设计 描述如下: 现有一个大小为Map_Long * Map_Width的方格地图（每一方格尺寸为BoxSize * BoxSize）

Attribute VB_Name = "Module1"
Public Const BoxSize = 10
Public Const Map_Long = 40
Public Const Map_Width = 20
Public Const EmptyPlace = 1
Public Const NotEmptyPlace = 3
Public MAP(Map_Long - 1, Map_Width) As Integer
Declare Function BitBlt Lib "gdi32" _
(ByVal hDestDC As Long, _
ByVal X As Long, ByVal Y As Long, ByVal _
nWidth As Long, _
ByVal nHeight As Long, ByVal hsourceDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, ByVal dwRop As Long) As Long