第一篇：計算機上機課教學亮點經驗總結

《計算機應用基礎》上機課教學經驗總結

計算機課程是我校各專業的一門基礎課課，它不但有較強的理論性，而且也有很強的實踐性，而上機課又是學生加強理論理解的最好途徑，通過上機實驗學生可以演示和操作軟件的各種功能，了解它的特點和作用，逐步熟悉掌握軟件的功能及使用，同時也對促進學生掌握理論知識，提高實踐動手能力有著舉足輕重的作用。下面就結合我平時的教學談幾點意見：

一、課前準備要充分

計算機上機課的準備工作是非常繁瑣同樣也是非常重要的，教師上課前一定要對該節課的全過程進行周密的思考，包括上機的題目、時間、地點、課時分配、上機次數，硬件 和軟件環境等內容，比如，學生上機所需的計算機及有關外部設備都要能正常運行，功能完好，適合學生上機實驗，所用的設備要合理分配，集中管理，一些輔助教學設備(如投影儀、黑板等)都要能滿足上機實驗的要求。選擇好所需的操作系統軟件、語言環境、應用系統和輔助教學軟件，預先把這些軟件裝人計算機內并調試好隨時可供調用等，這些都要和實驗管理員提前聯系，安排好上機實驗的有關亊項，要避免出現漏洞和琉忽。

二、課堂組織要得力

教師是教學的組織者、策劃者和整個教學過程的導演，上機操作如果組織不好，就會出現許多問題，如上機目的和要求不明確，學生在上機課上只是充滿新鮮好玩的心理，或隨心所欲亂玩一氣，或看到別人干什么，自己也干什么，結果一節課下來，表面上課堂氣氛很輕松、活躍，其實效果很差，學生上完機后覺得自己一節課好像什么也沒學會。針對以上情況，作為老師就應該認真組織整個操作過程。

首先，把本節課的主要操作步驟及注意事項強調一遍，并在上機操作以前及上機完畢后讓學生完成上機作業，老師要重申本次上機課的目的和要求，指明實驗要點和要注意的亊項，對實驗中的難點之處和可能出現的問題要給予必要的提示和說明。在實驗過程中學生初次使用的應用軟件或生疏命令，教師要首先進行演示和講解。

其次，對學的基本技能的訓練要有高標準嚴要求，學生在操作計算機時一定要按規范和標準進行，如，開機、關機等要按正確的步驟，鍵盤打字的姿勢要正確，特別是學生在做作業時，要訓練學生養成良好的習慣。要注意培訓學生在計算機使用中的應用能力和應變能力，為學生今后獨立操作和使用計箅機打好基礎。為了能夠充分調動學生學習的積極性。我們可以邊講邊練，使每個學生都有亊可做，讓被動的理論接受變成主動的動手操作。

最后，引導學生做好總結提升，通過上機實驗，督促學生總結上機實驗的收獲，鞏固所學的知識。

三、教學方法要得當

教無定法，貴在得法。在平時的上機課中，教師應采用靈活多樣的教學方法，充分調動學生學習的積極性，比如，上機操作時，學生會經常遇到這樣或那樣的問題，如果教師一一解答操作，不僅教師感到分身乏術而且還限制了學生學習的主動性和積極性，得不到良好的教學效果。

分組教學則可以避免上述弊端。教師將每一橫排的人分為一小組，每個小組選水平最高者為小組長。當本組同學遇到問題時，由小組長充當小老師進行輔導。當有些問題較難時，教師要鼓勵全組成員一起研究解決。如果處理得當，教師要及時表揚，使學 生充分體會到成功帶來的喜悅。這樣就能夠極大地激發小組 成員的動手能力。既減輕了教師的相對工作，又極大地鍛煉了學生們動手解決實際問埋的能力。這遠比老師在上機時三番五次的說作業的要求要高效。學生完成作 業后，應該存到教師機的指定的文件夾內。同時，學習PowerPoint時，可以把具體操作步驟形成的文字資料和屏幕廣播錄像形成的多媒體文件放在班級群里。這兩種資料就構成了“幫助系統”。學生如果不僅，可以直接査閱該幫助系統。另外，當遇到比較難的操作課時教師可以讓學生討論和交流，營造合作學習的課堂氛圍。幾乎所有的學生都有這樣的體驗，如果自己去學習一款復雜的游戲，自己將花費福多的時間，但是有高手在旁邊指點，則事半功倍，很快就能學會。所以上機操作時，大家可以集思廣益開展討論。實踐證明，通過討論，學生對所學知識的理解將更加深刻，掌握將更牢固。

