第一篇：上機(jī)實(shí)習(xí)報(bào)告—停車場管理

實(shí)習(xí)報(bào)告

題目：停車場管理

班級：計(jì)算機(jī)學(xué)院12052313 姓名：盧魏旭 學(xué)號：12051521 完成日期：2012年10月

一、需求分析

以棧模擬停車場，以隊(duì)列模擬停車場以外的便道，每一組輸入的數(shù)據(jù)包括三個(gè)數(shù)據(jù)項(xiàng)：汽車“到達(dá)”或“離去”的信息，汽車牌照號碼以及到達(dá)或者離去的時(shí)刻，對每一組數(shù)據(jù)進(jìn)行操作后的輸出信息為：若是車輛到達(dá)，則輸出汽車在停車場內(nèi)或便道上的停車位置；若是車輛離去，則輸出汽車在停車場內(nèi)停留的時(shí)間和應(yīng)繳納的費(fèi)用（在便道上不計(jì)費(fèi)），棧以順序結(jié)構(gòu)實(shí)現(xiàn)，隊(duì)列以鏈表結(jié)構(gòu)實(shí)現(xiàn)。

附加要求，便道上的車可以直接開走，此時(shí)排在它前面的汽車先讓開，再一次排到隊(duì)尾。

二、概要設(shè)計(jì)

為實(shí)現(xiàn)上述程序功能，以順序存儲(chǔ)結(jié)構(gòu)實(shí)現(xiàn)棧的功能，也就是停車場，棧的抽象數(shù)據(jù)類型定義為： ADTStack ｛

數(shù)據(jù)對象:D={a|ai<-ElemSet,i=1,2,3?n} 數(shù)據(jù)關(guān)系:R1={|ai-1,ai <-D,i=1,2,3?n} 基本操作: creatstack(&S)操作結(jié)果:構(gòu)造一個(gè)空棧 Pushstack(&S,num,time,&pos)初始條件：棧S存在

操作結(jié)果：將車牌號及時(shí)間入棧，返回位置pos Popstack($S,num,&time)初始條件：棧S存在

操作結(jié)果：取出棧內(nèi)元素

｝

此外以鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)實(shí)現(xiàn)隊(duì)列的功能，也就是便道 隊(duì)列的抽象數(shù)據(jù)類型定義為： ADT Quene { 數(shù)據(jù)對象:D={a|ai<-ElemSet,i=1,2,3?n} 數(shù)據(jù)關(guān)系:R1={|ai-1,ai <-D,i=1,2,3?n}

基本操作：

creatquene(&Q)

操作結(jié)果：建立一個(gè)空隊(duì)列

Pushquene(&Q,num)

初始條件：隊(duì)列Q存在

操作結(jié)果：將一個(gè)元素入隊(duì)列 Popquene(&Q,num)

初始條件：隊(duì)列Q存在

操作結(jié)果：從隊(duì)列中取出一個(gè)元素 }

三、詳細(xì)設(shè)計(jì)

#include #include #include #define stacksize 2 typedef struct Stack { int time;int number;}*Stackptr;typedef struct linkstack { Stackptr base;Stackptr top;};typedef struct Quene { int time;int number;struct Quene *next;}*Queneptr;typedef struct linkquene { Queneptr front;Queneptr rear;};void creatstack(linkstack &S){ S.base=(Stackptr)malloc(stacksize*sizeof(Stack));S.top=S.base;} void creatquene(linkquene &Q){ Q.front=Q.rear=(Queneptr)malloc(sizeof(Quene));Q.front->next=NULL;} void showstack(linkstack S){ while(S.top-S.base>=stacksize-1){

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)/*出停車場時(shí)先把后進(jìn)來的車開到一個(gè)臨時(shí)棧內(nèi)*/ { 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;//找到后將剛進(jìn)來的時(shí)候的時(shí)間賦值給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)//將便道上的車開出來開進(jìn)停車場，其實(shí)就是刪除隊(duì)列中的對頭元素 { 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個(gè)車位上n”,num,pos);

break;

}

else

{

Pushquene(Q,num,time,pos);

printf(“%d號汽車停在便道上的第%d個(gè)車位上n”,num,pos);

break;

}

case 'D':

if(Popstack(S,num,time0))

