教學(xué)進(jìn)度表周次時(shí)間教學(xué)內(nèi)容39月16日QQ登錄窗口的制作——初步認(rèn)識(shí)計(jì)算機(jī)語(yǔ)言49月23日VB程序設(shè)計(jì)的過(guò)程59VB程序的數(shù)據(jù)與表達(dá)式8、910月21日、28日幾何計(jì)算（2課時(shí)）101程序的選擇結(jié)構(gòu)121131程序的循環(huán)結(jié)構(gòu)1412月2日整人小程序171計(jì)時(shí)秒表181小球來(lái)回彈屏幕保護(hù)程序191月6日期末考查授課時(shí)間2014年9月16課題QQ登錄窗口的制作——初步認(rèn)識(shí)計(jì)算機(jī)語(yǔ)言課型新授課教學(xué)時(shí)數(shù)1課時(shí)教學(xué)目標(biāo)（一）知識(shí)與技能：了解計(jì)算機(jī)語(yǔ)言；熟悉VB開發(fā)環(huán)境了解VB中的對(duì)象、屬性、事件學(xué)會(huì)編寫窗體的設(shè)計(jì)代碼，并能運(yùn)行程序（二）過(guò)程與方法：通過(guò)QQ登陸窗體的制作了解并掌握程序編寫的整個(gè)過(guò)程

（三）情感、態(tài)度與價(jià)值觀：

通過(guò)制作學(xué)生最熟悉的QQ登錄界面，使學(xué)生對(duì)VB程序設(shè)計(jì)產(chǎn)生濃厚的興趣。教材分析重點(diǎn)屬性、方法和事件難點(diǎn)VB的集成開發(fā)環(huán)境教學(xué)方法講授法、演示法、練習(xí)法、任務(wù)驅(qū)動(dòng)法教學(xué)情景設(shè)計(jì)教學(xué)后記授課時(shí)間2014年9月28課題VB程序的數(shù)據(jù)與表達(dá)式課型新授課教學(xué)時(shí)數(shù)1課時(shí)教學(xué)目標(biāo)（一）知識(shí)與技能：掌握VB中常用的數(shù)據(jù)類型掌握VB中常量和變量的說(shuō)明方法（二）過(guò)程與方法：通過(guò)分?jǐn)?shù)計(jì)算器的制作，體會(huì)使用VB編寫程序的整個(gè)過(guò)程

（三）情感、態(tài)度與價(jià)值觀：

培養(yǎng)勇于實(shí)踐、勤于思考和善于總結(jié)的科學(xué)探索精神與嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度。教材分析重點(diǎn)常見的數(shù)據(jù)類型；常量、變量說(shuō)明方法難點(diǎn)常量和變量的說(shuō)明方法教學(xué)方法講授法、演示法、練習(xí)法、任務(wù)驅(qū)動(dòng)法教學(xué)情景設(shè)計(jì)【新課引入】展示本節(jié)課任務(wù)：完成分?jǐn)?shù)計(jì)算器的制作?！拘抡n講授】基本數(shù)據(jù)類型1、整型(integer)不帶小數(shù)點(diǎn)的整數(shù)；整型的標(biāo)識(shí)符為integer，取值范圍為-32768~32767；如范例中的語(yǔ)文、數(shù)學(xué)、英語(yǔ)、總分采用整型2、長(zhǎng)整型（long）與integer一樣存取整數(shù)，但取值范圍較大。取值范圍為-2147483648~21474836473、實(shí)數(shù)型(single)可存儲(chǔ)小數(shù)或者整數(shù)。如范例中的平均分可能會(huì)取小數(shù)，所以用實(shí)數(shù)型表示。4、字符串型（string）由字母、數(shù)字字符構(gòu)成的序列，必須用雙引號(hào)括起來(lái)。例如“張三”、“zhangsan”、“123”。注意：“123”和123是有區(qū)別的常量在程序運(yùn)行過(guò)程中，取值不變的量稱為常量。常量定義部分的一般形式為：Const常量名as類型=表達(dá)式例如下列的常量說(shuō)明語(yǔ)句，哪個(gè)是正確的?A.ConstxasintegerB.Constxasinteger=3.14C.Constxassingle=3.14D.Constnameasstring=“張三”E.Constnameasstring=‘張三’變量在程序運(yùn)行過(guò)程中，取值可以改變的量稱為變量。變量定義部分的一般形式為：Dim變量名as類型例如：DimywasintegerDimsxasintegerDimyyasinteger也可以放在同一行，如上述語(yǔ)句可以寫成：Dimywasinteger,sxasinteger,yyasinteger是正確的Dimywasinteger,sxasinteger,yyasinteger,pjfassingle就是錯(cuò)誤的分?jǐn)?shù)計(jì)算器的制作【學(xué)生練習(xí)】完成分?jǐn)?shù)計(jì)算器的制作，并保存工程提交。教學(xué)后記本范例與學(xué)生實(shí)際生活相關(guān)，方便學(xué)生理解，學(xué)習(xí)效果不錯(cuò)。學(xué)生容易出錯(cuò)的地方：控件的名稱寫錯(cuò)，導(dǎo)致編譯時(shí)“要求對(duì)象”

