上机实习报告（共3篇）

作者：a3362632 | 发布时间：2020-06-20 06:50:38 收藏本文下载本文

第1篇：CAD上机实习报告

CAD

班级：电子质检1101班姓名：郭利智学号：2011110902 指导老师：潘庆杰上机实习报告

CAD上机实习报告

1.实习任务

用一周的时间对AUTOCAD软件练习的同时，完成机自教研室发的二维图例以及6个练习图，并完成相应的实习报告，并将绘制图形的各个步骤在实习报告中体现出来，将在实习过程中遇到的问题和绘图的关键步骤更具体的按要求写。

2.实习任务图（见附页）

3.实习任务图分析：

在老师所给的这些图中，基本包含了所有AUTOCAD经常使用的画图命令，并且能够进行熟练的操作，为以后的学习和工作打下坚定的基础。因此，画好这些图很有意义。

4.CAD上机实习总结

我们在此CAD培训中，不仅掌握了一些画图命令，更加熟悉了CAD环境和CAD桌面系统操作并且能够熟练的进行操作，进而画出一些简单二维图形，还学会了一些画图的快捷命令，使我的画图速度有所提高，也为我以后的学习和工作提供了有利的条件。

对于AUTOCAD，在绘图过程中，通过老师的讲解和自己的摸索以为自己以前所学的知识，我能熟练的运用有关快捷的命令，比起以前手绘图快了许多。更重要的是掌握了有关字母类的快捷命令，更方便了绘图。

第2篇：成本会计上机实习报告

实习报告书专用纸

1 实习目的还是大一时我们学习了成本会计，当时的我们是很茫然的，老是认为成本会计很难，而且那时的我们也不太认真听讲，就导致了我们现在成本会计实习有点措手不及，但是我们都会认真做好的。成本会计作为我们的专业，我们应该很慎重的学习，学习成本会计的目的就是为了让我们综合复习与巩固成本会计课程所学的理论知识，做到理论联系实际，培养和提高会计核算的实际操作能力。加深对成本会计核算过程以及核算方法的理解和掌握，为毕业后从事会计工作打下坚实基础。这也是为了我们

大一学习成本会计不牢固而做到一个后续工作。而《成本会计》课程是会计学专业的主干课程之一，同时也是一门专业实践性课程。是会计学专业实践教学的重要环节，是对学生掌握成本会计的基本理论和方法进行综合检查的教学形式。这个旨在综合复习与巩固成本会计的有关会计收获理论知识的课程实习，是通过学生对会计实习成本会计资料的演练和操作、熟悉成本会计核算实务的整个流程。所以说我们得好好珍惜此次实习机会的，将来对我们踏上会计岗位打下一定基础。

2 实习内容

由于实习时间不多，在材料费用方面，分配费用比较简单，比如一批材料为几种产品共同使用，应根据一定的分配方法如按材料消耗定额或材料定额费用分配，从而计入各产品成本；人工费用方面，应按成本项目进行归集，生产工人的计入生产成本，车间管理人员的计入制造费用，厂部管理部门的计入管理费用等，若生产多种产品，应按一定的方法如实际工时进行分配后分别计入各成本项目；辅助生产费用方面，在本次实习中，主要运用交互分配法分配，这里用的方法相对来说难度比前面的大，不过最重要的求分配率；制造费用的分配方面，将在生产环节发生的制造费用按一定的方法如工时比例、定额材料比例，分配计入各有关产品的基本生产成本项目中；废品损失计算，在核算时，将不可修复废品的生产成本和可修复废品发生的费用计入“废品损失”账户的借方，将受到的赔款和废品残值计入“废品损失”账户的贷方，然后结转出净损失；完工产品和在产品成本的计算是成本核算的最后一项内容，也是很难很重要的部分在实习中我们要用约当产量法，定额成本法和定额费用分配法来做,在这里我们花费了好多时间

直接分配法也是我们实习的一个方法，在这个方法运用过程中直接分配法是指在各辅助生产车间发生的费用，直接分配给辅助生产以外的各受益单位，辅助生产车间之间相互提供的产品和劳务，不互相分配费用。