{

printf(“%d號汽車出停車場，”,num);

printf(“n停車時(shí)間：o%d分鐘n停車費(fèi)用為%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)//當(dāng)停車場沒停滿時(shí)

{

S.top--;

S.top->time=time;//進(jìn)停車場再計(jì)時(shí)

printf(“%d號汽車出便道進(jìn)入停車場，停在第%d個(gè)車n”,S.top->number,pos);

S.top++;

Popquenetostack(Q);//讓便道上的車出列進(jìn)入停車場

}

}

//

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(“輸入操作數(shù)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(“結(jié)束！n”);showstack(S);system(“pause”);}

四、調(diào)試分析

1、本次作業(yè)是一個(gè)簡單的停車場管理，涉及到停車場停車開車以及便道上停車的問題，在Input()函數(shù)中調(diào)用根據(jù)輸入的信息調(diào)用各個(gè)函數(shù)進(jìn)行相應(yīng)的分析，剛開始遇到很多問題，比如在出棧和入棧時(shí)，由于棧內(nèi)存放的是結(jié)點(diǎn)的指針，而我當(dāng)時(shí)直接是用S.top=p來賦值，導(dǎo)致在從停車場開車走時(shí)找不到車輛的車牌號和對應(yīng)的時(shí)間，返回給我的是一串地址，后來明白是要對S.top所指結(jié)點(diǎn)的各個(gè)元素分別賦值才可以。

2、本次程序沒有太多出色的算法，基本上就是要對棧和隊(duì)列的熟練使用，明白其用法，程序中的stacktostack()比較重要，在停車場中開車走時(shí)要使用一個(gè)臨時(shí)的棧來存放場內(nèi)的車，然后再按順序放回去。

3、對指針的掌握熟悉了一點(diǎn)，棧和隊(duì)列都采用指針來操作，每一個(gè)棧內(nèi)存放一個(gè)車輛結(jié)點(diǎn)的地址信息，使用起來非常的方便。

4、本程序中除了基本操作的算法以外，只有一個(gè)Input()函數(shù)，其時(shí)間復(fù)雜度

2在停車場開車后從便道入場這里最大為O(n)，其他算法都是對?；蛘哧?duì)列的遍歷，為O(n);

5、經(jīng)驗(yàn)體會(huì)，這種程序不復(fù)雜，就是需要仔細(xì)，在入隊(duì)和出隊(duì)以及入棧和出棧時(shí)很容易出錯(cuò)，當(dāng)數(shù)據(jù)出現(xiàn)錯(cuò)誤的時(shí)候，可以用一個(gè)遍歷函數(shù)來檢測棧內(nèi)或隊(duì)列內(nèi)的數(shù)據(jù)。

五、用戶手冊

1、本程序的運(yùn)行環(huán)境為DOS操作系統(tǒng)，執(zhí)行文件為：停車場管理.exe。

2、進(jìn)入演示程序后即顯示文本方式的界面

3、按照A 1 1的形式輸入信息A代表停車，D代表開車走，E代表結(jié)束輸入，第一個(gè)數(shù)字代表車牌好，第二個(gè)數(shù)字代表停車或者開車走的時(shí)刻。回車即確定輸入。每次輸入后，若是停車，則顯示停車的位置，若是開車走，則會(huì)顯示車是從停車場內(nèi)開走還是從便道上開走，若是從停車場內(nèi)開走，顯示停了多長的時(shí)間，以及相關(guān)的停車費(fèi)用。

六、測試結(jié)果 如圖所示

七、附錄

源程序文件名清單：

停車場管理.c++ //主程序

八、驗(yàn)收過程

1、驗(yàn)收時(shí)間：周一晚上機(jī)時(shí)間，6：00—9：00；

2、驗(yàn)收地點(diǎn)：一教115機(jī)房；

3、驗(yàn)收教師：王立波；

4、流程概要：

1）第一次驗(yàn)收時(shí)老師讓我把“從便道上直接開車走”這個(gè)功能實(shí)現(xiàn)。2）第二次驗(yàn)收時(shí)，在從便道上直接開車走這個(gè)功能上出了點(diǎn)問題，我是創(chuàng)建了一個(gè)新的結(jié)點(diǎn)來保存要插入到隊(duì)尾的車輛信息，而老師認(rèn)為應(yīng)該直接把結(jié)點(diǎn)鏈接到隊(duì)尾就行不需要?jiǎng)?chuàng)建新結(jié)點(diǎn)，這樣可以節(jié)省空間，經(jīng)過一番修正，達(dá)到了老師的要求，學(xué)會(huì)了如何鏈接隊(duì)列元素。

