上机实习报告共3篇

1、Word 上机实习报告共3篇 下面是我整理的上机实习报告共3篇(实训上机报告)，供大家品鉴。 上机实习报告共1 计算机上机实习报告 姓名：张陆浩 班级：高材 学号： 老师：张老师 熊老师 时间：2022年12月24日 一试验目的: 1.熟识VB 的开发环境,把握基本的编程方法,熟识用VB语言完成一个应用程序的设计过程,把握有关编辑和调试程序的方法和技巧; 2.主要把握VB语言中的标准模块的建立数据文件的读出与写入、数组与选择结构的运用，图形操作等内容 3.了解开发简洁应用程序的全过程,包括:分析设计编程调试和编写报告.二实习要求： （一）。用记事本新建一个文本文件，将本班M名同学N门考试课的成

2、果输入到这个文件中，建议按如下形式存放（注：20=M 姓名 英语 数学 物理 化学 VB 1 张陆浩 97 98 97 97 98 2 林丹 92 87 79 91 84 3 李宗伟 75 96 83 75 73 4 李永波 89 93 83 86 82 （二）。将N门考试课以及其分数输入到另一个数据文件（文件类型同上题）中，建议以下列形式存放： 编号 课程名称 课程学分 1 英语 2 数学 3 物理 4 化学 5 VB （三）。请编写一个简洁的同学成果管理程序，以完成以下功能： 1.依据以上两文件内容分别计算每个同学N门课程的加权平均分（保留两位小数，四舍五入），按平均分排列名次，平均分相同

3、则名 次并列。用VB创建一个数据文件，存放班级的成果表。 2.分别统计全班每门课的平均分,并计算各分数段(90分以上;8089;7079;6069;60分以下)的同学数。.3.打印每名同学成果条（并将结果存放到用VB创建的一个新的数据文件中）。 4.显示全部存在不及格课程的同学的名单(含学号,不及格课程名称,课程的学分及成果)。 5.屏幕显示优等生名单及打印每门课程成果分布图。 优等生条件(只要满意三个中任一个就可以): a) 平均分=90分 b) 名次在本班位于前四名 c) 平均分=85分,并且至少有一门课的成果=95分 三、实习步骤 1、用记事本新建一个同学成果文本文件(其中包括同学学号，

4、成果，姓名，课程及成果)。 2、用记事本新建一个课程学分文本文件。 3、编辑菜单编辑器：编辑四个可拉式菜单，包括同学成果、成果处理、成果编辑、画图。 4、编辑代码：分别编辑打印同学成果和学分代码，编辑加权平均分、各科平均分、分数段、成果条、排名、优等生、差等生的代码，还有画各科目成果人数图的代码。 5、调试程序代码并保存。 6、打印代码。 三.相关数据列表： （一）。源文件 （1）成果 学号 姓名 英语 数学 物理 化学 VB 1 张陆浩 97 98 97 97 98 2 林丹 92 87 79 91 84 3 李宗伟 75 96 83 75 73 4 李永波 89 93 83 86 82 5

5、 王仪涵 92 79 89 86 80 6 汪鑫 93 65 86 68 84 7 付海峰 94 91 89 92 80 8 湛龙 86 83 88 80 92 9 盖德 68 79 54 72 71 10 陶菲克 69 76 59 81 75 11 佐佐木 85 83 68 57 71 12 李娜 94 63 62 65 53 13 陈金 86 79 89 94 83 14 兰洋 91 93 92 89 75 15 小志 95 89 93 86 87 16 棃一名 92 86 83 67 59 17 吴凯飞 67 75 57 82 62 18 江方 93 80 73 76 84 19 胡艳

