vb趣味程序課程教案

教學進度表周次時間教學內(nèi)容39月16日QQ登錄窗口的制作——初步認識計算機語言49月23日VB程序設計的過程59月28日VB程序的數(shù)據(jù)與表達式&910月21日、28日幾何計算（2課時）1011月4日程序的選擇結(jié)構(gòu)1211月18日1311月25日程序的循環(huán)結(jié)構(gòu)1412月2日整人小程序1712月23日計時秒表1812月30日小球來回彈屏幕保護程序191月6日期末考查

授課時間2014年9月16日第2周■期2總第1課時課題QQ登錄窗口的制作——初步認識計算機語言課型新授課教學時數(shù)1課時教學目標（一）知識與技能：了解計算機語言；熟悉VB開發(fā)環(huán)境了解VB中的對象、屬性、事件學會編寫窗體的設計代碼，并能運行程序（_）過程與方法：通過QQ登陸窗體的制作了解并掌握程序編寫的整個過程（二）情感、態(tài)度與價值觀：通過制作學生最熟悉的QQ登錄界面，使學生對VB程序設計產(chǎn)生濃厚的興趣。教材分析重點屬性、方法和事件難點VB的集成開發(fā)環(huán)境教學方法講授法、演示法、練習法、任務驅(qū)動法教學情景設計【學習要點】了解計算機語言；了解VB語言的特點；熟悉VB開發(fā)環(huán)境【新課講授】一、了解計算機語言各種軟件，包括Windows、Word、PowerPoint各種游戲等都是計算機語言編寫出來的。（演示）如貪吃蛇游戲、健康指標計算器等等。常見的高級語言BASIC。入門者首選語言。指令少，容易上手，易于掌握。PASCAL。適合科學計算、數(shù)據(jù)處理，運行編譯速度快。C語言。主要適用于應用軟件的開發(fā)，計算機專業(yè)人員的必修課。JAVA、.Net、PHP、C#、HTML......二、VB語言介紹VB是VisualBasic的簡稱，它對學習者的要求不高，但本身效率高、功能強大、實用性強。主要有如下特點：面向?qū)ο?、事件?qū)動、軟件的集成式開發(fā)、結(jié)構(gòu)化。面向?qū)ο蠛兔嫦蜻^程的區(qū)別：例如五子棋，面向過程的設計思路就是首先分析問題的步驟:1、開始游戲，3繪制畫面，4判斷輸贏，5、輪到白子，6、繪制畫面，7、判斷輸贏，8、返回步驟2,9、輸出最后結(jié)果。把上面每個步驟用分別的函數(shù)來實現(xiàn)，問題就解決了。而面向?qū)ο蟮脑O計則是從另外的思路來解決問題。整個五子棋可以分為：1黑白雙方，這兩方的行為是一模一樣的，2、棋盤系統(tǒng)，負責繪制畫面，3規(guī)則系統(tǒng)，負責判定諸如犯規(guī)、輸贏等。第一類對象（玩家對象）負責接受用戶輸入，并告知第二類對象（棋盤對象）棋子布局的變化棋盤對象接收到了棋子的變化就要負責在屏幕上面顯示出這種變化，同時利用第三類對象（規(guī)則系統(tǒng)）來對棋局進行判定?？梢悦黠@地看出，面向?qū)ο笫且怨δ軄韯澐謫栴}，而不是步驟。三、VB的開發(fā)環(huán)境了解計算機語言;熟悉VB開發(fā)環(huán)境了解VB中的對象、屬性、事件學會編寫窗體的設計代碼，并能運行程序（二）過程與方法:通過QQ登陸窗體的制作了解并掌握程序編寫的整個過程（三）情感、態(tài)度與價值觀:通過制作學生最熟悉的QQ登錄界面，使學生對VB程序設計產(chǎn)生濃厚的興趣。教材分析重點屬性、方法和事件難點VB的集成開發(fā)環(huán)境教學方法講授法、演示法、練習法、任務驅(qū)動法教學情景設計【新課引入】【新課講授】對象名稱屬性、方法或事件（屬性、方法或事件）作用說明登陸窗體FormlHeight屬性、Width屬性窗體的高度和寬度

