vb趣味程序教案

1、教學(xué)進度表周次時間教學(xué)內(nèi)容39月16日QQ登錄窗口的制作一一初步認(rèn)識計算機諦言49月23日VB程序設(shè)計的過程59月28日VB程序的數(shù)據(jù)與表達(dá)式8、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錄窗口的制作一一初步認(rèn)識計算機諦言課型新授課教學(xué)時數(shù)1課時教學(xué)目標(biāo)（一）知識與技能：了解計算機語言；熟悉VB開發(fā)環(huán)境了解VB中的對象、屬性、事件學(xué)會編寫窗體的設(shè)計代碼，并

2、能運行程序（二）過程與方法：通過QQ登陸窗體的制作了解并掌握程序編寫的整個過程（三）情感、態(tài)度與價值觀：通過制作學(xué)生最熟悉的 QQ登錄界面，使學(xué)生對 VB程序設(shè)計產(chǎn)生濃厚的興趣。教材分析重點屬性、方法和事件難點VB的集成開發(fā)環(huán)境教學(xué)方法講授法、演不法、練習(xí)法、任務(wù)驅(qū)動法教學(xué)情景設(shè)計【學(xué)習(xí)要點】了解計算機語言；了解VB語言的特點；熟悉VB開發(fā)環(huán)境【新課講授】一、了解計算機語言各種軟件，包括 Windows、Word、PowerPoint、各種游戲等都是計算機語言編寫出來的。（演示）如貪吃蛇游戲、健康指標(biāo)計算器等等。常見的高級語言1. BASIC。入門者首選語言。指令少，容易上手，易于掌握。2.

3、PASCAL適合科學(xué)計算、數(shù)據(jù)處理，運行編譯速度快。3. C語言。主要適用于應(yīng)用軟件的開發(fā)，計算機專業(yè)人員的必修課。4. JAVA .Net、PHR C執(zhí) HTML二、VB語言介紹VB是Visual Basic的簡稱，它對學(xué)習(xí)者的要求不高，但本身效率高、功能強大、實用性強。主要有如下特點：面向?qū)ο?、事件?qū)動、軟件的集成式開發(fā)、結(jié)構(gòu)化。面向?qū)ο蠛兔嫦蜻^程 的區(qū)別：例如五子棋，面向過程的設(shè)計思路就是首先分析問題的步驟：5. 開始游戲，6. 黑子先走，7. 繪制畫面，8. 判斷輸贏，9. 輪到白子，10. 制畫面，11. 斷輸贏，12. 回步驟2,9、輸出最后結(jié)果。把上面每個步驟用分別的函數(shù)來實現(xiàn)，

4、問題就解決了。而面向?qū)ο蟮脑O(shè)計則是從另外的思路來解決問題。整個立子棋可以分為：1、黑白雙方，這兩方的行為是一模一樣的，2、棋盤系統(tǒng)，負(fù)責(zé)繪制回囿，3、規(guī)則系統(tǒng)，負(fù)責(zé)判定諸如犯規(guī)、輸贏等。第一類對象（玩家對象）負(fù)責(zé)接受用戶輸入，并告知第二類對象（棋盤對象）棋子布局的變化，棋 盤對象接收到了棋子的變化就要負(fù)責(zé)在屏幕上面顯示出這種變化，同時利用第三類對象（規(guī)則系統(tǒng)）來 對棋局進行判定?？梢悦黠@地看出，面向?qū)ο笫且怨δ軄韯澐謫栴}，而不是步驟。三、VB的開發(fā)環(huán)境四、制作QQ登錄界面【學(xué)生練習(xí)】完成QQ登錄界面的制作，并保存工程提交。教學(xué) 后記授課時間2014年9月23日 第4周 星期2總第2課時課題VB

