恳请VB高手帮我调个程序,关于Dijkstra算法的

恳请VB高手帮我调个程序
以下程序是用Dijkstra方法求单源最短路径。窗体上有两个Command Button，单击ok输入结点个数，单击计算打印最短长度及路径
调了好久实在调不出来，如果有人能调试成功，请一定留下联系方式，本人一定重谢！我的QQ：603869689

Dim m As Integer 'size存储图的实际结点个数
Dim w As Single '以w接收权值
Dim Edge() As Single 'edge数组存储邻接矩阵
Dim D() As Single '数组D存储每一步计算后入选的路径长度
Dim str1 As String
Dim P() As Integer '数组P存储每一步计算后入选的结点
Private Sub ok_Click()
Dim i%, j%, n%
n = 0
m = InputBox("输入图的结点个数")
ReDim Edge(1 To m, 1 To m)
For i = 1 To m
For j = 1 To m
Edge(i, j) = InputBox("输入各结点权值")
Next
Next
End Sub
Sub Dijkstra(s As Integer) 'dijkstra算法
Dim i, j, k, start As Integer
Dim min As Single
ReDim Preserve D(1 To m)
For l = 1 To m
Dim Visited() As Boolean 'visited数组区分每一步计算中入选和候选的结点，visited[i]=True表示已入选，为False表示候选
ReDim Preserve P(1 To l)
D(l) = Edge(s, l)
If D(l) <> 10

恳请VB高手帮我调个程序,关于Dijkstra算法的 高手帮我写个VB小程序！ [急]请VB高手帮我调通一个程序 帮我编个vb程序 恳请高手帮我申请个跑跑卡丁车的帐号? 请求高手帮我用VB写个清除系统垃圾的程序，写的好有分加！ vb高手请进！帮编写个程序！急求！ 恳请各位高手帮我清除trojan.win32.vb.atg的木马程序 关于vb程序运行的问题，请高手忙帮 请高手帮我编一个VB程序