登陸窗體FormlHide方法隱藏登錄窗體圖片ImagelHeight屬性、Width屬性圖片的高度和寬度圖片Image2Height屬性、Width屬性圖片的高度和寬度圖片ImagelPicture屬性顯示的圖片圖片Image2Picture屬性顯示的圖片文本框（輸入帳號）TextlText屬性Text屬性記錄輸入的值（賬號）文本框（輸入密碼）Text2PasswordChar屬性輸入密碼時顯示的字符按鈕（登陸）CommandiClick事件點擊按鈕執(zhí)行登陸事件按鈕（退出）Command2Click事件點擊按鈕執(zhí)行退出事件―、屬性對象的屬性:指對象（窗體、控件）的大小、顏色、方位等一系列外觀或內(nèi)部構(gòu)造的特征Height是高度，Width是寬度VB使用的是twip坐標系統(tǒng)，它與像素（pixel）不同，它們之間的轉(zhuǎn)換關系為15twip=1pixel。已知"qq1.jpg"的高度為139pixel，寬度為379pixel，則將之改為twip單位，即height屬性應該為twip，width屬性應該為twip;已知"qq2.jpg"的高度為98pixel，寬度為100pixel，則將之改為twip單位，即height屬性應該為twip，width屬性應該為twip;Picture屬性將Imagel的Picture屬性設置為qq1.jpg，將Image2的Picture屬性設置為qq2.jpg.PasswordChar屬性參考P59—點通，將密碼Text2控件的PasswordChar屬性改成“*"二事件對象的事件:指對象（窗體、控件）對外部條件的響應。VB是由事件觸發(fā)（事件驅(qū)動），例如單擊某個按鈕（Click事件），文本框內(nèi)容變更（Change事件）1.Click事件參考P60。①單擊“退出"按鈕觸發(fā)的事件為結(jié)束本程序。②單擊“登錄"按鈕觸發(fā)的事件為彈出一個消息框并且將本窗體隱藏;三、方法對象的方法：指對象（窗體、控件）所進行的操作。例如窗體的隱藏、刷新；圖像對象的移動等＜1.Hide方法單擊“登錄"按鈕后，將QQ登錄窗體隱藏，即form1.Hide保存工程到自己的文件夾內(nèi)，保存窗體名為"login.frm"，保存工程文件為"login.vbp"，生成exe文件，文件名為"login.exe"【學生練習】

教學后記授課時間2014年9月28曰第5周星期2總第3課時課題VB程序的數(shù)據(jù)與表達式課型新授課教學時數(shù)1課時教學目標（一）知識與技能：掌握VB中常用的數(shù)據(jù)類型

掌握VB中常量和變量的說明方法(_)過程與方法：通過分數(shù)計算器的制作，體會使用VB編寫程序的整個過程(二)情感、態(tài)度與價值觀：培養(yǎng)勇于實踐、勤于思考和善于總結(jié)的科學探索精神與嚴謹?shù)闹螌W態(tài)度。教材分析重點常見的數(shù)據(jù)類型；常量、變量說明方法難點常量和變量的說明方法教學方法講授法、演示法、練習法、任務驅(qū)動法教學情景設計【新課引入】展示本節(jié)課任務：完成分數(shù)計算器的制作。【新課講授】―、基本數(shù)據(jù)類型1、整型(integer)不帶小數(shù)點的整數(shù)；整型的標識符為integer,取值范圍為-32768~32767;如范例中的語文、數(shù)學、英語、總分采用整型2、長整型（long）與integer—樣存取整數(shù)，但取值范圍較大。取值范圍為-2147483648~21474836473、實數(shù)型（single）可存儲小數(shù)或者整數(shù)。如范例中的平均分可能會取小數(shù)，所以用實數(shù)型表示。4、字符串型（string）由字母、數(shù)字字符構(gòu)成的序列，必須用雙引號括起來。例如"張三”、“zhangsan”、“123”。注意：“123”和123是有區(qū)別的二、常量在程序運行過程中，取值不變的量稱為常量。常量定義部分的一般形式為：Const常量名as類型二表達式例如下列的常量說明語句，哪個是正確的？ConstxasintegerConstxasinteger=3.14Constxassingle=3.14Constnameasstring="張三”Constnameasstring=‘張三’三、變量在程序運行過程中，取值可以改變的量稱為變量。變量定義部分的一般形式為：Dim變量名as類型例如：Dimywasinteger