四、效果評價要及時

這是極其關鍵而必要的一步，學生完成任務之后，非常希望老師能對自己的成果進行肯定，產生成就感。例如，要求學生用PowerPoint給朋友制作一張多媒體賀卡時，在作品中要求包含移動漸變、形狀漸變、淡入淡出，插人聲音等知識要點，學生完成后直接保存在教師機上。隨著一個“任務”完成，學生就會獲得滿足感、成就感，從而激發了他們的求知欲望，逐步形成一個感知心智活動的良性循環教師應盡可能當堂評分，并登記在冊。對“任務”完成得好的同學，要當場進行表揚，并通過屏幕廣播的形式給所有的學生欣賞，再讓做得好 的學生給其它同學講解他(她)是如何完成這優秀作品的，這祥將大大提高學生學習的興趣。

總之，要上好一節上機課并不容易，它需要我們老師精心備課，只有準備充分、組織得力、方法得當、評價及時，才能有效地調動學生的積極性，使課堂生動、有效，使學生學有所成、學有所用。

三分校

王歡

2016-11-4

第二篇：控制計算機上機課教學過程的途徑

控制計算機上機課教學過程的途徑

一、計算機上機課的重要性與控制上機課教學過程的必要性

如何上好計算機課，切實提高計算機教學的質量，同時引導學生使用好計算機，使計算機真正成為孩子們的良師益友，是計算機教師必須關注的課題。計算機學科不同于其他學科，具有自身的特點，這些特點都顯示了計算機上機課的重要性，體現了上機課在計算機教學中不能替代的主干地位。

1．操作性強。不論是計算機程序語言、數據庫管理系統、文字處理，還是操作系統，均需要在上機的過程中，不斷去認識、理解、鞏固、掌握計算機相關的知識。計算機教學若不注重上機課教學，是絕對不能學好計算機的。

2．涉及內容廣。計算機學科是一門綜合性學科，從有形的硬件到無形的軟件，涉及到物理學、數學、美學等等，僅計算機語言也有十多種，常見的操作系統如DOS、WINDOWS、UNIX等，也有好幾種，這給計算機教學帶來諸多困難，這些困難單靠教師“紙上談兵”式地上課講是不解決問題的，要靠學生上機練習時來逐步化解。

3．專業術語多。計算機是一門新興的學科，產生了許多新的專業術語。如桌面、文件夾、剪切、操作系統、菜單等等。這些專業術語極大部分都可以在上機課中形象化。

現在很多學校都配置了多媒體教室、投影儀等硬件設備，計算機的很多課程都安排在多媒體教室上課。在多媒體教室上課，具有直觀形象的優點，但如果以減少上機課來增加此種講授課，勢必會造成由于課堂教學容量增大、學生要接受的信息量很多而一時消化不了的后果。而且在上課過程中，更多的是老師講，學生聽，很少有學生動手操作的機會，這對于學生理解、掌握和應用計算機知識是非常不利的。以上弊端通過足夠的上機課教學便能自然地消除。只要抓好上機課的教學，就把握住了計算機教學的關鍵。但要抓好上機課教學也非易事，若教師思想上認為上機課就是學生上機，可以放任自流，教師則可在旁做自己的其它事情，那就大錯特錯了。不但會使課堂效率低下，學生學不好，嚴重影響教學質量，而且還會出現意想不到的事情，甚至產生破壞課堂紀律或損壞機器的現象。因此，對上機課教學過程實施有效控制，對于保障上機課的有序教學、提高計算機教學質量是完全必要的。

當前，已有不少家庭自己配置了電腦。但作為中小學生，只有通過在學校中接受包括教師面對面指導、糾錯的上機課教學以后，課后才能有的放矢地去加強訓練。而學生能把計算機馴服，讓它乖乖聽從自己的指揮，他們才會有更大的信心和勇氣去學習計算機學科中更深更廣的知識，才會對計算機學習真正產生濃厚的興趣。心理學的研究表明，學習動機中最活躍的成分是興趣。沒有興趣，學生是不會生動活潑、主動地去學習的。學習興趣總是作為一個核心動機突出于其它動機之上，支配著人的注意和認知操作，對學生具有最現實、最強有力的影響。興趣的基礎在于需要。當學生通過上機課學習，得心應手地學會計算機操作時，便是這種需要的滿足。這一滿足又會產生對需要的新的追求，即產生新的興趣，從而形成在計算機學習上步步上升的良性循環。從這一心理學的角度出發，可以說：對于中小學，抓好了上機課，也就抓好了計算機的教