5、程序設(shè)計的過程課型新授課教學(xué)時數(shù)1課時教學(xué)目標(biāo)（一）知識與技能：了解計算機語言；熟悉VB開發(fā)環(huán)境了解VB中的對象、屬性、事件學(xué)會編寫窗體的設(shè)計代碼，并能運行程序（二）過程與方法：通過QQ登陸窗體的制作了解并掌握程序編寫的整個過程（三）情感、態(tài)度與價值觀：通過制作學(xué)生最熟悉的 QQ登錄界面，使學(xué)生對 VB程序設(shè)計產(chǎn)生濃厚的興趣。教材分析重點屬性、方法和事件難點VB的集成開發(fā)環(huán)境教學(xué)方法講授法、演不法、練習(xí)法、任務(wù)驅(qū)動法教學(xué)情景設(shè)計【新課引入】 【新課講授】對象名稱屬性、方法或事件（屬性、方法或事件）作用說明登陸窗體FormlHeight屬性、Width屬性窗體的高度和寬度登陸窗體FormlHid

6、e方法隱藏登錄窗體圖片ImagelHeight屬性、Width屬性圖片的高度和寬度圖片Image2Height屬性、Width屬性圖片的高度和寬度圖片ImagelPicture 屬性顯示的圖片圖片Image2Picture 屬性顯示的圖片文本框（輸入帳號）Text1Text屬性Text屬性記錄輸入的值（賬號）文本框（輸入密碼）Text2PasswordChar 屬性輸入密碼時顯示的字符按鈕（登陸）Command1Click事件點擊按鈕執(zhí)行登陸事件按鈕（退出）Command2Click事件點擊按鈕執(zhí)行退出事件一、屬性對象的屬性:指對象（窗體、控件）的大小、顏色、方位等一系列外觀或內(nèi)部構(gòu)造的特征1

7、 .Height是高度，Width是寬度VB使用的是twip坐標(biāo)系統(tǒng)，它與像素（pixel）不同，它們之間的轉(zhuǎn)換關(guān)系為15twip=1pixel。已知qq1.jpg”的高度為139pixel ,寬度為379 pixel ,則將之改為twip單位，即height屬性應(yīng)該為 twip , width 屬性應(yīng)該為 twip;已知qq2.jpg”的高度為98 pixel ,寬度為100 pixel ,則將之改為twip單位，即height屬性應(yīng)該為 twip , width 屬性應(yīng)該為 twip;2 .Picture 屬性將Image1的Picture屬性設(shè)置為 qq1.jpg ,將Image2的Pi

8、cture屬性設(shè)置為 qq2.jpg.3 .PasswordChar 屬性參考P59 一點通，將密碼 Text2控件的PasswordChar屬性改成“ *”二、事件對象的事件:指對象（窗體、控件）對外部條件的響應(yīng)。VB是由事件觸發(fā)（事件驅(qū)動），例如單擊某個按鈕（Click事件），文本框內(nèi)谷變更（ Change事件） 1.Click 事件經(jīng)巧P60。單擊“退出”按鈕觸發(fā)的事件為結(jié)束本程序。單擊“登錄”按鈕觸發(fā)的事件為彈出一個消息框并且將本窗體隱藏； 三、方法對象的方法：指對象（窗體、控件）所進行的操作。例如窗體的隱藏、刷新；圖像對象的移動等。1.Hide方法單擊“登錄”按鈕后，將 QQ登錄窗體

9、隱藏，即 form1.Hide保存工程到自己的文件夾內(nèi)，保存窗體 名為login.frm ”,保存工程文件為login.vbp ”,生成exe文件，文件名為login.exe【學(xué)生練習(xí)】教 學(xué) 后 記課題VB程序的數(shù)據(jù)與表達(dá)式課型新授課教學(xué)時數(shù)1課時教學(xué)目標(biāo)（一）知識與技能：掌握VB中常用的數(shù)據(jù)類型掌握VB中常量和變量的說明方法（一）過程與方法：通過分?jǐn)?shù)計算器的制作，體會使用 VB編寫程序的整個過程（三）情感、態(tài)度與價值觀：培養(yǎng)勇于實踐、勤于思考和善于總結(jié)的科學(xué)探索精神與嚴(yán)謹(jǐn)?shù)闹螌W(xué) 態(tài)度。教材分 析重點常見的數(shù)據(jù)類型；常量、變量說明方法難點常量和變量的說明方法教學(xué)方法講授法、演示法、練習(xí)法、任

