form2.frm

我用VB做的一个校园导游系统！界面友好

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text6 
      Height          =   615
      Left            =   240
      TabIndex        =   6
      Top             =   1800
      Width           =   4815
   End
   Begin VB.TextBox Text5 
      Height          =   495
      Left            =   240
      TabIndex        =   5
      Top             =   960
      Width           =   4935
   End
   Begin VB.TextBox Text4 
      Height          =   495
      Left            =   0
      TabIndex        =   4
      Top             =   120
      Width           =   11535
   End
   Begin VB.TextBox Text3 
      Height          =   1455
      Left            =   240
      TabIndex        =   3
      Top             =   3720
      Width           =   7935
   End
   Begin VB.CommandButton Command1 
      Height          =   375
      Left            =   3240
      TabIndex        =   2
      Top             =   2760
      Width           =   975
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   1920
      TabIndex        =   1
      Top             =   3000
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   2880
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Base 1
Dim p(12) As Integer
Dim s(12) As Integer
Dim a(12, 12) As Integer
Dim w As Integer
Dim c(200) As Integer

Dim k As Integer

Dim i As Integer
Dim j As Integer


Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim m As Integer
Dim a(12, 12) As Integer
Dim p(12) As Integer

k = 1
For i = 1 To 12
  p(i) = 0
  Next i
  For i = 1 To 12
  For j = 1 To 12
    a(i, j) = 0
  Next j
Next i

For i = 1 To 200
   c(i) = 0
   Next i
a(1, 2) = 1
a(2, 1) = 1
a(1, 6) = 1
a(6, 1) = 1
a(1, 7) = 1
a(7, 1) = 1
a(2, 3) = 1
a(3, 2) = 1
a(3, 4) = 1
a(4, 3) = 1
a(3, 5) = 1
a(5, 3) = 1
a(5, 10) = 1
a(10, 5) = 1
a(6, 7) = 1
a(7, 6) = 1
a(6, 8) = 1
a(8, 6) = 1
a(7, 8) = 1
a(8, 7) = 1
a(7, 11) = 1
a(11, 7) = 1
a(7, 12) = 1
a(12, 7) = 1
a(8, 9) = 1
a(9, 8) = 1
a(9, 10) = 1
a(10, 9) = 1
a(10, 11) = 1
a(11, 10) = 1
n = Val(Text1)
m = Val(Text2)
c(1) = n
Call zuiduan(n, m)


End Sub

Sub zuiduan(n, m)

For i = 1 To 12
  For j = 1 To 12
    a(i, j) = 0
  Next j
Next i

a(1, 2) = 1
a(2, 1) = 1
a(1, 6) = 1
a(6, 1) = 1
a(1, 7) = 1
a(7, 1) = 1
a(2, 3) = 1
a(3, 2) = 1
a(3, 4) = 1
a(4, 3) = 1
a(3, 5) = 1
a(5, 3) = 1
a(5, 10) = 1
a(10, 5) = 1
a(6, 7) = 1
a(7, 6) = 1
a(6, 8) = 1
a(8, 6) = 1
a(7, 8) = 1
a(8, 7) = 1
a(7, 11) = 1
a(11, 7) = 1
a(7, 12) = 1
a(12, 7) = 1
a(8, 9) = 1
a(9, 8) = 1
a(9, 10) = 1
a(10, 9) = 1
a(10, 11) = 1
a(11, 10) = 1

 For i = 1 To 12
loop1: Text4.Text = Text4.Text & "   " & n & "-->" & i
 p(n) = 1
If a(n, i) = 1 And p(i) = 0 Then
  u = i
 k = k + 1
 p(i) = 1
 s(i) = i
 c(k) = s(i)
 'Text3.Text = Text3.Text & i & "  "
  If u = m Then
     For j = 1 To 12
        If c(j) <> 0 Then
      Text3.Text = Text3.Text & c(j) & "  "
      
        End If
        
          
      Next j
      Text3.Text = Text3.Text + Chr(13) + Chr(10)
   
     p(m) = 0
     n = n
     i = m + 1
     k = k - 1
     GoTo loop1
  Else: y = i
  
  Call zuiduan(y, m)
   
   End If
End If

 Next i
' Text5.Text = Text5.Text & "  " & k
' p(n) = 0
' k = k - 1
' GoTo loop1
 
 
 
 If n = 12 Then
 p(n) = 0
 p(k - 1) = 0
  p(m) = 0
 i = 1
 n = 7
 k = k - 1
 Else
 
 If k - 1 > 0 And n + 1 < 13 Then
 w = c(k)
 
 p(w) = 0
  p(m) = 0
 i = c(k) + 1
 c(k) = 0
 
 n = c(k - 1)
 k = k - 1
 'Text6.Text = Text6.Text & "  " & i
 GoTo loop1
 End If
End If
End Sub