计算机上机实习报告.
上机实验报告(精选11篇)
上机实验报告篇1用户名se××××学号姓名学院①实验名称：②实验目的：③算法描述（可用文字描述，也可用流程图）：④源代码：（.c的文件）⑤用户屏幕（即程序运行时出现在机器上的画面）：2．对c文件的要求：程序应具有以下特点：a可读性：有注释。
b交互性：有输入提示。
c结构化程序设计风格：分层缩进、隔行书写。
3.上交时间：12月26日下午1点-6点，工程设计中心三楼教学组。
请注意：过时不候哟！四、实验报告内容0．顺序表的插入。
1.顺序表的删除。
2．带头结点的单链表的\'插入。
3.带头结点的单链表的删除。
注意：1.每个人只需在实验报告中完成上述4个项目中的一个，具体安排为：将自己的序号对4求余，得到的数即为应完成的项目的序号。
例如：序号为85的同学，85%4=1，即在实验报告中应完成顺序表的删除。
2.实验报告中的源代码应是通过编译链接即可运行的。
3.提交到个人空间中的内容应是上机实验中的全部内容。
上机实验报告篇2一、《软件技术基础》上机实验内容1．顺序表的建立、插入、删除。
2．带头结点的单链表的建立（用尾插法）、插入、删除。
二、提交到个人10m硬盘空间的内容及截止时间1．分别建立二个文件夹，取名为顺序表和单链表。
2．在这二个文件夹中，分别存放上述二个实验的相关文件。
每个文件夹中应有三个文件(.c文件、.obj文件和.exe文件)。
3. 截止时间：12月28日（18周周日）晚上关机时为止，届时服务器将关闭。
三、实验报告要求及上交时间（用a4纸打印）1．格式：《计算机软件技术基础》上机实验报告用户名se××××学号姓名学院①实验名称：②实验目的：③算法描述（可用文字描述，也可用流程图）：④源代码：（.c的文件）⑤用户屏幕（即程序运行时出现在机器上的画面）：2．对c文件的要求：程序应具有以下特点：a 可读性：有注释。
b 交互性：有输入提示。
2023年大学计算机专业实习报告五篇
2023年大学计算机专业实习报告五篇大学计算机专业实习报告篇1考核的内容，就是在公司的商务上任选一个页面，然后在规定的时间内做完，我还不错，技术比较熟练，是第四个做完的。
我是学院__级信息安全系的学生，在去前毕业后，我来到了____公司进行实习工作，我主要做的是设计工作，我发现通过实习工作，自身专业技术提高的非常快，通过在____公司进行工作，我学到了很多在学校接触不到的东西，比如，学习能力、生存能力、与人沟通的能力等等。
现将我的实习情况汇报如下，请老师点评。
一、实习工作介绍我所在的这家公司，是一家做网上招商的商业，公司接收各种厂家提供的信息，然后由网络的技术人员，将商家的信息做成网页广告，然后挂在我们的上，以此达到商业推广的目的，类似我们公司的在同行业还有u88、28招商网等。
我和其它几位同事做为网络部的技术人员，主要的工作就是接收美工人员的模板，将其通过photoshop切片，然后导入dreamweaver进行排版，(排版主要使用css+div)，并进一步的加以制作，完善美化，如加入js代码，或透明flash，因为网页是用css+div进行排版的，所以在最后一步的时候，我们还需要进行浏览器测试，因为css+div排版方式有一个最大的缺点就是：浏览器不兼容的问题，典型的如：ie与 fireworks，因为各种浏览器使用的协议不同，所以会导致页面在最终浏览的时候有一些小问题，如：页面混乱，图片、文字之间的距离过大或过小，页面不美观等等，做为一个新人，我在有些方面的技术还很不成熟，所以在技术总监张伟的帮助下，解决了很多问题，所在我很感谢他，当每天我们做完网页后，都会在代码页面加入注释代码，在里面写上每个人姓名的汉语拼间和工作日期，这样方便月底做统计工作，公司领导会根据每个人的工作数量进行奖励，每做一个页面会有 2块的提成，虽然少点，但是积少成多，也是很可观的。
二、初来公司的时候(一)初级考试初来公司的时候，我们经过了初期考试，培训，与最终考试三个阶段，在接到公司让我面试的电话后，我来到了____公司，因为要干的是网页设计，所以要有一个小测验，技术总监要求我们在网上自找图片和文字，做一个简单的页面，要求是：什么样的页面都可以，考查的主要是面试者相关软件的操作能力与代码掌握的熟练成度，说实话，从毕业后，有一段时间没有写代码了，刚一上机，还有点生疏，但是凭借在学样扎实的学习功底，我很快就恢复了自己的英雄本色，将html代码写的很熟练，做了一个左右分栏的页面，没什么太大难度，技术总监看了以后，说不错，让我三天后参加培训，合格扣就可以正式上班了。
计算机上机实训报告（通用3篇）
计算机上机实训报告（通用3篇）计算机上机实训报告篇1曾经心潮澎湃,曾经满怀激情,曾经翘首等待那为期两周的实训学习,现在已经结束了.这是我们升入大学以来的第一次外出那么远的地方实训,因此可以说我们每个人都很认真的参加了这一次实训活动.但是,同学们当我们从实训中满怀喜悦,满载而归时,不要忘了,我们之所以能有这次充实难忘的实训机会,是因为有了校以及学院的大力支持,实训带队老师的全心指导和无私的关怀;若没有校以及学院各位领导以及相关部门的大力支持,我们是绝对不会能有这次密切结合所学专业,密切接近实际工作环境的实训机会;若没有各位实训老师和蔼可亲的指导,全心全意的无私关怀,我们绝不可能能顺利完成实训任务,也绝不可能满载而归.在这里,请允许我代表07级全体实训生向校以及学院各位领导为我们精心打造的密切结合所学专业的实训平台致以最衷心的感谢;向为了我们能真正学到知识而不辞辛苦做了大量工作,而且每天都会激励我们的实训带队老师致以最衷心的感谢!实习中我们学到了很多书本上学不到的知识,同时也更加深刻地感觉到了动手能力的重要性.可以说实习中我们每一个人都有了自己的收获,收获了心中的那份经历,那份感受,那份回忆!实训过程是繁琐的,但同学们都表现得很积极,不怕课程难,相互帮助一起分析.这对于我们来说是一种难得的历练,我们此次针对的是web开发的课程实训,主要针对项目的开发流程进行系统性地实际操作.很多同学甚至吃了饭就一头扎在实训中.实训的指导老师也非常认真负责,耐心讲解,细心指导,一点一点解答同学们的疑惑,直到同学们理解了为止.在实训中,分析,讨论,演算,机房里充满了浓浓的学习气氛.如果说最好的大学是社会,那实践便是最好的老师了.通过本次的实训,我们对自己的专业有了更深的了解与体会.我们明白理论与实践相结合的必要性和重要性.它激发了我们下一阶段更加努力刻苦学习的积极性.有一句关于实践的是这样说的:"我听到的会忘掉,我看到的能记住,我做过的才真正明白.实践经验对于软件开发者来说更是必不可少的."微软公司希望应聘程序员的大学毕业生最好有十万行的编程经验.理由很简单:实践性的技术要在实践中提高.计算机归根结底是一门实践的学问,不动手是永远也学不会的.因此,最重要的不是在笔试中考高分,而是实践能力.吃苦是为了做金字塔尖上的人."纸上得来终觉浅,绝知此事要躬行!"在短暂的实训过程中,让我深深的感觉到自己在实际运用中的专业知识的匮乏,刚开始的一段时间里,对一些工作感到无从下手,茫然不知所措,这让我感到非常的难过.在学校总以为自己学的不错,一旦接触到实际,才发现自己知道的是多么少,这时才真正领悟到"书到用时方恨少"的含义.在经过了复杂而忙乱的设计编程后,我们按时完成了实训单位交给的任务.虽然结果并没有达到我们最初设想的效果,但在排除了时间短,所涉及的知识范围较广等客观原因后,我们看到的的是自身上的不足,我们所掌握的远不能满足这次任务的要求,我们还有很多东西需要在今后学习中生活中去理解去掌握.这次的任务使我们深刻体会到,学习与实践这之间的距离,只有不断的吸取理论知识,在实践中进行磨炼,才能适应现今科技超速发展的计算机时代."独学而无友,则孤陋而寡闻". 在短暂的实训过程中,让我深深的感受到了团队协作和人际沟通的重要性.处在计算机技术迅速发展,internet广泛普及的的时代,只有学会团队合作,深刻领悟团队精神,才能使自己在激烈的竞争中,处于不败的地位,才能适应这信息爆炸的社会,毕竟一个人无论是从时间还是从精力来讲,所能做的只是很少很少事情;更重要的是大学生还应当充分利用身边宝贵的人才资源,从各种渠道吸收知识和学习方法.如果遇到好的老师,你可以主动向他们请教,或者请他们推荐一些课外的参考读物.除了资深的教授以外,大学中的青年教师,博士生,硕士生乃至自己的同班同学都是最好的知识和学习伙伴.每个人对问题的理解和认识都不尽相同,只有互帮互学,大家才能共同进步.人们常说:"立足本行如下棋,输赢系于每个棋子".大学,大代表广博,学代表学识.大学出去的人一定要有广博的学识才能算得上是真正的大学毕业生.从大学的第一天开始,我们就必须从被动转向主动,成为自己未来的主人,积极地管理自己的学业和将来的事业,做好人生和职业生涯规划.作为大学生,最重要的还是学习,学生第一要事是学习,学习好了才能做其他的事情.毕竟现在是知识,信息第一的时代,有了知识你才能改变,得到自己想要的,实现自己的梦想.总结一下在此次实训过程中的收获主要有四个方面:一是通过直接参与项目开发流程,学到了实践知识,同时进一步加深了对理论知识的理解,使理论与实践知识都有所提高,圆满地完成了此次实训的任务.二是提高了实际动手操作的能力,为就业和将来的工作取得了一些宝贵的实践经验.三是在实训过程中成立一个小团队,彼此之间互相沟通,互相帮助,为了我们的目标而努力,让我看到了大家对于学习的热情,还有每个人的学习能力.四是为积累了素材和资料.在这里,我们要再次感谢校领导以及学院领导给我们提供的一个这么好的学习环境以及实训带队老师对我们的精心的指导与深深的鼓励以及无私的关怀.我想这次实训结束的同时,对自己以后的学习便是一个新的开始,争取精益求精,更上一层楼."路漫漫其修远兮,吾将上下而求索"我相信自己在以后的学习中会不断的完善,不求最好只求更好!"天行健,君子以自强不息".生活因奋斗而精彩.人生之路,使自己用双脚对全部生命历程的艰难丈量.每个人身后深深浅浅的脚印里,都蕴藏着许许多多个故事,蕴含着许许多多的快乐与艰辛.在这个弱肉强食的社会里,只有强者才有出路,才能在高手如云的环境中脱颖而出,占有一席之地.心如平原驰马,易放难收,趁着缰绳还在手,勒马回头,为时不晚.奋斗的过程很艰辛,也许一年两年都不会有什么进展,但只要保持一颗奋斗的心,总有"守得云开见月明"的时候.正如"临渊羡鱼,不如退而结网".我们要永不退缩,永不言败!计算机上机实训报告篇2前言时间飞逝，不知不觉，为期一个学期的财务会计实训就要结束了，通过本次实习，我对会计整个流程的操作有了较好的认识，我学会了会计中各个环节的操作，以及懂得了细心和谨慎是作为一个好的会计工作人员所必备的条件。
大学生计算机实习报告(精选5篇)
大学生计算机实习报告(精选5篇)通过实习，高校生能提前了解社会，认知自我，精确定位，树立正确的立业观和择业观，迈出走向社会的第一步。
下面是我给大家整理的高校生计算机实习报告(精选5篇)，欢迎大家来阅读。
高校生计算机实习报告篇1我是计算机工程系__计算机网络技术(1)班同学__。
我于20__年__月__日经学院的支配离校抵达__有限公司参与实习实训工作的，至今离开母校已经5个月之久了，对母校的思念难以言表。
现利用工作之余时间，把全部对母校的思念之情用实习报告形式向母校汇报：一、实习目的1、生产实习是本专业同学的一门主要实践性课程。
是同学将理论学问同生产实践相结合的有效途径，是增加自我的群众性观点、劳动观点、工程观点和建设有中国特色社会主义事业的职责心和使命感的过程。
2、实习实训是学院规定的一种完成学业的重要形式之一，是校内教学的连续，而且是校内教学的。
3、使自己能够早日踏入社会，品尝社会人生，培育自己的人生观、价值观，为营造完善将来打好基础。
二、实习资料我的实习主要分为两个重要阶段，第一是__年_月__日至__月__日，__有限公司阶段;其次是__年_月__日至今，__有限公司阶段。
三、实习经受__年_月__日，我根据学院的支配和计算机工程系大批同学一同坐上离校前往__有限公司的参与实习实训的车。
这我同学们第一次离开学校去异地参与实习工作，心情很感动!很快乐!十几年寒窗苦读最终快要结束了。
学院和系里的领导都非常重视，在图书馆门前开了很隆重的欢送仪式，古院长和束主任都做了深情的讲话。
上午10点多钟从学校动身，大约下午5点钟到__。
当晚连夜给我们支配了宿舍，我和其他6位同学分在一个宿舍。
其次天早晨我们就去做了简洁的培训，然后同学们就分到了不同的岗位。
我是被分在一期的生产键盘流水线上，我主要负责印刷计算机键盘的符号键，称作小键盘。
由于是生产型企业，追求效率是非常迫不及待的，机器是每一天不停的运作的，公司是分为白班和夜班。
计算机的实习报告6篇
计算机的实习报告6篇计算机的实习报告篇1几个月的实习期很快就结束了，在整个实习期间按时上下班，遵守学校及实习单位相关的规章制度，虚心学习和请教、认真完成各项实习任务和实习单位同事们交付的各项任务，经过几个月充实、丰富、辛苦的实习后，我经常不断地总结、思考，也获得了不少的心得与体会，也算是基本圆满的完成了各项实习任务：1、培养细致而敏锐的观察力，抓住一切机会学习。
实习的过程在某种程度上也是一个不断发问的过程，因为作为短时间实习的人员，师傅不可能有太多时间来手把手的教我们，而且他们自己都有一大堆的工作。
因此，很多时候我们必须学会自己去看、去揣摩，通过观察来自己学习、自我完善。
2、积极主动，不是等工作上门，而是自己找上门。
在实习刚开始时，由于他们的工作很忙，因此我们经常也会处于半闲置的状态，逐渐地感觉到实习的匮乏，但作为实习人员，我们不能光想自己学习东西，也要去想如何发挥自己的特点，达到相互学习、帮助的双赢效果。
为此，我经常主动、积极地参与到一些自己可以胜任的工作中去，如营销活动的市场调查、信息反馈、移动农村市场的调查等，起到了一定的预期效果。
这次顶岗实习让我学到了很多东西，也让我动手检验了书本上的知识。
计算机的实习报告篇2今年寒假我来到了上海酷扬计算机科技有限公司售后服务部实习，短短1个月的工作过程使我受益匪浅。
不仅计算机专业知识增长了，最主要是懂得了如何更好的为人处事。
当今社会一直处在加速的发展变化中，所以对人才的要求也越来越高，我们要用发展的眼光看问题，就要不断提高思想认识，完善自我。
师傅说作为一名it从业者，所受的社会压力将比其他行业更加沉重，要学会创新求变，以适应社会的需要。
如果是在单位，那就更需要掌握全面的计算机知识，因为小到计算机的组装维修，大到服务器的维护与测试，都需要一个人独立完成。
可以说，近1个月的工作使我成长了很多，从中有很多感悟，下面就是我的一点体会：第一是要真诚：你可以伪装你的面孔你的心，但绝不可以忽略真诚的力量。
上机实习报告
上机实习报告上机实习报告5篇随着社会一步步向前发展，报告对我们来说并不陌生，报告中涉及到专业性术语要解释清楚。
我们应当如何写报告呢？下面是小编为大家整理的上机实习报告5篇，希望对大家有所帮助。
上机实习报告篇11.实习任务用一周的时间对AUTOCAD软件练习的同时，完成机自教研室发的二维图例以及6个练习图，并完成相应的实习报告，并将绘制图形的各个步骤在实习报告中体现出来，将在实习过程中遇到的问题和绘图的关键步骤更具体的按要求写。
2.实习任务图（见附页）3.实习任务图分析：在老师所给的这些图中，基本包含了所有AUTOCAD经常使用的画图命令，并且能够进行熟练的操作，为以后的学习和工作打下坚定的基础。
因此，画好这些图很有意义。
4.CAD上机实习总结我们在此CAD培训中，不仅掌握了一些画图命令，更加熟悉了CAD环境和CAD桌面系统操作并且能够熟练的进行操作，进而画出一些简单二维图形，还学会了一些画图的快捷命令，使我的画图速度有所提高，也为我以后的学习和工作提供了有利的条件。
对于AUTOCAD，在绘图过程中，通过老师的讲解和自己的摸索以为自己以前所学的知识，我能熟练的运用有关快捷的命令，比起以前手绘图快了许多。
更重要的是掌握了有关字母类的快捷命令，更方便了绘图。
上机实习报告篇2一、实习时间XX年10月8日----XX年10月13日二、指导教师姓名陈华光、刘长松、张铁楠、王京文等三、实习地点长沙、湘潭等四、实习目的与内容1、实习目的认识实习是计算机科学与技术专业的重要实践性环节，在学习了有关的专业基础课和专业课程的基础上，认识了解计算机专业知识在其他行业领域的重要作用，为以后其他课程的学习，提供了一个感性的认识，加深了学习的积极性和主动性。
2、实习内容一周的时间里，我们分别去了湖南工程学院惠普网络中心、财富证券湘潭市韶山中路证券营业部、五菱湘潭陶瓷机械厂、湘潭钢铁集团有限公司、长沙国储电脑城和清华it学习认证中心长沙校区进行参观实习。
计算机实习报告范文(5篇)
计算机实习报告范文（5篇）计算机实习报告范文（5篇）实习报告可以记录实习期间所参与的工作内容、工作方法和成果，对实习生在实践中的学习和成长进行总结。
以下是小编带来的计算机实习报告范文，欢迎大家一起来收看！计算机实习报告范文精选篇1一、实习目的顶岗实习是教学过程中的重要组成部分，是使学生获取生产、经营实际知识和技能，巩固和加深对理论知识的理解，培养与提高能力的重要实践环节。
通过本次实习，我们将进一步加深对计算机理论知识的理解，为毕业后的实际工作打下良好基础。
计算机在人事部门的广泛使用，改进了统计手段，改革了统计方法，提高了统计工计算机在人事部门的广泛应用，将为我国的人事管理工作，提供现代化的管理手段和科学的管理方法，并将为开创人事管理工作的新局面创造条件。
二、实习工作情况及实习内容（一）实习公司简介__商贸有限公司，简称：（__）。
是为钢铁产业提供专业服务的咨询顾问机构。
__。
（二）实习过程读了三年的大学，然而大多数人对本专业的认识还是寥寥无几，在编程与软件测试周围缠绕不定，通过这次实习，我对计算机专业在行业实践中的工作对象、面临问题及解决办法有了一个较为全面的理解。
巩固专业知识的同时也增加了行业责任感，实习的日子里也加深了同学友谊，锻炼了团队精神。
现将实习的个人感想总结报告如下：关于本次实习的内容，可以说是比较简单的。
要求是做一个自己的小网站，我选择了php，为什么要选php呢？因为PHP是一种服务器端的脚本语言，类似ASP，它的脚本在服务器上执行，PHP支持很多数据库（MySQL、Informix、Oracle、Sybase、Solid、PostgreSQL、GenericODBC等等），它还是一个开源的软件（opensourcesoftware，OSS），重要的是可免费下载使用。
PHP可在不同的平台上运行（Windows、Linux、Unix），与目前几乎所有的正在被使用的服务器相兼容（Apache、IIS等），易于学习，并可高效地运行在服务器端，用一个星期时间，我复习了曾经学过的编程语言php，让我对php在认识的基础上，又具备了用php和mysql应用能力。
计算机实习报告范文【6篇】
【导语】实习使⼤学⽣增加社会阅历，积累⼯作经验。
社会阅历和⼯作经验是职业场中的决定因素。
只有参加实习，通过实习的检验，才能积累⾃⾝的阅历和经验。
以下是⽆忧考为⼤家整理的计算机实习报告范⽂【6篇】，希望对您有所帮助。
1.计算机实习报告范⽂ 暑假结束，意味着我的实习⽣活也划上⼀个完美的句号。
通过两个⽉的实习⽣活，让我对⾃⼰有了更深刻的认识。
从中发现了⾃⼰很多的不⾜，在各位的帮助下我改正了不少，也学到了许多在学校不能学到的知识。
这对将来⾛上⼯作岗位有了很⼤的帮助。
⼀年的⼤⼀学习，让我对计算机理论有了基本的了解，但实践才是的⽼师，唯有把实践与理论相结合才能创造价值更好的服务社会。
同时，从错误中学习不断的改正并应⽤实践。
“纸上得来终觉浅，绝知此事要躬⾏。
”在短暂的实习过程中，我深深的感觉到⾃⼰所学知识的肤浅和在实际运⽤中的专业知识的匮乏，刚开始的⼀段时间⾥，对⼀些⼯作感到⽆从下⼿，茫然不知所措，这让我感到很郁闷。
在学校总以为⾃⼰学的不错，⼀旦接触到实际，才发现⾃⼰知道的是那么少，这时才真正领悟到“学⽆⽌境”的含义。
不过，有⼀点是事实计算机这东西只有不断地实践⽅可掌握，读书百遍，其义⾃见，同样计算机操作多了也⾃然⽽然会…… ⼤⼀开过计算机基础课课程，但掌握的并不怎么精通，加上实际运⽤的也不多，所以对基本办公软件的运⽤相当陌⽣，起初连复杂的表格都不会做，在各位同事的帮助下，慢慢的学会并逐渐掌握⼀些基本的办公软件使⽤。
前台⼯作使我对固定电话的有些功能有所了解，如呼叫转移等。
对传真机的使⽤也有所了解。
回到学校后，应进⼀步加⼤对办公室软件的学习与使⽤。
此外，空暇时间也跟同事⼀些学习了⼀些站⽅⾯的知识，并参与到站的更新与维护中；对站的运营和管理有了基本的概念，不再像之前那么⽆知，为以后的职业规划铺平了道路。
此外，在这⾥不但学到了很多实⽤的知识，也学到了不少如何做⼈的道理。
第⼀，影响最深的是xx公司的⼗⼆字企业⽂化“诚信做⼈，⽤⼼做事，快乐⼯作”。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
计算机上机实习报告班级:地化 10902学号:200901380姓名:张坤班内序号:32指导老师:周老师任老师完成时间:2010/12/31目录一、实习题目 ---------------------------------------------------------------------01二、实习内容 --------------------------------------------------------------------01三、系统功能及流程图 --------------------------------------------------------02四、程序设计步骤及结果 -----------------------------------------------------03五、遇到的问题及其解决方法 -----------------------------------------------07六、小结 --------------------------------------------------------------------------08七、附录(源程序 -----------------------------------------------------------08一.实习题目简易学生成绩管理系统二.实习内容1、用记事本新建一个文本文件 , 将本班的 M 名学生在本学期的 N 门考试课的成绩 (要求用假想分数,并要求将自己的每门课的分数定在 96分以上,放在第一列;而将别人的大多数课程的分数都定在 96分以下输入到这个文件中 , 建议按如下形式存放 (注:20≤ M≤ 50、5≤ N ≤ 8,下文以 M=4,N=3为例 :学号姓名英语 VB 数学1 我自已 96 98 992 李某 91 96 673 王某 75 58 564 赵某 58 67 772、将本学期的 N 门课程及其学分 (16学时为 1个学分输入到另一个数据文件(文件类型同上题中,建议如下列形式存放:编号课程名称课程学分1 英语 5.02 vb 程序设计 43 数学 4.53、请编写一个简单的学生成绩管理程序 , 要求完成以下功能 :1 根据以上两文件内容分别计算每个学生 N 门课的加权平均分(保留 2位小数, 4舍 5入 , 按平均分排列名次,平均分相同则名次并列,如第 1、 2、 2、 4、 5、 5、7… 名。
用 VB 创建一个数据文件,存放班级的成绩表,建议按以下形式存放。
学号姓名英语 C 程序设计数学平均成绩名次1 张某 76 89 89 80.5 22 李某 91 96 67 78.2 33 王某 75 58 56 88.8 14 赵某 58 67 77 68.5 42 分别统计全班每门课的平均分,并计算各分数段(60分以下; 60~69; 70~79; 80~ 89; 90分以上的学生人数。
用 VB 创建一个新的数据文件,在该文件中存放数据的格式如下:范围 . 英语 VB ... ...>=90 3 5 ... ....80-89 10 12 ... ...... ... ... ... ... ... ... ... ... ...3 打印每名学生成绩条(并将结果存放到用 VB 创建的一个新的数据文件中。
4 打印所有存在不及格课程学生的名单 (含学号、不及格课程名称、课程的学分及成绩。
5 打印优等生名单(学号、N门课成绩、平均分名次优等生条件 :a 平均分 90分b 名次在本班位于前三名c 平均分≥85分,并且有二门课的成绩都≥ 95分选做内容:打印每门课成绩分布图三.系统功能及流程图四.程序设计步骤及结果 1.原始数据文本 1 学生成绩文本 2 课程学分学生成绩:课程学分加权平均分:排名次:分数段统计:学生成绩条:五.遇到的困难及解决方法1. 编完计算加权平均分的程序后发现原始数据打开(错误:文件已打开 :解决方法是查找已打开的文件 #1, #2看是否已 close#1,#2. 在调试过程中有时文件可打开但是平均分又不能计算,慢慢的多试几次,找到错误的源头就好了。
2.打印成绩条时发现相应的成绩都不是对齐的:解决方法, :适当得加 tab(n,慢慢的改变 n 的值就可以对齐了。
六.小结在这次 VB 程序设计实习中,我逐渐了解了程序在 VB 6.0中调试并运行的方法,为期一个周的实习匆匆而过, 在这个过程中我学到很多课本中学习不到的东西。
令我感觉最深的是理论与实践的差别。
在课本上学到的很多知识, 当你要真正的将它运用到实际生活中却是那么的难!看似简单的问题,当自己亲自去操作时,你会发现理想与现实的差别是那么大 ! 只有在实践中一次又一次的尝试, 一次又一次的失败,并一次又一次的总结才能真正学好各种技能, 才能把自己想要表达的东西顺利地表达出来。
其次是责任心与耐心, 几乎每一个程序都要经过无数遍的修改后才能真正运行。
我是个不是很有耐性的人, 然而在这次的实习中, 我却出奇地拥有从没有过的耐性, 因为我总是提醒自己, 每一件事都必须要对自己和整个团队负责。
因此我一直坚持到最后! 短短的一个星期,学到的东西不比上课时在课堂上学到的少,我很荣幸得到如此宝贵的机会, 为我以后的学习打下了不可或缺的基础。
其次, 通过这次实习我感觉到学习计算机编程的乐趣, 它的实用性很大, 可以为我们生活中解决很多很多生活中难以解决的问题。
我开始对计算机编程有了从未有过的兴趣。
虽然这一次的实习时间有限, 但是我觉得实习给我们的收获却是无限的。
我深信这次课程设计,对我的 VB 学习以及今后的计算机等级考试的学习和考试会起到很大的促进作用, 这对我今后的学习和工作将产生很大的影响。
七.附录(源程序Private Sub fsdtj_Click(Dim chengji(1 To 5, 1 To 5 As IntegerFor j = 1 To MFor i = 1 To NSelect Case stu(i.cj(jCase Is >= 90chengji(1, j = chengji(1, j + 1Case 80 To 89chengji(2, j = chengji(2, j + 1Case 70 To 79chengji(3, j = chengji(3, j + 1Case 60 To 69chengji(4, j = chengji(5, j + 1Case Is < 60chengji(5, j = chengji(5, j + 1End SelectNext iNext jPicture1.ClsPicture1.Print Tab(20; "学生成绩分布 "Picture1.PrintPicture1.Print "范围英语 VB 化学物理数学 "Picture1.Print ">=90分 "; Tab(10; chengji(1, 1; Tab(18; chengji(1, 2; Tab(26; chengji(1, 3; Tab(34; chengji(1, 4; Tab(42; chengji(1, 5Picture1.Print "80-89分 "; Tab(10; chengji(2, 1; Tab(18; chengji(2, 2; Tab(26; chengji(2, 3; Tab(34; chengji(2, 4; Tab(42; chengji(2, 5Picture1.Print "70-79分 "; Tab(10; chengji(3, 1; Tab(18; chengji(3, 2; Tab(26; chengji(3, 3; Tab(34; chengji(3, 4; Tab(42; chengji(3, 5Picture1.Print "60-69分 "; Tab(10; chengji(4, 1; Tab(18; chengji(4, 2; Tab(26; chengji(4, 3; Tab(34; chengji(4, 4; Tab(42; chengji(4, 5Picture1.Print "<60分 "; Tab(10; chengji(5, 1; Tab(18; chengji(5, 2; Tab(26; chengji(5, 3; Tab(34; chengji(5, 4; Tab(42; chengji(5, 5End SubPrivate Sub jqpj_Click(Picture1.ClsPicture1.Print "学号 "; Tab(10; "姓名 "; Tab(20; "英语 "; Tab(31; "VB"; Tab(40; "化学 "; Tab(50; " 物理 "; Tab(60; "数学 "; Tab(70; "平均成绩 "For i = 1 To NPicture1.Print stu(i.xh; Tab(10; stu(i.xm; Tab(20; stu(i.cj(1; Tab(30; stu(i.cj(2; Tab(40; stu(i.cj(3; Tab(50; stu(i.cj(4; Tab(60; stu(i.cj(5; Tab(70; stu(i.averNext iEnd SubPrivate Sub Form_Load(Dim st1$(, str1$Open App.Path + "\学生成绩 .txt" For Input As #1 Open App.Path + "\课程学分 .txt" For Input As #2 N = 0: M = 0: Zxf = 0Line Input #2, str1Do While Not EOF(2M = M + 1ReDim Preserve ke(MLine Input #2, str1str1 = Trim(str1str1 = space1(str1st1 = Split(str1, " " Print st1(0, st1(1ke(M.编号 = st1(0ke(M.课程名 = st1(1 ke(M.学分 = st1(2 Zxf = Zxf + ke(M.学分LoopClose #2Line Input #1, str1Do While Not EOF(1 N = N + 1ReDim Preserve stu(N Line Input #1, str1str1 = Trim(str1str1 = space1(str1st1 = Split(str1, " "Print st1(0, st1(1stu(N.xh = st1(0stu(N.xm = st1(1stu(N.cj(1 = st1(2stu(N.cj(2 = st1(3stu(N.cj(3 = st1(4stu(N.cj(4 = st1(5stu(N.cj(5 = st1(6LoopClose #1Dim i%For i = 1 To Nstu(i.aver = 0For j = 1 To Mstu(i.aver = stu(i.aver + stu(i.cj(j * ke(j.学分Next jstu(i.aver = Round(stu(i.aver / Zxf, 2Next iDim ti%, ts$, tsn!, ii%, ave!, kk%For i = 1 To N - 1k = iFor j = i + 1 To NIf stu(k.aver < stu(j.aver Then k = jNext jts = stu(k.xh: stu(k.xh = stu(i.xh: stu(i.xh = tsts = stu(k.xm: stu(k.xm = stu(i.xm: stu(i.xm = tstsn = stu(k.aver: stu(k.aver = stu(i.aver: stu(i.aver = tsn For ii = 1 To Mti = stu(k.cj(ii: stu(k.cj(ii = stu(i.cj(ii: stu(i.cj(ii = ti Next iiNext ik = 1: kk = 0: ave = stu(1.averFor i = 1 To NIf stu(i.aver = ave Thenstu(i.mc = k: kk = kk + 1Elseave = stu(i.averk = k + kkkk = 1stu(i.mc = kEnd IfNext iOpen App.Path + "\学生成绩条 .txt" For Output As #3For i = 1 To NPrint #3, "学号 "; Tab(12; "姓名 "; Tab(24; "英语 "; Tab(34; "VB"; Tab(46; "化学 "; Tab(58; "物理 "; Tab(70; "数学 "; Tab(80; "平均成绩 "; Tab(90; "名次 "Print #3, stu(i.xh; Tab(14; stu(i.xm; Tab(26; stu(i.cj(1; Tab(38; stu(i.cj(2; Tab(50; stu(i.cj(3; Tab(64; stu(i.cj(4; Tab(78; stu(i.cj(5; Tab(90; stu(i.aver; Tab(104; stu(i.mc Print #3, "............................................................................................................................" Next iClose #3End SubPrivate Sub pmc_Click(Picture1.ClsPicture1.Print "学号 "; Tab(10; "姓名 "; Tab(20; "英语 "; Tab(30; "VB"; Tab(40; "化学 "; Tab(50; "物理 "; Tab(60; "数学 "; Tab(70; "平均成绩 "; Tab(80; "名次 "Picture1.Print stu(i.xh; Tab(10; stu(i.xm; Tab(20; stu(i.cj(1; Tab(30; stu(i.cj(2;Tab(40; stu(i.cj(3; Tab(50; stu(i.cj(4; Tab(60; stu(i.cj(5; Tab(70; stu(i.aver; Tab(80;stu(i.mc Next iEnd SubPrivate Sub xscj_Click(Dim st1$(, str1$Picture1.ClsOpen App.Path + "\学生成绩 .txt" For Input As #1 N = 0Line Input #1, str1 ' 读取一行文本Picture1.Print str1Do While Not EOF(1N = N + 1ReDim Preserve stu(NLine Input #1, str1str1 = Trim(str1str1 = space1(str1st1 = Split(str1, " " ' 分离各项数据stu(N.xh = st1(0stu(N.xm = st1(1stu(N.cj(1 = st1(2stu(N.cj(2 = st1(3stu(N.cj(3 = st1(4stu(N.cj(4 = st1(5stu(N.cj(5 = st1(6stu(N.aver = 0stu(N.mc = 0Picture1.Print stu(N.xh, stu(N.xm, stu(N.cj(1, stu(N.cj(2, stu(N.cj(3, stu(N.cj(4, stu(N.cj(5LoopClose #1 ' 关闭文件End SubPublic Function space1(ByVal sss As StringDim x%x = InStr(sss, " "Do While x > 0sss = Replace(sss, " ", " "x = InStr(sss, " "Loopspace1 = sssPrivate Sub kcxf_Click(Dim st1$(, str1$Picture1.ClsOpen App.Path + "\课程学分 .txt" For Input As #2 M = 0: Zxf = 0Line Input #2, str1Picture1.Print str1Do While Not EOF(2M = M + 1ReDim Preserve ke(MLine Input #2, str1str1 = Trim(str1str1 = space1(str1st1 = Split(str1, " "ke(M.编号 = st1(0ke(M.课程名 = st1(1ke(M.学分 = st1(2Zxf = Zxf + ke(M.学分Picture1.Print ke(M.编号 , ke(M.课程名 , ke(M.学分LoopClose #2End SubPrivate Sub pmc_Click(Picture1.ClsPicture1.Print "学号 "; Tab(10; "姓名 "; Tab(20; "英语 "; Tab(30; "VB"; Tab(40; "化学 "; Tab(50; "物理 "; Tab(60; "数学 "; Tab(70; "平均成绩 "; Tab(80; "名次 "For i = 1 To NPicture1.Print stu(i.xh; Tab(10; stu(i.xm; Tab(20; stu(i.cj(1; Tab(30; stu(i.cj(2; Tab(40; stu(i.cj(3; Tab(50; stu(i.cj(4; Tab(60; stu(i.cj(5; Tab(70; stu(i.aver; Tab(80; stu(i.mc Next iEnd SubPrivate Sub xscj_Click(Dim st1$(, str1$Picture1.ClsOpen App.Path + "\学生成绩 .txt" For Input As #1N = 0Line Input #1, str1 ' 读取一行文本Picture1.Print str1Do While Not EOF(1N = N + 1ReDim Preserve stu(N Line Input #1, str1 str1 = Trim(str1 str1 = space1(str1 st1 = Split(str1, " " '分离各项数据 stu(N.xh = st1(0 stu(N.xm = st1(1 stu(N.cj(1 = st1(2stu(N.cj(2 = st1(3 stu(N.cj(3 = st1(4 stu(N.cj(4 = st1(5 stu(N.cj(5 = st1(6 stu(N.aver = 0 stu(N.mc = 0 Picture1.Print stu(N.xh, stu(N.xm, stu(N.cj(1, stu(N.cj(2, stu(N.cj(3,stu(N.cj(4, stu(N.cj(5 Loop Close #1 '关闭文件 End Sub Public Function space1(ByVal sss As String Dim x% x = InStr(sss, " " Do While x > 0 sss = Replace(sss, " ", " " x = InStr(sss, " " Loop space1 = sss End Function。