10、務(wù)驅(qū)動法授課時間2014年9月28日 第5周 星期2總第3課時教學(xué)情景設(shè)計【新課引入】展示本節(jié)課任務(wù)：完成分?jǐn)?shù)計算器的制作?！拘抡n講授】1、 基本數(shù)據(jù)類型1、整型（integer）不帶小數(shù)點的整數(shù)；整型的標(biāo)識符為integer ,取值范圍為-3276832767;如范例 中的語文、數(shù)學(xué)、英語、總分采用整型2、長整型（long ）與integer 一樣存取整數(shù)，但取值范圍較大。取值范圍為3、實數(shù)型（single）可存儲小數(shù)或者整數(shù)。如范例中的平均分可能會取小數(shù)，所以用實數(shù)型表示。4、字符串型（string ）由字母、數(shù)字字符構(gòu)成的序列，必須用雙引號括起來。例如“張三”、 “zhangsan”、

11、“123” 。注意：“ 123” 和 123 是有區(qū)別的2、 常量在程序運行過程中，取值不變的量稱為常量。常量定義部分的一般形式為：Const常量名as類型二表達(dá)式例如下列的常量說明語句，哪個是正確的 ？A. Const x as integerB. Const x as integer=3.14C. Const x as single=3.14D. Const name as string=張三”E. Const name as string=張三3、 變量在程序運行過程中，取值可以改變的量稱為變量。變量定義部分的一般形式為：Dim受重名as 尖型例如： Dim yw as integerD

12、im sx as integerDim yy as integer也可以放在同一行，如上述語句可以寫成：Dim yw as integer, sx as integer, yy as integer是止確的Dim yw as integer, sx as integer, yy as integer,pjf as single就是錯誤的4、 分?jǐn)?shù)計算器的制作【學(xué)生練習(xí)】完成分?jǐn)?shù)計算器的制作，并保存工程提交。教 學(xué) 后 記本范例與學(xué)生實際生活相關(guān)，方便學(xué)生理解，學(xué)習(xí)效果不錯。學(xué)生容易出錯的地方：控件的名稱寫錯，導(dǎo)致編譯時“要求對象”授課時間2014年10月21、28日 第8、9周 星期2總第4、

13、5課時課題幾何計算課型新授課教學(xué)時數(shù)2課時教學(xué)目標(biāo)（一）知識與技能：了解順序結(jié)構(gòu)的特點掌握VB諦言中的賦值語句；（一）過程與方法：通過完成自動飲料機的制作，掌握 VB的賦值和輸出語句，并嘗試解 決實際問題。（三）情感、態(tài)度與價值觀：培養(yǎng)學(xué)生發(fā)現(xiàn)問題、思考問題和解決問題的習(xí)慣；培養(yǎng)學(xué)生初步的程序設(shè)計思維。教材分 析重點TextBox、Image、Label的使用；賦值語句難點對順序結(jié)構(gòu)的理解和運用；Label和TextBox的使用教學(xué)方法自學(xué)法、練習(xí)法、任務(wù)驅(qū)動法教學(xué)W景設(shè)計【新課引入】展示本節(jié)課任務(wù)：完成分?jǐn)?shù)計算器的制作?！緦W(xué)生練習(xí)】第一個窗體中：長方形計算按鈕代碼提示：長方形面積計算代碼提示

14、：教 學(xué) 后 記授課時間2014年11月4日 第10周 星期2總第6、7課時課題程序的選擇結(jié)構(gòu)課型新授課教學(xué)時數(shù)2課時教學(xué)目標(biāo)（一）知識與技能：認(rèn)識選擇結(jié)構(gòu)的特點掌握條件語句學(xué)會使用條件語句解決實際問題（一）過程與方法：在老師的指導(dǎo)下，通過 QQ登錄界面的制作和完善體驗自主學(xué)習(xí)并獲 得成功的喜悅。（三）情感、態(tài)度與價值觀：培養(yǎng)學(xué)生的邏輯思維能力、促進學(xué)生對計算機解決問題方法的理解；在自主探究解決問題的過程中，讓學(xué)生體驗學(xué)習(xí)的樂趣。教材分 析重點鞏固選擇結(jié)構(gòu)的格式、執(zhí)行過程及其功能。難點鞏固選擇結(jié)構(gòu)的格式、執(zhí)行過程及其功能教學(xué)方法講授法、演示法、練習(xí)法、任務(wù)驅(qū)動法教學(xué)情景設(shè)計【新課引入】展示本節(jié)