授課時(shí)間2014年10月21、28日第8、9周星期2總第4、5課時(shí)課題幾何計(jì)算課型新授課教學(xué)時(shí)數(shù)2課時(shí)教學(xué)目標(biāo)（一）知識(shí)與技能：了解順序結(jié)構(gòu)的特點(diǎn)掌握VB語(yǔ)言中的賦值語(yǔ)句；（二）過(guò)程與方法：通過(guò)完成自動(dòng)飲料機(jī)的制作，掌握VB的賦值和輸出語(yǔ)句，并嘗試解決實(shí)際問題。

（三）情感、態(tài)度與價(jià)值觀：

培養(yǎng)學(xué)生發(fā)現(xiàn)問題、思考問題和解決問題的習(xí)慣；培養(yǎng)學(xué)生初步的程序設(shè)計(jì)思維。教材分析重點(diǎn)TextBox、Image、Label的使用；賦值語(yǔ)句難點(diǎn)對(duì)順序結(jié)構(gòu)的理解和運(yùn)用；Label和TextBox的使用教學(xué)方法自學(xué)法、練習(xí)法、任務(wù)驅(qū)動(dòng)法教學(xué)情景設(shè)計(jì)【新課引入】展示本節(jié)課任務(wù)：完成分?jǐn)?shù)計(jì)算器的制作?！緦W(xué)生練習(xí)】第一個(gè)窗體中：長(zhǎng)方形計(jì)算按鈕代碼提示：長(zhǎng)方形面積計(jì)算代碼提示：教學(xué)后記

授課時(shí)間2014年11月4日第10周星期2總第6、7課時(shí)課題程序的選擇結(jié)構(gòu)課型新授課教學(xué)時(shí)數(shù)2課時(shí)教學(xué)目標(biāo)（一）知識(shí)與技能：認(rèn)識(shí)選擇結(jié)構(gòu)的特點(diǎn)掌握條件語(yǔ)句學(xué)會(huì)使用條件語(yǔ)句解決實(shí)際問題（二）過(guò)程與方法：在老師的指導(dǎo)下，通過(guò)QQ登錄界面的制作和完善體驗(yàn)自主學(xué)習(xí)并獲得成功的喜悅。

（三）情感、態(tài)度與價(jià)值觀：