學，而有效控制上機課的教學過程，則是上機課最為重要的教學策略，必須認真對待，來不得半點馬虎。這也是筆者多年在從事計算機教學中深刻體會到的一點心得。

二、計算機上機課進行教學過程控制的途徑

那么，教師如何對上機課的教學過程實施有效控制呢?認為可以從以下幾方面入手：

1、每次上機課要有明確的操作任務

學生們一般都喜歡上機課，而且是帶著興趣去上機的，如果教師不布置任何任務，讓學生自由地操作計算機，久而久之學生就會失去興趣，甚至覺得無事可干，這對于鞏固知識是無益的，上課的秩序也會變得不容樂觀。教學是學生在教師的指引下自覺主動地學習的過程，上機課同樣需要充分發揮教師的主導作用。因此，教師事先應該設計好一份具有傳授知識針對性的上機報告。上機報告實際上是以書面形式給學生的操作任務指令。有些項目需要學生邊完成任務邊進行填寫。上機報告中應有明確的上機步驟，使學生有所依據地操作計算機。上機報告中設計的操作題要既可重復又有一定難度。重復是遵循鞏固性教學原則的必要舉措，它有助于熟練操作。但又要避免簡單的重復，要遵照循序漸進的教學原則，使其又有一個逐步加深的過程。使學生在重復練習中熟練掌握雙行合一的功能。其實計算機的很多應用軟件都要在不斷重復中才會熟能生巧，做到舉一反

三、融會貫通。

2、每次上機課，要給學生定一個目標，打一個分數

課前老師發了上機報告，學生在機房就有事可做了，但這還不能說已把上機這一教學任務完成了。教學的過程是一種信息反饋的系統的運動過程。遵照及時反饋的教學原則，教師要設法從各方面與學生直接接觸，包括觀察學生上機，從批改學生作業中了解學生掌握有關知識與技術的情況。如果沒有及時的了解和檢查，教學的質量往往不高。因此，每次學生完成上機報告后，教師一定要做到在現場當場批改學生作業。批改中，教師在計算機屏幕前，面對面地指出學生操作的不足，給予糾正，并及時公布分數。這一環節一般要花費教師相當多的精力和時間，在時間安排上要有所計劃，并且在學生等待批改的時候，教師要安排好這部分正在等待的學生可先做什么事情，以免引起課堂秩序的紊亂。當然，也可以指定幾個掌握得較好的學生幫助老師批改，但必須事先統一評分要求。教師在每次上機課遵照公開、公平、公正的原則都對學生的作業進行批改和評分，這就促使學生產生競爭的能動性，激勵學生逐步提高，從而形成學習的良性循環。

職業學校的計算機教學對打字技能要求較高。對此類偏重于技能訓練的上機課，筆者認為教師應給學生制訂學期總目標，再按總目標列出各階段性目標。每次上機課必須組織考查，課前必須公布本次課的考查要求，以此檢驗學生階段性完成情況。考試結果也要做到及時公布，成績中應有打字的有效速度、輸入數、錯誤數、正確率，根據速度從高到低排出名次，對速度快的學生及時給予表揚，差的學生給予鼓勵并按“一把鑰匙一把鎖”的原則指出其改進、提高的方法。

中等職業類學校若有條件，可以組織全校性的打字比賽。筆者所在職校，為了提高計算機類專業學生的技能水平，學校每學期組織技能鑒定和星級考試，將鑒定成績作為一門獨立的課程學分記載在學生的檔案上，同時發給學生相關的星級證書。還把學生的成績適時公布到校園網，不僅讓前十名學生的情況永久性地保留在校園網上，而且又在每學期把各項前十名情況以宣傳畫的形式張貼在校園內。此種激勵方式在我校實施將近三年，學生的成績一年比一年好，最高紀錄每次都有打破。在平時的測驗中，學生除了關心自己的分數外，還關心自己達到的星級有沒有進步，在班中處于何種檔次。事實說明，技能鑒定和星級考試有效地增強了學生的自信心和榮譽感，調動了學生練好專業技能的主動性和積極性，充分發揮了學生在學習中的主體作用，為把學生培養成為經濟社會發展需要的高素質勞動者和有用人才打下了扎實的基礎。