3）學(xué)生解答結(jié)束后，老師對本程序給出評分。4）驗(yàn)收結(jié)束。

第二篇：上機(jī)實(shí)習(xí)報(bào)告格式

文獻(xiàn)檢索實(shí)習(xí)報(bào)告（參考格式）

課程名稱：文獻(xiàn)檢索日期：

學(xué)院：班號：姓名：學(xué)號：

實(shí)驗(yàn)名稱：電子圖書等資源檢索。

實(shí)驗(yàn)?zāi)康模赫莆請D書資源如何檢索和利用，熟悉人名錄或機(jī)構(gòu)名錄的檢索。實(shí)驗(yàn)內(nèi)容：

1、用CALIS檢索你們自己任課教師的編著發(fā)表情況。

2、用超星檢索自己所在專業(yè)的某一方面的圖書出版情況，并采集某一本書的一段文字，一個(gè)圖。（以超星為例）

(1).登陸四川理工學(xué)院圖書館主頁。

(2).找到電子資源，點(diǎn)擊進(jìn)入圖書館電子資源界面。

(3).找到熱門資源中的“超星數(shù)字圖書館”，并點(diǎn)擊“本地”，進(jìn)

入超星數(shù)字圖書館。

(4).找到“瀏覽器”，點(diǎn)擊并下載超星星瀏覽器。

(5).下載好“超星星瀏覽器”后就可以瀏覽圖書了。

(6).例如查

3、利用物競化學(xué)品數(shù)據(jù)庫檢索某一具體化學(xué)物質(zhì)的相關(guān)數(shù)據(jù)。

4、用萬方數(shù)據(jù)庫檢索我國某一位院士/科學(xué)家/某學(xué)科領(lǐng)域著名學(xué)者的名錄。

實(shí)習(xí)報(bào)告要求：用自己姓名作為文件名稱，將作業(yè)發(fā)送給各班指定的同學(xué)。

第三篇：數(shù)據(jù)結(jié)構(gòu)-停車場管理-實(shí)習(xí)報(bào)告

實(shí)習(xí)報(bào)告

題目：停車場管理

一． 需求分析

1． 用棧來表示停車場，用隊(duì)列來表示停車道。

2． 用戶需輸入車輛的必要信息，如車輛的到達(dá)或離開，汽車牌號以及到達(dá)或離去的時(shí)刻。停車場的容量及單位時(shí)間的停車費(fèi)由編程序者自行設(shè)置，結(jié)構(gòu)需輸出車輛停車所需繳納的費(fèi)用。

3． 本程序要求對車輛的動(dòng)態(tài)能夠輸出具體的信息內(nèi)容，包括停車或離開的時(shí)間，位置，及所需繳納的停車費(fèi)。4． 測試數(shù)據(jù)為：

N=2，輸入數(shù)據(jù)為：（’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á)，’D’表示離去，’E’表示輸入結(jié)束。5.程序執(zhí)行的命令為：

1.創(chuàng)建棧和隊(duì)列。2.對車輛的行為進(jìn)行相應(yīng)的處理。3.輸出車輛的信息。

二． 概要設(shè)計(jì)

1.設(shè)定棧的抽象數(shù)據(jù)類型定義：

ADT Stack{

數(shù)據(jù)對象：D={ai|ai屬于Elem,i=1,2……,n, n>=0}

數(shù)據(jù)關(guān)系：R1={| ai-1,ai屬于D，i=2,……，n}

基本操作：

InitStack(&S)

操作結(jié)果：構(gòu)造一個(gè)空棧S.pop(&S,&e)

初始條件：棧S已存在。

操作結(jié)果：刪除S的棧頂元素，并以e返回其值。

push(&S,&e)

初始條件：棧S已存在。

操作結(jié)果：在棧S的棧頂插入新的棧頂元素e。

EmptyStack(S)

初始條件：棧S已存在。

操作結(jié)果：若棧為空，則返回TRUE，否則，返回FALSE }ADT Stack;2.設(shè)定隊(duì)列的抽象數(shù)據(jù)類型定義：