培養(yǎng)學(xué)生的邏輯思維能力、促進(jìn)學(xué)生對(duì)計(jì)算機(jī)解決問題方法的理解；在自主探究解決問題的過(guò)程中，讓學(xué)生體驗(yàn)學(xué)習(xí)的樂趣。教材分析重點(diǎn)鞏固選擇結(jié)構(gòu)的格式、執(zhí)行過(guò)程及其功能。難點(diǎn)鞏固選擇結(jié)構(gòu)的格式、執(zhí)行過(guò)程及其功能教學(xué)方法講授法、演示法、練習(xí)法、任務(wù)驅(qū)動(dòng)法教學(xué)情景設(shè)計(jì)【新課引入】展示本節(jié)課任務(wù)：完成QQ登錄界面的注冊(cè)、登錄?！拘抡n講授】注冊(cè)窗口的完成使用user記錄昵稱，使用pass記錄密碼，即Publicuser,passAsString“退出”按鈕代碼為End；“注冊(cè)”按鈕實(shí)現(xiàn)記錄用戶輸入的賬號(hào)和密碼，并顯示登錄窗體，隱藏注冊(cè)窗體；代碼為：user=Text1.Textpass=Text2.Textform2.Showform1.Hide登錄窗體的完成如果用戶在登錄窗體輸入的賬號(hào)和密碼與注冊(cè)窗體輸入的一致，則顯示登錄后的窗口，否則提示“賬號(hào)或密碼錯(cuò)誤”。退出”按鈕代碼為End；“登錄”按鈕代碼為：Ifuser=Text3.TextAndpass=Text4.TextThenform3.Showform2.HideElseMsgBox("帳號(hào)或密碼錯(cuò)誤")EndIf【學(xué)生練習(xí)】完成QQ注冊(cè)、登錄界面的制作，并保存工程提交?！緮U(kuò)展練習(xí)】Option控件的使用?！胺祷刂剡x”按鈕代碼為：Form1.ShowForm“返回重選”按鈕代碼為：Form1.ShowForm3.Hide“返回重選”按鈕代碼為：Form1.ShowForm2.HideIfOption1.Value=TrueThenForm1.HideForm2.ShowElseForm1.HideForm3.ShowEndIf教學(xué)后記學(xué)生興趣盎然，課堂氣氛活躍，掌握情況很好。授課時(shí)間2014年11月25日第13周星期2總第8課時(shí)課題程序的循環(huán)結(jié)構(gòu)課型新授課教學(xué)時(shí)數(shù)1課時(shí)教學(xué)目標(biāo)（一）知識(shí)與技能：認(rèn)識(shí)循環(huán)結(jié)構(gòu)的特點(diǎn)掌握For循環(huán)語(yǔ)句學(xué)會(huì)使用For循環(huán)語(yǔ)句解決實(shí)際問題（二）過(guò)程與方法：初步學(xué)會(huì)使用For循環(huán)語(yǔ)句解決簡(jiǎn)單實(shí)際問題。

