If p(j).Judge = True Then
h = h & (p(j).iN + 1) & " "
End If
Next j
txtLength.Text = p(i - 1).fT(nS, 1)
ElseIf i = 5 And p(i).iN <> nE Then
For j = 0 To 5
If p(j).Judge = True Then
h = h & (p(j).iN + 1) & " "
End If
Next j
txtLength.Text = p(5).fT(nS, 1)
End If
Next i
txtPath.Text = h & nE + 1
'Open "d:\1.txt" For Output As #1
'For z = 0 To 5
'Print #1,
'Print #1, "----------------------------------------------------------";
'Print #1,
' Print #1, p(z).iN
' For x = 0 To 5 - z
' For y = 0 To 1
' Print #1, p(z).fT(x, y);
' Next y
' Next x
' Print #1,
' Print #1, p(z).jN
' For x = 0 To 4 - z
' For y = 0 To 1
' Print #1, p(z).bT(x, y);
'
