第一篇：长江大学实习工作条例
长江大学实习工作条例
实习是高等学校教学工作的重要组成部分，是学生巩固专业知识，促进理论与实践相结合，提高专业技能的重要教学环节。为了加强对实习工作的管理，不断提高实习质量，特制定本条例。
第一章 实习的目的和要求
第一条 实习的目的是让学生通过各类实习接触实际和了解社会，学习生产技术和管理知识，获取本专业的实际工作技能，巩固所学理论知识，培养初步的实际工作能力和专业技能。具体要求如下：
1.了解社会和实习场所的一般情况，增加对本学科专业领域的感性认识； 2.初步了解所学专业在国民经济建设中的地位、作用和发展趋势； 3.巩固、深化所学理论知识，培养分析和解决实际问题的初步能力； 4.熟悉专业技术人员的工作职责和工作程序，获得组织和管理生产的初步知识；
5.虚心学习，培养热爱专业、热爱劳动的品德。
第二章 实习的组织领导
第二条 全校各类实习在主管校长的统一领导下进行，具体组织管理工作归口学校教务处。各院（系）由主管教学的院长（系主任）负责组织实施。教务处及院（系）的职责如下：
1.教务处职责
（1）组织制订和审核实习教学大纲；
（2）汇总和审核各教学单位制定的年度实习计划；
（3）检查各教学单位实习前的准备工作和实习计划的执行情况，协调解决全校实习中的有关问题；
（4）检查考核实习质量，组织实习工作总结和经验交流等；（5）组织开展实践教学研究，提高实践教学质量。2.院（系）职责（1）按照专业人才培养目标的要求组织编写专业技能规范和实习教学大纲；（2）具体负责实习基地建设和实习场所的联系与确定，根据实习目的和要求，做出具体的实习安排；
（3）建立实习队组织，选派实习队负责人和实习指导教师，并考核他们的工作；
（4）负责实习前的组织动员，检查实习队的准备工作和实习计划的执行情况，实习结束后及时组织实习工作总结；
（5）检查考核实习质量。实习结束后，组织院（系）内实习经验交流会；（6）每年11月底以前将下年度实习计划报教务处；（7）组织教师开展实习内容、方式、方法的改革与研究。
第三章 实习计划和实习安排
第三条 各院（系）要在实习前进行实习动员，明确实习的目的、内容和要求，并针对本次实习的特点，进行实习态度、实习纪律和实习安全等方面的教育。
第四条 各院（系）应根据各专业培养计划的要求制定详细的实习计划，经主管院长（系主任）审核签字后报教务处审批。各专业学生实习应严格按实习计划执行，如遇特殊情况需要更改实习时间，变动实习地点或取消实习计划，应书面说明原因，经主管院长（系主任）签字后报教务处审批，否则，按教学事故处理。
第五条 实习安排是组织和检查实习的主要依据。各院（系）应根据各专业培养目标和教学计划，认真组织做好实习安排，并于实习开始前2周报教务处。实习安排的内容包括以下几个方面：
1.实习的目的和要求； 2.实习的内容和检查方法； 3.实习方式和时间分配；
4.实习期间的现场教学和跟班劳动安排； 5.实习成绩的考核内容和考核方法。
第六条 为提高实习效果，各院（系）应组织有关教师根据实习教学大纲的要求编写实习指导书，详细说明实习要求和完成实习大纲规定内容的办法，指导学生实习。
第四章 实习场所和实习方式
第七条 选择实习场所应满足实习大纲的要求并力求相对稳定，提倡和鼓励各专业在实习单位建立教学、科研和生产三结合的实习基地。选择实习场所时应考虑以下原则：
1.专业基本对口，能满足实习大纲的要求，便于实习安排； 2.生产正常，技术、管理较先进，对学生实习支持和重视； 3.就地就近，相对稳定。
第八条 实习可以根据专业特点和实习场所的实际情况，采取多种方式进行。既可以以班级为单位集中安排，也可以将班级分为若干小组分散进行。考虑到目前学生外出实习难于动手的实际，还可以采取校内外相结合进行生产实习的尝试。无论采用何种方式实习，都要满足实习教学大纲要求，保证实习质量。
第五章 实习指导教师
第九条 实习指导教师应由教学经验丰富、对生产实际较为熟悉、了解实习点的基本情况、工作责任心强、有一定组织管理能力的中级及以上职称教师担任。为了保证实习质量，刚毕业任教的本科生、研究生不能单独指导学生实习；对于初次承担指导实习任务的教师，院（系）应指定专人进行指导，可提前到实习点准备。
第十条 指导教师的职责
1.提前了解实习单位情况和学生实习要求，会同实习单位有关人员根据实际情况制定详细的实习安排，并做好劳保、工具和经费等实习相关准备。
2.按实习大纲和实习安排的要求，安排、落实各项实习工作，与实习单位配合及时解决实习中的问题。
3.在实习中对学生要加强指导，严格要求，组织好各种教学和参观活动，积极引导学生深入实际，检查督促学生完成各项实习任务。
4.指导教师要以身作则，言传身教，既教书又育人，注重对学生进行安全教育，全面关心学生的思想、学习、生活和健康。
5.检查实习纪律执行情况，及时处理学生违纪问题。
6.定期向实习单位领导汇报实习情况，争取他们的指导和帮助。可根据实习单位的需要组织学生参加公益活动和义务劳动。实习结束，离开实习单位前要做好与实习单位的交接工作。
7.指导学生写好实习报告，负责学生实习成绩的考核和评定工作。8.实习结束后1周内写出实习工作总结并向学院(系)汇报。
第六章 对学生的具体要求
第十一条 实习中学生必须做到以下各点： 1.必须服从带队教师和实习小组的领导。
2.必须接受实习指导教师的指导，按实习教学大纲、实习安排的要求和规定完成实习任务，要重视在实践中学习，记好实习笔记，按时完成实习思考题或作业，并结合自己的体会写好实习报告。
3.尊重实习单位工作人员的劳动，虚心向他们学习。主动协助实习单位做一些力所能及的工作。
4.学生在实习期间不得迟到、早退或窜岗。有事或因病(凭医生证明)须经指导教师批准并办理请假手续，否则按旷课处理。
5.实习期间应注意安全，不得参与同实习无关的工作，不得去江、河、湖、海中游泳。
6.遵守实习单位和实习队的各项规章制度。
第七章 分散实习的管理
第十二条 分散实习是由院（系）安排或学生自主联系分散到相关单位进行实习的一种实习方式。根据专业特点和培养要求，对进行分散式实习的学生，学校实行目标管理。各院（系）要加强组织领导，制定相应的实习教学大纲、详细的实习要求和具体的实习成绩考核办法，有条件的可委托实习单位代为管理。分散实习管理的主要内容包括：
1.实习学期的前一学期末，实习指导教师应把实习大纲和实习基本要求发给学生，学生利用假期就近联系实习地点，开学后将联系结果报告指导教师。
2.如果条件允许，指导教师按学生的联系结果进行必要的调配后编组（每组尽可能不少于三人）并指定组长（副组长）；对于自己联系有困难的学生，由指导教师负责在本地（市内）联系实习单位。
3.必要时，指导教师应前往实习学生较集中的地区进行巡回检查、指导。4.在实习期间，学生应按实习大纲、实习计划进度的要求和规定认真地完成实习任务，认真填写实习日记，如实反映每天的主要实习内容、实习收获、出现的问题及解决问题的方法，并结合自己的实习及体会写好实习报告。
5.实习期间应严格遵守实习所在单位的上、下班制度、安全制度、操作规程、保密制度及其它各项规章制度。
6.实习结束前，学生应对本次实习进行认真总结，如实填写学生实习成绩考核鉴定表，并请实习单位或实习单位指导人员在鉴定表中出据实事求是的实习鉴定。
第八章 实习考核与成绩评定
第十三条 根据专业特点和实习类型的不同，各院（系）在组织各类实习时应制定详细的考核标准和切实可行的考核办法。考核内容应包括：思想政治表现、劳动态度、组织纪律、实习任务完成情况、实习日记、实习报告和实际操作水平等。
第十四条 按实习大纲要求，集中实习的学生必须完成实习的全部任务并提交实习日记和实习报告后，方可参加考核。
第十五条 分散实习的考核
1.分散实习注重目标管理，因此，考核工作必须严格要求，认真做好，原则上分散实习的考核工作应在实习回校后立即进行。
2.分散实习的学生，实习结束后，学生必须完成实习的全部任务并提交实习报告、实习日记、实习单位或实习单位指导人员的鉴定方可参加考核。
3.考核小组应由实习指导教师、系（教研室）负责人、辅导员及学院（系）负责人等组成；考核可采用实习答辩的形式进行，每位学生实习答辩以15分钟为宜。除实习答辩外，各院（系）根据需要还可增加笔试对学生实习进行考核。
第十六条 实习成绩按优秀、良好、中等、及格和不及格五级制评定。第十七条 实习期间因故请假累计超过实习时间的三分之一者，应令其补足或重新实习，否则，其实习成绩按不及格处理；对不请假或请假未批准不参加实习者，以旷课论处，旷课时间累计超过四分之一者，实习成绩为不及格；实习期间，因违反规定或安全制度，出现重大责任事故者，实习成绩为不及格。因实习成绩不及格而补做实习所用费用，一律由学生个人自理。
第九章 实习工作总结
第十八条 实习结束后，各实习教学单位要认真做好实习工作总结和经验交流，如实填报实习工作总结，于实习结束后2周内将实习工作总结交教务处实践教学科。
第十九条 本条例从发文之日起执行，由教务处负责解释。
第二篇：长江大学师范教育实习工作条例
长江大学师范教育实习工作条例
（教务处·2005年6月）
师范教育实习是师范教育教学计划中的一门重要必修课和综合实践课程，在教学计划中占有极其重要的地位。该课程具有高度的综合性、鲜明的实践性和相对的集中性。为了加强对师范教育实习工作的管理，不断提高教育实习质量，特制定本条例。
第一章 实习的目的与意义
第一条 师范教育实习是使学生将所学到的基础理论、专业知识和基本技能综合地运用于教育教学实践，对学生进行高强度的集中训练，从而培养学生从事中学教育教学工作的综合素质和基本技能。其目的及意义在于：
1.引导学生树立献身教育事业的志向，并对他们进行师德教育，使其初步具备人民教师应有的品德素质，以适应中学教育事业发展的需要；
2.引导学生将所学的基础理论、基本知识和基本技能，综合运用于教育教学实践，初步培养他们独立从事中学教育工作的能力；
3.引导学生认真学习和深入研究教育科学，在教育实践中探索教育规律，使他们初步了解中学教育教学管理的基本原则、方法和规律；
4.检验学生思想政治素质和专业知识水平，为高等师范教育提供反馈，以便高等师范教育改进教育教学工作；为学生的学习提供反馈，以便学生弥补专业学习中的不足。
5.强化学生能力的培养和综合素质的提高，使学生具有较强的竞争能力。
第二章 实习的组织与领导
第二条 为了加强对师范教育实习工作的领导，学校在主管教学校长的领导下，成立由教务处、学生事务处、计划财务处及相关院（系）负责人组成的学校师范教育实习工作领导小组，统一领导全校师范教育实习工作。相关教学院（系）成立相应的教育实习工作小组。
第三条 学校师范教育实习工作领导小组负责全校教育实习的组织和领导。其职责是：
负责制定全校的师范教育实习工作计划和工作方案，审查相关院（系）工作计划；落实实习基地的建设及实习学校，审查学生提出的分散实习申请；预算实习经费，审核实习经费的开支；组织并检查学生实习情况，处理实习过程中的重大问题；审核学生实习成绩，对实习进行总结和表彰。
第四条 相关院（系）教育实习工作小组，由院长（系主任）任组长，主管教育实习的副院长（系副主任）、专业教师、指导教师、教学秘书、班主任（辅导员）为工作小组成员，其职责是：
1.制定本单位教育实习工作计划，配备指导教师；
2.组织本单位教育实习前的试教工作，选拔、组织学生参加学校试教比赛活动。
3.做好实习前的思想教育和实习动员、实习准备工作。4.配合学校落实实习学校，选派实习小组组长。
5.实习期间跟踪了解学生实习情况，及时发现和处理实习中出现的问题。6.组织本单位教育实习经验交流，做好实习的总结工作。
-２5.在原班主任的指导下，组织主题班会，开展形式多样富有意义的班级活动。第九条 实习的过程大致可分为“大三段”和“小三段”。1.“大三段”，即实习的8周时间分为三个阶段：
第一阶段，教育教学见习期，约一周时间。主要是熟悉班级情况，了解管理常规，认识学生；听指导教师授课，熟悉教学常规，做一些教辅工作，备课试教，准备上课。
第二阶段，教育教学实习期。约六周时间，从备、教、辅、改、考、教学研究各个方面全面开展工作，听指导教师授课，全面完成教育教学的实习任务，是实习的主要阶段。
第三阶段，实习总结期。约一周时间，为教学鉴定课、汇报课及实习总结周。2.“小三段”，即把“大三段”的第二阶段再划分为三个阶段： 第一阶段，集中精力上好“登台课”，争取教学有一个高起点。
第二阶段，克服松劲情绪，有针对性的上好“提高课”，克服缺点和不足。第三阶段，全身心投入上好“鉴定课”，以此为依据评定教学实习成绩。
第四章 实习生的管理
第十条 师范专业学生必须参加教育实习。
第十一条 实习生在实习期间，必须严格遵守我校和实习学校的各项规章制度，对于违纪行为，按我校有关规章制度作相应处罚，给实习单位造成损失的，按实习单位规定赔偿。实习期间，实习生必须做到：
1.为人师表。注意自己的教风、师德，言行举止应成为中学生的表率。2.准确定位。明确自己的双重身份，服从领导，虚心向指导老师请教；爱护
-５-学生，刻苦钻研，认真负责，克服困难，充分发挥主动性、积极性和创造性。
3.正确处理人际关系。服从实习学校的领导和管理；热爱学生，不搞庸俗的师生关系；勤学好问，虚心向指导老师、科任教师请教；实习生之间团结友爱，互相帮助，互相鼓励，正确对待荣誉与利益。
4.注意安全。既要注意自身的生命和财产安全，又要注意学生的生命财产安全。
5.不准与中学生谈恋爱。
6.对实习学校的意见和建议，要通过正常的途径有组织地提出。
7.在班主任工作实习期间，要注意工作态度、工作方式方法，严禁用简单粗暴的方式处理问题。
第十二条 实习生的请假制度： 1.实习期间，一般不得请假。
2.如有特殊原因（如实习生生病、伤残事故或其直系亲属病重等），请假须经实习学校领导小组审批，并报所在院（系）教育实习工作小组备案。
3.请假必须履行书面报告手续，审批人要签字备案。
4.对不经请假或请假未获批准而不参加实习或擅自离校者，以旷课论处。第十三条 实习小组长的职责：
1.督促小组同学完成实习任务，反映小组同学的情况与要求，组织小组同学集体备课、试教和相互听课；
2.关心小组同学的思想、生活、健康，以身作则，相互帮助，共同搞好实习工作；
3.组织学习有关文件，记录小组实习及纪律执行情况；
-６5.因违反规定或安全制度（如私自带学生出游或从事其他活动等），出现重大责任事故者；
6.实习期间不能够上课或上课效果较差。
第二十二条 因实习成绩不及格而补做实习所需费用，一律由学生个人自理。
第六章 实习工作总结与表彰
第二十三条 实习结束后，各片区指导教师和相关院（系）要认真做好实习工作总结和经验交流，如实填报实习工作总结，于实习结束后2周内将实习工作总结交教务处实践教学科。
第二十四条 在实习工作总结与评比的基础上，教务处组织召开实习工作总结与表彰会，交流实习工作经验，表彰优秀实习小组、优秀实习生和实习生标兵。
第二十五条 本条例从发文之日起执行，由教务处负责解释。
-９-
第三篇：长江大学VB上机实习报告
计算机上机实习报告
学院：石油工程学院 班级：储运11204 姓名：魏亚荣
学号：XXXXXXX 班内序号：XX 指导教师：XXX
第 1 页
计算机上机实习报告
目录
一.系统名称----------------------------3 二.实习目的----------------------------3 三.系统功能概要----------------------3 四.系统设计分析----------------------3 五．窗体设计与程序代码------------5 六．心得体会---------------------------16
第页
计算机上机实习报告
一、系统名称----班级学生成绩管理系统
二、实习目的：
综合应用所学理论知识，联系实际开发一个具备简易功能的班级学生成绩管理系统。熟悉程序编写与调试，熟悉数据文件的创建、打开、读写、关闭等相关操作，同时让我们熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧。
三、系统功能概要
1、用记事本新建一个文本文件，将本班的M名学生的有关信息及本学期的N门考试课的成绩（要求用假想分数，并要求将自己的每门课的放在第一列）输入到这个文件中,建议按如下形式存放(注：20≤M≤50、5≤N≤8，下文以M=10,N=5为例): 序号
姓名
幸运日
出生日期
英语
VB 数学
体育
专业课
作者自己
1992.12.19 99
98
10
张某
1993.08.06 77
80
5
李某
1994.11.16 89
99
3
王某
1993.06.04 56
43
2
刘某
1994.01.05 82
85
1
孙某
1994.01.15 45
66
4
赵某
1992.01.05 82
56
6
陈某
1993.12.25 86
66
9
周某
1666.12.23 56
65
8
钱某
1994.03.03 56
56
2、将本学期的N门课程及其学分(16学时为1个学分)输入到另一个数据文件（文件类型同上题）中，建议如下列形式存放：
编号
课程名称
课程学分
英语
5.0 2
vb程序设计
3
数学
4.5 4
体育
3.0 5
专业课
10.0 1）找出“出生日”与幸运日相同的人，并打印出其信息（每行输出一个人信息）2）统计出分别拥有幸运数字1，2,3,4,5,6,7,8,9,0的人数 3）能查出任何一个你感兴趣的人的信息 4）可新添加一个人的信息 5）和删除一个人的信息
第页
计算机上机实习报告
6）可以对某个人的幸运数字进行修改，只改变其幸运数字，其他信息不变
7）根据以上两文件内容分别计算每个学生N门课的加权平均分（保留2位小数，4舍5入）,按平均分排列名次，平均分相同则名次并列，如第1、2、2、4、5、5、7…名。用VB创建一个数据文件，存放班级的成绩表，建议按以下形式存放。
学号
姓名
英语
vb程序设计
数学
平均成绩
名次
张某
80.5
2
李某
78.2
3
王某
88.8
4
赵某
68.5
8）分别统计全班每门课的平均分，并计算各分数段（60分以下；60～69；70～79；80～89；90分以上）的学生人数。用VB创建一个新的数据文件，在该文件中存放数据的格式如下：
范围.英语
VB
.>=90
.80-89
...............................9）打印每名学生成绩条（并将结果存放到用VB创建的一个新的数据文件中）。
10）打印所有存在不及格课程学生的名单（含学号、不及格课程名称、课程的学分及成绩）。11）打印优等生名单（学号、Ｎ门课成绩、平均分名次）优等生条件：
a)平均分 90分
b)名次在本班位于前三名
c)平均分85分，并且有二门课的成绩都 95分
选做内容：打印每门课成绩分布图
说
明：所有输出结果应写入用VB创建的文件中，格式要整齐，并有适当的文字说明。实习报告要求：应包括分析设计与说明、部分过程（函数）的源程序清单、程序调试过程中遇到的问题及解决方法，有待改善或改进的意见，对本次实习的意见与建议、收获等。其中原始数据及程序运行的结果应作为附录附于实习报告之后。
四、系统设计分析：
1、该成绩管理系统中要同时表示学生的学号、姓名、成绩等一些信息，及课程、课程学分等一些信息，由于每项信息的意义不同，数据类型也不同，但还要同时作为一个整体来描叙和处理，因此需要通过用户自定义来解决。所以在编程之前新建一个标准模块用来定义自定义类型。
2、为了便于后面执行求加权平均分、排名等命令，在Form1发生Load事件时应将学生信息和课程信息读取并放到两个数组中，由于这两个数组在该管理系统的全程序都要用到，因此应定义为全局类型。如是在标准模块中定义两个数组。
3、由于原始数据文件中相邻的两列之间空格的长短不一，因此在调用Split函数之前应窗体通用模块中自定义一个space1函数将原始数据文件中相邻的两列之间空格数变为相同。
4、在编写程序时，由于该系统的程序代码较多，因此在编写时要合理。
5、在打印成绩条、不及格名单、优等生等信息时，应边用write语句分别将数据存入一个新的文件中。
第页
计算机上机实习报告
6、实习必须按着老师的严格要求完成所有的实习任务，并整理成文件打印。
五．窗体设计与程序代码
1.此次窗体设计使用了11个命令按钮分别对应不同的系统功能要求，具体界面如下
2.程序代码
⑴统计“出生日”与幸运日相同的人
Dim stu()As student, n%, kc()As kecheng, x% Private Sub Command1_Click()Cls For i = 1 To UBound(stu())
If Right(stu(i).birthday, 2)= stu(i).luckyday Then
Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;
For j = 1 To 5
Print stu(i).score(j);
Next j
End If Next i End Sub
第页
计算机上机实习报告
⑵统计不及格学生的名单
Private Sub Command10_Click()Cls Print “序号”;Spc(3);“姓名”;Spc(3);“成绩”;Spc(3);“学分”;Spc(3);“课程”;For i = 1 To UBound(stu())
For j = 1 To 5
If stu(i).score(j)< 60 Then
Print Tab(0);stu(i).num;Spc(3);stu(i).name;Spc(2);stu(i).score(j);Spc(3);kc(j).xf;Spc(3);kc(j).km;
End If
Next j Next i End Sub
⑶打印优等生名单
Private Sub Command11_Click()Cls Print “学号”“英语”;Space(3);“VB”;Space(3);“数学”;Space(3);“体育”;Space(3);“专业课”;Space(3);“排名”
第页
计算机上机实习报告
Dim zxf%, i%, j%, k% For i = 1 To UBound(kc())
zxf = zxf + kc(i).xf Next i For j = 1 To UBound(stu())
For k = 1 To 5
stu(j).average = stu(j).average + stu(j).score(k)* kc(k).xf / zxf
stu(j).average = Format(stu(j).average, “0.00”)
Next k Next j For m = 1 To UBound(stu())
stu(m).rank = 1
For n = 1 To UBound(stu())
If stu(m).average < stu(n).average Then
stu(m).rank = stu(m).rank + 1
End If
Next n Next m For i = 1 To UBound(stu())
k = 0
For j = 1 To 5
If stu(i).score(j)>= 95 Then
k = k + 1
End If
Next j
If stu(i).average >= 90 Or stu(i).rank <= 3 Or(stu(i).average >= 85 And k >= 2)Then
Print stu(i).num;Space(3);stu(i).name;
For m = 1 To 5
Print stu(i).score(m);Spc(4);
Next m
Print stu(i).rank
End If Next i End Sub
第页
计算机上机实习报告
⑷统计各幸运数字的人数 Private Sub Command2_Click()Cls For i = 0 To 9
Dim luckypeople%
For j = 1 To UBound(stu())
If Val(stu(j).luckyday)= i Then
luckypeople = luckypeople + 1
End If
Next j
Print “幸运数字为” & i;“的人数为:” & luckypeople
luckypeople = 0 Next i End Sub ⑸查询信息
Private Sub Command3_Click()Cls Dim rm As String, i%, j% rm = InputBox(“请输入你想要查询的同学的姓名”)For i = 1 To UBound(stu())
If Trim(stu(i).name)= rm Then
Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;
For j = 1 To 5
Print stu(i).score(j);
Next j
End If Next i End Sub
第页
计算机上机实习报告
⑹添加信息
Private Sub Command4_Click()Cls Dim xinxuesheng As String xinxuesheng = InputBox(“请依次按照序号，姓名，幸运日，出生日期，英语，vb，数学，体育，专业课的顺序输入新同学的信息，中间用空格隔开”)Open “e:vb作业1.txt” For Append As #1 Print #1, xinxuesheng Print Close #1 Do While InStr(Trim(xinxuesheng), “ ”)<> 0
xinxuesheng = Replace(Trim(xinxuesheng), “ ”, “ ”)Loop a = Split(xinxuesheng, “ ”)n = n + 1 ReDim Preserve stu(n)stu(n).num = a(0)stu(n).name = a(1)stu(n).luckyday = a(2)stu(n).birthday = a(3)For i = 1 To 5
stu(n).score(i)= a(3 + i)Next i For i = 1 To UBound(stu())
Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;
For j = 1 To 5
Print stu(i).score(j);
Next j
Print Next i
第页
计算机上机实习报告
End Sub
⑺删除信息
Private Sub Command5_Click()Cls Dim rm As String rm = InputBox(“请输入你要删除的同学的姓名”)For i = 1 To n
If Trim(stu(i).name)= rm Then
Exit For
End If Next i
For j = i To n1)For i = 1 To UBound(stu())
Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;
For j = 1 To 5
Print stu(i).score(j);
Next j
第 页
计算机上机实习报告
Next i End Sub
⑻修改幸运数字
Private Sub Command6_Click()Cls Dim rm As String, shuzi As String, i%, j% rm = InputBox(“请输入你要修改的同学的姓名”)shuzi = InputBox(“请输入你要修改后的幸运数字”)For i = 1 To UBound(stu())
If Trim(stu(i).name)= rm Then
stu(i).luckyday = shuzi
Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;
For j = 1 To 5
Print stu(i).score(j);
Next j
End If Next i End Sub
第 页
计算机上机实习报告
⑼计算每个学生的平均分 Private Sub Command7_Click()Cls Dim zxf%, i%, j%, k% For i = 1 To UBound(kc())
zxf = zxf + kc(i).xf Next i For j = 1 To UBound(stu())
For k = 1 To 5
stu(j).average = stu(j).average + stu(j).score(k)* kc(k).xf / zxf
stu(j).average = Format(stu(j).average, “0.00”)
Next k Next j For m = 1 To UBound(stu())
stu(m).rank = 1
For n = 1 To UBound(stu())
If stu(m).average < stu(n).average Then
stu(m).rank = stu(m).rank + 1
End If
Next n Next m Open “e:成绩单.txt” For Append As #3 Print #3, “序号”;Space(3);“姓名”;Space(3);“幸运日”;Space(3);“出生日期”;Space(4);“数学”;Space(4);“英语”;Space(4);“vb”;Space(4);“物理”;Space(3);“专业课”;Space(3);“平均分”;Space(3);“排名” For i = 1 To UBound(stu())
Print #3，Print #3, stu(i).num;Space(3);stu(i).name;Space(3);stu(i).luckyday;Space(3);stu(i).birthday;Space(3);
For j = 1 To 5
第 页
计算机上机实习报告
Print #3, stu(i).score(j);Space(3);
Next j
Print #3, stu(i).average;Space(3);stu(i).rank;Next i Close #3 End Sub
⑽统计成绩分布
Private Sub Command8_Click()Cls Dim i%, j%, bsix%, ss%, se%, en%, anine%, a(1 To 25)As Integer, b(1 To 5)As Integer, c(1 To 5)As Integer, d(1 To 5)As Integer, e(1 To 5)As Integer, o(1 To 5)As Integer, p(1 To 5)As Integer, q(1 To 5)As Integer, r(1 To 5)As Integer, s(1 To 5)As Integer For i = 1 To 5
kc(i).zf = 0
For j = 1 To UBound(stu())
kc(i).zf = kc(i).zf + stu(j).score(i)
Next j
kc(i).average = kc(i).zf / UBound(stu())
kc(i).average = Format(kc(i).average, “0.00”)
Print kc(i).average Next i Open “e:成绩分布.txt” For Append As #4 Print #4, “范围”;Space(8);“数学”;Space(3);“英语”;Space(3);“vb”;Space(3);“物理”;Space(3);“专业课”
第 页
计算机上机实习报告
For i = 1 To 5
For j = 1 To UBound(stu())
If stu(j).score(i)>= 90 Then
o(i)= o(i)+ 1
ElseIf stu(j).score(i)>= 80 Then
p(i)= p(i)+ 1
ElseIf stu(j).score(i)>= 70 Then
q(i)= q(i)+ 1
ElseIf stu(j).score(i)>= 60 Then
r(i)= r(i)+ 1
Else
s(i)= s(i)+ 1
End If
Next j Next i Print #4, “>=90”;Spc(8);For i = 1 To 5
Print #4, o(i);Spc(4);Next i Print #4, Print #4, “>=80”;Spc(8);For i = 1 To 5
Print #4, p(i);Spc(4);Next i Print #4, Print #4, “>=70”;Spc(8);For i = 1 To 5
Print #4, q(i);Spc(4);Next i Print #4, Print #4, “>=60”;Spc(8);For i = 1 To 5
Print #4, r(i);Spc(4);Next i Print #4, Print #4, “其他”;Spc(8);For i = 1 To 5
Print #4, s(i);Spc(4);Next i Print #4, Close #4 End Sub
第 页
计算机上机实习报告
⑾打印学生成绩条
Private Sub Command9_Click()Dim stu(1 To 20)As String Open “e:成绩单.txt” For Input As #5 For i = 1 To 20 Line Input #5, stu(i): Print stu(i)Next i Close #5 End Sub
⑿文本信息的输入
Private Sub Form_Load()Dim str1 As String, a()As String, i%, str2 As String, b()As String Open “e:学生信息.txt” For Input As #1 Line Input #1, str1 Print str1
第 页
计算机上机实习报告
Do While Not EOF(1)
Line Input #1, str1
Do While InStr(Trim(str1), “ ”)<> 0
str1 = Replace(Trim(str1), “ ”, “ ”)
Loop
a = Split(str1, “ ”)
n = n + 1
ReDim Preserve stu(n)
stu(n).num = a(0)
stu(n).name = a(1)
stu(n).luckyday = a(2)
stu(n).birthday = a(3)
For i = 1 To 5
stu(n).score(i)= a(3 + i)
Next i
Cls Loop Close #1 Open “e:学分.txt” For Input As #2 Line Input #2, str2 Print str2 Do While Not EOF(2)
Line Input #2, str2
Do While InStr(Trim(str2), “ ”)<> 0
str2 = Replace(Trim(str2), “ ”, “ ”)
Loop
b = Split(str2, “ ”)
x = x + 1
ReDim Preserve kc(x)
kc(x).bh = Val(b(0))
kc(x).km = b(1)
kc(x).xf = b(2)Loop Close #2 Cls End Sub
六．心得体会
1.通过这次上机实习，我受益匪浅，不仅更加熟悉VB的操作和运行环境，同时将课堂上所学的知识进行了系统化的整
第 页
计算机上机实习报告
理与疏导；
2.在此次上机实习中，我切身体会到了编程对我们现代生活的重要性，编程能大大地方便我们日常的生活，使我们上网，工作更快捷，一个人就能干许多人的事情，大大地节约了人力，这将使计算机的应用更加普遍和普及，使社会的生产效率越来越高。
第 页
第四篇：长江大学教务处
长江大学教务处
长大教通字[2008]14 长大教通字[2008]14 号 [2008]1
教 务 处 2008 年 4 月 16 日----------------------------
2007 2008 学年第二学期期中教学检查 学期期中教学检查通知 2007～2008 学年第二学期期中教学检查通知
各院（系、部）： 为了加强日常教学管理，不断提高教学质量，根据学校的统一安 排，决定本学期第 11、12 周（5 月 5 日～5 月 16 日）进行期中教学 检查。现将有关事项通知如下:
一、检查内容和方式 本学期期中教学检查内容主要包括日常教学秩序检查和实验、实习、毕业论文（设计）等实践教学环节两个方面，其中实践教学环节 的检查是本次期中教学检查的重点。检查采取抽查、自查和集中检查 的方式进行，抽查主要是日常教学秩序的检查，自查和集中检查主要 是实验、实习和毕业论文（设计）的检查。
1．抽查。教务处组织教务管理人员根据前半学期的教学情况，有针对性的进行抽查。教务处对抽查情况将进行及时的反馈和处理，并提出相应的整改措施。2．自查。各院（系、部）在第 9、10 周组织专人对本单位的实 验、实习和毕业论文（设计）等实践教学环节进行自查。实验课的自 查内容包括实验教学基本教学资料、实验教学进度、实验教学大纲的 执行情况、实验开出率、实验课教学质量等。实习教学的自查内容包 括实习大纲和实习指导书、实习计划及执行情况、实习记录和实习总 结、实习报告（作业）、实习的考核和成绩等方面。毕业论文（设计）自查内容包括毕业论文（设计）工作安排、征题、选题、开题报告或 文献综述、工作进展、教师指导情况、以及三个“工作手册”的填写 情况等。各教学单位应在自查结束后，分实验、实习、毕业论文（设 计）填写自查表（见附表 1～3），并于 5 月 5 日前将文本及电子文档 报实践教学科。3．集中检查。实习和毕业论文（设计）的检查安排在第 11、12 周进行（集中检查日程安排见附表 4），由教务处组织督导员深入各院（系、部），采取与学生座谈、查阅相关资料、问卷调查和质量评估 的方式进行。集中检查期间，各院（系、部）应按自查内容要求，提 供相关的教学资料和信息，供督导员检查和考核。实验教学的检查安 排在第 9~14 周进行，由教务处组织督导员随堂听课，并进行评估考 核。
2
二、具体要求 1．期中教学检查由主管教学的院（系、部）领导全面负责，并 成立相应的自查小组，切实做好检查的安排和实施工作。各院（系、部）期中教学检查的安排和自查小组名单请于第 9 周星期四（4 月 24 日）下午下班前用电子邮件
发送到 lcc@yangtzeu.edu.cn。2．在检查实习和毕业论文（设计）时，需要召开学生座谈会，请各院（系、部）根据时间安排和要求落实好会场，并通知学生准时 到会。3．期中教学检查期间，教务处要组织召开教学督导员和学生信 息员会议，收集和反馈教学和教学管理方面的有关信息。各院（系、部）也要结合本单位的实际，适时召开教师、学生座谈会，及时交流 和反馈有关信息。4．为了提高期中教学检查的效果，各院（系、部）既要总结成 绩，更要查找问题，尤其对存在的问题必须及时反馈，制定切实可行 的整改措施，并进行跟踪处理。5．期中教学检查结束后，各院（系、部）应进行期中教学检查 小结，小结请于第 13 周星期四（5 月 22 日）以前用电子邮件发送到 lcc@yangtzeu.edu.cn，联系人：郑老师，联系电话：8060606。附表 1：2007-2008 学年第二学期实验教学自查表 附表 2：2007-2008 学年第二学期实习教学自查表
3
附表 3：2008 届本科毕业论文（设计）院（系）教学管理自查表 附表 4：2007-2008 学年第二学期实习、毕业论文（设计）检查安排（附表：1～3 请在教务处网页通知栏内下载）
长江大学教务处 二ＯＯ八年四月十六日
4
第五篇：长江大学考研申请书
一考研生考试申请书
尊敬的临床医学院院领导：
我叫刘XX，是长江大学临床医学专业XXXXX班的学生（学号：2009xxxxx），目前正在荆州市中心医院接受实习培训。
大学四年以来，我一直认真学习和本专业相关的基础及临床课程，并深刻了解本专业目前的就业形势，为了弥补专业知识的不足以及改善我未来就业的状况，特向我院领导申请报考2014研究生考试。望您批准我备考2014年研究生考试，我将在接下来的时间里认真备考，争取以最好的成绩回报学校和父母的教育和培养。再次恳请我院领导批准，谢谢！
申请人： 刘X X2013年07月22日
鲁公网安备37028302000876号