如果企业辅助生产车间相互提供产品或劳务能够满足一定的条件，也可以采用一些简单的方法来计算各辅助生产车间产品或劳务的实际单位成本。直接分配法就是这些简化方法中的一种，采用直接分配法分配辅助生产费用，只将各辅助生产车间已归集入帐的费用直接分配给非辅助生产车间受益单位，对于各辅助生产车间相互提供的产品或劳务则不进行交互分配费用。

①直接分配法实质上是代数分配法的一种简化形式，是在满足各辅助生产车间提供的产品或劳务而相应负担的辅助生产费用接近相等的条件下，直接将已归集入帐的辅助生产费用分配给非辅助生产受益单位，各辅助生产车间之间因彼此耗用对方的产品或劳务而应当负担的辅助生产费用接近相等而不用交互分配辅助生产费用。所以，辅助生产车间采用直接分配法分配辅助生产费用的条件是：各辅助生产车间相互提供的产品或劳务而应负担的辅助生产费用接近相等。

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

（1）交互分配计算公式如下：

交互分配前某项劳务单位成本=某辅助生产车间交互分配的费用总额/该辅助生产车间提供的劳务数量总和某辅助生产车间应分配劳务费用=该辅助生产车间耗用的劳务数量×交互分配前该项劳务单位成本（2）对辅助生产以外分配的计算公式如下：

交互分配后某项劳务单位成本=某辅助生产车间交互分配后的费用总额/辅助生产车间以外的各受益单位耗用劳务数量总和辅助车间以外的受益单位应分配劳务费用=该车间（或部门）耗用劳务的数量×交互分配后该项劳务单位成本采用这种方法分配费用时，同样是根据各辅助生产成本明细账上归集的费用及其提供的劳务（或产品）的情况，通过编制“辅助生产费用分配表”进行分配的。3实习心得

经过几天的实习，让我感觉到了一定的难度与复杂，最重要的就是大一时成本会计的基础知识没学好，不牢固，我们做过基础会计实习和财务会计实习，但唯有这个成本会计感受到了一定的难度，让我真正体会到成本会计是一项巨大而复杂的工作，它最考验一个人的耐力与细心，每一个过程都是非常的复杂与繁琐，所以一定要养成细心做事的习惯。经过实习，使我比较全面、系统的了解和熟悉了现代成本会计核算各个环节的基本内容，加深了我对成本会计核算基本原则和方法的理解，使我对成本会计操作的基本技能更加熟练，为我们以后的学习和工作打下了坚实的基础；以前没有学懂的一些东西，在这个实习过程中我基本把它们弄懂了，可以说这是对我所学知识的复习和深入。

当然我们在实习中有很大的不足：我们学校的条件有限，导致我们只能在机房进行操作实习，而且网络老断导致我们的实习进行的不是很顺利，所以我们在实习的过程中只是根据实习教材做题训练，虽然在这个过程中我们学会了做一些题，这就使我们缺乏了一定的好的实习环境。不过通过这次的实习也学到了很多东西与方法，也锻炼了我们的耐心与细心，对于我们以后踏上工作培养了良好的品质，我们应该珍惜此次机会。

第3篇：计算机上机实习报告

计算机上机实习报告

姓名：张陆浩班级：高材11001 学号：201001978 老师：张老师熊老师时间：2011年12月24日

一．实验目的: 1.熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧;2.主要掌握VB语言中的标准模块的建立﹑数据文件的读出与写入、数组与选择结构的运用，图形操作等内容

3.了解开发简单应用程序的全过程,包括:分析﹑设计﹑编程﹑调试和编写报告.二．实习要求：

（一）。用记事本新建一个文本文件，将本班M名学生N门考试课的成绩输入到这个文件中，建议按如下形式存放（注：20=M

姓名

英语

数学

物理

化学

VB 1

张陆浩

98 2

林丹

84 3

李宗伟

73 4

李永波

