求最短路径（可以输出路径的源代码）

最短路径的源代码（可以显示（输出）路径和权值的源代码,没显示的不用发）最好加上解释谢谢...

最短路径的源代码（可以显示（输出）路径和权值的源代码,没显示的不用发）
最好加上解释
谢谢

For I = 1 To indexa1(2, ll) //以与ll点相连的起点的个数循环
result1 = b1(indexa1(1, ll) - I + 1)找出与LL点相连的终点的点号
s1 = c1(indexa1(1, ll) - I + 1) + result(2, ll)找出长度并求和
If yc(result1) = True Then GoTo 200如果以被经查过进行下一个
If ycd(result1) = True Then//如果已经作为结果点判断哪一个长
If rs1(result1) >= s1 Then//如果这一点到起点的长度比现在的路线长，替代
rs1(result1) = s1
result(1, result1) = ll//设置到这点的最短路径的前一点为LL点（精华部分）
result(2, result1) = s1设置到这点的最短路径长度

没有这样的会计

懒得不能在懒了...

你要的是什么的源代码啊,编程语言这么多,而且你的问题也不明确,慢慢把问题说明白了,我们大家才能帮你呀