3、管理上機紀律，做好隨堂指導

學生進入機房，任課教師應保持好上課秩序，要充分估計該堂上機課可能出現的問題，引起學生注意。對細節問題也不要放過，最好事先對學生做好相關的交待，例如，學生在機房的座位最好固定，這對于機器維護非常必要，也能防止某些調皮學生恣意破壞。若機房計算機不夠，需要幾個人合用一臺，任課教師一定要有一個解決方法，事后要做好監督，這樣就可以避免不必要的糾紛發生。

學生在進行上機報告作業時，任課教師絕不能一直坐在教師機前做自己的事情，必須經常巡視，觀察學生的完成情況，及時發現問題，并當面向學生提出，不但要點明其錯誤或不當之處，而且要扼要地指出其產生的原因，還要向學生提供今后加強針對性練習的方向和辦法。對于那些普遍性問題，則應作全班性講解。有條件的話也可以利用電子教學類軟件來隨時了解學生的操作情況，但必要的巡視是絕對不能省略的。

在臨近下課時，要做好本次上機課的總結，把本次課的必須掌握的要點再重復一遍，還要對于學生的典型操作錯誤分析原因，并演示正確方法。

4、合理分配時間，掌握教學進度

一般情況下，一次上機課安排兩課時90分鐘。前5分鐘，說明本次上機課的要求，學生完成上機報告安排50分鐘，20分鐘批改作業，10分鐘安排總結，還有5分鐘作為機動。若是打字課，則安排50分鐘學生自己練習，20分鐘安排考查，5分鐘公布學生成績，15分鐘講本次考查中難字的打法及下一次課考查的要求。中間的下課時間應讓學生休息一下，給眼睛一個休息的間隙。

三、結束語

計算機上機課的重要性與控制上機課教學過程的必要性對計算機教師提出了更高的要求。作為計算機教師只要重視和關注每一位學生，結合教學實際靈活運用教學原則，特別是理論聯系實際原則、啟發性原則、直觀性原則、循序漸進原則、鞏固性原則和及時反饋原則，便能在以上途徑中采納適合自身實際教學的最佳方法或創新更為優化的模式，以真正激發學生的興趣，達到切實提高計算機教學質量和教學效率之目的。

第三篇：計算機專業課教學經驗總結

計算機專業課教學經驗總結

金寨縣雙河高級職業中學付 裕

本人自參加工作以來，在教育教學上，愛崗敬業，嚴謹治教，熱愛學生，努力做到把學生教好，讓學生成功成才。計算機教學工作，不僅僅是讓學生學會幾種操作，更重要的是要提高學生的信息素養。能真正做到為人師表、教書育人，較好的完成教育教學工作任務，盡到一個優秀教師應有的職責。因此我在教育教學方面注意了以下幾個問題，現總結如下：

一、政治思想方面：

認真學習和落實黨的十七大會議精神和學習黨的最新章程。從胡總書記的報告中，我們看到了黨中央對職業教育的關注和重視，尤其是吳邦國委員長到金寨視察，對金寨職業教育的重新規劃，更是讓我看到了職業教育的發展前景和發展方向，進一步堅定自己從教的信心。認真學習新的教育理論，及時更新教育理念，注意從書本中汲取精華，認真學習仔細體會如何做好一名人民教師。

二、教育教學方面：

（一）、教學模式

在教學過程中我大體的作法如下：

1、教學設計

首先認真分析將要講授的內容，確定教學目標,讓學生掌握的知識點以及重點和難點。接下來設計教學過程（備課）時，關鍵是設計對學生有一定吸引力的一個或多個“任務”，要求它能基本涵蓋教學內容的各個知識點。其中教學目標是設計“任務”的依據，也是課堂小

結的主要內容。

2、教學過程

在具體教學過程中根據高二年級與高一年級的基礎不同，接受能力的不同采取不同的教學方式：

