'计算图幅号OptionExplicitTypeArrayDataData()AsStringCountAsIntegerEndTypePublicFunctiongetSheetNumber(strLatAsString,strLonAsString,ScaleIDAsString)AsStringDimstrLatErrAsString,strLonErrAsStringDimdblLatErrAsString,dblLonErrAsStringDimdblLatAsDouble,dblLonAsDoubleDima