DimsxasintegerDimyyasinteger也可以放在同一行，如上述語句可以寫成：Dimywasinteger,sxasinteger,yyasinteger是正確的Dimywasinteger,sxasinteger,yyasinteger,pjfassingle就是錯誤的四、分數(shù)計算器的制作【學生練習】完成分數(shù)計算器的制作，并保存工程提交。教學后記本范例與學生實際生活相關，方便學生理解，學習效果不錯。學生容易出錯的地方：控件的名稱寫錯，導致編譯時“要求對象”第一個窗體中：長方形計算按鈕代碼提示:長方形面積計算代碼提示:工程1-For>2(Code)FrivateSubComrrandl_ClickDim屯bjeAsSinglea=Vai(Teirtl.Test)b二Vai(Text2.Test)s=a*bMsgBoxC■該長方眾的面積二"也“EndSub教學后記授課時間2014年11月4日第10周■期2總第6、7課時課題程序的選擇結(jié)構(gòu)課型新授課教學時數(shù)2課時教學目標(―)知識與技能：認識選擇結(jié)構(gòu)的特點掌握條件語句學會使用條件語句解決實際問題(_)過程與方法：在老師的指導下，通過QQ登錄界面的制作和完善體驗自主學習并獲得成功的喜悅。(二)情感、態(tài)度與價值觀：培養(yǎng)學生的邏輯思維能力、促進學生對計算機解決問題方法的理解；在自主探究解決問題的過程中，讓學生體驗學習的樂趣。教材分析重點鞏固選擇結(jié)構(gòu)的格式、執(zhí)行過程及其功能。難點鞏固選擇結(jié)構(gòu)的格式、執(zhí)行過程及其功能教學方法講授法、演示法、練習法、任務驅(qū)動法教學情景設計

【新課引入】展示本節(jié)課任務：完成QQ登錄界面的注冊、登錄。【新課講授】一、注冊窗口的完成1.使用user記錄昵稱，使用pass記錄密碼，即Public“退出”按鈕代碼為End；“注冊”按鈕實現(xiàn)記錄用戶輸入的賬號和密碼，并顯示登錄窗體，隱藏注冊窗體;代碼為：user=Text1.Textpass=Text2.Textform2.Showform1.Hide二、登錄窗體的完成如果用戶在登錄窗體輸入的賬號和密碼與注冊窗體輸入的一致，則顯示登錄后的窗口，否則提示“賬號或密碼錯誤"。退出”按鈕代碼為End；3.“登錄”按鈕代碼為：Ifuser=Text3.TextAndpass=Text4.TextThenform3.Showform2.HideElseMsgBox（"帳號或密碼錯誤"）EndIf【學生練習】完成QQ注冊、登錄界面的制作，并保存工程提交?！緮U展練習】Option控件的使用。

授課時間2014年11月25日第13周■期2總第8課時“提交”按鈕代碼為：“返回重選”“返回重選”按鈕回碼為.按鈕代碼為：IfOptionl.Value=TrueThen口〔°Forml.ShowlForml.Show「_TT.,廠-TT.,Form3.Hidel?,.Form2.HideForm1.HideForm2.ShowElseForm1.HideForm3.ShowEndIf教學后記學生興趣盎然，課堂氣氛活躍，掌握情況很好。

AB程序的循環(huán)的AS新授A教學時數(shù)1A時教學目標（一）知識與技能：認識循環(huán)結(jié)構(gòu)的特點掌握For循環(huán)語句學會使用For循環(huán)語句解決實際問題（_）過程與方法：初步學會使用For循環(huán)語句解決簡單實際問題。（二）情感、態(tài)度與價值觀：培養(yǎng)學生研究性學習能力、邏輯思維能力以及溫故知新的學習興趣和創(chuàng)新精神。教材分析重點掌握For/Next循環(huán)語句的格式和執(zhí)行步驟?點For/Next循環(huán)語句的格式和執(zhí)行步驟教學方法講授法■演示法■練習法、任馴動法教學情景8計【新課引入】師：5、4、3、2、1,我們現(xiàn)在開始上課。岡忖我們看到一個倒計時的程序，在日常生活中我們經(jīng)常會遇到這種情況，例如十運會的倒計時牌；十字路口的紅綠燈；火箭發(fā)射最后的數(shù)秒。我們?nèi)绾卧谟嬎銠C中用VB來實現(xiàn)以上的功能呢？【復習回顧】師：jishiText顯示的內(nèi)容是5,寫出相應的語句？生:jishi.Text=5添加Delay⑴【新知學習】一、猜測各語句的功能

程序功能DimiAsInteger定義整型變量iFori=5To0Step-1控制變量5-0變化Jishi.Text=i顯示變量i的值（5、4、3、2、1、0）Delay⑴延時1秒Nexti二、For語句的格式For＜循環(huán)變量＞=＜初值〉To＜終值〉[Step＜步長＞]＜語句〉Next＜＜語句〉Next＜循環(huán)變量〉三、For語句的執(zhí)行過程循環(huán)語句【學生練習】在屏幕中顯示5、4、3、2、1、0。做好后生成工程1.exe在屏幕中顯示12、22、32、42、52。做好后生成工程5.exe【新課講授】

