暗淡？s（）？作為什麽？線
s？=?拆分（替換（ss，“X”，？""),?“Y”）
如果？tt嗎？=?1?然後
s2d？=?val（s（0））？*?100000?+?val（s（1））
其他
s2d？=?val（s（1））？*?100000?+?val（s（0））
結束？如果
結束？功能
私人？Sub？Command1_Click（）？x排序
暗淡？我？作為什麽？整數，？j？作為什麽？整數，？臨時的？作為什麽？線
為了什麽？我？=?1?去哪？列表2。列表計數？-?1
為了什麽？j？=?0?去哪？我
如果？s2d（列表2。列表（j），？1)?& gt？s2d（列表2。清單（壹）。1)?然後
臨時的？=?列表2。清單（壹）
列表2。名單（壹）？=?列表2。列表（j）
列表2。名單（j）？=?臨時雇員
結束？如果
下壹個？j
下壹個？我
結束？潛水艇
私人？Sub？Command2_Click（）？y排序
暗淡？我？作為什麽？整數，？j？作為什麽？整數，？臨時的？作為什麽？線
為了什麽？我？=?1?去哪？列表2。列表計數？-?1
為了什麽？j？=?0?去哪？我
如果？s2d（列表2。列表（j），？0)?& gt？s2d（列表2。清單（壹）。0)?然後
臨時的？=?列表2。清單（壹）
列表2。名單（壹）？=?列表2。列表（j）
列表2。名單（j）？=?臨時雇員
結束？如果
下壹個？j
下壹個？我
結束？潛水艇
私人？Sub？表單加載（）
列表2。AddItem？“X20.79Y-97.81“
列表2。AddItem？“X-20.79Y-97.81“
列表2。AddItem？“X58.78Y-80.90“
列表2。AddItem？“X-58.78Y-80.90“
列表2。AddItem？“X-60.78Y-80.90“
列表2。AddItem？“X-60.78Y-50.00“
列表2。AddItem？“X86.60Y-50.00“
列表2。AddItem？“X-99.45Y-10.45“
列表2。AddItem？“X99.45Y-10.45“
列表2。AddItem？“X-95.11Y30.90“
列表2。AddItem？“X95.11Y30.90“
列表2。AddItem？“X-74.31Y66.91“
列表2。AddItem？“X74.31Y66.91“
列表2。AddItem？“X-40.67Y91.35“
列表2。AddItem？“X40.67Y91.35“
列表2。AddItem？“X0Y100.00“
列表2。AddItem？“X0Y-50.00“
列表2。AddItem？“X0Y50.00“
列表2。AddItem？“X60Y-80.90“
列表2。AddItem？“X0Y0“
結束？潛水艇