资源描述：
《列车时刻表查询vb代码及课程设计报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VisualBasic课程设计报告所属课程名称：VisualBasic程序设计课程设计题号：题目9课程设计题目：列车时刻查询课程设计难度：★★课程设计时间：2014.2.23~4.9学号：913101140321姓名：林鑫自评成绩：90分0南京理工大学机械工程学院二〇一四年三月practices.Thedevelopmentofvariousundertakings,requireseachpartytopayandhardwork.NofreeridethingundertheSun,ifyoucannotplayavanguardandexemplaryrol
2、eofpartymembersisunworthypartymembers.Bothstaffmembersandnostaffmembers,bothvigorousandresoluteworkingstyle,goodatpolicyadvocacy,andtoperformgooddecisionsofpartycommitteesandGovernments,determinedtocompleteworkassignedbythesuperiorparty.Third,focusonimprovingservice,theability一、程序功能涉及
3、知识点：（1）读文本文件；（2）动态数组（3）字符串处理（4）列表框控件的使用（4）多行文本框控件的使用功能要求：（1）程序启动后，左边的列表框显示所有的车次，点击其中一项，显示相应的详细信息。（2）在“经停车站”组合框中选择或输入一个站名然后回车，列表框中只列出经过该车站的车次。单击列表框下方的“显示全部车次”按钮，列表框中重新列出所有车次。（3）文本框（或右边的列表框）中详细信息整齐排列。二、课程设计的详细设计1、总体设计思路先将信息读入到两个动态数组中，再根据相关的事件调用数组。2、界面设计界面有frame，list，combol，text，command，
4、label.3、功能模块设计三、设计中遇到的问题与解决办法【问题1】：在读取文件的过程中，我选择的是正行的读取，如何将正行读取的内容分开，并且显示一部分的内容，程序中很多地方都需要用到靠特定的分隔符，把字符串拆开。【解决办法】：在课本上提供了可以分解字符串的通用过程，我将它运用到自己的程序中。【问题2】：显示车次详细信息的时候，如何让时间，站点都需要对齐。【解决办法】：依靠len()函数及space()函数，对中间的空格进行确定，其中的中文字符相当于两个空格字符。【问题3】：在程序中要多次调用文本文件中的内容，如何不需要多次读写文件。【解决办法】：依靠动态数组在窗
5、体第一次加载的时候就把相关的信息度入动态数组中。其中要多次redim数组，而且需要preserve。四、更上一层楼在改进版中点击右边列表框中的站点在左侧的列表框即可显示经过该站点的车次。五、课程设计总结（1）整体的功能还是实现了，运行应该是没有问题的。（2）在做这次课程设计的过程中，我深刻领悟到实践的重要性，看似困难的课程设计，一下一下来，问题一个一个解决，最后回首会觉得自己懂得了好多好多。（3）我也知道了，不能光靠自己的课本，要借助网络快速的查找自己所需要的知识点。六、源程序代码OptionexplicitPublicnAsInteger,ashuAsInteg
6、er,cshuAsIntegerPrivatea()AsString,c()AsStringPublicFunctiondividestring(sAsString,dAsString,a()AsString)AsInteger9DimiAsInteger,jAsInteger,numAsInteger'分解字符串的函数过程i=InStr(s,d)j=1DoWhilei>1num=num+1ReDimPreservea(num)a(num)=Mid(s,j,i-j)j=i+1i=InStr(j,s,d)Loopnum=num+1ReDimPreservea(num
7、)a(num)=Mid(s,j,Len(s)-j+1)dividestring=numEndFunction'单击复选框，左下方出现相应车次PrivateSubCombo1_click()DimiAsInteger,jAsInteger,eAsInteger,zf()AsStringTextout.Text=""List1.ClearForj=1Tocshui=dividestring(c(j),",",zf())Ifzf(1)=Combo1.TextThene=jDoWhilec(e)<>"*"e=e-1LoopList1.AddItemc(e+1)&"次"Er
8、asezf