【新知拓展】暴力破解密碼算法分析：從0到999999依次嘗試，如果某個數(shù)字和密碼相等，則輸出、退出循環(huán)；否則繼續(xù)嘗試下一個數(shù)。密碼變量為pass【新知拓展】暴力破解密碼TOC\o"1-5"\h\z循環(huán)變量的初值為?循環(huán)變量的終值為?步長為？循環(huán)語句為?如果破解成功，循環(huán)變量的值為？Fori=tostepIfthenjieguo.text二exitforendNextIfi=thenjieguo.text二"破解失敗"Endif教學后記授課時間2014Fori=tostepIfthenjieguo.text二exitforendNextIfi=thenjieguo.text二"破解失敗"Endif教學后記授課時間2014年12月2日第14周■期2總第9課時課題整人小程序課型新授課教學時數(shù)1課時教學目標（一）知識與技能：認識循環(huán)結(jié)構(gòu)的特點掌握For循環(huán)語句學會使用For循環(huán)語句解決實際問題（_）過程與方法：初步學會使用For循環(huán)語句解決簡單實際問題。（三）情感、態(tài)度與價值觀：培養(yǎng)學生研究性學習能力、邏輯思維能力以及溫故知新的學習興趣和創(chuàng)新精神。教材分析重點掌握For/Next循環(huán)語句的格式和執(zhí)行步驟難點For/Next循環(huán)語句的格式和執(zhí)行步驟教學方法講授法、演示法、練習法、任務驅(qū)動法教學情景設計【新課引入】展示幾個整人小程序：鼠標狂按的“數(shù)羊"、定時關機、新建無數(shù)文件的三個程序【新知學習】―、數(shù)羊程序中的10可以更改PrivateSubForm_Load()MsgEox廠困死我了>睡不著>幫我數(shù)羊。M.gBox「就十只羊吧？JFori=1To10MsgBox(i&."只羊NejitiEndEndSub?、定時關機程序中的60即60秒PrivateSubForm_Load0JShell^cmd.exe/cshutdown，取消自動關機DimsString三=InputBoxC誰是豬￥JI￡s=ThmMsgBox「回普正確！TEndElseShell^cmd.旦:ke/cshutdown_s~t60?JBU秒后關機EndI￡EndSub三、新建文件FrivateSubCummotli1_C1ick(..)Fori=1To10Opend：''i.lV&i&.Far匸lu切utAs#1JOpen：打開'd.'iLl"fti&".tut”d盅~n文件夾下的若肚的文本榕式文忤'F葉這里是進行的意息_'Out^utrar切ut/n輸出■■ForOut^ut=進行輸出JAs陸宵-#1：VB6中用于I/Oa^ut/Outiut,輸入諭出〕英文件號，其他的還有#2捋……■■上一條語句的意思是：打開F盤下的1丈件夾下名初的丈本格式文件進紅寫入工作，并將烹次寫入的代號定宵#1Write#1,llupid"'向文件寫入"stupid"Close#1J關曲該寫入通道NextiEndSab【學生練習】

教學后記授課時間2014年12月23曰第17周星期2總第10課時課題用定時器設計的工程——計時秒表課型新授課教學時數(shù)1課時教學（一）知識與技能：時的方式，程序中用Command_MouseDown()和Command_MouseUp()兩事件來處理計時的；如果計時的時間間隔較長，則可以分別按“計時開始"和"計時結(jié)束”兩命令按鈕來計時，這兩個命令按鈕都是響應鼠標單擊事件的Command_Click()。程序的表達式：Int((Timer-start)*1OOO)/1OOO是計算"計時秒表”結(jié)束時與啟動時的時間差，并精確到1/1000秒。本程序使用了一個Shape1控件，它用Timer1定時器每隔0.5秒驅(qū)動一次，以顯示計時器的工作狀態(tài)，在計時還是不在計時。代碼講解：Dimstart,startl'變量說明語句DimaAsIntegerPrivateSubCommand1_ClickOLabel1.Caption二""'清空Label1EndSubPrivateSubCommand2_ClickOstart=Timer'計時開始，start取當前時間Shape1.Visible=True'計時開始，shape1顯示EndSubPrivateSubCommand3_ClickOLabel1.Caption二Int((Timer-start)*1000)/1000&"秒"’計時結(jié)束,labell顯示當前時間與start的差值，并精確到小數(shù)點后3位Shape1.Visible=False'計時結(jié)束，shape1不可見EndSubPrivateSubCommand4_ClickOEnd'退出程序EndSubPrivateSubCommand5_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)start=Timer'取鼠標按下時的時間EndSubPrivateSubCommand5_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Lab