第一篇：上机实习报告—停车场管理
实习报告
题目：停车场管理
班级：计算机学院12052313 姓名：卢魏旭 学号：12051521 完成日期：2012年10月
一、需求分析
以栈模拟停车场，以队列模拟停车场以外的便道，每一组输入的数据包括三个数据项：汽车“到达”或“离去”的信息，汽车牌照号码以及到达或者离去的时刻，对每一组数据进行操作后的输出信息为：若是车辆到达，则输出汽车在停车场内或便道上的停车位置；若是车辆离去，则输出汽车在停车场内停留的时间和应缴纳的费用（在便道上不计费），栈以顺序结构实现，队列以链表结构实现。
附加要求，便道上的车可以直接开走，此时排在它前面的汽车先让开，再一次排到队尾。
二、概要设计
为实现上述程序功能，以顺序存储结构实现栈的功能，也就是停车场，栈的抽象数据类型定义为： ADTStack ｛
数据对象:D={a|ai<-ElemSet,i=1,2,3„n} 数据关系:R1={
操作结果：将车牌号及时间入栈，返回位置pos Popstack($S,num,&time)初始条件：栈S存在
操作结果：取出栈内元素
｝
此外以链式存储结构实现队列的功能，也就是便道 队列的抽象数据类型定义为： ADT Quene { 数据对象:D={a|ai<-ElemSet,i=1,2,3„n} 数据关系:R1={
基本操作：
creatquene(&Q)
操作结果：建立一个空队列
Pushquene(&Q,num)
初始条件：队列Q存在
操作结果：将一个元素入队列 Popquene(&Q,num)
初始条件：队列Q存在
操作结果：从队列中取出一个元素 }
三、详细设计
#include
S.top--;
printf(“number=%d time=%dn”,S.top->number,S.top->time);} } void showquene(linkquene &Q){ Quene *q;if(Q.front!=Q.rear){
q=Q.front->next;
while(q->next!=NULL)
{
printf(“number=%d time=%dn”,q->number,q->time);
q=q->next;
}
printf(“number=%d time=%dn”,q->number,q->time);} else
printf(“便道上没有车辆！n”);}
int Pushstack(linkstack &S,int num,int time,int &pos)//入停车场 { if(S.top-S.base>=stacksize)
return 0;else {
S.top->number=num;
S.top->time=time;
S.top++;
pos=S.top-S.base;
return 1;} }
void stacktostack(linkstack &outS,linkstack &inS)/*出停车场时先把后进来的车开到一个临时栈内*/ { inS.top->number=outS.top->number;inS.top->time=outS.top->time;}
int Popstack(linkstack &S,int num,int &time0)//出停车场 { int flag=0,i,m=S.top-S.base;linkstack S1;creatstack(S1);S.top--;for(i=0;i stacktostack(S,S1); if(S.top->number==num) { flag=1; break; } i++;} if(flag){ time0=S.top->time;//找到后将刚进来的时候的时间赋值给time0 while(S1.top!=S1.base) { S1.top--; stacktostack(S1,S); S.top++; } stacktostack(S1,S); return 1;} else S.top=m+S.base; return 0;} void Pushquene(linkquene &Q,int num,int time,int &pos)//停车场满后入便道 { Quene *p;linkquene q=Q;p=(Queneptr)malloc(sizeof(Quene));p->number=num;p->time=time;p->next=NULL;Q.rear->next=p;Q.rear=p;p->next=NULL;pos=0;while(q.front->next!=NULL){ pos++; q.front=q.front->next;} } void Popquenetostack(linkquene &Q)//将便道上的车开出来开进停车场，其实就是删除队列中的对头元素 { Quene *p;p=Q.front->next;Q.front->next=p->next;if(Q.rear==p) Q.rear=Q.front;} int Popquene(linkquene &Q,int num)//直接将车从便道上开走 { Quene *q,*p;q=Q.front->next;int flag=0,temp;temp=q->number;while(q->number!=num){ Q.rear->next=q; Q.rear=q; q=q->next; if(temp==q->number) { flag=1; break; } } Q.rear->next=NULL;if(flag) return 0;//未找到 else { Q.front->next=q->next; if(Q.front->next==NULL) Q.front=Q.rear; return 1;} } void Input(linkstack &S,linkquene &Q,char ch,int num,int time){ int pos,time0;switch(ch){ case 'A': if(Pushstack(S,num,time,pos)) { printf(“%d号汽车停在停车场里的第%d个车位上n”,num,pos); break; } else { Pushquene(Q,num,time,pos); printf(“%d号汽车停在便道上的第%d个车位上n”,num,pos); break; } case 'D': if(Popstack(S,num,time0)) { printf(“%d号汽车出停车场，”,num); printf(“n停车时间：o%d分钟n停车费用为%g元an”,time-time0,(time-time0)*0.05); if(Q.front!=Q.rear) { Quene *q; q=Q.front->next; while(Pushstack(S,q->number,q->time,pos)&&Q.front!=Q.rear)//当停车场没停满时 { S.top--; S.top->time=time;//进停车场再计时 printf(“%d号汽车出便道进入停车场，停在第%d个车n”,S.top->number,pos); S.top++; Popquenetostack(Q);//让便道上的车出列进入停车场 } } // showstack(S); } else { if(Q.front!=Q.rear&&Popquene(Q,num)) printf(“便道上的号车开走了n”,num); else printf(“停车场和便道上均无此车n”); } break; case 'E':break;} printf(“n”);} void main(){ char c='X';char cs[10];int number,time;linkstack S;linkquene Q;creatstack(S);creatquene(Q);while(c!='E'){ printf(“输入操作数n”); scanf(“%c%d%d”,&c,&number,&time); gets(cs); if(c!='A'&&c!='D'&&c!='E') { printf(“输入有误！n”); continue; } printf(“n”); Input(S,Q,c,number,time);} printf(“结束！n”);showstack(S);system(“pause”);} 四、调试分析 1、本次作业是一个简单的停车场管理，涉及到停车场停车开车以及便道上停车的问题，在Input()函数中调用根据输入的信息调用各个函数进行相应的分析，刚开始遇到很多问题，比如在出栈和入栈时，由于栈内存放的是结点的指针，而我当时直接是用S.top=p来赋值，导致在从停车场开车走时找不到车辆的车牌号和对应的时间，返回给我的是一串地址，后来明白是要对S.top所指结点的各个元素分别赋值才可以。 2、本次程序没有太多出色的算法，基本上就是要对栈和队列的熟练使用，明白其用法，程序中的stacktostack()比较重要，在停车场中开车走时要使用一个临时的栈来存放场内的车，然后再按顺序放回去。 3、对指针的掌握熟悉了一点，栈和队列都采用指针来操作，每一个栈内存放一个车辆结点的地址信息，使用起来非常的方便。 4、本程序中除了基本操作的算法以外，只有一个Input()函数，其时间复杂度 2在停车场开车后从便道入场这里最大为O(n)，其他算法都是对栈或者队列的遍历，为O(n); 5、经验体会，这种程序不复杂，就是需要仔细，在入队和出队以及入栈和出栈时很容易出错，当数据出现错误的时候，可以用一个遍历函数来检测栈内或队列内的数据。 五、用户手册 1、本程序的运行环境为DOS操作系统，执行文件为：停车场管理.exe。 2、进入演示程序后即显示文本方式的界面 3、按照A 1 1的形式输入信息A代表停车，D代表开车走，E代表结束输入，第一个数字代表车牌好，第二个数字代表停车或者开车走的时刻。回车即确定输入。每次输入后，若是停车，则显示停车的位置，若是开车走，则会显示车是从停车场内开走还是从便道上开走，若是从停车场内开走，显示停了多长的时间，以及相关的停车费用。 六、测试结果 如图所示 七、附录 源程序文件名清单： 停车场管理.c++ //主程序 八、验收过程 1、验收时间：周一晚上机时间，6：00—9：00； 2、验收地点：一教115机房； 3、验收教师：王立波； 4、流程概要： 1）第一次验收时老师让我把“从便道上直接开车走”这个功能实现。2）第二次验收时，在从便道上直接开车走这个功能上出了点问题，我是创建了一个新的结点来保存要插入到队尾的车辆信息，而老师认为应该直接把结点链接到队尾就行不需要创建新结点，这样可以节省空间，经过一番修正，达到了老师的要求，学会了如何链接队列元素。 3）学生解答结束后，老师对本程序给出评分。4）验收结束。 文献检索实习报告（参考格式） 课程名称：文献检索日期： 学院：班号：姓名：学号： 实验名称：电子图书等资源检索。 实验目的：掌握图书资源如何检索和利用，熟悉人名录或机构名录的检索。实验内容： 1、用CALIS检索你们自己任课教师的编著发表情况。 2、用超星检索自己所在专业的某一方面的图书出版情况，并采集某一本书的一段文字，一个图。（以超星为例） (1).登陆四川理工学院图书馆主页。 (2).找到电子资源，点击进入图书馆电子资源界面。 (3).找到热门资源中的“超星数字图书馆”，并点击“本地”，进 入超星数字图书馆。 (4).找到“浏览器”，点击并下载超星星浏览器。 (5).下载好“超星星浏览器”后就可以浏览图书了。 (6).例如查 3、利用物竞化学品数据库检索某一具体化学物质的相关数据。 4、用万方数据库检索我国某一位院士/科学家/某学科领域著名学者的名录。 实习报告要求：用自己姓名作为文件名称，将作业发送给各班指定的同学。 实习报告 题目：停车场管理 一． 需求分析 1． 用栈来表示停车场，用队列来表示停车道。 2． 用户需输入车辆的必要信息，如车辆的到达或离开，汽车牌号以及到达或离去的时刻。停车场的容量及单位时间的停车费由编程序者自行设置，结构需输出车辆停车所需缴纳的费用。 3． 本程序要求对车辆的动态能够输出具体的信息内容，包括停车或离开的时间，位置，及所需缴纳的停车费。4． 测试数据为： N=2，输入数据为：（’A’,1,5）,(‘A’,2.,10),(‘D’,1,15),(‘A’,3,20),(‘A’,4,25),(‘A’,5,30),(‘D’,2,35),(‘D’,4,40),(‘E’,0,0).其中：’A’表示到达，’D’表示离去，’E’表示输入结束。5.程序执行的命令为： 1.创建栈和队列。2.对车辆的行为进行相应的处理。3.输出车辆的信息。 二． 概要设计 1.设定栈的抽象数据类型定义： ADT Stack{ 数据对象：D={ai|ai属于Elem,i=1,2……,n, n>=0} 数据关系：R1={ 基本操作： InitStack(&S) 操作结果：构造一个空栈S.pop(&S,&e) 初始条件：栈S已存在。 操作结果：删除S的栈顶元素，并以e返回其值。 push(&S,&e) 初始条件：栈S已存在。 操作结果：在栈S的栈顶插入新的栈顶元素e。 EmptyStack(S) 初始条件：栈S已存在。 操作结果：若栈为空，则返回TRUE，否则，返回FALSE }ADT Stack;2.设定队列的抽象数据类型定义： ADT Queue{ 数据对象：D={ai| ai属于Elem, i=1,2,……，n, n>=0} 数据关系：R1={ 基本操作： InitQueue(&Q) 操作结果：构造一个空队列Q.Append(&Q, e) 初始条件：队列Q已存在。 操作结果：插入元素e为Q的新的队尾元素。 Remove(&Q, &e) 初始条件：Q为非空队列。 操作结果：删除Q的对头元素，并用e返回其值。 EmptyQueue(Q) 初始条件：队列Q已存在。 操作结果：若队列为空，则返回TRUE，否则，返回FALSE }ADT Queue 3.本程序主要包括三个模块 1.主程序模块； int main(){ 初始化； do{ 接受命令； 处理命令； }while(命令！=退出)； } 2.处理车辆到达模块； 3.处理车辆离开模块； 各模块之间的调用关系如下： 处理车辆到达模块主程序模块处理车辆离开模块 三． 详细设计 设计程序如下： 1.栈的头文件 #ifndef _SQSTACK_H_ #define _SQSTACK_H_ struct Car { int plate, arrive_t;};class SqStack { public: int top;Car *base;int size;void InitStack(int m=100);bool EmptyStack()const;bool Push(Car &c);bool Pop(Car &c);};void SqStack::InitStack(int n){ base = new Car[n];top =-1;size = n;} bool SqStack::EmptyStack()const { if(top ==-1) return true;else return false;} bool SqStack::Push(Car &c){ if(top == sizec.arrive_t;if(timelong < 0){ cout << “the input is false,please do it again”< packing.Push(c); while(!temp.EmptyStack()) { temp.Pop(c); packing.Push(c); } return 0;} cout << “car ” << pla << “ was departed from packing lot” << endl;cout << “停留时间：” << timelong << endl;cout << “缴纳金额：” << timelong*price << endl;while(!temp.EmptyStack()){ temp.Pop(c); packing.Push(c);} if(!sevice_road.EmptyQueue()) { sevice_road.Remove(c); map[c.plate] = 0; c.arrive_t = tim; packing.Push(c); cout << “car ” << c.plate << “ in packing lot” << endl; } } return 0;} int main(){ cout << “请输入停车场规模” << endl;cout << “xxxxxxxxxx” << endl;int n;cin >> n;cout << “xxxxxxxxxx” << endl;SqStack packing, temp;LinkQueue sevice_road;packing.InitStack(n);temp.InitStack();sevice_road.InitQueue();cout << “请输入指令:A-arrive、D-depart、E-exit cout << ”xxxxxxxxxx“ << endl;char command;cin >> command;while(command!= 'E'){ if(command == 'A') { Arrive(packing, sevice_road); cout << ”xxxxxxxxxx“ << endl; } if(command == 'D') { Depart(packing, temp, sevice_road); cout << ”xxxxxxxxxx“ << endl; } cin >> command;} } 车牌号时间” << endl; 四． 调试与验收 1.本次作业是设计停车场的管理系统，就需要判断车牌号，及时间的输入的正确性，输入的数据有比较严格的要求，必须符合实际。因此对数据需要多次判断。2.处理车辆到达模块和处理车辆离开模块其空间复杂度为O(m*n);3.本程序循环用的很多，找车，排队，等等。 4.在验收时，老师提出一些当输入为不正常输入的时候的情况，而我没有考虑到，所以又做了一定的修改。 5.验收时，老师提到所加map破坏了程序整体结构的完好性，是有待改进的地方。 五 用户手册 1.按屏幕提示输入停车场规模和车辆信息； 2.回车显示车辆在停车场或停车道的信息； 3.输入E退出。 六． 测试结果 七 附录 源程序文件名清单： LinkQueue.cpp LinkQueue.h SqStack.cpp SqStack.h 停车场管理.cpp 计算机上机实习报告 姓名：张陆浩 班级：高材11001 学号：201001978 老师：张老师 熊老师 时间：2011年12月24日 一．实验目的: 1.熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧;2.主要掌握VB语言中的标准模块的建立﹑数据文件的读出与写入、数组与选择结构的运用，图形操作等内容 3.了解开发简单应用程序的全过程,包括:分析﹑设计﹑编程﹑调试和编写报告.二．实习要求： （一）。用记事本新建一个文本文件，将本班M名学生N门考试课的成绩输入到这个文件中，建议按如下形式存放（注：20=M<=50,5<=N<=8，下文以M=4，N=3为例）: 学号 姓名 英语 数学 物理 化学 VB 1 张陆浩 2 林丹 3 李宗伟 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 class “定义变量：class” num As String * 9 nam As String * 3 scor As Single End Type Public stu()As student, cla()As class, sumscor As Integer, subj()As class 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 <= stu(j).jqpj Then stu(i).rank = stu(i).rank + 1 End If Next j Next i End Sub(二).读取考试成绩和课程学分（1）.打开文件 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 classrank_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 < stu(j).average Then stu(n).rank = stu(n).rank + 1 End If Next j Next n Print “学号”;Spc(6);“姓名”;Spc(4);“英 语”;Spc(2);“数 学”;Spc(2);“ 物 理”;Spc(3);“化 学”;Spc(2);“V B”;Spc(2);“加权平均分”;Spc(2);“名次” For n = 1 To 20 Print stu(n).number;Spc(1);stu(n).name;Spc(3);For i = 1 To 5 Print stu(n).score(i);Spc(3);Next i Print stu(n).average;Spc(3);stu(n).rank Next n End Sub Private Sub eaverage_Click()“ 课程平均分” 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 “<60”;For i = 1 To 5 Print Spc(4);y(i);Next i End Sub Private Sub stuscolist_Click()“打印成绩条” Form1.Cls n = InputBox(“请输入学号”)Print “学号”;Spc(5);“姓名”;Spc(3);“英 语”;Spc(3);“数 学”;Spc(3);“ 物 理”;Spc(3);“化 学”;Spc(3);“V B” Print stu(n).number;Spc(1);stu(n).name;Spc(3);For i = 1 To 5 Print stu(n).score(i);Spc(3);Next i End Sub Private Sub excellent_Click()“打印优等生” Form1.Cls Dim t As Integer Print “姓名”;Spc(4);“学号”;Spc(8);“英 语”;Spc(4);“数 学”;Spc(3);“ 物 理”;Spc(3);“化 学”;Spc(4);“V B”;Spc(6);“平均分”;Spc(4);“名次” For i = 1 To 20 t = 0 For j = 1 To 5 If stu(i).score(j)>= 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 <= 3 Then Print stu(i).name;Spc(2);stu(i).number;Spc(3);For j = 1 To 5 Print stu(i).score(j);Spc(5);Next j Print stu(i).average;Spc(5);stu(i).rank End If Next i End Sub Private Sub ugstulist_Click()“打印不及格学生” Form1.Cls For n = 1 To 20 For i = 1 To 5 If stu(n).score(i)< 60 Then Print stu(n).number;stu(n).name;stu(n).score(i);cla(i).nam;cla(i).scor End If Next i Next n End Sub（5）.成绩分布图 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 <=60” Next i End Sub CAD 班级：电子质检1101班 姓名：郭利智 学号：2011110902 指导老师：潘庆杰 上机实习报告 CAD上机实习报告 1.实习任务 用一周的时间对AUTOCAD软件练习的同时，完成机自教研室发的二维图例以及6个练习图，并完成相应的实习报告，并将绘制图形的各个步骤在实习报告中体现出来，将在实习过程中遇到的问题和绘图的关键步骤更具体的按要求写。 2.实习任务图（见附页） 3.实习任务图分析： 在老师所给的这些图中，基本包含了所有AUTOCAD经常使用的画图命令，并且能够进行熟练的操作，为以后的学习和工作打下坚定的基础。因此，画好这些图很有意义。 4.CAD上机实习总结 我们在此CAD培训中，不仅掌握了一些画图命令，更加熟悉了CAD环境和CAD桌面系统操作并且能够熟练的进行操作，进而画出一些简单二维图形，还学会了一些画图的快捷命令，使我的画图速度有所提高，也为我以后的学习和工作提供了有利的条件。 对于AUTOCAD，在绘图过程中，通过老师的讲解和自己的摸索以为自己以前所学的知识，我能熟练的运用有关快捷的命令，比起以前手绘图快了许多。更重要的是掌握了有关字母类的快捷命令，更方便了绘图。第二篇：上机实习报告格式
第三篇：数据结构-停车场管理-实习报告
第四篇：计算机上机实习报告
第五篇：CAD上机实习报告
点击咨询 