ADT Queue{

數(shù)據(jù)對象：D={ai| ai屬于Elem, i=1,2,……，n, n>=0}

數(shù)據(jù)關(guān)系：R1={| ai-1,ai 屬于D，i=2,……,n}

基本操作：

InitQueue(&Q)

操作結(jié)果：構(gòu)造一個(gè)空隊(duì)列Q.Append(&Q, e)

初始條件：隊(duì)列Q已存在。

操作結(jié)果：插入元素e為Q的新的隊(duì)尾元素。

Remove(&Q, &e)

初始條件：Q為非空隊(duì)列。

操作結(jié)果：刪除Q的對頭元素，并用e返回其值。

EmptyQueue(Q)

初始條件：隊(duì)列Q已存在。

操作結(jié)果：若隊(duì)列為空，則返回TRUE，否則，返回FALSE

}ADT Queue 3.本程序主要包括三個(gè)模塊

1.主程序模塊；

int main(){

初始化；

do{

接受命令；

處理命令；

}while(命令！=退出)； } 2.處理車輛到達(dá)模塊； 3.處理車輛離開模塊；

各模塊之間的調(diào)用關(guān)系如下：

處理車輛到達(dá)模塊?主程序模塊?處理車輛離開模塊

三． 詳細(xì)設(shè)計(jì)

設(shè)計(jì)程序如下： 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 << “停留時(shí)間：” << 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 << “請輸入停車場規(guī)?！?<< 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;} }

車牌號時(shí)間” << endl;

四． 調(diào)試與驗(yàn)收

1.本次作業(yè)是設(shè)計(jì)停車場的管理系統(tǒng)，就需要判斷車牌號，及時(shí)間的輸入的正確性，輸入的數(shù)據(jù)有比較嚴(yán)格的要求，必須符合實(shí)際。因此對數(shù)據(jù)需要多次判斷。2.處理車輛到達(dá)模塊和處理車輛離開模塊其空間復(fù)雜度為O(m*n);3.本程序循環(huán)用的很多，找車，排隊(duì)，等等。

4.在驗(yàn)收時(shí)，老師提出一些當(dāng)輸入為不正常輸入的時(shí)候的情況，而我沒有考慮到，所以又做了一定的修改。

5.驗(yàn)收時(shí)，老師提到所加map破壞了程序整體結(jié)構(gòu)的完好性，是有待改進(jìn)的地方。

五

用戶手冊

1.按屏幕提示輸入停車場規(guī)模和車輛信息； 2.回車顯示車輛在停車場或停車道的信息； 3.輸入E退出。

六． 測試結(jié)果

七 附錄

源程序文件名清單： LinkQueue.cpp LinkQueue.h SqStack.cpp

SqStack.h 停車場管理.cpp

第四篇：計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

姓名：張陸浩 班級：高材11001 學(xué)號：201001978 老師：張老師 熊老師 時(shí)間：2011年12月24日

一．實(shí)驗(yàn)?zāi)康? 1.熟悉VB 6.0的開發(fā)環(huán)境,掌握基本的編程方法,熟悉用VB語言完成一個(gè)應(yīng)用程序的設(shè)計(jì)過程,掌握有關(guān)編輯和調(diào)試程序的方法和技巧;2.主要掌握VB語言中的標(biāo)準(zhǔn)模塊的建立﹑數(shù)據(jù)文件的讀出與寫入、數(shù)組與選擇結(jié)構(gòu)的運(yùn)用，圖形操作等內(nèi)容

3.了解開發(fā)簡單應(yīng)用程序的全過程,包括:分析﹑設(shè)計(jì)﹑編程﹑調(diào)試和編寫報(bào)告.二．實(shí)習(xí)要求：

（一）。用記事本新建一個(gè)文本文件，將本班M名學(xué)生N門考試課的成績輸入到這個(gè)文件中，建議按如下形式存放（注：20=M<=50,5<=N<=8，下文以M=4，N=3為例）: 學(xué)號

姓名

英語

數(shù)學(xué)

物理

化學(xué)

VB 1

張陸浩

2

林丹

3

李宗偉

4

李永波

（二）。將N門考試課以及其分?jǐn)?shù)輸入到另一個(gè)數(shù)據(jù)文件（文件類型同上題）中，建議以下列形式存放： 編號 課程名稱 課程學(xué)分 1 英語 5.0 2 數(shù)學(xué) 4.5 3 物理 5.0 4 化學(xué) 4.5 5 VB 4.5