對高二年級的學生首先提出具體的“任務”，讓學生來完成這個“任務”，接下來授課緊緊圍繞如何完成任務這個中心來展開，從而在任務完成時，教學也在不知不覺中取得預期的目的。而針對高一年級的學生的新生在教學過程中是以學生練習為主，加上我在邊上輔導。不管是高二學生還是高一年級的學生在整個教學過程結束之前，一定要留有適當的時間進行知識點回顧和總結。一來可彌補以任務為中心的教學的缺點——缺少系統性和條理性，二來可彌補由于學生學習能力的不同造成的部分學生知識點的疏漏。在具體做法上，根據所學知識的復雜程度可采用口述回顧、畫知識結構圖等方式。若有可能，也可讓學生先試著總結，以培養他們的歸納總結能力，但教師在最后一定要把好關，即把知識點陳述完整。

（二）、教學措施

1、分析講解與學生模仿操作相接合在教學過程中我先展示一個已完成的或基本完成的作品并講解其制作過程，要學生模仿著去做。

比如在對高一年級學生講五筆打字時先讓學生每個人按照字根表把自己的名字先拆成幾個字根，然后把字根化成字母，最后在文檔中打出自己的名字。

同時，采用任務驅動教學模式，先為每節教學內容設計一個具體的任務如制作賀卡，課堂上通過講解這張賀卡制作過程讓學生掌握教學

內容。首先，學生們看了我展示的一張精美的賀卡，頭腦里會對將學的知識有何實際應用有一個初步的印象。這時候，教師再分析這張賀卡的結構，哪部分是圖文框，哪部分是文本框或自選圖形，哪些地方可用其它形式替代，哪些地方不能等。通過教師的分析，學生對圖文框、文本框、圖片、自選圖形等概念就有了直觀的認識。接下來教師再講解如何利用這些知識修飾、美化賀卡各部分的詳細操作方法。由于教師在備課時已做過一遍，對學生可能出錯或易混淆的地方心中有了數，教學時，重點突出。而且授課順序就是制作賀卡的順序，符合學生的認知規律。這樣教學，學生學得快、記得牢（若學生用現有的知識和技巧難以獨立完成該“任務”，一般采用這種方式）。

2、教師點撥，學生嘗試

對已有一定基礎知識的學生，可采用這種方式。

例如，交換機配置的特點是容易入門，一開始學生必然對它有濃厚的興趣。但若按有些教材的順序，先講一大堆理論，一半教學時間過去了，學生仍未能做出一個像樣的網絡配置。很容易使學生喪失學習的興趣和積極性。

若采用任務驅動模式，我們設計了在每堂課內、每個教學單元內、各教學單元之間乃至整個教學過程中環環相扣、層層推進的“任務”，通過這些任務來達到教學目標。一般的“任務”都是由教師在課前設置好網絡結構，上課時先讓學生看到運行結果。然后在教師的點撥下，讓學生嘗試著配置。

學生在完成任務的過程中會遇到很多問題，有的可通過閱讀教材解決，有的可通過同學間相互交流、討論來解決，解決不了的教師再稍加點撥指導。

（三）、檢查手法

在考核學生上課聽課認真層度上我改變了以往以布置課后作業的作法為查看課堂筆記的情況。在教學過程中要求每位學生必須做好課堂筆記，每堂課上完了就要求學生把筆記收上來當作是當天的作業進行批改檢查。這樣既可以防治學生相互間抄作業，也可以促使學生上課時能夠認真聽課。

在做上機練習作業時，是讓學生參考著自己的筆記本來完成一項任務，而且也有時間上的限制，作業完成后馬上用教學軟件的提交作業功能進行提交，這樣可以防止學生復制同學的作業。因為本教學軟件對同一臺電腦發送過來的作業會發到同一個文件包中去的。

三、有待改進的地方

1、在以任務形式授課時會因為學生的基礎不同而使授課有點阻礙，有時會耽擱教學預定的時間。

2、以檢查筆記形式當作作業會使學生感到有點緊張，部分學生會對計算機產生厭倦感。

2012/8/15

第四篇：2017期德育工作亮點經驗總結