（三）情感、態(tài)度與價(jià)值觀：培養(yǎng)學(xué)生研究性學(xué)習(xí)能力、邏輯思維能力以及溫故知新的學(xué)習(xí)興趣和創(chuàng)新精神。教材分析重點(diǎn)掌握For/Next循環(huán)語(yǔ)句的格式和執(zhí)行步驟難點(diǎn)For/Next循環(huán)語(yǔ)句的格式和執(zhí)行步驟教學(xué)方法講授法、演示法、練習(xí)法、任務(wù)驅(qū)動(dòng)法教學(xué)情景設(shè)計(jì)【新課引入】師：5、4、3、2、1，我們現(xiàn)在開始上課。剛才我們看到一個(gè)倒計(jì)時(shí)的程序，在日常生活中我們經(jīng)常會(huì)遇到這種情況，例如十運(yùn)會(huì)的倒計(jì)時(shí)牌；十字路口的紅綠燈；火箭發(fā)射最后的數(shù)秒。我們?nèi)绾卧谟?jì)算機(jī)中用VB來(lái)實(shí)現(xiàn)以上的功能呢？【復(fù)習(xí)回顧】師：jishiText顯示的內(nèi)容是5，寫出相應(yīng)的語(yǔ)句？生：jishi.Text=5添加Delay(1)【新知學(xué)習(xí)】猜測(cè)各語(yǔ)句的功能程序功能DimiAsInteger定義整型變量iFori=5To0Step-1控制變量5-0變化Jishi.Text=i顯示變量i的值（5、4、3、2、1、0）Delay(1)延時(shí)1秒NextiFor語(yǔ)句的格式For<循環(huán)變量>=<初值>To<終值>[Step<步長(zhǎng)>]<語(yǔ)句>Next<循環(huán)變量>For語(yǔ)句的執(zhí)行過(guò)程【學(xué)生練習(xí)】在屏幕中顯示5、4、3、2、1、0。做好后生成工程1.exe在屏幕中顯示12、22、32、42、52。做好后生成工程5.exe【新課講授】【新知拓展】暴力破解密碼算法分析：從0到999999依次嘗試，如果某個(gè)數(shù)字和密碼相等，則輸出、退出循環(huán)；否則繼續(xù)嘗試下一個(gè)數(shù)。算法分析：從0到999999依次嘗試，如果某個(gè)數(shù)字和密碼相等，則輸出、退出循環(huán)；否則繼續(xù)嘗試下一個(gè)數(shù)。密碼變量為pass循環(huán)變量的初值為______?循環(huán)變量的終值為______?步長(zhǎng)為__________？循環(huán)語(yǔ)句為________________?如果破解成功，循環(huán)變量的值為_________________？如果破解不成功，循環(huán)變量的值為_______________？Fori=_____to_______step_____If________________thenjieguo.text=________exitforend__________Next__________Ifi=________________thenjieguo.text=“破解失敗”Endif教學(xué)后記授課時(shí)間2014年12月2日第14周星期2總第9課時(shí)課題整人小程序課型新授課教學(xué)時(shí)數(shù)1課時(shí)教學(xué)目標(biāo)（一）知識(shí)與技能：認(rèn)識(shí)循環(huán)結(jié)構(gòu)的特點(diǎn)掌握For循環(huán)語(yǔ)句學(xué)會(huì)使用For循環(huán)語(yǔ)句解決實(shí)際問題（二）過(guò)程與方法：初步學(xué)會(huì)使用For循環(huán)語(yǔ)句解決簡(jiǎn)單實(shí)際問題。

（三）情感、態(tài)度與價(jià)值觀：培養(yǎng)學(xué)生研究性學(xué)習(xí)能力、邏輯思維能力以及溫故知新的學(xué)習(xí)興趣和創(chuàng)新精神。教材分析重點(diǎn)掌握For/Next循環(huán)語(yǔ)句的格式和執(zhí)行步驟難點(diǎn)For/Next循環(huán)語(yǔ)句的格式和執(zhí)行步驟教學(xué)方法講授法、演示法、練習(xí)法、任務(wù)驅(qū)動(dòng)法教學(xué)情景設(shè)計(jì)【新課引入】展示幾個(gè)整人小程序：鼠標(biāo)狂按的“數(shù)羊”、定時(shí)關(guān)機(jī)、新建無(wú)數(shù)文件的三個(gè)程序【新知學(xué)習(xí)】數(shù)羊程序中的10可以更改定時(shí)關(guān)機(jī)程序中的60即60秒新建文件【學(xué)生練習(xí)】教學(xué)后記授課時(shí)間2014年12月23日第17周星期2總第10課時(shí)課題用定時(shí)器設(shè)計(jì)的工程——計(jì)時(shí)秒表課型新授課教學(xué)時(shí)數(shù)1課時(shí)教學(xué)目標(biāo)（一）知識(shí)與技能：掌握VB內(nèi)部函數(shù)Timer的用法掌握設(shè)置shape控件屬性的方法（二）過(guò)程與方法：學(xué)會(huì)使用Timer制作一個(gè)功能齊全的計(jì)時(shí)秒表