（二）。将N门考试课以及其分数输入到另一个数据文件（文件类型同上题）中，建议以下列形式存放：编号课程名称课程学分 1 英语 5.0 2 数学 4.5 3 物理 5.0 4 化学 4.5 5 VB 4.5

（三）。请编写一个简单的学生成绩管理程序，以完成以下功能： 1.根据以上两文件内容分别计算每个学生N门课程的加权平均分（保留两位小数，四舍五入），按平均分排列名次，平均分相同则名

次并列。用VB创建一个数据文件，存放班级的成绩表。

2.分别统计全班每门课的平均分,并计算各分数段(90分以上;80～89;70～79;60～69;60分以下)的学生数。.3.打印每名学生成绩条（并将结果存放到用VB创建的一个新的数据文件中）。

4.显示所有存在不及格课程的学生的名单(含学号,不及格课程名称,课程的学分及成绩)。

5.屏幕显示优等生名单及打印每门课程成绩分布图。优等生条件(只要满足三个中任一个就可以): a)平均分>=90分

b)名次在本班位于前四名

c)平均分>=85分,并且至少有一门课的成绩>=95分

三、实习步骤

1、用记事本新建一个学生成绩文本文件(其中包括学生学号，成绩，姓名，课程及成绩)。

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 王仪涵 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 胡艳 74 68 58 63 71 20 张继原 68 95 68 84 93（2）.学分

编号课程名称课程学分 1 英语 5.0 2 数学 4.5 3 物理 5.0 4 化学 4.5 5 VB 4.5 四．运行效果：

（一）.学生管理

（1）打开课程成绩及学分

（2）打开计算的加权平均分﹑排名及各科平均分

(三）.编辑

（1）打开计算的各科人数分布

（2）打开按学号查找每个学生的成绩 a）输入要查找学生的学号

b）得到该生的成绩条

（3）打开查找到的优等生信息

（4）打开不及格学生的分布

（四）.成绩分布图

五．实习小结

通过两个星期的上机实习，我体会颇深，不仅表现在VB语言程序设计中，而且表现在与人交流和独立自主完成任务的决心中。

本次上机在VB程序设计中我学会了很多以前不会或根本一点都不懂的东西。比如，在程序设计过程中，刚开始我弄不清楚怎样把编辑的文件读到VB中，但是通过询问老师和同学讨论，终于弄清了思路，即先将文件打开，再将数据分别放入若干个数组中，最后再将它读出来。除此之外，我还明白了变量的作用域对编程的重要性和子过程，函数过程数据处理的帮助。而对以前学的，像选择结构，循环结构等也进行了巩固和运用。在数据处理和打印的时候进行了大量运用。为了使程序更人性化化，我还运用了msgbox，inputbox等方法，使我对所学的知识进行了综合的运用。

我相信通过这次实习，我对VB和计算机语言都有了更深刻的认识。虽然在实习的过程中，我发现了自己在编写程序中的不足，像思维不够严密等，但我相信，只要认真、努力就一定会有收获

六.程序代码

（一）.创建标准模块

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()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 deletespace = 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 student)“定义计算排名的子过程” For i = 1 To UBound(stu)stu(i).rank = 0 For j = 1 To UBound(stu)If stu(i).jqpj

Private Sub studentscore_Click()CommonDialog1.Filter = "文本文件|*.txt" CommonDialog1.ShowOpen Open CommonDialog1.FileName 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 Preserve 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()CommonDialog2.Filter = "文本文件|*.txt" CommonDialog2.ShowOpen Open CommonDialog2.FileName For 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(k).num;Spc(2);cla(k).nam;Spc(3);cla(k).scor;Spc(3)Next k End Sub(2).分数处理

Private Sub ran_Click()“加权平均分及名次” Form1.Cls 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 20 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, "00.00")Print Spc(2);j;Next i End Sub（3）.编辑 Private Sub scor_Click()“计算打印个分数段人数” Form1.Cls Print "范围";"英语";Spc(3);"数学";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 Print 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).average >= 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(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).CurrentY = 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)-(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