（三）。請編寫一個(gè)簡單的學(xué)生成績管理程序，以完成以下功能： 1.根據(jù)以上兩文件內(nèi)容分別計(jì)算每個(gè)學(xué)生N門課程的加權(quán)平均分（保留兩位小數(shù)，四舍五入），按平均分排列名次，平均分相同則名

次并列。用VB創(chuàng)建一個(gè)數(shù)據(jù)文件，存放班級的成績表。

2.分別統(tǒng)計(jì)全班每門課的平均分,并計(jì)算各分?jǐn)?shù)段(90分以上;80～89;70～79;60～69;60分以下)的學(xué)生數(shù)。.3.打印每名學(xué)生成績條（并將結(jié)果存放到用VB創(chuàng)建的一個(gè)新的數(shù)據(jù)文件中）。

4.顯示所有存在不及格課程的學(xué)生的名單(含學(xué)號,不及格課程名稱,課程的學(xué)分及成績)。

5.屏幕顯示優(yōu)等生名單及打印每門課程成績分布圖。優(yōu)等生條件(只要滿足三個(gè)中任一個(gè)就可以): a)平均分>=90分

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

c)平均分>=85分,并且至少有一門課的成績>=95分

三、實(shí)習(xí)步驟

1、用記事本新建一個(gè)學(xué)生成績文本文件(其中包括學(xué)生學(xué)號，成績，姓名，課程及成績)。

2、用記事本新建一個(gè)課程學(xué)分文本文件。

3、編輯菜單編輯器：編輯四個(gè)可拉式菜單，包括學(xué)生成績、成績處理、成績編輯、畫圖。

4、編輯代碼：分別編輯打印學(xué)生成績和學(xué)分代碼，編輯加權(quán)平均分、各科平均分、分?jǐn)?shù)段、成績條、排名、優(yōu)等生、差等生的代碼，還有畫各科目成績?nèi)藬?shù)圖的代碼。

5、調(diào)試程序代碼并保存。

6、打印代碼。

三.相關(guān)數(shù)據(jù)列表：

（一）。源文件

（1）成績

學(xué)號 姓名 英語 數(shù)學(xué) 物理 化學(xué) 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）.學(xué)分

編號 課程名稱 課程學(xué)分 1 英語 5.0 2 數(shù)學(xué) 4.5 3 物理 5.0 4 化學(xué) 4.5 5 VB 4.5 四．運(yùn)行效果：

（一）.學(xué)生管理

（1）打開課程成績及學(xué)分

（2）打開計(jì)算的加權(quán)平均分﹑排名及各科平均分

(三）.編輯

（1）打開計(jì)算的各科人數(shù)分布

（2）打開按學(xué)號查找每個(gè)學(xué)生的成績 a）輸入要查找學(xué)生的學(xué)號

b）得到該生的成績條

（3）打開查找到的優(yōu)等生信息

（4）打開不及格學(xué)生的分布

（四）.成績分布圖

五．實(shí)習(xí)小結(jié)

通過兩個(gè)星期的上機(jī)實(shí)習(xí)，我體會(huì)頗深，不僅表現(xiàn)在VB語言程序設(shè)計(jì)中，而且表現(xiàn)在與人交流和獨(dú)立自主完成任務(wù)的決心中。

本次上機(jī)在VB程序設(shè)計(jì)中我學(xué)會(huì)了很多以前不會(huì)或根本一點(diǎn)都不懂的東西。比如，在程序設(shè)計(jì)過程中，剛開始我弄不清楚怎樣把編輯的文件讀到VB中，但是通過詢問老師和同學(xué)討論，終于弄清了思路，即先將文件打開，再將數(shù)據(jù)分別放入若干個(gè)數(shù)組中，最后再將它讀出來。除此之外，我還明白了變量的作用域?qū)幊痰闹匾院妥舆^程，函數(shù)過程數(shù)據(jù)處理的幫助。而對以前學(xué)的，像選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)等也進(jìn)行了鞏固和運(yùn)用。在數(shù)據(jù)處理和打印的時(shí)候進(jìn)行了大量運(yùn)用。為了使程序更人性化化，我還運(yùn)用了msgbox，inputbox等方法，使我對所學(xué)的知識(shí)進(jìn)行了綜合的運(yùn)用。

