如何調(diào)動小組合作學習過程中學生的積極性和如何通過EXCEL制作一個錄入收集系統(tǒng)

如何調(diào)動小組合作學習過程中學生的積極性

俗話說“眾人拾柴火焰高”，小組合作學習以它的優(yōu)勢越來越受到老師們的青睞，那么如何調(diào)動小組合作學習過程中學生的積極性呢？為此，我們五年級數(shù)學組全體教師結(jié)合平時教學，同時我給學生也做了問卷調(diào)查，請同學們寫寫什么樣的方法更能激起同學們合作學習的欲望?，F(xiàn)在，我將學生問卷調(diào)查的情況以及我在教學中的實踐談談我的看法，請領(lǐng)導和各位老師批評指正。一．原因分析從學生層面看，主要原因有：學生沒有有效的掌握小組合作學習的方法；部分學生存在依賴心理；對學習沒有興趣，采取無所謂的態(tài)度；每天每節(jié)課都這樣進行，部分學生缺乏新鮮感，產(chǎn)生疲勞感等等。二．方法建議1.興趣激勵興趣是激發(fā)學生學習的興奮劑，如果學生對小組合作學習毫無興趣甚至排斥，那么這個合作就是毫無意義的。推行小組合作這種模式，部分學生很反對，他們總認為，這種模式浪費他們的時間，尤其是尖子生更是覺得無助于他們的提高，有學生甚至還私下里說采用這種模式會害了他們。對此種種反對的聲音，我只是針對課堂里學生個體較為難以解決的問題設計一個或兩個拋出來，學生覺得不突兀，而且認為的確需要團隊合作來解決，他們漸漸地接受了小組合作的這種模式。在學生開始對小組合作有了一定興趣了，我就在我的課堂根據(jù)學情和教情更廣泛地運用小組合作，比如，合作檢查教材內(nèi)容的記憶落實情況，練習完成情況，錯題更正情況等等。當我給學生布置作業(yè)要寫寫什么樣的評講方式更能激起學生參與到合作中來，我的學生主動的告訴我：“老師，我們要小組合作來完成?！笨磥?，學生們都已經(jīng)接受了這種模式，從這種模式中嘗到了學習的快樂和學習的收獲，今天，還主動提出來我們要小組合作。2．競爭激勵競爭是激發(fā)學生積極參與的催化劑。心理學研究表明，競爭比平常狀態(tài)有更大的緊張感，壓力感。在競爭過程中學生想獲得自尊心﹑成就感的需要更為強烈，潛在的動機可轉(zhuǎn)變?yōu)閷W習的動力。競爭使同學們在學習中你追我趕，力爭上游，它是促使學生完成各項學習任務的“催化劑”。因此，競爭也是一種激發(fā)學生積極參與學習的有效激勵。我在教學過程中采取了這樣的競爭機制，開設“最佳合作團隊獎”和“最優(yōu)秀小組長獎”。根據(jù)已經(jīng)分好的小組，每節(jié)課以小組為單位，對每個成員的課堂表現(xiàn)﹑作業(yè)完成情況等，加分或者扣分，一節(jié)課后或一周后進行統(tǒng)計，積分最高的組授予“最佳合作團隊獎”，而這個組長則獲得“最優(yōu)秀小組長獎”。3．評價激勵對于評價的權(quán)力屬于誰，我們往往認為這是老師的事情，我在調(diào)查中發(fā)現(xiàn)，學生不僅渴望得到老師的評價，也希望能得到家長和同伴的認可。（1）同伴互評。在小組合作學習的過程中，小組長會按照老師安排的任務合作共學。在組內(nèi)交流的過程中學生對于同伴的發(fā)言不僅要認真的傾聽，而且還要對同伴的表現(xiàn)從完成的速度﹑完成的質(zhì)量等方面給予評價。為了能得到同伴的肯定，學生會主動積極的學習，得到同伴的肯定后，他參與小組合作學習的熱情會更高。（2）組間評價。在小組展示學習成果的過程中，第一小組展示合作成果之后，他組要對第一小組的成果進行評價。這就改變了以往教師評學生聽的局面，讓學生真切的感受到自己的主人。通過這種評價，既使學生增強集體責任感﹑集體榮譽感，還進一步提高其分析能力。（3）教師評價。教師的評價是小組合作學習質(zhì)量的保證，是學生進步的強化劑，教師的評價是貫穿在課堂的各個環(huán)節(jié)中的。在小組合作學習的過程中，教師要細心觀察學生合作的表現(xiàn)，并及時給予評價，比如：“你們小組分工明確，各盡其職，動作迅速，而且合作愉快，值得大家學習！從而為其他小組樹立榜樣。其他小組在先進小組的鞭策下，也積極調(diào)整自己的合作方式，迅速得出探討的結(jié)論。（4）自我評價。在一節(jié)課近尾聲的5分鐘，我常常會給學生布置一個任務，那就是對自己前35分鐘的表現(xiàn)進行一個小結(jié)和自我評價。學生在自我反思和自我評價的過程中，回顧了一節(jié)課所學，收獲了已經(jīng)掌握的內(nèi)容，遇到問題也可以自我調(diào)整和自我完善，如有疑問不能解決，可以記錄下來提出來作為下一節(jié)課小組合作探究的問題。（5）家長評價。每周的家長開放日以及班級qq群便于家長和老師在一起交流學生的學習情況等，在以后的課堂和考試中，部分學生都有很大的改善。這些給我?guī)順O大地感悟，我們也可以把小組合作學習表現(xiàn)優(yōu)秀的學生家長也請來一起接受“最佳合作小組獎”“最優(yōu)秀組長獎”等獎項。這樣就更能促進學生參與小組合作學習，也更能調(diào)動學生學習的主動性。調(diào)動學生小組合作學習積極性的方法和技巧激發(fā)心態(tài)的表現(xiàn)，也是一種良好的習慣。學生良好的行為習慣的培養(yǎng)，當別人發(fā)表不同意見時，其它同學安靜坐好，邊聽邊思考，積極構(gòu)建自己的認知，認真聽取別人不同的見解，主動獲取信息。教師應滿懷期望地鼓勵學生大膽表達獨特見解，富于機智地引導啟發(fā)。學生自由放飛想像，他們的發(fā)言就會出人意外的精彩。通過本課題的研究發(fā)現(xiàn)，在小組合作學習中，激發(fā)學生自主合作學習的積極性，主要注意做到以下幾點：（1）老師要不斷監(jiān)控小組活動，做觀察記錄，及時對小組活動進行反饋，針對學生爭持不下或思維受阻不能深入時，老師必須介入，及時點撥，排除思維障礙。（2）小組活動中，老師要告訴學生注意傾聽他人的發(fā)言，有禮貌地闡述自己的觀點，不要把自己的觀點強加與人。老師可以把要注意的問題編成口訣貼在教室前面，讓學生牢記。如：“小組討論聲音小；開口之前要想好；別人發(fā)言認真聽；意見不同我不吵；他人不會我?guī)椭?；為組爭光集體好；無論對錯要謙虛；團結(jié)互助向前跑?！保?）合作學習是學生之間的互動，師生之間的互動，老師就是這種互動進行的保證者和組織者，因此要求教師要科學地合理地設計合作學習的目標和任務；明確提出合作要求，培養(yǎng)合作技能。（4）在合作學習的過程中，老師要在各小組之間來回巡視，及時了解合作情況，發(fā)現(xiàn)學生不能認真參與交流，做與合作學習無關(guān)的事情，要及時地加以引導，提出明確要求，確保合作學習順利進行。（5）充分考慮學生的異質(zhì)情況，科學分組（男女生、學習較好和學習有困難的、性格內(nèi)外向互相搭配），避免小組不能很好合作，只有少數(shù)人發(fā)表意見或因為各組學生差異較大而討論時間進度相差甚遠的現(xiàn)象發(fā)生。（6）組織得力，控制時間長短和噪音，防止失控，浪費教學時間。（7）科學地擺放桌椅，以利于學生合作學習。如馬蹄型、梅花型、半圓型等。（8）合作學習要實實在在，不能流于形式，搞花架子。有些老師上課，既不根據(jù)教學內(nèi)容，也不考慮學生的實際情況，只是為了適應新課改的要求，簡單地把學生圍坐在一起。這能是合作學習嗎？合作學習的前提是“合作’，而不是“圍坐”。圍坐在一起的學生真的合作了嗎？關(guān)鍵的問題是老師交給學生討論的問題要有一定的深度，這樣才能使“合作”不流于形式。才能讓學生把教材作為例子，從學會了到會學了，充分挖掘課程資源，達到由課內(nèi)的獲取到課外的提升。從而真實地體現(xiàn)在學習中合作，在合作中學會學習。問題有一定的探度，討論也有價值，才能使學生在學習中求得發(fā)展，小組合作學習才能落到實處?？傊〗M合作學習是一種通過學生之間相互協(xié)助、師生之間共同探討學習知識的學習方法，它改變了學生以往單調(diào)、枯燥的學習方式，給學生創(chuàng)造了更多參與學習的機會，使學生在合作中，集思廣益，各抒己見，積極思考。讓學生在合作中學會學習，在學習中學會合作，增進了同學間的感情交流，改善了人際關(guān)系，有利于學生發(fā)揮出自己的最高水平，有助于培養(yǎng)學生必需的合作技能。在我的教學實踐的活動中，我嘗試著結(jié)合學生的年齡特點和認知水平，對學生采取了多種評價方式，充分調(diào)動每個學生的參與意識和學習的積極性，提高合作學習質(zhì)量，提高了教學的有效性。如何通過EXCEL制作一個錄入收集系統(tǒng)？一、數(shù)據(jù)采集系統(tǒng)功能錄入、保存、查詢、清空、修改