6、74 68 58 63 71 20 张继原 68 95 68 84 93 （2）.学分 编号 课程名称 课程学分 1 英语 2 数学 3 物理 4 化学 5 VB 四运行效果： （一）.同学管理 （1）打开课程成果及学分 （2） 打开计算的加权平均分排名及各科平均分 (三）.编辑 （1） 打开计算的各科人数分布 （2） 打开按学号查找每个同学的成果 a） 输入要查找同学的学号 b） 得到该生的成果条 （3） 打开查找到的优等生信息 （4） 打开不及格同学的分布 （四）.成果分布图 五实习小结 通过两个星期的上机实习，我体会颇深，不仅表现在VB语言程序设计中，而且表现在与人沟通和自立自主完成任务

7、的决心中。 本次上机在VB程序设计中我学会了许多以前不会或根本一点都不懂的东西。比如，在程序设计过程中，刚开头我弄不清晰怎样把编辑的文件读到VB中，但是通过询问老师和同学争论，最终弄清了思路，即先将文件打开，再将数据分别放入若干个数组中，最终再将它读出来。除此之外，我还明白了变量的作用域对编程的重要性和子过程，函数过程数据处理的关心。而对以前学的，像选择结构，循环结构等也进行了巩固和运用。在数据处理和打印的时候进行了大量运用。为了使程序更人性化化，我还运用了msgbox，inputbox等方法，使我对所学的学问进行了综合的运用。 我信任通过这次实习，我对VB和计算机语言都有了更深刻的熟悉。虽然

8、在实习的过程中，我发觉了自己在编写程序中的不足，像思维不够严密等，但我信任，只要仔细、努力就肯定会有收获 六 .程序代码 （一）.创建标准模块 Type student “定义变量：student” number As String * 9 name As String * 3 score(1 To 5) As Single average As Single rank As Integer End Type Type cla “定义变量：cla” num As String * 9 nam As String * 3 scor As Single End Type Public stu()

9、As student, cla() As cla, sumscor As Integer, subj() As cla Public q(5) As Integer, t(5) As Integer, x(5) As Integer, y(5) As Integer, h(5) As Integer “定义删除空格函数” Public Function deletespace(str As String) As String Dim i% i = InStr(str, ) Do While i o str = Replace(str, , ) i = InStr(str, ) Loop del

10、etespace = str End Function Public Sub addave(stu() As student, cou() As course) “定义计算加 For i = 1 To UBound(stu) 权平均分 Dim jqpj!, x!, y! 的子过 程 x = 0 y = 0 For j = 1 To 5 x = x + cou(j).score y = y + stu(i).score(j) * cou(j).score Next j stu(i).jqpj = y / x Next i End Sub Public Sub mc(stu() As studen

11、t) “定义计算排名的子过程” For i = 1 To UBound(stu) stu(i).rank = 0 For j = 1 To UBound(stu) If stu(i).jqpj Private Sub studentscore_Click() = 文本文件|*.txt Open For Input As #1 Line Input #1, str1 Print str1 Do While Not EOF(1) Line Input #1, str str = deletespace(Trim(str) a = Split(str, ) n = n + 1 ReDim Prese

12、rve stu(n) stu(n).number = a(0) stu(n).name = a(1) For i = 1 To 5 stu(n).score(i) = a(i + 1) Next i Loop For i = 1 To n Print stu(i).number; Spc(1); stu(i).name; Spc(3); For j = 1 To 5 Print stu(i).score(j); Spc(3); Next j Print Next i Close #1 End Sub Private Sub clarank_Click() = 文本文件|*.txt Open F

13、or Input As #2 Line Input #2, str2 Print str2 sumscor = 0 Do While Not EOF(2) Line Input #2, str3 str3 = deletespace(Trim(str3) b = Split(str3, ) m = m + 1 ReDim Preserve cla(m) cla(m).num = b(0) cla(m).nam = b(1) cla(m).scor = b(2) sumscor = sumscor + Val(cla(m).scor) Loop For k = 1 To m Print cla(

14、k).num; Spc(2); cla(k).nam; Spc(3); cla(k).scor; Spc(3) Next k End Sub (2).分数处理 Private Sub ran_Click() “加权平均分及名次” For n = 1 To 20 sum = 0 For i = 1 To 5 sum = sum + stu(n).score(i) * cla(i).scor Next i stu(n).average = Format(sum / sumscor, #.#) Next n For n = 1 To 20 stu(n).rank = 1 For j = 1 To 2

15、0 If stu(n).average Print Spc(7); 英 语; Spc(1); 数 学; Spc(1); 物 理; Spc(1); 化 学; Spc(1); V B Print 平均分; For i = 1 To 5 sum = 0 For n = 1 To 20 sum = sum + stu(n).score(i) Next n j = Format(sum / 20, ) Print Spc(2); j; Next i End Sub （3）.编辑 Private Sub scor_Click() “计算打印个分数段人数” Print 范围; 英 语; Spc(3); 数

16、学; Spc(3); 物 理; Spc(3); 化 学; Spc(3); V B For i = 1 To 5 For n = 1 To 20 Select Case stu(n).score(i) Case 90 To 100 q(i) = q(i) + 1 Case 80 To 89 x(i) = x(i) + 1 Case 70 To 79 t(i) = t(i) + 1 Case 60 To 69 h(i) = h(i) + 1 Case Else y(i) = y(i) + 1 End Select Next n Next i Print 90; For i = 1 To 5 Pri

17、nt Spc(4); q(i); Next i Print Print 80_89; For i = 1 To 5 Print Spc(4); x(i); Next i Print Print 70_79; For i = 1 To 5 Print Spc(4); t(i); Next i Print Print 60_69; For i = 1 To 5 Print Spc(4); h(i); Next i Print Print = 95 Then t = t + 1 End If Next j If stu(i).average = 85 And t = 2 Or stu(i).aver

18、age = 90 Or stu(i).rank Private Sub Command1_Click() “新建窗体form2” For i = 0 To 4 Picture1(i).Scale (0, 14)-(100, 0) Picture1(i).Line (10, 2)-(92, 2), vbRed Picture1(i).Print 分数段 Picture1(i).Line (10, 2)-(10, 14), vbRed Picture1(i).Print 人数 For j = 2 To 10 Step 2 Picture1(i).CurrentY = j + 2 Picture1(

19、i).CurrentX = 4 Picture1(i).Print j Next j Picture1(i).CurrentX = 10 Picture1(i).CurrentY = 2 Picture1(i).Line (10, 2)-(26, 2 + q(1 + i), vbGreen, BF Picture1(i).CurrentX = 26 Picture1(i).CurrentY = 2 Picture1(i).Line (26, 2)-(42, 2 + x(i + 1), vbRed, BF Picture1(i).CurrentX = 42 Picture1(i).Current

20、Y = 2 Picture1(i).Line (42, 2)-(58, 2 + t(i + 1), vbGreen, BF Picture1(i).CurrentX = 58 Picture1(i).CurrentY = 2 Picture1(i).Line (58, 2)-(74, 2 + h(i + 1), vbRed, BF Picture1(i).CurrentX = 74 Picture1(i).CurrentY = 2 Picture1(i).Line (74, 2)-(90, 2 + y(i + 1), vbGreen, BF Picture1(i).Line (10, 2)-(

21、26, 2), vbGreen Picture1(i).Line (26, 2)-(42, 2), vbRed Picture1(i).Line (42, 2)-(58, 2), vbGreen Picture1(i).Line (58, 2)-(74, 2), vbRed Picture1(i).Line (74, 2)-(90, 2), vbGreen Picture1(i).CurrentX = 10 Picture1(i).CurrentY = 2 Picture1(i).Print =90 80-89 70-79 60-69 机床实习报告 机场实习报告 司机实习报告 轮机实习报告 机

22、电实习报告 上机实习报告共2 cAD 班级：电子质检1101班 姓名：郭利智 学号： 指导老师：潘庆杰 上机实习报告 cAD上机实习报告 1.实习任务 用一周的时间对AUTOCAD软件练习的同时，完成机自教研室发的二维图例以及6个练习图，并完成相应的实习报告，并将绘制图形的各个步骤在实习报告中体现出来，将在实习过程中遇到的问题和绘图的关键步骤更详细的按要求写。 2.实习任务图（见附页） 3.实习任务图分析： 在老师所给的这些图中，基本包含了全部AUTOCAD常常使用的画图命令，并且能够进行娴熟的操作，为以后的学习和工作打下坚决的基础。因此，画好这些图很有意义。 上机实习总结 我们在此CAD培训

23、中，不仅把握了一些画图命令，更加熟识了CAD环境和CAD桌面系统操作并且能够娴熟的进行操作，进而画出一些简洁二维图形，还学会了一些画图的快捷命令，使我的画图速度有所提高，也为我以后的学习和工作供应了有利的条件。 对于AUTOCAD，在绘图过程中，通过老师的讲解和自己的摸索以为自己以前所学的学问，我能娴熟的运用有关快捷的命令，比起以前手绘图快了很多。更重要的是把握了有关字母类的快捷命令，更便利了绘图。 上机实习报告共3 实 习 报 告 书 专 用 纸 1 实习目的 还是大一时我们学习了成本会计，当时的我们是很茫然的，老是认为成本会计很难，而且那时的我们也不太仔细听讲，就导致了我们现在成本会计实习

24、有点措手不及，但是我们都会仔细做好的。成本会计作为我们的专业，我们应当很慎重的学习，学习成本会计的目的就是为了让我们综合复习与巩固成本会计课程所学的理论学问，做到理论联系实际，培育和提高会计核算的实际操作力量。加深对成本会计核算过程以及核算方法的理解和把握，为毕业后从事会计工作打下坚实基础。这也是为了我们 大一学习成本会计不坚固而做到一个后续工作。而成本会计课程是会计学专业的主干课程之一，同时也是一门专业实践性课程。是会计学专业实践教学的重要环节，是对同学把握成本会计的基本理论和方法进行综合检查的教学形式。这个旨在综合复习与巩固成本会计的有关会计收获理论学问的课程实习，是通过同学对会计实习成本

25、会计资料的演练和操作、熟识成本会计核算实务的整个流程。所以说我们得好好珍惜此次实习机会的，将来对我们踏上会计岗位打下肯定基础。 2 实习内容 由于实习时间不多，在材料费用方面，安排费用比较简洁，比如一批材料为几种产品共同使用，应依据肯定的安排方法如按材料消耗定额或材料定额费用安排，从而计入各产品成本；人工费用方面，应按成本项目进行归集，生产工人的计入生产成本，车间管理人员的计入制造费用，厂部管理部门的计入管理费用等，若生产多种产品，应按肯定的方法照实际工时进行安排后分别计入各成本项目；帮助生产费用方面，在本次实习中，主要运用交互安排法安排，这里用的方法相对来说难度比前面的大，不过最重要的求安排

26、率；制造费用的安排方面，将在生产环节发生的制造费用按肯定的方法如工时比例、定额材料比例，安排计入各有关产品的基本生产成本项目中；废品损失计算，在核算时，将不行修复废品的生产成本和可修复废品发生的费用计入“废品损失”账户的借方，将受到的赔款和废品残值计入“废品损失”账户的贷方，然后结转出净损失；完工产品和在产品成本的计算是成本核算的最终一项内容，也是很难很重要的部分在实习中我们要用约当产量法，定额成本法和定额费用安排法来做,在这里我们花费了好多时间 直接安排法也是我们实习的一个方法，在这个方法运用过程中直接安排法是指在各帮助生产车间发生的费用，直接安排给帮助生产以外的各受益单位，帮助生产车间之间

27、相互供应的产品和劳务，不相互安排费用。 假如企业帮助生产车间相互供应产品或劳务能够满意肯定的条件，也可以采纳一些简洁的方法来计算各帮助生产车间产品或劳务的实际单位成本。直接安排法就是这些简化方法中的一种，采纳直接安排法安排帮助生产费用，只将各帮助生产车间已归集入帐的费用直接安排给非帮助生产车间受益单位，对于各帮助生产车间相互供应的产品或劳务则不进行交互安排费用。 直接安排法实质上是代数安排法的一种简化形式，是在满意各帮助生产车间供应的产品或劳务而相应负担的帮助生产费用接近相等的条件下，直接将已归集入帐的帮助生产费用安排给非帮助生产受益单位，各帮助生产车间之间因彼此耗用对方的产品或劳务而应当负担

28、的帮助生产费用接近相等而不用交互安排帮助生产费用。所以，帮助生产车间采纳直接安排法安排帮助生产费用的条件是：各帮助生产车间相互供应的产品或劳务而应负担的帮助生产费用接近相等。 直接安排法的安排等于各帮助生产车间安排前已归集入帐的费用合计除以各该帮助生产车间供应给非帮助生产车间受益单位的产品或劳务总数。给我印象最深刻的还有就是一次交互安排法，它是指企业各帮助生产车间之间有相互服务的状况下，先将各帮助生产车间直接发生的费用进行一次交互安排，然后再进行一次直接的追加安排的一种帮助生产费用安排方法。即：分为两个阶段进行安排。在这一安排方法下，先将各帮助生产车间直接发生的费用，根据供应服务数量的比例，安排给全部受益的基本生产车间、管理部门及帮助生产车间，各帮助生产车间为本车间服务的，亦得同样安排。经过安排后，各帮助生产车间直接发生的费用，虽然已全数安排出去，但同时又接受了其他帮助生产车间及本车间安排来的成本。所以还要将各该帮助生产车间受安排的成本合计数，分别追加安排于各有关基本生产车间和管理部门，但不再安排给各有关帮助生产车间。一次交互安排法在肯定程度上反映了各帮助生产车间之间的相互服务关系。 一次交互安排法的计算公式是第一阶段将各