【正文】 .......................................................................................6 frmcssz......................................................................................................................7 窗體frmlsz......................................................................................................................10 frmcxtj.....................................................................................................................12 標(biāo)準(zhǔn)模塊..........................................................................................................................17設(shè)計過程遇到的主要問題及解決方法...................................................................................18設(shè)計中尚存的不足分析...........................................................................................................18心得體會...................................................................................................................................18參考文獻...................................................................................................................................19題目簡介(簡要說明課程設(shè)計所設(shè)計的程序的主要功能。程序設(shè)計師需要大量的時間去動手練習(xí)才能體會到它的內(nèi)涵，同時還需要用心去投入，時間和感情花下去之后，的確慢慢的感受到有所收獲了，我也收獲到了一點點的樂趣。在設(shè)計的過程中遇到問題，可以說是困難重重，這畢竟是自己第一次做一個程序，難免會遇到各種各樣的問題，同時在設(shè)計的過程中發(fā)現(xiàn)了自己的不足之處，對以前所學(xué)過的知識理解的不夠深刻，掌握的不夠牢固。心得及體會：通過這次的VB課程設(shè)計，我學(xué)到了很多很多的東西，同時不僅可以鞏固了以前學(xué)過的知識，而且學(xué)到了很多書本上所沒有學(xué)到的知識。，從而不必在查詢過程中頻繁地讀取文件影響查詢速度。起點站的“到達時刻”和終點站的“發(fā)車時刻”均為“”。如果列車時刻沒有變化，只需修改這兩個文件的內(nèi)容即可，不必改動程序。根據(jù)Ylistbox選中項，返回其在Detail數(shù)組中所在的位置For q = 0 To UBound(Detail)If Detail(q, 0, 0)= Replace(, ”次228。 vbCrLfEnd IfEnd IfNextEnd IfEnd SubPrivate Sub ViaStation_SelectedIndexChanged(sender As , e As)Handles 39。 Space(502 * Len(Detail(Selection, u, 1)))amp。 Space(555 * Len(Detail(Selection, u, 0)))amp。 vbCrLfElse amp。 Space(482 * Len(Detail(Selection, u, 1)))amp。選定listbox某一項所觸發(fā)的事件If 1 Then = Content(, 1) = Content(, 2) = Content(, 3) = Content(, 4) = NothingFor u = 1 To UBound(Detail, 2)If Detail(Selection, u, 0) Nothing And Detail(Selection, u, 0) ”“ ThenIf Detail(Selection, u, 1)= ”“ Then amp。顯示全部車次按鈕按下觸發(fā)的事件a() = ”“()For i = 0 To UBound(Content)(Content(i, 0)amp。ReDim Temporary1(x1, 4)For i = 0 To xUBound(Content)1, w)= Split(Temporary3(q), ”+“)(w)NextNextFor r = 0 To UBound(Content)For t = 2 To UBound(Temporary4, 2)1, y)= Split(Temporary4(r, t), ”,“)(y)NextEnd IfNextNextFileClose(2)For w = 0 To UBound(Content)39。Dim Temporary1()As StringDim x As IntegerDo Until EOF(1)LineInput(1)x += 1LoopFileClose(1)FileOpen(1, amp。對齊各項j = j + 1Next mEnd If Next i End Sub 列車時刻查詢界面設(shè)計：一、系統(tǒng)登陸界面設(shè)計二、查詢界面設(shè)計源程序代碼Public Class Form1Dim Content(,)As StringDim Detail(，)As StringPrivate Sub a()FileOpen(1, amp。將起點站，終點站，發(fā)車時刻，到達時刻添入文本框中 = str4(i): = str5(i)End If End Sub我所遇到的二個問題就是怎樣才能讓各項對齊，在網(wǎng)絡(luò)上找到了一段非常重要的代碼“(j)= str(m)+ Space(p)+ RTrim(Format(str(m + 1), “))+ RTrim(Format(str(m + 2), ”“))”，和一些提示，以下代碼得以實現(xiàn)：If = Step 3Select Case Len(str(m))39。查詢經(jīng)過站點Dim n As Integer: 39。遇到的問題及解決方法我在設(shè)計這個程序時主要遇到兩個問題。（2）在做這次課程設(shè)計的過程中，我深刻領(lǐng)悟到實踐的重要性，看似困難的課程設(shè)計，一步一步來，問題一個一個解決，最后回首會覺得自己懂得了好多好多。課程設(shè)計的詳細設(shè)計總體設(shè)計思路先將信息讀入到兩個動態(tài)數(shù)組中，再根據(jù)相關(guān)的事件調(diào)用數(shù)組。單擊列表框下方的“顯示全部車次”按鈕，列表框中重新列出所有車次。第一篇：VB課程設(shè)計報告Visual Basic課程設(shè)計報告題目1： 列車時刻查詢系統(tǒng) 難度： ** 題目2： 記憶力測試軟件 難度： ** 指導(dǎo)教師： 袁紅兵姓 名：鄭聰學(xué) 號：9151010F0535 專 業(yè)：兵器類班 級：9151010F05 學(xué) 院：機械工程學(xué)院日 期：2016年4月一、程序功能二、課程設(shè)計的詳細設(shè)計三、課程設(shè)計總結(jié)四、遇到的問題及解決方法五、源程序代碼