二、兩個界面

1.數(shù)據(jù)錄入界面：前臺功能使用界面，實現(xiàn)“錄入、保存、查詢、清空、修改”；2.數(shù)據(jù)存儲界面：后臺實現(xiàn)數(shù)據(jù)的保存；錄入界面：三、實現(xiàn)方法1.保存功能SubSave()'

'保存數(shù)據(jù)Marco，xiaohou制作，時間2013-9-5'

Dimr1,r2,r3AsRangeWithSheets("數(shù)據(jù)存儲")

Setr2=.Range("a2",.[a100000].End(xlUp))EndWith

WithSheets("數(shù)據(jù)錄入")

Setr1=.Range("c4:e4,d6:l39")

IfIsEmpty(.Range("c4"))OrIsEmpty(.Range("e4"))Then

'OrIsEmpty(.Range("b7:b41"))添加科室不為空，未成功

MsgBox("編碼、名稱為空，不可保存！")

Else

Setr3=r2.Find(.Cells(4,3),,,1)

IfNotr3IsNothingThen

MsgBox("此編碼已存在，不可保存。如果此信息需要修改，請點擊查詢后再修改")Else

Sheets("數(shù)據(jù)存儲").Rows("2:35").InsertShift:=xlDown

.Range("c6:l39").Copy

