【正文】 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With For s = 0 To intpart 1 If alloks(s) = intmin Then For r = 0 To NC + 4 If MSF1(0).TextMatrix(s, r) = Then Exit For End If MSF1(1).TextMatrix(rs, r) = MSF1(0).TextMatrix(s, r) Next rs = rs + 1 End If Next MSF1(1).Refresh intmin = 9999 For k = 0 To MSF1(2).Rows 1 intcount = 9999 bfin = False For t = 0 To NC + 2 If MSF1(2).TextMatrix(k, t) = Then Exit For End If MSF1(0).TextMatrix(k + MSF1(1).Rows, t) = MSF1(2).TextMatrix(k, t) If bfin = False Then If = MSF1(2).TextMatrix(k, t) Or = MSF1(2).TextMatrix(k, t) Then If intcount = 9999 Then intcount = 0 Else intcount = intcount + 1 bfin = True End If Else If intcount 9999 Then intcount = intcount + 1 End If End If End If Next MSF1(0).TextMatrix(k, NC + 2) = MSF1(2).TextMatrix(k, NC + 2) alloks(oksn) = intcount oksn = oksn + 1 If intcount intmin Then intmin = intcount End If Next MSF1(2).Clear With MSF1(2) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。還有要注意的一點(diǎn)是在顯示出了最近車站的線路后，為了返回開始查詢到的線路，我用了 MSF1(i)做為存儲(chǔ) Dim intmin As Integer Dim intcount As Integer Dim alloks() As Integer Dim rs As Integer Dim oksn As Integer Dim strbij As String Dim bfin As Boolean intmin = 10000 If gcaf = 2 Then If = 查找經(jīng)過站點(diǎn)最小的線路 Then = 返回 oksn = 0 If MSF1(0).Visible = True Then ReDim alloks(MSF1(0).Rows) MSF1(1).Clear MSF1(1).Rows = MSF1(0).Rows For k = 0 To MSF1(0).Rows 1 intcount = 9999 bfin = False For t = 0 To NC + 2 If MSF1(0).TextMatrix(k, t) = Then Exit For End If MSF1(1).TextMatrix(k, t) = MSF1(0).TextMatrix(k, t) If bfin = False Then If = MSF1(0).TextMatrix(k, t) Or = MSF1(0).TextMatrix(k, t) Then If intcount = 9999 Then intcount = 0 Else intcount = intcount + 1 bfin = True End If Else If intcount 9999 Then intcount = intcount + 1 End If End If End If Next MSF1(1).TextMatrix(k, NC + 2) = MSF1(0).TextMatrix(k, NC + 2) alloks(oksn) = intcount oksn = oksn + 1 If intcount intmin Then intmin = intcount End If Next MSF1(0).Clear rs = 1 With MSF1(0) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。以下代碼寫得不是很好 ,有點(diǎn)亂的感覺 39。把轉(zhuǎn)發(fā)站作為終點(diǎn)站進(jìn)行查詢 digeitemp = digein digein = 0 showSEdata , , 2 39。 39。 amp。該算法有一大好處是極大的提高了查詢的速度，因?yàn)?，在掃描整個(gè)數(shù)據(jù)庫時(shí)，沒有內(nèi)循環(huán)。 其思路是先掃描整個(gè)數(shù)據(jù)庫，把有起始站的車站名的記錄存放在 MSF1(1)中，把有終點(diǎn)站的車站名的記錄存放在 MSF1(2)中 39。第三次遞歸的時(shí)候，退出 a = MsgBox(沒有直達(dá)的車次 !您是否需要轉(zhuǎn)車 ?, vbInformation + vbOKCancel, 詢問 ) If a = vbOK Then = True = True MSF1(0).Visible = False End If Exit Sub End If showtitle (numb) Dim j As Integer Dim i As Integer Dim m As Integer Dim k As Integer Dim ball As Boolean Dim mrc As Set mrc = New Set mrc = With MSF1(numb) .Rows = 2 .Row = 1 Do While Not ball = False For m = 1 To NC If Text2(m).Text = Trim(s) Then ball = True Exit For End If Next If ball = True Then For k = m To NC If Text2(k).Text = Trim(e) Then Exit For End If Next End If If ball = True And k NC + 1 Then .Rows = .Rows + 1 For i = 1 To If (i 1) Null Then .TextMatrix(.Row, i 1) = (i 1) End If Next i .Row = .Row + 1 End If Loop End With If numb = 0 Then MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False Else If numb = 2 Then MSF1(0).Visible = False MSF1(1).Visible = True MSF1(2).Visible = True End If End If If MSF1(0).Row = 1 And numb = 0 Then Call showSEdata(e, s, numb) End If If MSF1(1).Row = 1 And numb = 1 Then Call showSEdata(e, s, numb) End If If MSF1(2).Row = 1 And numb = 2 Then Call showSEdata(e, s, numb) End If Set mrc = Nothing End Sub Private Sub Cbe_Change() bcbm = False = = False = False showtitle 0 MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False = False End Sub Private Sub Cbe_DropDown() bcbm = False = = False = False = False showtitle 0 MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False End Sub Private Sub Cbm_DropDown() 39。該過程用到了遞歸主要是由于起始站和終點(diǎn)站可以互換 digein = digein + 1 39。用于顯示按起始站和終點(diǎn)站進(jìn)行的查詢 39。 CStr(k) .ColWidth(k) = 1000 Next .TextMatrix(0, NC + 2) = 備注 .ColWidth(0) = 200 .ColWidth(NC + 1) = 1000 .FixedRows = 1 For i = 1 To NC .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With Next End Sub Public Sub showdata(num As Integer) 39。用戶沒有選擇了更新數(shù)據(jù)庫 Dim strbs As String Dim intnb As Integer If Mid(, Len() 1, 1) \ Then Open + \ For Input As 1 Else Open + For Input As 1 End If Input 1, strbs intnb = CInt(Val(strbs)) For k = 0 To intnb 1 Input 1, strbs strbs Next Close 1 End If End Sub Public Sub showtitle(nu