VB课程设计报告.docx

VB课程设计报告

第一篇：VB课程设计报告VisualBasic课程设计报告题目1：列车时刻查询系统难度：**题目2：记忆力测试软件难度：**指导教师：袁红兵姓名：郑聪学号：9151010F0535专业：兵器类班级：9151010F05学院：机械工程学院日期：2016年4月一、程序功能二、课程设计的详细设计三、课程设计总结四、遇到的问题及解决方法五、源程序代码六、总结及个人心得体会七、参考文献程序功能涉及知识点：（1）读文本文件；（2）动态数组（3）字符串处理（4）列表框控件的使用（4）多行文本框控件的使用功能要求：（1）程序启动后，左边的列表框显示所有的车次，点击其中一项，显示相应的详细信息。（2）在“经停车站”组合框中选择或输入一个站名然后回车，列表框中只列出经过该车站的车次。单击列表框下方的“显示全部车次”按钮，列表框中重新列出所有车次。（3）文本框（或右边的列表框）中详细信息整齐排列。课程设计的详细设计1、总体设计思路先将信息读入到两个动态数组中，再根据相关的事件调用数组。2、界面设计界面有frame，list，combol，text，command，label.3、功能模块设计课程设计总结（1）整体的功能还是实现了，运行应该是没有问题的。（2）在做这次课程设计的过程中，我深刻领悟到实践的重要性，看似困难的课程设计，一步一步来，问题一个一个解决，最后回首会觉得自己懂得了好多好多。（3）我也知道了，不能光靠自己的课本，要借助网络快速的查找自己所需要的知识点。遇到的问题及解决方法我在设计这个程序时主要遇到两个问题。第一个大的问题就是怎样才能实现查询经过站点和显示车次途径车站和，经过查阅书籍之后，通过以下代码就可以实现了：PrivateSubCom1_Click()'查询经过站点DimnAsIntegerList1.Clear:List2.Clear'清除界面Fori=0TokIfstr(i)=Cob1.TextThenForj=0Tonum1Ifb=str1(i)ThenText1.Text=str2(i):Text2.Text=str3(i)'将起点站，终点站，发车时刻，到达时刻添入文本框中Text3.Text=str4(i):Text4.Text=str5(i)EndIfEndSub我所遇到的二个问题就是怎样才能让各项对齐，在网络上找到了一段非常重要的代码“List2.List(j)=str(m)+Space(p)+RTrim(Format(str(m+1),“"))+RTrim(Format(str(m+2),”“))”，和一些提示，以下代码得以实现：IfList1.ListIndex=List1.ListCount3Step3SelectCaseLen(str(m))'判断站名长度以便list2中各项对齐CaseIs=2:p=5CaseIs=3:p=3CaseIs=4:p=1EndSelectList2.List(j)=str(m)+Space(p)+RTrim(Format(str(m+1),”))+RTrim(Format(str(m+2),“"))'对齐各项j=j+1NextmEndIfNextiEndSub列车时刻查询界面设计：一、系统登陆界面设计二、查询界面设计源程序代码PublicClassForm1DimContent(,)AsStringDimDetail(，)AsStringPrivateSuba()FileOpen(1,Application.StartupPath&”content.txt“,OpenMode.Input)'content.txt有多少行DimTemporary1()AsStringDimxAsIntegerDoUntilEOF(1)LineInput(1)x+=1LoopFileClose(1)FileOpen(1,Application.StartupPath&”content.txt“,OpenMode.Input)'将content.txt的文件写入Content二维数组ReDimTemporary1(x1,4)Fori=0ToxUBound(Content)1,w)=Split(Temporary3(q),”+“)(w)NextNextForr=0ToUBound(Content)Fort=2ToUBound(Temporary4,2)1,y)=Split(Temporary4(r,t),”,“)(y)NextEndIfNextNextFileClose(2)Forw=0ToUBound(Content)'将Detail数组内容写入经停车站下拉栏Forq=1ToUBound(Detail,2)IfDetail(w,q,0)NothingAndDetail(w,q,0