在VB中嵌入MO的方式实现最短路径的计算