15、課任務(wù)：完成QQ登錄界面的注冊、登錄?！拘抡n講授】一、注冊窗口的完成1 .使用user記錄昵稱，使用pass記錄密碼，即Public user, pass As String2 .“退出”按鈕代碼為End;3 .“注冊”按鈕實現(xiàn)記錄用戶輸入的賬號和密碼，并顯示登錄窗體，隱藏注冊窗體； 代碼為：user = Text1.Textpass = Text2.Textform2.Showform1.Hide二、登錄窗體的完成1 .如果用戶在登錄窗體輸入的賬號和密碼與注冊窗體輸入的一致，則顯示登錄后 的窗口，否則提示“賬號或密碼錯誤”。2 .退出按鈕代碼為End;3 .“登錄”按鈕代碼為：If user

16、 = Text3.Text And pass = Text4.Text Then form3.Show form2.HideElseMsgBox （帳號或密碼錯誤）End If【學(xué)生練習(xí)】完成QQ注冊、登錄界面的制作，并保存工程提交。【擴展練習(xí)】Option控件的使用。“返回重選” 按鈕代碼為： Form1.Show Form2.Hide“提交”按鈕代碼為：按鈕代碼為：Form1.ShowForm3.HideIf Option1.Value = True ThenForm1.HideForm2.ShowElseForm1.HideForm3.ShowEnd If教|學(xué)生興趣盎然，課堂氣氛活躍,

17、掌握情況很好。 學(xué) 后 記授課時間2014年11月25日 第13周 星期2總第8課時課題程序的循環(huán)結(jié)構(gòu)課型新授課教學(xué)時數(shù)1課時教學(xué)目標(biāo)（一）知識與技能：認(rèn)識循環(huán)結(jié)構(gòu)的特點掌握For循環(huán)語句學(xué)會使用For循環(huán)語句解決實際問題（二）過程與方法：初步學(xué)會使用For循環(huán)語句解決簡單實際問題。（三）情感、態(tài)度與價值觀：培養(yǎng)學(xué)生研究性學(xué)習(xí)能力、邏輯思維能力以及溫故知新的學(xué)習(xí)興趣和創(chuàng)新精神。教材分 析重點掌握For/Next循環(huán)語句的格式和執(zhí)行步驟難點For/Next循環(huán)語句的格式和執(zhí)行步驟教學(xué)方法講授法、演示法、練習(xí)法、任務(wù)驅(qū)動法教學(xué)情景設(shè)計【新課引入】師：5、4、3、2、1,我們現(xiàn)在開始上課。剛才我們看

18、到一個倒計時的程序，在日常生活中我們經(jīng)常會遇到這種情況，例如十運會的倒計時牌；十字路口的紅綠燈；火箭發(fā)射最后的數(shù)秒。我們?nèi)绾卧谟嬎銠C中用VB來實現(xiàn)以上的功能呢？【復(fù)習(xí)回顧】師：jishi Text 顯示的內(nèi)容是 5,寫出相應(yīng)的語句？生：jishi.Text=5添加Delay【新知學(xué)習(xí)】程序功能Dim i As Integer定義整型變量iFor i = 5 To 0 Step -1控制變量5-0變化Jishi.Text = i顯示變量i的值（5、4、3、2、1、0）Delay 延時1秒Next i一 一一、猜測各語句的功能二、For語句的格式For 循環(huán)變量=W值To 終打 語句Next 循環(huán)