我相信通過這次實(shí)習(xí)，我對VB和計(jì)算機(jī)語言都有了更深刻的認(rèn)識(shí)。雖然在實(shí)習(xí)的過程中，我發(fā)現(xiàn)了自己在編寫程序中的不足，像思維不夠嚴(yán)密等，但我相信，只要認(rèn)真、努力就一定會(huì)有收獲

六.程序代碼

（一）.創(chuàng)建標(biāo)準(zhǔn)模塊

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 “定義刪除空格函數(shù)” 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)“定義計(jì)算加 For i = 1 To UBound(stu)權(quán)平均分 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)“定義計(jì)算排名的子過程” 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(二).讀取考試成績和課程學(xué)分（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).分?jǐn)?shù)處理

Private Sub ran_Click()“加權(quán)平均分及名次” 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 “學(xué)號”;Spc(6);“姓名”;Spc(4);“英 語”;Spc(2);“數(shù) 學(xué)”;Spc(2);“ 物 理”;Spc(3);“化 學(xué)”;Spc(2);“V B”;Spc(2);“加權(quán)平均分”;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);“數(shù) 學(xué)”;Spc(1);“ 物 理”;Spc(1);“化 學(xué)”;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()“計(jì)算打印個(gè)分?jǐn)?shù)段人數(shù)” Form1.Cls Print “范圍”;“英 語”;Spc(3);“數(shù) 學(xué)”;Spc(3);“ 物 理”;Spc(3);“化 學(xué)”;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(“請輸入學(xué)號”)Print “學(xué)號”;Spc(5);“姓名”;Spc(3);“英 語”;Spc(3);“數(shù) 學(xué)”;Spc(3);“ 物 理”;Spc(3);“化 學(xué)”;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()“打印優(yōu)等生” Form1.Cls Dim t As Integer Print “姓名”;Spc(4);“學(xué)號”;Spc(8);“英 語”;Spc(4);“數(shù) 學(xué)”;Spc(3);“ 物 理”;Spc(3);“化 學(xué)”;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()“打印不及格學(xué)生” 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 “分?jǐn)?shù)段” Picture1(i).Line(10, 2)-(10, 14), vbRed Picture1(i).Print “人數(shù)” 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上機(jī)實(shí)習(xí)報(bào)告

CAD

班級：電子質(zhì)檢1101班 姓名：郭利智 學(xué)號：2011110902 指導(dǎo)老師：潘慶杰 上機(jī)實(shí)習(xí)報(bào)告

CAD上機(jī)實(shí)習(xí)報(bào)告

1.實(shí)習(xí)任務(wù)

用一周的時(shí)間對AUTOCAD軟件練習(xí)的同時(shí)，完成機(jī)自教研室發(fā)的二維圖例以及6個(gè)練習(xí)圖，并完成相應(yīng)的實(shí)習(xí)報(bào)告，并將繪制圖形的各個(gè)步驟在實(shí)習(xí)報(bào)告中體現(xiàn)出來，將在實(shí)習(xí)過程中遇到的問題和繪圖的關(guān)鍵步驟更具體的按要求寫。

2.實(shí)習(xí)任務(wù)圖（見附頁）

3.實(shí)習(xí)任務(wù)圖分析：

在老師所給的這些圖中，基本包含了所有AUTOCAD經(jīng)常使用的畫圖命令，并且能夠進(jìn)行熟練的操作，為以后的學(xué)習(xí)和工作打下堅(jiān)定的基礎(chǔ)。因此，畫好這些圖很有意義。

4.CAD上機(jī)實(shí)習(xí)總結(jié)

我們在此CAD培訓(xùn)中，不僅掌握了一些畫圖命令，更加熟悉了CAD環(huán)境和CAD桌面系統(tǒng)操作并且能夠熟練的進(jìn)行操作，進(jìn)而畫出一些簡單二維圖形，還學(xué)會(huì)了一些畫圖的快捷命令，使我的畫圖速度有所提高，也為我以后的學(xué)習(xí)和工作提供了有利的條件。

對于AUTOCAD，在繪圖過程中，通過老師的講解和自己的摸索以為自己以前所學(xué)的知識(shí)，我能熟練的運(yùn)用有關(guān)快捷的命令，比起以前手繪圖快了許多。更重要的是掌握了有關(guān)字母類的快捷命令，更方便了繪圖。