校园导游.frm

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

    End If
         
         If ding(g) = 0 And g <> b And g <> c And g <> d And g <> e And g <> f Then
         zanxu(7) = mudidi(g)
         ding(g) = 1
         changdu = changdu + zanzuixiao(mudidi(f), mudidi(g), 14)
         
         For h = 2 To mudidi(14)       ''''''''''''''
         If mudidi(14) = 7 Then
            If min > changdu Then
   min = changdu
   For i = 1 To mudidi(14)
    dianxu(i) = zanxu(i)
   Next i
   End If
    Exit For
    End If
          
          If ding(h) = 0 And h <> b And h <> c And h <> d And h <> e And h <> f And h <> g Then
          zanxu(8) = mudidi(h)
          ding(h) = 1
        changdu = changdu + zanzuixiao(mudidi(g), mudidi(h), 14)
          
          For p = 2 To mudidi(14)           '''''''''''''
          If mudidi(14) = 8 Then
             If min > changdu Then
   min = changdu
   For i = 1 To mudidi(14)
    dianxu(i) = zanxu(i)
   Next i
   End If
           Exit For
           End If
           
           If ding(p) = 0 And p <> b And p <> c And p <> d And p <> e And p <> f And p <> g And p <> h Then
            zanxu(9) = mudidi(p)
           ding(p) = 1
          changdu = changdu + zanzuixiao(mudidi(h), mudidi(p), 14)
           
            For q = 2 To mudidi(14)   ''''''''''''''''
            If mudidi(14) = 9 Then
              If min > changdu Then
   min = changdu
   For i = 1 To mudidi(14)
    dianxu(i) = zanxu(i)
   Next i
   End If
            Exit For
            End If
            
             If ding(q) = 0 And q <> b And q <> c And q <> d And q <> e And q <> f And q <> g And q <> h And q <> p Then
             zanxu(10) = mudidi(q)
            ding(q) = 1
            changdu = changdu + zanzuixiao(mudidi(p), mudidi(q), 14)
            
             For r = 2 To mudidi(14)      '''''''''''''''
             If mudidi(14) = 10 Then
               If min > changdu Then
   min = changdu
   For i = 1 To mudidi(14)
    dianxu(i) = zanxu(i)
   Next i
   End If
          Exit For
           End If
             If ding(r) = 0 And r <> b And r <> c And r <> d And r <> e And r <> f And r <> g And r <> h And r <> p And r <> q Then
             zanxu(11) = mudidi(r)
             ding(r) = 1
          changdu = changdu + zanzuixiao(mudidi(q), mudidi(r), 14)
            
             
             
             
              For s = 2 To mudidi(14)   '''''''''''''''
              
              If mudidi(14) = 11 Then
               If min > changdu Then
   min = changdu
   For i = 1 To mudidi(14)
    dianxu(i) = zanxu(i)
   Next i
   End If
   
              Exit For
              End If
               If ding(s) = 0 And s <> b And s <> c And s <> d And s <> e And s <> f And s <> g And s <> h And s <> p And s <> q And s <> r Then
              zanxu(12) = mudidi(s)
              changdu = changdu + zanzuixiao(mudidi(r), mudidi(s), 14)
                If min > changdu Then
                For i = 1 To mudidi(14)
    
  
   Next i
   ding(1) = 1
                 Exit For
              End If
              End If
              changdu = zanzuixiao(1, mudidi(b), 14) + zanzuixiao(mudidi(b), mudidi(c), 14) + zanzuixiao(mudidi(c), mudidi(d), 14) + zanzuixiao(mudidi(d), mudidi(e), 14) + zanzuixiao(mudidi(e), mudidi(f), 14) + zanzuixiao(mudidi(f), mudidi(g), 14) + zanzuixiao(mudidi(g), mudidi(h), 14) + zanzuixiao(mudidi(h), mudidi(p), 14) + zanzuixiao(mudidi(p), mudidi(q), 14) + zanzuixiao(mudidi(q), mudidi(r), 14)
            Next s
            End If
           For i = 1 To mudidi(14)
           ding(i) = 0
           Next i
           ding(q) = 1
         ding(p) = 1
         ding(h) = 1
        ding(g) = 1
        ding(f) = 1
        ding(e) = 1
      ding(d) = 1
      ding(c) = 1
   ding(b) = 1
   ding(1) = 1
   changdu = zanzuixiao(1, mudidi(b), 14) + zanzuixiao(mudidi(b), mudidi(c), 14) + zanzuixiao(mudidi(c), mudidi(d), 14) + zanzuixiao(mudidi(d), mudidi(e), 14) + zanzuixiao(mudidi(e), mudidi(f), 14) + zanzuixiao(mudidi(f), mudidi(g), 14) + zanzuixiao(mudidi(g), mudidi(h), 14) + zanzuixiao(mudidi(h), mudidi(p), 14) + zanzuixiao(mudidi(p), mudidi(q), 14)
            Next r
           End If
           For i = 1 To mudidi(14)
           ding(i) = 0
           Next i
         ding(p) = 1
         ding(h) = 1
        ding(g) = 1
        ding(f) = 1
        ding(e) = 1
      ding(d) = 1
      ding(c) = 1
   ding(b) = 1
   ding(1) = 1
   changdu = zanzuixiao(1, mudidi(b), 14) + zanzuixiao(mudidi(b), mudidi(c), 14) + zanzuixiao(mudidi(c), mudidi(d), 14) + zanzuixiao(mudidi(d), mudidi(e), 14) + zanzuixiao(mudidi(e), mudidi(f), 14) + zanzuixiao(mudidi(f), mudidi(g), 14) + zanzuixiao(mudidi(g), mudidi(h), 14) + zanzuixiao(mudidi(h), mudidi(p), 14)
           Next q
           End If
          For i = 1 To mudidi(14)
           ding(i) = 0
           Next i
         ding(h) = 1
        ding(g) = 1
        ding(f) = 1
        ding(e) = 1
      ding(d) = 1
      ding(c) = 1
   ding(b) = 1
   ding(1) = 1
   changdu = zanzuixiao(1, mudidi(b), 14) + zanzuixiao(mudidi(b), mudidi(c), 14) + zanzuixiao(mudidi(c), mudidi(d), 14) + zanzuixiao(mudidi(d), mudidi(e), 14) + zanzuixiao(mudidi(e), mudidi(f), 14) + zanzuixiao(mudidi(f), mudidi(g), 14) + zanzuixiao(mudidi(g), mudidi(h), 14)
          Next p
         End If
         For i = 1 To mudidi(14)
           ding(i) = 0
           Next i
        ding(g) = 1
        ding(f) = 1
        ding(e) = 1
      ding(d) = 1
      ding(c) = 1
   ding(b) = 1
   ding(1) = 1
   changdu = zanzuixiao(1, mudidi(b), 14) + zanzuixiao(mudidi(b), mudidi(c), 14) + zanzuixiao(mudidi(c), mudidi(d), 14) + zanzuixiao(mudidi(d), mudidi(e), 14) + zanzuixiao(mudidi(e), mudidi(f), 14) + zanzuixiao(mudidi(f), mudidi(g), 14)
         Next h
         End If
        For i = 1 To mudidi(14)
           ding(i) = 0
           Next i
        ding(f) = 1
        ding(e) = 1
      ding(d) = 1
      ding(c) = 1
   ding(b) = 1
   ding(1) = 1
   changdu = zanzuixiao(1, mudidi(b), 14) + zanzuixiao(mudidi(b), mudidi(c), 14) + zanzuixiao(mudidi(c), mudidi(d), 14) + zanzuixiao(mudidi(d), mudidi(e), 14) + zanzuixiao(mudidi(e), mudidi(f), 14)
        Next g
        End If
        For i = 1 To mudidi(14)
           ding(i) = 0
           Next i
        ding(e) = 1
      ding(d) = 1
      ding(c) = 1
   ding(b) = 1
   ding(1) = 1
   changdu = zanzuixiao(1, mudidi(b), 14) + zanzuixiao(mudidi(b), mudidi(c), 14) + zanzuixiao(mudidi(c), mudidi(d), 14) + zanzuixiao(mudidi(d), mudidi(e), 14)
       Next f
      End If
      For i = 1 To mudidi(14)
           ding(i) = 0
           Next i
      ding(d) = 1
      ding(c) = 1
   ding(b) = 1
   ding(1) = 1
   changdu = zanzuixiao(1, mudidi(b), 14) + zanzuixiao(mudidi(b), mudidi(c), 14) + zanzuixiao(mudidi(c), mudidi(d), 14)
      Next e
      End If
      For i = 1 To mudidi(14)
           ding(i) = 0
           Next i
      ding(c) = 1
   ding(b) = 1
   ding(1) = 1
   changdu = zanzuixiao(1, mudidi(b), 14) + zanzuixiao(b, mudidi(c), 14)
     Next d
     End If
     For i = 1 To mudidi(14)
           ding(i) = 0
           Next i
   ding(b) = 1
   ding(1) = 1
   changdu = zanzuixiao(1, mudidi(b), 14)
    Next c
   End If
         For i = 1 To mudidi(14)
           ding(i) = 0
           Next i
           ding(1) = 1
           changdu = 0
           Next b
           
           
           
           '结果输出
 
 z = 2
 zongdianxu(1) = 1
 For i = 1 To mudidi(14) - 1
   For j = 2 To 12
   If zanzuixiao(dianxu(i), dianxu(i + 1), j) <> 0 Then
   zongdianxu(z) = zanzuixiao(dianxu(i), dianxu(i + 1), j)
   z = z + 1
   End If
   Next j
   Next i
   
 drawline(1) = 1
js = 2
Form4.Text1.Text = "    您当前的位置是：学校大门。您可以选择下面的路径来参观您想要游览的景点：        学校大门"
     
 For i = 2 To 100
 If zongdianxu(i) = 0 Then
 Exit For
 End If
 Select Case zongdianxu(i)
      Case Is = 1
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "学校大门"
        drawline(js) = 1
        js = js + 1
      Case Is = 2
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "食堂"
        drawline(js) = 2
        js = js + 1
      Case Is = 3
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "图书馆"
        drawline(js) = 3
        js = js + 1
      Case Is = 4
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "滨河公园"
        drawline(js) = 4
        js = js + 1
      Case Is = 5
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "宿舍楼"
        drawline(js) = 5
        js = js + 1
      Case Is = 6
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "报告厅"
        drawline(js) = 6
        js = js + 1
      Case Is = 7
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "喷泉"
        drawline(js) = 7
        js = js + 1
      Case Is = 8
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "教学楼"
        drawline(js) = 8
        js = js + 1
      Case Is = 9
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "商店"
        drawline(js) = 9
        js = js + 1
      Case Is = 10
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "运动场"
        drawline(js) = 10
        js = js + 1
      Case Is = 11
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "实验楼"
        drawline(js) = 11
        js = js + 1
      Case Is = 12
        Form4.Text1.Text = Form4.Text1.Text & "-->" & "物理实验楼"
        drawline(js) = 12
        js = js + 1
    End Select
  Next i
  
  
  
  Else
   If mudidi(14) = 12 Then
     Form4.Text1.Text = "    您当前的位置是：学校大门。您可以选择下面的路径来参观您想要游览的景点：        学校大门-->报告厅-->教学楼-->商店-->运动场-->实验楼-->喷泉-->物理实验楼-->喷泉-->学校大门-->食堂-->图书馆-->滨河公园-->图书馆-->宿舍楼"
  End If
    If mudidi(14) = 11 Then
     z = 0
     j = 0
     For i = 1 To 11
     If mudidi(i) = 4 Then
     z = z + 1
     End If
     If mudidi(i) = 12 Then
     z = z + 2
     End If
     If mudidi(i) = 5 Then
     j = j + 1
     End If
     Next i
     If z = 1 Then
     Form4.Text1.Text = "    您当前的位置是：学校大门。您可以选择下面的路径来参观您想要游览的景点：        学校大门-->报告厅-->教学楼-->商店-->运动场-->实验楼-->喷泉-->学校大门-->食堂-->图书馆-->滨河公园-->图书馆-->宿舍楼"
     Else
      If z = 2 Then
      Form4.Text1.Text = "    您当前的位置是：学校大门。您可以选择下面的路径来参观您想要游览的景点：        学校大门-->报告厅-->教学楼-->商店-->运动场-->实验楼-->喷泉-->物理实验楼-->喷泉-->学校大门-->食堂-->图书馆-->宿舍楼"
      Else
       If j = 1 Then
      Form4.Text1.Text = "    您当前的位置是：学校大门。您可以选择下面的路径来参观您想要游览的景点：        学校大门-->报告厅-->教学楼-->商店-->运动场-->实验楼-->喷泉-->物理实验楼-->喷泉-->学校大门-->食堂-->图书馆-->滨河公园-->图书馆-->宿舍楼"
      Else
      Form4.Text1.Text = "    您当前的位置是：学校大门。您可以选择下面的路径来参观您想要游览的景点：        学校大门-->报告厅-->教学楼-->商店-->运动场-->实验楼-->喷泉-->物理实验楼-->喷泉-->学校大门-->食堂-->图书馆-->滨河公园-->图书馆"
      End If
      End If
      End If
      End If
   End If



 If mudidi(14) = 1 Then
   Form4.Show
   Form4.Text1.Text = "欢迎你使用路径查询系统！" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "        您当前的位置是学校大门，请您选择您想要游览的景点。"
   Form4.Command1.Enabled = False
   Form4.Command2.Enabled = False
 Else
   Form4.Show
   Form4.Command1.Enabled = False
   Form4.Command2.Enabled = False
 End If

 
  '在主窗口画出路径
  Form1.Picture1.Cls
  js = 1
  Do While drawline(js) > 0
    If drawline(js) = 1 Then
      Select Case drawline(js + 1)
        Case Is = 2
          Form1.Picture1.Line (Form1.Label11.Left - 300, Form1.Label11.Top - 130)-(Form1.Label10.Left + 200, Form1.Label10.Top - 150)
          Form1.Picture1.Line (Form1.Label10.Left + 200, Form1.Label10.Top - 150)-(Form1.Label10.Left + 300, Form1.Label10.Top - 250)
          Form1.Picture1.Line (Form1.Label10.Left + 200, Form1.Label10.Top - 150)-(Form1.Label10.Left + 300, Form1.Label10.Top - 50)
        Case Is = 6
          Form1.Picture1.Line (Form1.Label11.Left - 300, Form1.Label11.Top - 130)-(Form1.Label12.Left - 100, Form1.Label12.Top + 100)
          Form1.Picture1.Line (Form1.Label12.Left - 100, Form1.Label12.Top + 100)-(Form1.Label12.Left - 200, Form1.Label12.Top + 200)
          Form1.Picture1.Line (Form1.Label12.Left - 100, Form1.Label12.Top + 100)-(Form1.Label12.Left - 200, Form1.Label12.Top)
        Case Is = 7
          Form1.Picture1.Line (Form1.Label11.Left - 300, Form1.Label11.Top - 130)-(Form1.Label15.Left + 60, Form1.Label15.Top)
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label15.Left + 200, Form1.Label15.Top + 150)
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label15.Left - 80, Form1.Label15.Top + 150)
      End Select
    ElseIf drawline(js) = 2 Then
      Select Case drawline(js + 1)
        Case Is = 1
          Form1.Picture1.Line (Form1.Label10.Left + 200, Form1.Label10.Top - 150)-(Form1.Label11.Left - 300, Form1.Label11.Top - 130)
          Form1.Picture1.Line (Form1.Label11.Left - 300, Form1.Label11.Top - 130)-(Form1.Label11.Left - 400, Form1.Label11.Top - 30)