长江大学vb上机实习报告.docx

该【长江大学vb上机实习报告 】是由【书生教育】上传分享，文档一共【21】页，该文档可以免费在线阅读，需要了解更多关于【长江大学vb上机实习报告 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。优选文档优选文档1优选文档长江大学长江大学计算机上机实****vb)学号:油工21302姓名:***院系:石油工程学院班级:油工*****序号:**指导老师:张老师日期:2015年1月10日长江大学目录纲领....................................................................................................................................................一、题目1二、实****目的1二、实****要求1二、系统详尽设计(模块功能描绘)2三、系统应用说明(运行成就显现)6实****心得6附录7优选文档优选文档2优选文档长江大学一、题目班级学生成绩管理系统设计二、实****目的1、熟练掌握VisuaBasic语言的语法规则,VisualBasic程序调试一般方法和技巧,并能利用VisuaBasic语言实现简单程序的设计。2、掌握基本的模块设计与实现数据文件读写、人机界面设计等;3、熟练运用测量平差及程序设计知识,编写测量程序;4、进一步坚固《VB程序设计》课程中所学到的知识,熟练掌握并综合运用所学的编程技巧。三、,将本班的M名学生的相关信息及本学期的N门考试课的成绩(分数能够参照实质状况模拟,要求将自己的分数放在第一列)输入到这个文件中,建议按以下形式寄存(注:20≤M≤50、5≤N≤8,下文以M=10,N=5为例):(16学时为1个学分)输入到另一个文本文件中,建议以以下形式寄存::编写一个简单的班级学生成绩信息管理程序,功能以下:找出“出寿辰”与“好运日”相同的人,并打印出其信息(每行输出一个人的信息)优选文档优选文档3优选文档第1页优选文档优选文档21优选文档长江大学2)统计出分别拥有好运数字1,2,3,4,5,6,7,8,9,0的人数能查问出任何一个你感兴趣的人的信息可新增加一个人的信息能够删除某个人的信息能够对某人的好运数字进行改正,只改正器好运数字,其他信息不变依照以上两文件内容分别计算每个学生N门课的加权平均分(保留2位小数,4舍5入),按平均分排列名次,平均分相同则名次并列,如第1、2、2、4、5、5、7名。用VB创办一个数据文件,寄存班级的成绩表,建议按以下形式寄存。)分别统计全班每门课的平均分,并计算各分数段(60分以下;60~69;70~79;80~89;90分以上)的学生人数。用VB创办一个新的数据文件,在该文件中寄存数据的格式如下:>=903580-)打印每名学生成绩条(并将结果寄存到用VB创办的一个新的数据文件中)。10)打印所有存在不及格课程学生的名单(含学号、不及格课程名称、课程的学分及成绩)。打印优等生名单(学号、N门课成绩、平均分名次)优等生条件:平均分90分名次在本班位于前三名平均分85分,并且有二门课的成绩都95分四、系统详尽设计(模块功能描绘),2,3,4,5,6,7,8,9,,只改正器好运数字,(保留2位小数,4舍5入),按平均分排列名次,,并计算各分数段(60分以下;60~69;70~79;80~89;90分以上)的学生人数。(含学号、不及格课程名称、课程的学分及成绩),我就感觉大一的计算机基础根本不值一提,难度相去甚远。我问过很多以前的同学,他们都说vb是编程语言中最简单的,可是在此次上机实****过程中,我发现要达成学生成绩管理系统实在有很大难度。平时看课本的时候,感觉还能够理解,看得懂,可是“纸上得来终觉浅”,一旦自己调试程序,总会犯很多错误,如前面说的“文件未找到”“下标越界”等等,都是平时没有机遇解决和一些以前被自己忽略的问题。有时,为了找到代码中错误或不吻合要求的地方,我不得不一遍又一遍地仔细检查程序,甚至标点符号都不能够放过。细节决定成败,一个小小的分号也会起着扭转乾坤的作用。这几天的上机优选文档优选文档13优选文档第6页优选文档优选文档21优选文档长江大学实****有种让我感觉我已经置身于公司中,我的任务就是不仅需把它顺利按期的达成,还要做到自己满意,老师认可才行。这也让我有了动力去思虑它,去试着做它,去一遍、两遍、三遍改正它。我碰到了很多次下标越界,碰到很多次函数不决义,碰到很多这样那样的状况,若是不是亲自上机试一试,那我所学的就只能停留在理论阶段,这世界,理论与现实总有差距。学****就是为了应用,学****了VB,我不仅学会了编程,跟学****了应拥有怎样的思想方式和沉寂的态度。VB程序就是这样,不但调种方法,却拥有跟简单的方法。脑海中向来要预备几个可行的方案,暂时走不通的路先换条路走,总有时间回来想理解那条路为什么走不通。沉寂是种态度,做事不惊,遇到挫折勿乱,能沉寂的连续走下一方案,这就是伟大成功。上机实****的心情本事复杂的,是欢欣与后悔相互夹杂的。有幸自己还能够看懂模板,还能够敲一些代码;后悔自己没多复****书本,要么忘记了知识点,要么根本没波及到那需要的知识;我有有幸现在复****到了它们。但归根结底,仍是书到用时方恨少,所以呢,人不能够这样。到达大学,还没接碰到专业课,感觉这VB才是我真实学到的东西。附录:系统代码Dimgrade( )AsString*10Dimcredit(4)AsString*10DimN%PrivateSubadd_Click( )Dimt%DoWhile1t=Val(InputBox("请输入序号(enter-1toend):","序号",""))Ift=-1ThenExitDoi=NReDimPreservegrade(10,i)grade(0,i)=space3(Str(t))grade(1,i)=InputBox("请输入姓名:","姓名","")grade(1,i)=space2(grade(1,i))grade(2,i)=InputBox("请输入好运日","好运日","")grade(2,i)=space3(grade(2,i))grade(3,i)=InputBox("请输入出寿辰期(如:1995-12-06)","出寿辰期","")grade(4,i)=InputBox("请输入英语成绩","英语成绩","")grade(5,i)=InputBox("请输入VB成绩","VB成绩","")grade(6,i)=InputBox("请输入数学成绩","数学成绩","")grade(7,i)=InputBox("请输入体育成绩","体育成绩","")grade(8,i)=InputBox("请输入专业课成绩","专业课成绩","")grade(9,i)=""grade(10,i)="""ForAppendAs#1Forj=0To8Print#1,grade(j,i);Ifj=1AndLen(Trim(grade(1,i)))=4ThenPrint#1,Space(1);Ifj=3ThenPrint#1,Space(4);Nextj优选文档优选文档15优选文档第7页优选文档优选文档21优选文档长江大学Print#1,ClsPrint"增加成功!"Close#1N=N+1LoopEndSubPrivateSubaverage_grade_of_all_Click( )Dimnum(4,4)AsInteger,a!(4),str1$Fori=0ToN-1Forj=4To8SelectCaseVal(grade(j,i))CaseIs>=90num(0,j-4)=num(0,j-4)+1CaseIs>=80num(1,j-4)=num(1,j-4)+1CaseIs>=70num(2,j-4)=num(2,j-4)+1CaseIs>=60num(3,j-4)=num(3,j-4)+1CaseElsenum(4,j-4)=num(4,j-4)+1EndSelectSelectCasejCase4a(0)=a(0)+Val(grade(j,i))Case5a(1)=a(1)+Val(grade(j,i))Case6a(2)=a(2)+Val(grade(j,i))Case7a(3)=a(3)+Val(grade(j,i))Case8a(4)=a(4)+Val(grade(j,i))EndSelectNextjNextia(0)=a(0)/Na(1)=a(1)/Na(2)=a(2)/Na(3)=a(3)/Na(4)=a(4)/"ForOutputAs#1优选文档优选文档17优选文档第8页优选文档优选文档21优选文档