```2017績效考核德育工作總結

本，我校德育工作以學校2017年工作計劃為指導，緊緊圍繞學校“依法治校、改革興校、質量立校、人才強校”的辦學理念，圍繞?凝心聚力，強化管理，夯實內涵，培養人才?的總體思路，以立德樹人為宗旨，以提高學生職業素養為目標，切實踐行“德能相濟，文化化人”的育人理念，全面提升育人水平，育人成效明顯，現將本工作亮點總結如下：

一、加強德育工作隊伍建設，切實提高教師師德師風建設及管理育人水平。

學校組織召開全校班主任工作會議8次，表彰了優秀班主任30余人，組織到外交流培訓學習35人次。``````校長及專業部主任以及部分班干部到海口、宜賓、仁壽等地以各種形式參加、交流學習和培訓活動，效果明顯。

二、強化常規管理，加強校園文化建設，打造平安和諧校園。1．加強制度建設，強化日常管理，提升職業素養。

學校制定和修改了學生管理制度達30多種，教育管理井然有序。通過建章立制，科學管理，增強了學生遵章守紀的意識，培養了學生良好道德素養和行為規范，提升了學生的職業素養。

2．加強校園文化建設，優化育人環境。

充分利用宣傳陣地發揮育人功能。長期堅持不懈地開展富有特色的升旗儀式活動，堅持做《習近平寄語》手語操，堅持開展傳統文化教育主題班會。

3．強化安全教育，接受校督導室隨時督導，打造平安和諧校園。

學校督導處今年在``的帶領下多次檢查寢室、教室安全、衛生等常規工作，學工部高度重視，對發現的問題，及時整改。同時今年開展了禁毒教育?萬人?簽名活動，舉辦了?無毒青春、健康生活?禁毒專題教育講座，11月樂山市大學生消防運動會在我校召開。通過系列安全教育活動強化了學生的安全防范意識，有效防范了安全事件的發生，確保了學生生命財產安全。

三、教育活動主題鮮明，育人工作扎實有效。

1.以?文化藝術節?活動為契機，為紀念?五四?運動98周年開展了五四活動，6月開展了以感恩為主題的家長會，拉近親子關系。12月開展12.9活動，主題鮮明，德育工作針對性強。

2.以專題教育引導人。召開了學生教育大會近20次，召開問題學生專項教育活動5次，召開“9+3”學生專項教育座談會20余次，召開住校生教育管理座談會4次。李萍副校長作了?天下興亡，我的責任?專題講話。5月在學生社會實踐動員大會上，目的是為了讓學生良好的行為規范得到固化。

3.以榜樣示范教育激勵人。一年來，學校播出新聞稿件近1000篇，專題教育片30次，各班完成主題黑板報18次；評校園之星34人，校級先進集體27個，紅旗團支部22個，優秀寢室119間，三好學生503人，優秀學生干部234人，團委、學生會優秀干部54人，優秀團員324人，團委、學生會優秀干事240人，優秀樓、室長233人，文明學生352人，歌唱比賽優秀選手11人；評選出各類獎學金獲得者661人。

4.以團委、學生會及社團組織鍛煉人。10月通過競選產生了4名團委、學生會主席團

成員，主席團的成立將更有效地發揮團委學生會干部的自管作用。10月學校邀請``教育管理咨詢有限公司簽約講師``老師為92名學生干部作了 ‘學生干部魅力領袖’實戰技能特訓營?體驗式實戰課程培訓。學校校團委組織學習團章6次，團校學習4次，團干培訓8次，開展黨的基本知識教育講座14次，發展新團員200名。各團支部開展了豐富多彩等的主題團會活動，成立了文學社、街舞社、軍事社、電商協會、舞蹈社、航模社、影視欣賞社、羽毛球社、乒乓球社、足球社、籃球社、棋類社、合唱社、動漫社等學生社團，吸引著500多名學生參與活動。

四、積極推進校企合作，“9+3”學生管理成效顯著。

作為```同一所學校，在校“9+3”學生人數達到了850人。通過對 “愛國主義教育，集體主義教育，民族團結教育，遵規守紀教育，文明禮儀教育，勵志成才教育”，“青春期教育”，業余黨校“黨知識”學習，周末開展藏族舞蹈、彝族舞蹈興趣活動，過集體生日等活動，學生的紀律意識明顯增強，綜合素質得到提高。2018屆藏區“9+3”學生有2人到北京頂崗實習，37人回甘孜州的幼兒園頂崗實習。彝區“9+3”學生203人全部落實了頂崗實習單位。

```學生工作部

2017年11月28日

第五篇：計算機上機實習報告

計算機上機實習報告

姓名：張陸浩 班級：高材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