'復制“數(shù)據(jù)錄入”表體信息

Sheets("數(shù)據(jù)存儲").Range("c2:l2").PasteSpecialPaste:=xlPasteValues

.Range("c4").Copy

'復制“數(shù)據(jù)錄入”編碼

Sheets("數(shù)據(jù)存儲").Range("a2:a35").PasteSpecialPaste:=xlPasteValues

.Range("e4").Copy

'復制“數(shù)據(jù)錄入”名稱

Sheets("數(shù)據(jù)存儲").Range("b2:b35").PasteSpecialPaste:=xlPasteValues

r1.ClearContents

'保存數(shù)據(jù)后，清空錄入界面

.Range("c4").Select

EndIf

EndIfEndWithEndSub2.查詢功能SubQuery()'

'查詢篩選Macro，xiaohou制作，時間2013-9-5''

DimErowAsIntegerDimr1,r2AsRangeWithSheets("數(shù)據(jù)錄入")

Setr1=.Range("d6:l39")

Setr2=.Range("a6:b39")

Erow=Sheets("數(shù)據(jù)存儲").[a100000].End(xlUp).Row

r1.ClearContents

'ForEachceIn.[a2:x2]

'Ifce<>""Thence.Value="*"&ce&"*"

'加上通配符*,實現(xiàn)模糊查詢

'Next

IfIsEmpty(.Range("c4"))OrIsEmpty(.Range("e4"))Then

'OrIsEmpty(.Range("b7:b41"))添加科室不為空，未成功

MsgBox("編碼、名稱為空，不可查詢！")

Else

Sheets("數(shù)據(jù)存儲").Range("A1:l"&Erow).AdvancedFilterAction:=xlFilterCopy,CriteriaRange:=_

.[c3:e4],CopyToRange:=.[A5:l5],Unique:=False

r2.Borders(xlDiagonalDown).LineStyle=xlNone

r2.Borders(xlDiagonalUp).LineStyle=xlNone

r2.Borders(xlEdgeLeft).LineStyle=xlNone

r2.Borders(xlEdgeTop).LineStyle=xlNone

r2.Borders(xlEdgeBottom).LineStyle=xlNone

'r2.Borders(xlEdgeRight).LineStyle=xlNone

r2.Borders(xlInsideVertical).LineStyle=xlNone

r2.Borders(xlInsideHorizontal).LineStyle=xlNone

r2.NumberFormatLocal=";;;"

'ForEachceIn.[a2:x2]

'Ifce<>""Thence.Value=Mid(ce,2,Len(ce)-2)

'取消"*"通配符

'Next

EndIfEndWithEndSub3.更新SubUpdate()'

'更新Macro，xiaohou制作，時間2013-9-5

Dimarr,dAsObject

DimrAsRange

Dimlr&,i&,j%

WithSheets("數(shù)據(jù)錄入")'查詢修改工作表數(shù)據(jù)區(qū)域?qū)懭霐?shù)組arr

'arr=.Range("A7:D"&.Range("A65536").End(xlUp).Row)

arr=.Range("a6:l39")

Setr=.Range("d6:l39")

EndWith

Setd=CreateObject("scripting.dictionary")'定義字典對象

Fori=1ToUBound(arr)'逐行

'IfLen(arr(i,2))<>0Then'排出“合計”行，即：姓名務數(shù)據(jù)

IfNotd.exists(arr(i,1)&arr(i,2)&arr(i,3))Thend(arr(i,1)&arr(i,2)&arr(i,3))=arr(i,4)&Chr(9)&arr(i,5)_

&Chr(9)&arr(i,6)&Chr(9)&arr(i,7)&Chr(9)&arr(i,8)&Chr(9)&arr(i,9)&Chr(9)&arr(i,10)&Chr(9)&arr(i,11)&Chr(9)&arr(i,12)

'上一句：如果編碼和名稱連接字符串字典不存在(首次出現(xiàn)，這里判斷可能多余)，這個字符串添加到字典鍵值，后續(xù)的相關(guān)屬性字段用制表符連接添加到字典條目

'EndIf

Next

WithSheets("數(shù)據(jù)存儲")