【正文】 1 End With End Select Next Loop For k = 0 To MSF1(1).Rows 1 For t = 0 To 1 strs = MSF1(1).TextMatrix(k, t) If strs = Then Exit For End If If finnum = 0 Then ReDim finishst(finnum) finishst(0) = strs Else For c = 0 To finnum If strs = finishst(c) Then Exit For End If Next If c finnum Then ReDim Preserve finishst(finnum) finishst(finnum) = strs finnum = finnum + 1 Else Exit For End If End If For m = 0 To MSF1(2).Rows 1 bfirst = False bsec = False For n = 0 To 1 strm = MSF1(2).TextMatrix(m, n) If strm = Then Exit For End If If strm = strs Then bfirst = True End If If strm = Then bsec = True End If If bfirst And bsec Then Exit For End If Next If bfirst And bsec Then For w = 0 To If (w) = Trim(strs) Then Exit For End If Next If w Then Trim(strs) End If Exit For End If Next Next Next Set mrc3 = Nothing MSF1(1).Clear MSF1(2).Clear = 0 = 0 = 0 = 0 = bcbm = True End If End Sub Private Sub cbs_Change() bcbm = False = = False = False = False showtitle 0 MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False End Sub Private Sub cbs_DropDown() bcbm = False = = False = False = False showtitle 0 MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False End Sub Private Sub cbs_GotFocus() Call cbs_DropDown End Sub Private Sub Combo1_Change() = False = False = False MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False End Sub Private Sub Combo1_DropDown() = False = False = False MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False If bcb1 = False Then Dim mrc1 As Set mrc1 = New Set mrc1 = txtsql = select number from bus Set mrc1 = ExecuteSQL(txtsql) Do While Not (0) Loop = 0 Set mrc1 = Nothing End If bcb1 = True End Sub Private Sub Command1_Click() If = Then MsgBox 您沒有輸入要查詢的車次 !, vbInformation + vbOKOnly, 提示 ! Exit Sub End If gcaf = 1 = False = False MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False txtsql = select *from bus where number = 39。 Trim() amp。 showdata 0 = True End Sub Private Sub Command2_Click() = 查找經(jīng)過站點最小的線路 gcaf = 2 If = Then MsgBox 您沒有輸入要查詢的起點站 !, vbInformation + vbOKOnly, 提示 ! Exit Sub End If If = Then MsgBox 您沒有輸入要查詢的終點站 !, vbInformation + vbOKOnly, 提示 ! Exit Sub End If If = False Or = Then digein = 0 showSEdata , , 0 digeitemp = digein = True Else If Then = True End If digein = 0 showSEdata , , 1 39。把轉(zhuǎn)發(fā)站作為起點站進行查詢 digeitemp = digein End If End Sub Private Sub Command3_Click() Load map End Sub Private Sub Command4_Click() 39。其思路是先統(tǒng)計要經(jīng)過的車站個數(shù)，再把最小車站個數(shù)的線路顯示出來 39。 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With For s = 0 To MSF1(1).Rows 1 If alloks(s) = intmin Then For r = 0 To NC + 4 If MSF1(1).TextMatrix(s, r) = Then Exit For End If MSF1(0).TextMatrix(rs, r) = MSF1(1).TextMatrix(s, r) Next rs = rs + 1 End If Next MSF1(0).Refresh Else intpart = MSF1(1).Rows ReDim alloks(MSF1(1).Rows + MSF1(2).Rows) MSF1(0).Clear MSF1(0).Rows = MSF1(1).Rows + MSF1(2).Rows For k = 0 To MSF1(1).Rows 1 intcount = 9999 bfin = False For t = 0 To NC + 2 If MSF1(1).TextMatrix(k, t) = Then Exit For End If MSF1(0).TextMatrix(k, t) = MSF1(1).TextMatrix(k, t) If bfin = False Then If = MSF1(1).TextMatrix(k, t) Or = MSF1(1).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(1).TextMatrix(k, NC + 2) alloks(oksn) = intcount oksn = oksn + 1 If intcount intmin Then intmin = intcount End If Next MSF1(1).Clear rs = 1 With MSF1(1) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With rs = 1 For s = intpart To MSF1(1).Rows + MSF1(2).Rows 1 If alloks(s) = intmin Then For r = 0 To NC + 4 If MSF1(0).TextMatrix(s, r) = Then Exit For End If MSF1(2).TextMatrix(rs, r) = MSF1(0).TextMatrix(s, r) Next rs = rs + 1 End If Next MSF1(2).Refresh End If Else If MSF1(0).Visible = True