最短路径算法源码(VB) 集锦

  E = Val(txtEnd.Text) - 1 '确定起始点
    If (nS > 6 Or nE > 6) Then
        MsgBox "没有该点，请重新输入正确的点", vbOKCancel
    End If
Else
    MsgBox "没有输入"
End If
    p(0).iN = nS  '记录起始点
    n = 0
    For j = 0 To 6
        If j <> nS Then
        p(0).fT(n, 0) = j
        p(0).fT(n, 1) = Matrix(nS, j)
        n = n + 1
        End If
    Next j
    p(0).jN = seekSmall(p(0).fT())
    Print
    p(0).Judge = True
n = 0
For j = 0 To 6
    If (j <> p(0).fT(p(0).jN, 0)) And (j <> nS) Then
        p(0).bT(n, 0) = j
        p(0).bT(n, 1) = Matrix(nS, j)
        n = n + 1
    End If
Next j
For i = 1 To 5
    p(i).iN = p(i - 1).fT(p(i - 1).jN, 0)
    For j = 0 To 5 - i
        If ((p(i - 1).bT(j, 1) >= (p(i - 1).fT(p(i - 1).jN, 1) + Matrix(p(i).iN, p(i - 1).bT(j, 0)))) And ((p(i - 1).fT(p(i - 1).jN, 1)) + Matrix(p(i).iN, p(i - 1).bT(j, 0)) < 100)) Then
            If p(i - 1).bT(j, 0) = nE Then
                If p(i - 1).bT(j, 1) >= (p(i - 1).fT(p(i - 1).jN, 1) + Matrix(p(i).iN, p(i - 1).bT(j, 0))) Then
   &nb

上一页  [1] [2] [3] [4] [5] [6] 下一页