（三）情感、態(tài)度與價(jià)值觀：培養(yǎng)學(xué)生研究性學(xué)習(xí)能力、邏輯思維能力以及溫故知新的學(xué)習(xí)興趣和創(chuàng)新精神。教材分析重點(diǎn)Timer的用法難點(diǎn)Timer的用法教學(xué)方法講授法、演示法、練習(xí)法、任務(wù)驅(qū)動(dòng)法教學(xué)情景設(shè)計(jì)【新課引入】本節(jié)課我們將利用VB內(nèi)部函數(shù)Timer制作一個(gè)計(jì)時(shí)秒表，效果如下圖：【新課講授】“計(jì)時(shí)秒表”是利用VB內(nèi)部函數(shù)Timer，該函數(shù)報(bào)告從當(dāng)天零點(diǎn)到現(xiàn)時(shí)的總秒數(shù)。如果兩次啟用此函數(shù)，就可以得到這兩次啟用時(shí)的時(shí)間差，也就起到了計(jì)時(shí)的作用。“計(jì)時(shí)秒表”程序采用兩種計(jì)時(shí)方式，如果計(jì)時(shí)的時(shí)間間隔較短，可以用鼠標(biāo)按鍵放下時(shí)開始計(jì)時(shí)，鼠標(biāo)鍵釋放時(shí)結(jié)束計(jì)時(shí)的方式，程序中用Command_MouseDown()和Command_MouseUp()兩事件來(lái)處理計(jì)時(shí)的；如果計(jì)時(shí)的時(shí)間間隔較長(zhǎng)，則可以分別按“計(jì)時(shí)開始”和“計(jì)時(shí)結(jié)束”兩命令按鈕來(lái)計(jì)時(shí)，這兩個(gè)命令按鈕都是響應(yīng)鼠標(biāo)單擊事件的Command_Click()。程序的表達(dá)式：Int((Timer-start)*1000)/1000是計(jì)算“計(jì)時(shí)秒表”結(jié)束時(shí)與啟動(dòng)時(shí)的時(shí)間差，并精確到1/1000秒。本程序使用了一個(gè)Shape1控件，它用Timer1定時(shí)器每隔0.5秒驅(qū)動(dòng)一次，以顯示計(jì)時(shí)器的工作狀態(tài)，在計(jì)時(shí)還是不在計(jì)時(shí)。代碼講解：Dimstart,start1'變量說(shuō)明語(yǔ)句DimaAsIntegerPrivateSubCommand1_Click()Label1.Caption=""'清空Label1EndSubPrivateSubCommand2_Click()start=Timer'計(jì)時(shí)開始，start取當(dāng)前時(shí)間Shape1.Visible=True'計(jì)時(shí)開始，shape1顯示EndSubPrivateSubCommand3_Click()Label1.Caption=Int((Timer-start)*1000)/1000&"秒"'計(jì)時(shí)結(jié)束，label1顯示當(dāng)前時(shí)間與start的差值，并精確到小數(shù)點(diǎn)后3位Shape1.Visible=False'計(jì)時(shí)結(jié)束，shape1不可見EndSubPrivateSubCommand4_Click()End'退出程序EndSubPrivateSubCommand5_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)start=Timer'取鼠標(biāo)按下時(shí)的時(shí)間EndSubPrivateSubCommand5_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label1.Caption=Int((Timer-start)*1000)/1000&"秒"'取鼠標(biāo)釋放時(shí)的時(shí)間與按下時(shí)間的差值，并精確到小數(shù)點(diǎn)后3位EndSubPrivateSubForm_Load()Shape1.Visible=False'開始時(shí)shape1不可見EndSubPrivateSubTimer1_Timer()a=a+1'a為計(jì)數(shù)器IfaMod2=0Then'若計(jì)數(shù)器為偶數(shù)，則讓shape1顯示紅色，否則顯示綠色Shape1.BackColor=RGB(255,0,0)ElseShape1.BackColor=RGB(0,255,0)En