欢迎来到天天文库
浏览记录
ID:25621361
大小:76.18 KB
页数:3页
时间:2018-11-21
《vb课程设-117567测绘c111班赵子恒》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、××××课程设计报告(VB)编号w20学生成绩处理设计报告学院土木工程学院班级测绘C111学号117567姓名赵子恒成绩一、设计思路1.要达到的目的学习VB程序设计的方法,充分体会VB在程序设计方面的强大功能和特点,培养运用VB解决实际问题的能力。通过本次课程设计,使学生进一步巩固课堂上学到的知识,能利用VB中的基本控件和数组编写一个小的应用软件—学生成绩处理。2.关键问题的解决①设计程序界面②选取ProgressBar控件③添加TXT文件二、模块之间的调用关系,或程序流程图调用调用调用调用读取文件、计算平
2、均分Singleplayer模块doubleplayers模块Singlehelp模块doublehelp模块三、部分程序关键源代码及注释Dimdata(100,3)AsStringDimnumAsIntegerPrivateSubCommand1_Click(IndexAsInteger)Close#1SelectCaseIndexCase0Open"d:成绩.txt"ForAppendAs#1DimflagAsBooleanFori=0To3IfText1(i)=""Then××××课程设计报告(VB
3、)编号w20MsgBox"请确认学号,姓名,分数都已输入",vbOKOnly,"提示"flag=TrueEndIfNextIfNotflagThenWrite#1,Text1(0).Text;Text1(1).Text;Val(Text1(2).Text);Val(Text1(3).Text)MsgBox"添加成功"EndIfCase1Picture1.ClsDimStrLineAsString,a()AsStringDimxAsInteger,bAsIntegerOpen"D:成绩.txt"ForInp
4、utAs#1i=0DoWhileNotEOF(1)LineInput#1,StrLineIfStrLine<>""Thena()=Split(StrLine,",")Forj=0To3data(i,j)=a(j)NextEndIfi=i+1Loopnum=iForx=0TonumForj=0To3Picture1.Printdata(x,j)+"";NextPicture1.PrintNextCase2Picture2.ClsOpen"d:成绩.txt"ForInputAs#1WhileNotEOF(1)
5、LineInput#1,StrLiness=ss+StrLine+vbCrLfWendPicture2.PrintssEndSelectClose#1EndSub××××课程设计报告(VB)编号w20PrivateSubForm_Load()Open"D:成绩.txt"ForAppendAs#1EndSubPrivateSubForm_Unload(CancelAsInteger)Close#1EndSub四、设计方案的完善及目前存在的问题1.设计方案要完善的地方①添加1个图片框和一个命令按钮控件,将命令
6、按钮的caption属性设为“按平均分排序”。②对程序的调用。③对编程语言的进一步书写。五、本次设计的收获及心得体会通过对“学生成绩处理”进行VB编程,使我发现了自己的一个很大的毛病:自以为是。本来以为VB很简单,自己学得很好,结果却远非所料,许多东西都不知道。自己学习的那点知识如同大海的一叶扁舟,根本不值得提。通过对“学生成绩处理”进行VB编程,使我发现原来VB如此的美妙,许多自己常用的东西原来基本上都可以用VB进行编辑。VB的用处之大,太让我兴奋了。有时,我为了自己编了一个程序而感到欣慰,太棒了。我为学
7、VB而感到自豪,虽然我懂得不算太多,但毕竟可以做一些简单的程序,今后有机会一定要好好学习VB。通过对“学生成绩处理”进行VB编程,使我又懂得了一些简单的命令及一些简单的控件,如porogressbar控件,timer控件,文件的打开及写入,画直线及其用直线能画出的图形,可以说是收获颇丰吧。最后还得谢谢老师的检查及指导。六、对该题目和VB设计的意见和建议1.对该题目的意见和建议希望能多加一些控件,多一些我们已经学过的程序,那样也算可以学以至用了吧,当然,有一些没学过的程序也好,可以提高自己的自学能力。2.对本
8、次设计的意见和建议这次设计的不算很完美,以后一定要好好学习VB,把一些程序设计得更完美,努力提高自己的自学能力和创新设计能力,以便学好VB这门课程,我想不论自己投身什么行业,学好VB是很必要的,能使用VB编程都是一个很有用的能力,我们应该掌握这个技术。
此文档下载收益归作者所有