19、變量 Step 一、For諳句的熱仃過桎【學(xué)生練習(xí)】1. 在屏幕中顯示 5、4、3、2、1、0.2. 在屏幕中顯示 12、22、32、42、（【新課講授】【新知拓展】暴力破解密碼循薛語句錯環(huán)變量 初值做好后生成工程 1.exer終值i2。做好）后生成工程5.exe生長篇環(huán)語句破解招里吉果開始重新登錄算法分析：從0到999999依次嘗試，如果某個數(shù)字和密碼 相等，則輸出、退出循環(huán)；否則繼續(xù)嘗試下一個數(shù)。密碼變量為 pass循環(huán)變量的初值為?循環(huán)變量的終值為?步長為?循環(huán)語句為?如果破解成功，循環(huán)變量的值為 ?如果破解不成功，循環(huán)變量的值為 ?For i=to stepIf then jieguo

20、.text=exit for endNextIf i=then jieguo.text=破解失敗End if教 學(xué) 后 記授課時間2014年12月2日第14周 星期2總第9課時課題整人小程序課型新授課教學(xué)時數(shù)1課時教 目學(xué) 標(biāo)（一）知識與技能：認(rèn)識循環(huán)結(jié)構(gòu)的特點掌握For循環(huán)語句學(xué)會使用For循環(huán)語句解決實際問題（二）過程與方法：初步學(xué)會使用For循環(huán)語句解決簡單實際問題。（三）情感、態(tài)度與價值觀：培養(yǎng)學(xué)生研究性學(xué)習(xí)能力、邏輯思維能力以及溫故知新的學(xué)習(xí)興趣和創(chuàng)新精神。教材方重點掌握For/Next循環(huán)語句的格式和執(zhí)行步驟析難點For/Next循環(huán)語句的格式和執(zhí)行步驟教學(xué)方法講授法、演示法、練習(xí)

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

22、點Timer的用法難點Timer的用法教學(xué)方法講授法、演示法、練習(xí)法、任務(wù)驅(qū)動法教學(xué)W景設(shè)計【新課引入】本節(jié)課我們將利用VB內(nèi)部函數(shù)Timer制作一個計時秒表，效果如下圖：【新課講授】“計時秒表”是利用 VB內(nèi)部函數(shù)Timer,該函數(shù)報告從當(dāng)天零點到現(xiàn)時的總秒數(shù)。如果兩次啟用此 函數(shù)，就可以得到這兩次啟用時的時間差，也就起到了計時的作用?！坝嫊r秒表”程序采用兩種計時方 式，如果計時的時間間隔較短，可以用鼠標(biāo)按鍵放下時開始計時，鼠標(biāo)鍵釋放時結(jié)束計時的方式，程序 中用Command_MouseDown()口 Command_MouseUp(兩事件來處理計時的；如果計時的時間間隔較長，則可 以分別按

23、“計時開始”和“計時結(jié)束兩命令按鈕來計時，這兩個命令按鈕都是響應(yīng)鼠標(biāo)單擊事件的 Command_Click()。程序的表達(dá)式：Int(Timer-start)*1000)/1000是計算“計時秒表”結(jié)束時與啟動時的時間差，并精確到1/1000秒。本程序使用了一個Shapel控件，它用 Timeri定時器每隔0.5秒驅(qū)動一次，以顯示計時器的工作狀態(tài)，在計時還是不在計時。代碼講解：Dim start, startl 變量說明語句Dim a As IntegerPrivate Sub Command1_Click()Labell.Caption = 清空 Labell End SubPrivate

24、Sub Command2_Click()start = Timer 計時開始，start 取當(dāng)前時間Shapel.Visible = True 計時開始，shapel 顯示End SubPrivate Sub Command3_Click()Labell.Caption = Int(Timer - start) * 1000) / 1000 & 秒計時結(jié)束，labell 顯示當(dāng)前時間與start的差值，并精確到小數(shù)點后3位Shape1.Visible = False 計時結(jié)束，shape1 不可見End SubPrivate Sub Command4_Click()End 退出程序End Su

25、bPrivate Sub Command5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) start = Timer 取鼠標(biāo)按下時的時間End SubPrivate Sub Command5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.Caption = Int(Timer - start) * 1000) / 1000 & 秒取鼠標(biāo)釋放時的時間與按下時間的差值，并精確到小數(shù)點后3位End SubPrivate Sub Form_Load()Shape1.Visible = False 開始時 shape1