【正文】 Next MSF1(0).Clear rs = 1 With MSF1(0) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。 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。 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With For Y = 0 To MSF1(1).Rows 1 For X = 0 To NC + 2 If MSF1(1).TextMatrix(Y, X) = Then Exit For End If MSF1(0).TextMatrix(Y, X) = MSF1(1).TextMatrix(Y, X) Next MSF1(0).TextMatrix(Y, NC + 2) = MSF1(1).TextMatrix(Y, NC + 2) Next MSF1(0).Refresh MSF1(1).Clear Else = 查找經(jīng)過站點(diǎn)最小的線路 MSF1(1).Clear 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 For Y = intpart To MSF1(0).Rows 1 For X = 0 To NC + 4 If MSF1(0).TextMatrix(Y, X) = Then Exit For End If MSF1(2).TextMatrix(Y intpart, X) = MSF1(0).TextMatrix(Y, X) Next MSF1(2).TextMatrix(Y intpart, NC + 2) = MSF1(0).TextMatrix(Y, NC + 2) Next MSF1(2).Refresh MSF1(0).Clear End If End If End If End Sub Private Sub Form_Load() = Loading ... 正在聯(lián)接所需的數(shù)據(jù)庫 = connstring = adCmdTable = bus = Loading ... 正在初始化所需控件 tm = 0 = False = False gcaf = 0 39。 = 14321052 For i = 0 To 2 MSF1(i).BackColorBkg = 11763820 Next = Loading ... 正在檢索所有的車站名 Call showallstation For s = 0 To (s) Next 0 = 初始化成功 ! Unload loadform End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) End End Sub Private Sub MSF1_DblClick(Index As Integer) gindex = Index 39。在軟件生命周期的每個(gè)階段都不可避免地回產(chǎn)生差錯(cuò)。測(cè)試的目的就是在軟件投入生產(chǎn)性運(yùn)行之前，盡可能多地發(fā)現(xiàn)軟件中的錯(cuò)誤。 軟件測(cè)試是為了發(fā)現(xiàn)程序中的錯(cuò)誤而執(zhí)行程序的過程；好的測(cè)試方案是極可能發(fā)現(xiàn)迄今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測(cè)試方案；成功的測(cè)試是發(fā)現(xiàn)了至今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測(cè)試。大型軟件系統(tǒng)通常由若干個(gè)子系統(tǒng)組成，每個(gè)子系統(tǒng)又由許多模塊組成。 子系統(tǒng)測(cè)試：這個(gè)步驟著重測(cè)試模塊的接口。 驗(yàn)收測(cè)試：在這個(gè)測(cè)試步驟中發(fā)現(xiàn)的往往是系統(tǒng)需求說明書中的錯(cuò)誤。 功能測(cè)試：測(cè)試是否滿足開發(fā)要求，是否能夠提供設(shè)計(jì)所描述的功能，是否用戶的需求都得到滿足。例如：在登錄注冊(cè)模塊的測(cè)試中，針對(duì)要求輸入合法和不合法的用戶名 及口令進(jìn)行測(cè)試，反復(fù)幾次，若無錯(cuò)誤，則保證基本正確。如要求軟件某一行為的大量重復(fù)、輸入大量的數(shù)據(jù)或大數(shù)值數(shù)據(jù)、對(duì)數(shù)據(jù)庫大量復(fù)雜的查詢等。 可用性測(cè)試：測(cè)試用戶是否能夠滿意使用。 因?yàn)樵谲浖庉嫊r(shí)聽取了用戶的意見。 本系統(tǒng)經(jīng)過以上幾種測(cè)試相結(jié)合，并沒有發(fā)現(xiàn)多大的問題，可以正常運(yùn)行。另外，在整個(gè)開發(fā)的過程中，時(shí)間也比較倉促。因?yàn)閷?duì)公交查詢管理的整個(gè)流程不夠熟悉，在需求分析時(shí)未能做到完全滿足用戶的需求。相信 該公交查詢管理系統(tǒng)將是一套公交管理員必不可少的管理軟件。 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老 師 身上學(xué)到了很多東西。 他 無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對(duì)于我以 后 的工作和學(xué)習(xí)都 是 巨大的幫助， 在學(xué)術(shù)上指導(dǎo)老師是一個(gè)嚴(yán)謹(jǐn)求實(shí)，認(rèn)真負(fù)責(zé)的人。 其次我要感謝學(xué) 校 所有的老師們，沒有他們平時(shí)的教導(dǎo)，我不會(huì)順利完成我的畢業(yè)設(shè)計(jì)。面對(duì)專業(yè)知識(shí)不那么深厚的我們，老師們一遍又一遍試圖用最易懂的方式讓我們透徹理解那些高深的專業(yè)理論。 我還要感謝我的同學(xué)，沒有他們的支持和鼓勵(lì)，我不可能愉快的度過我的大學(xué)生活。 參考文獻(xiàn) [1]田金 蘭 . Visual Basic 6 使用指南 .電子工業(yè)出版社， 2021 [2]Jeffrey. Visual Basic 6 數(shù)據(jù)庫訪問技 .機(jī)械工業(yè)出版社， 2021 [3]潘錦平 . 軟件開發(fā)技術(shù) .西安電子科技大學(xué)出版社， 1999 [4]王珊，薩師宣 .數(shù)據(jù)庫系統(tǒng)概論 .高等教育出版社， 2021 [5]陸麗娜 .軟件工程 .經(jīng)濟(jì)科學(xué)出版社， 2021 [6]（英） John ： 張淮野 ,袁怡等 .數(shù)據(jù)庫設(shè)計(jì)與編程實(shí)例詳解 —— 使用 Access、SQL與 VB ， [ Database Design and Programming—— with Access， SQL and Visual Basic]，電子工業(yè)出版社， 2021 [7]周國民 .Visual Basic+Access 數(shù)據(jù)庫項(xiàng)目開發(fā)實(shí)踐 ,中國鐵道出版社 ,2021 [8] 何玉潔 .數(shù)據(jù)庫原理與應(yīng)用教程 , 機(jī)械工業(yè)出版社 ,2021 [9] Hector GarciaMolina Jeffrey Jennifer Widom,譯者 : 楊冬青 徐其鈞 唐世渭 , Database System Implementation 數(shù)據(jù)庫系統(tǒng)實(shí)現(xiàn) ,機(jī)械工業(yè)出版 社 ,2021 [10]鄭榮貴，黃平，谷會(huì)東 .Visual ，中科多媒體電子出版社，2021 As Alexander went off duty he noticed the bobbing flicker of ships39。s neck. Fumbling, she adjusted the focus. She wanted to see everything. Susan gave a little grunt of pleasure: white sand, palm trees, high hotels whose reflecting w indows signalled like lighthouses, elegant yachts leaning on the wind and bing creamily through the smooth blue water. Blue! The sea was so blue! Travel brochureblue. Susan gazed in wonder. Could this be the same Atlantic whose grey green waves had made her stomach churn and driven her into her bunk? She handed back Gary39。s in the niies on the mainland. They chatted for a minute or two. Look, there39。s expandable throat pouch. Pelicans use their elastic bills as scoops, Ben explained. And they vary the height of their dive depending on the depth of the fish. Eat two pounds a day, those fellas, a quarter of their body weight. The bird came in to land on an old jetty. Now it looked clumsy, swaying and teetering down invisible steps to alight on flat webbed feet. Soon after, a dishevelled chick was rummaging in the adult39。ll see you again before we disembark. By the way, better alter your watche sit39。s rail and looked a bout as