新課標(biāo)青島版初中信息技術(shù)八年級(jí)下冊(cè)（Vb程序設(shè)計(jì)）部分精品教案

1、新課標(biāo)青島版初中信息技術(shù)八年級(jí)下冊(cè)（vb程序設(shè)計(jì)）部分精品教案一、 八年級(jí)下冊(cè)教學(xué)內(nèi)容安排建議八年級(jí)下冊(cè)有兩部分知識(shí)：1、算法思想初步；2、vb程序設(shè)計(jì)。教學(xué)中建議重點(diǎn)學(xué)習(xí)vb程序設(shè)計(jì)，基于兩點(diǎn)原因：1、教學(xué)時(shí)間；2、軟件的通適性。但應(yīng)介紹算法基礎(chǔ)知識(shí)，建議用1課時(shí)完成，可參考第1單元第1課算法基礎(chǔ)知識(shí)安排教學(xué)，知識(shí)點(diǎn)有：算法概念，表示方法：自然語言、流程圖、計(jì)算機(jī)語言。其中算法的流程圖是重要的，要求學(xué)生能畫流程圖，老師舉例得出算法的三種結(jié)構(gòu)：順序結(jié)構(gòu)、分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。二、 vb程序教學(xué)體驗(yàn)1、 啟動(dòng)vb2、vb界面認(rèn)識(shí)：三欄：標(biāo)題欄、菜單欄、工具欄（可類比學(xué)過的工具軟件） 一箱：工具箱（

2、類比畫圖、flash、photoshop）。重點(diǎn)認(rèn)識(shí):labelcommandbuttontextbox 一窗體設(shè)計(jì)器： 三窗口：資源管理器窗口、屬性窗口、窗體布局窗口3、界面的變動(dòng)：通過視圖工具欄調(diào)整4、制作一個(gè)“問好.vbp”，體驗(yàn)：（1）如何添加控件（2）屬性如何改變（3）代碼如何編寫通過制作這個(gè)程序，我們體驗(yàn)到了vb程序開發(fā)的一般步驟 三、 vb程序教學(xué)的三維目標(biāo)1、 知識(shí)目標(biāo)2、 技能目標(biāo)3、 情感態(tài)度和價(jià)值觀目標(biāo)四、 教材中有關(guān)vb的8個(gè)實(shí)例分析第課大熊貓的兩個(gè)愿望（四個(gè)教學(xué)環(huán)節(jié)）一、 認(rèn)識(shí)vb工作界面（解決兩個(gè)問題：界面的組成部分有幾個(gè)？如何修改？）1、啟動(dòng)：類比其它軟件的啟動(dòng)方

3、法1、程序菜單；2、雙擊快捷方式；3、右擊2、界面：（1）三欄：標(biāo)題欄、菜單欄、工具欄（可類比學(xué)過的工具軟件） 一箱：工具箱（類比畫圖、flash、photoshop）。重點(diǎn)認(rèn)識(shí):labelcommandbuttontextbox 一窗體設(shè)計(jì)器： 三窗口：資源管理器窗口、屬性窗口、窗體布局窗口 （2）修改二、運(yùn)行程序（解決怎樣運(yùn)行程序的問題）1、讓學(xué)生打開文件，啟動(dòng)程序（三種方法：工具欄按鈕、菜單、f5）2、在運(yùn)行狀態(tài)時(shí)，引導(dǎo)學(xué)生觀察標(biāo)題欄的變化，得到工程的三種狀態(tài)：設(shè)計(jì)、運(yùn)行、中斷（break）三、修改界面（解決控件的五個(gè)問題：怎么加？怎么刪？怎么移？怎么縮放？怎么改？）1、控件的添加與刪除

4、（1）添加（兩種方法）：單擊控件畫出。引導(dǎo)學(xué)生回憶“畫圖”程序如何畫幾何圖形，完成控件添加 雙擊控件（2）如何刪除幾何圖形（三種方法）：delete右擊菜單2、控件的移動(dòng)、縮放：3、修改控件的屬性值：（1）教學(xué)建議：引導(dǎo)學(xué)生發(fā)現(xiàn)修改方法（自學(xué)探究）（2）難點(diǎn)：添加一個(gè)commandbutton控件，修改其標(biāo)題、文本字體、背景色。教學(xué)中注意區(qū)別：控件名稱（name）與控件標(biāo)題（caption）的區(qū)別：控件名稱具有唯一性，可用身份證號(hào)碼與人的姓名類比。（可以分別修改控件名稱和控件標(biāo)題試一試）commandbutton控件背景色在改變時(shí)，應(yīng)將其style屬性修改為（1-graphical）模式。添加

5、一個(gè)label控件，修改fontforecolorbackcolorbackstyle設(shè)置控件屬性：label1.captionlabel1.backstylelabel1.forecolorcommand1.captioncommand1.backcolorcommand1.style屬性與屬性值什么是屬性？屬性值又是什么？在vb中屬性是用來描述對(duì)象特性的。比如，在現(xiàn)實(shí)生活中我們常常會(huì)問：“這位先生的姓名是什么？”，“年齡多少？”。我們會(huì)回答這位先生叫張三，年齡30歲。這種問題放在vb中就變成：這位先生的“姓名屬性”是什么？，“年齡屬性”是什么？其中，“張三”就是名字屬性的值，“30”就是年

6、齡屬性的值。此外，為了描述一個(gè)人，光有前面兩項(xiàng)屬性是不夠的，往往還需要另外一些屬性，如性別、身高、體重、學(xué)歷等等。這時(shí)要注意的是，每一種對(duì)象所具有的屬性是不同的，比花與人兩種不同的對(duì)象，人具有“學(xué)歷”屬性而花沒有，花具有“香味”屬性而人沒有。 在vb中每種對(duì)象有若干個(gè)屬性。例如命令按鈕有名稱、標(biāo)題以及按鈕的尺寸等，不同的對(duì)象可能有不同的屬性類型和屬性值，用戶可以根據(jù)需要對(duì)它們賦予各種不同的值。 四、修改代碼體驗(yàn)（解決三個(gè)問題：分清有幾個(gè)模型架？每個(gè)模型架表示的哪個(gè)對(duì)象的什么事件？修改的是哪個(gè)對(duì)象的什么屬性？）vb過程的組成1、觀看代碼窗口的構(gòu)成：（雙擊控件就可添加過程的模型架）以command

7、1_click()過程的模型架為例private sub command1_click()label2.caption = 我希望能天天有竹子可吃！label2.forecolor = rgb(244, 12, 56)end sub解讀：private：私有過程，表示該過程只能在本窗體文件中被調(diào)用，應(yīng)用程序中的其他窗體或模塊不可調(diào)用它。 sub：過程開始的標(biāo)志。 command1_click()：過程名，由兩部分組成，對(duì)象名和事件名，兩者之間用下劃線連接。 endsub：過程結(jié)束的標(biāo)志。 2、修改：（1）雙擊“愿望一”按鈕，打開代碼窗口，修改label1.caption（2）試探修改label

8、a.forecolor=rgb（244，12，56）顏色值。進(jìn)入代碼窗口的方法（1）雙擊當(dāng)前窗體 （2）單擊“工程”窗口的“查看代碼”按鈕 （3）在菜單欄中選擇“視圖”菜單中的“代碼窗口”命令1、愿望一command1的click事件代碼private sub command1_click()label2.caption = 我希望能天天有竹子可吃！label2.forecolor = rgb(244, 12, 56)end sub2、愿望二command2的click事件代碼private sub command2_click()label2.caption = 我希望能安靜地生活！labe

9、l2.forecolor = rgb(244, 12, 56)end sub五、實(shí)踐創(chuàng)新用好評(píng)價(jià)表六、總結(jié)（解決兩個(gè)問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識(shí)，建構(gòu)起新的知識(shí)體系；二是拓展延伸，這個(gè)程序的進(jìn)一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）開發(fā)vb應(yīng)用程序的步驟 總結(jié)上述幾個(gè)例題，開發(fā)一個(gè)vb應(yīng)用程序有三個(gè)步驟： 1、設(shè)計(jì)用戶界面 2、屬性設(shè)置 3、編寫事件過程代碼 第2課 自我介紹（七個(gè)環(huán)節(jié)）一、 分析問題（解決兩個(gè)問題：對(duì)程序整體的感知、分析有幾個(gè)事件）讓學(xué)生運(yùn)行“自我介紹.frm”，運(yùn)行過程中思考幾個(gè)問題：1、在文本框中輸入個(gè)人信息后，單擊“顯示”按鈕，會(huì)在最下面文本框中顯示什么內(nèi)

10、容？什么字體被選中？2、單擊另一個(gè)字體單選按鈕，自我介紹的內(nèi)容有什么變化？二、界面設(shè)計(jì)（解決三個(gè)問題：控件的添加、調(diào)整、設(shè)置屬性）1、分析界面上有幾種控件？分別是什么？“自我介紹”程序中用到的控件圖標(biāo)名稱數(shù)量2、添加控件（學(xué)會(huì)添加控件的兩種方法）3、調(diào)整布局（學(xué)會(huì)一次設(shè)置多個(gè)控件的方法）4、設(shè)置對(duì)象屬性（1）、如何設(shè)置文本框多行顯示(text1.multiline=true)（2）、如何使文本框置空(選中文本框，text1.text=”)（3）、如何使單選按鈕選中（optionbutton1.value=true）（4）、如何修改label的字體屬性（修改label.font）設(shè)置控件屬性：l

11、abel1.captionlabel1.fonttext1.texttext1.multilinecommand1.captionoption1.captionoption1.value三、編寫代碼（解決兩個(gè)問題：要有幾個(gè)對(duì)象的什么事件？每個(gè)事件要修改的是哪些對(duì)象的什么屬性？）1、退出2、三個(gè)optionbutton(text6.font.size=”14”,text6.font=”楷體_gb2312”)3、續(xù)行符“_”的用法4、字符串運(yùn)算符“+”1、顯示command1的click事件代碼private sub command1_click()option1.setfocustext6.fo

12、nt = 宋體text6.fontsize = 14text6.text = 姓名： + text1.text + ；email： + text2.text + _；愛好： + text3.text + ；優(yōu)點(diǎn)： + text4.text + ；需要改進(jìn)的地方： + text5.textend sub2、退出command2的click事件代碼private sub command2_click()endend sub3、option1的click事件代碼private sub option1_click()text6.font = 宋體text6.fontsize = 14text6.tex

13、t = 姓名： + text1.text + ；email： + text2.text + _；愛好： + text3.text + ；優(yōu)點(diǎn)： + text4.text + ；需要改進(jìn)的地方： + text5.textend sub4、option2的click事件代碼private sub option2_click()text6.font = 黑體text6.fontsize = 14text6.text = 姓名： + text1.text + ；email： + text2.text + _；愛好： + text3.text + ；優(yōu)點(diǎn)： + text4.text + ；需要改進(jìn)的地方

14、： + text5.textend sub5、option3的click事件代碼private sub option3_click()text6.font = 楷體_gb2312text6.fontsize = 14text6.text = 姓名： + text1.text + ；email： + text2.text + _；愛好： + text3.text + ；優(yōu)點(diǎn)： + text4.text + ；需要改進(jìn)的地方： + text5.textend sub四、調(diào)試與運(yùn)行（解決程序的修正問題）程序的三種狀態(tài)：設(shè)計(jì)、運(yùn)行、break五、保存文件保存窗體文件（*.frm）和保存工程文件(*.v

15、bp)六、生成可執(zhí)行文件保存可執(zhí)行文件（*.exe）:可執(zhí)行文件有什么作用七、實(shí)踐與創(chuàng)新八、總結(jié)拓展（解決兩個(gè)問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識(shí)，建構(gòu)起新的知識(shí)體系；二是拓展延伸，這個(gè)程序的進(jìn)一步完善，或其它方面的應(yīng)用。總結(jié)獲）1、屬性設(shè)置和編寫代碼中的問題2、拓展：多余代碼的去除第3課謎語大擂臺(tái)（一）一、引入新課我們來做一個(gè)猜謎游戲，看哪位同學(xué)能用最快的時(shí)間猜出來。這個(gè)游戲的設(shè)計(jì)特點(diǎn)讓學(xué)生總結(jié)一下： 三個(gè)commandbotton“謎語”、“答案”、“退出” 單擊事件發(fā)生后，程序運(yùn)行結(jié)果怎樣？如何制作這一程序呢？二、分析問題（解決對(duì)程序感知的兩個(gè)問題：程序有幾個(gè)事件？分別改變的是

16、什么對(duì)象的何種屬性？如何做？）程序有三個(gè)事件：謎語、答案、退出三個(gè)按鈕的_click事件三個(gè)事件改變的控件屬性： 謎語：text1 顯示出現(xiàn)謎語的時(shí)間 text2 顯示現(xiàn)在時(shí)間 text3 顯示耗時(shí) 答案：text2 將出現(xiàn)答案的時(shí)間定格 text3 將從出謎語到顯示答案的時(shí)間定格 text4 顯示答案 退出：退出程序分析：textbox需要幾個(gè)？ lable需要幾個(gè)？ commandbutton需要幾個(gè)？還要用到timer控件，image控件。三、界面設(shè)計(jì)（解決五個(gè)問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）用到的控件和屬性設(shè)置（對(duì)于常用的label、textbox、commandb

17、utton，基本的是兩項(xiàng)：修改標(biāo)題、美化）label1.captionlabel1.fontlabel1.forecolor text1.fonttext1.forecolorimage1.pictureimage1.stretchtimer1.intervaliimer1.enabledcommand1.caption四、編寫代碼（解決兩個(gè)問題：要有幾個(gè)對(duì)象的什么事件？每個(gè)事件要修改的是哪些對(duì)象的什么屬性？）1、謎語command1的click事件代碼private sub command1_click()text1.text = time$timer1.enabled = truelabe

18、l5.caption = 高山不見一寸土， + vbcrlf + 平地不見半畝田， + vbcrlf + 江河湖海沒有水， + _ vbcrlf + 世界各國在眼前。 + vbcrlf + vbcrlf + (打一學(xué)習(xí)工具)end sub2、答案command2的click事件代碼private sub command2_click()timer1.enabled = falsetext4.text = 地圖end sub3、退出command3的click事件代碼private sub command3_click()end sub4、timer1控件的代碼private sub timer

19、1_timer()text2.text = cstr(time$)text3.text = cstr(val(text3.text) + 1) + 秒end sub教師講授timer1程序控件代碼以及在程序中的作用。教師引導(dǎo)val()、cstr()、timer$的使用方法，vbcrlf常數(shù)的作用。五、修正調(diào)試（解決程序的修正問題）增加一個(gè)清除按扭，將使謎語、計(jì)時(shí)信息都返回到初始態(tài)。分組討論，小組合作完成任務(wù)。六、實(shí)踐與創(chuàng)新（大顯身手）設(shè)計(jì)一個(gè)程序，用來顯示系統(tǒng)時(shí)間。分組討論，互助合作，完成任務(wù)七、總結(jié)拓展（解決兩個(gè)問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識(shí)，建構(gòu)起新的知識(shí)體系；二是拓展延伸

20、，這個(gè)程序的進(jìn)一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）1、編寫程序過程中用到的控件的屬性設(shè)置及用法2、用到的函數(shù)val()、cstr()、timer$的使用方法，vbcrlf常數(shù)的作用3、字符串的概念，字符串合并運(yùn)算。拓展：程序的缺陷第課 節(jié)約用水算水價(jià)一、導(dǎo)入新課為了提高節(jié)水意識(shí)，促進(jìn)人們形成良好的用水習(xí)慣，物價(jià)部門對(duì)居民用水實(shí)行階梯式水價(jià)：若用水量小于或等于12噸，價(jià)格為2.85元/噸；若用水量大于12噸，大于12噸的部分，價(jià)格為：2.852元/噸?，F(xiàn)在我們就替物價(jià)部門設(shè)計(jì)一個(gè)這樣的計(jì)算水費(fèi)的程序。二、分析問題（解決對(duì)程序感知的兩個(gè)問題：程序有幾個(gè)事件？分別改變的是什么對(duì)象的何種屬性？如何做？

21、）分析收取水費(fèi)問題，畫出其流程圖。學(xué)生分組討論畫出流程圖。三、界面設(shè)計(jì)（解決五個(gè)問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）1、構(gòu)建界面：學(xué)生操作，添加控件，完成界面設(shè)計(jì)。2、設(shè)置對(duì)象屬性：根據(jù)程序界面，在屬性窗口中設(shè)置每個(gè)控件的屬性值。采用自主探究和合作學(xué)習(xí)形式。設(shè)置控件屬性：label1.caption text1.text text1.locked command1.caption form1.caption 四、編寫代碼（解決兩個(gè)問題：要有幾個(gè)對(duì)象的什么事件？每個(gè)事件要修改的是哪些對(duì)象的什么屬性？）代碼編寫，調(diào)試，運(yùn)行。學(xué)生參考課本，自主學(xué)習(xí)探究。教師引導(dǎo)學(xué)生理解if語句的用法

22、，引導(dǎo)學(xué)生理解賦值語句，總結(jié)vb中常見的數(shù)據(jù)類型。教師準(zhǔn)備幾個(gè)if條件語句小程序，讓學(xué)生去讀程序，引導(dǎo)學(xué)生加深對(duì)if 語句的理解。1、計(jì)算command1的click事件代碼private sub command1_click()dim x, y as singlex = val(text1.text)if x = 12 theny = 2.85 * xelsey = 12 + 2.85 * 2 * xend iftext2.text = cstr(y)end sub2、清空command2的click事件代碼private sub command2_click()text1.text = t

23、ext2.text = end sub3、退出command3的click事件代碼private sub command3_click()endend sub4、窗體form1的load事件代碼private sub form_load()label3.caption = 說明： & vbcr & 小于或等于12噸，價(jià)格為2.85元/噸； & vbcrlf & _大于12噸的部分，價(jià)格為：2.852元/噸。end sub五、實(shí)踐與創(chuàng)新設(shè)計(jì)一個(gè)程序“我怎么樣？”輸入學(xué)生成績，如果成績大于等于96分，就輸出“very good!”，如果成績小于96分，就輸出“dont give up”。分組討論，

24、互助合作，完成任務(wù)六、總結(jié)拓展（解決兩個(gè)問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識(shí)，建構(gòu)起新的知識(shí)體系；二是拓展延伸，這個(gè)程序的進(jìn)一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）1、編寫程序過程中用到的控件的屬性設(shè)置及用法 2、程序中用的到分支結(jié)構(gòu)if語句3、用到的函數(shù)、數(shù)據(jù)類型、變量、定義變量、變量賦值、算術(shù)運(yùn)算符第五課 謎語大擂臺(tái)（二）一、導(dǎo)入新課（解決一個(gè)問題：做什么？）本單元第3課我們?cè)O(shè)計(jì)過一個(gè)猜謎游戲，但那個(gè)游戲不夠完善。讓學(xué)生說出不完善的地方。這節(jié)課我們開發(fā)一個(gè)改進(jìn)程序，教師把做好的程序展示給同學(xué)們看。二、分析問題（解決對(duì)程序感知的兩個(gè)問題：程序有幾個(gè)事件？分別改變的是什么對(duì)象的何種屬性？

25、如何做？）教師演示程序，學(xué)生理解這個(gè)謎語玩的過程。分組討論用流程圖描述程序。三、界面設(shè)計(jì)（解決五個(gè)問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）1、構(gòu)建界面：學(xué)生操作，添加控件，完成界面設(shè)計(jì)。2、設(shè)置對(duì)象屬性：根據(jù)程序界面，在屬性窗口中設(shè)置每個(gè)控件的屬性值。采用自主探究和合作學(xué)習(xí)形式。設(shè)置控件屬性：label1.captiontext1.texttext1.visiblecommand1.captionform1.caption四、編寫代碼（解決兩個(gè)問題：要有幾個(gè)對(duì)象的什么事件？每個(gè)事件要修改的是哪些對(duì)象的什么屬性？）學(xué)生參考課本自主學(xué)習(xí)探究，輸入程序運(yùn)行調(diào)試。完成任務(wù)的同學(xué)當(dāng)老師小助手

26、輔導(dǎo)其他同學(xué)。教師引導(dǎo)學(xué)生讀程序，理解select語句的用法、三個(gè)函數(shù)int(),rnd() msgbox()的用法。教師總結(jié)分支結(jié)構(gòu)if語句和select語句的用法，區(qū)別。兩者可替代。教師準(zhǔn)備兩個(gè)if 和select語句的小程序，讓學(xué)生讀程序，看哪組同學(xué)說出正確結(jié)果，加深對(duì)兩個(gè)分支結(jié)構(gòu)語法的理解。1、謎語command1的click事件代碼private sub command1_click()dim x as integerx = int(1 + 3 * rnd()text2.text = cstr(x)select case xcase 1label1.caption = 哥倆一般高，

27、& vbcr & 每天三出操， & vbcr & _團(tuán)結(jié)互助好， & vbcr & 人人都需要。 & vbcr & vbcr & （打一生活用具）case 2label1.caption = 身體細(xì)又長， & vbcr & 肚里黑心腸， _& vbcr & 尖嘴多靈巧， & vbcr & 寫字畫畫它幫忙。 & vbcr & vbcr & （打一學(xué)習(xí)用具）case 3label1.caption = 兩腳尖尖， & vbcr & 一走一站， _& vbcr & 看看腳印， & vbcr & 盡是圈圈。 & vbcr & vbcr & （打一學(xué)習(xí)用具）end selectend sub2、退出co

28、mmand3的click事件代碼private sub command3_click()endend sub3、確認(rèn)command2的click事件代碼private sub command2_click()dim x as integerx = val(text2.text)select case xcase 1if text1.text = 筷子 thenmsgbox 對(duì)了！你真聰明！, vbokonly, 祝賀elsemsgbox 不對(duì)！請(qǐng)?jiān)僭囈淮危? vbokonly, 很遺憾end ifcase 2if text1.text = 鉛筆 thenmsgbox 對(duì)了！你真聰明！, vbo

29、konly, 祝賀elsemsgbox 不對(duì)！請(qǐng)?jiān)僭囈淮危? vbokonly, 很遺憾end ifcase 3if text1.text = 圓規(guī) thenmsgbox 對(duì)了！你真聰明！, vbokonly, 祝賀elsemsgbox 不對(duì)！請(qǐng)?jiān)僭囈淮危? vbokonly, 很遺憾end ifend selectend sub4、謎底command4的click事件代碼private sub command4_click()dim x as integerx = val(text2.text)select case xcase 1msgbox 筷子, vbokonly, 答案case 2m

30、sgbox 鉛筆, vbokonly, 答案case 3msgbox 圓規(guī), vbokonly, 答案end selectend sub五、實(shí)踐與創(chuàng)新（運(yùn)用中體驗(yàn)成功，進(jìn)一步激發(fā)興趣。用所獲）六、總結(jié)拓展（解決兩個(gè)問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識(shí)，建構(gòu)起新的知識(shí)體系；二是拓展延伸，這個(gè)程序的進(jìn)一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）1、編寫程序過程中用到的控件的屬性設(shè)置及用法 2、程序中用的到分支結(jié)構(gòu)select語句，并與if 語句的區(qū)別，兩種語句的替換用法。3、程序中用到的int(),rnd() msgbox()函數(shù)。第6課 會(huì)計(jì)小助理一、導(dǎo)入新課（解決一個(gè)問題：做什么？）算盤是我

31、國古代偉大發(fā)明之一，由于它的獨(dú)特優(yōu)勢(shì)今天而仍然成為會(huì)計(jì)人員的必修課，他們經(jīng)常用算盤練習(xí)計(jì)算從1開始連續(xù)加到某個(gè)整數(shù)的和，他們計(jì)算的結(jié)果是否正確？現(xiàn)在我們?cè)O(shè)計(jì)一個(gè)程序求“從1連續(xù)加到某個(gè)整數(shù)的和”，來驗(yàn)證打算盤的準(zhǔn)確度。二、分析問題（解決對(duì)程序感知的兩個(gè)問題：程序有幾個(gè)事件？分別改變的是什么對(duì)象的何種屬性？如何做？）師生討論分析問題，用流程圖描述“會(huì)計(jì)小助手”程序。三、界面設(shè)計(jì)（解決五個(gè)問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）1、構(gòu)建界面：學(xué)生操作，添加控件，完成界面設(shè)計(jì)。2、設(shè)置對(duì)象屬性：根據(jù)程序界面，在屬性窗口中設(shè)置每個(gè)控件的屬性值。設(shè)置控件屬性：label1.captionte

32、xt1.texttext1.lockedcommand1.captionform1.caption四、編寫代碼（解決兩個(gè)問題：要有幾個(gè)對(duì)象的什么事件？每個(gè)事件要修改的是哪些對(duì)象的什么屬性？）學(xué)生參考課本自主學(xué)習(xí)探究，for next語句，累加器z=z+x的用法. 把原程序修改為1到100之間奇數(shù)的和。分組討論，看哪個(gè)小組的同學(xué)先做出來。合小組交流合作完成任務(wù)。1、求和command1的click事件代碼private sub command1_click()dim x, y, z as longy = val(text1.text)z = 0for x = 1 to yz = z + xnex

33、t xtext2.text = cstr(z)end sub2、清空command2的click事件代碼private sub command2_click()text1.text = text2.text = end sub3、退出command3的click事件代碼private sub command3_click()endend sub五、實(shí)踐與創(chuàng)新（運(yùn)用中體驗(yàn)成功，進(jìn)一步激發(fā)興趣。用所獲）設(shè)計(jì)一個(gè)程序，求從10加到1000的和六、總結(jié)拓展（解決兩個(gè)問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識(shí)，建構(gòu)起新的知識(shí)體系；二是拓展延伸，這個(gè)程序的進(jìn)一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）1、編寫

34、程序過程中用到的控件的屬性設(shè)置及用法 2、程序中用的到循環(huán)結(jié)構(gòu)for next語句。第7課 欲與珠峰試比高一、導(dǎo)入新課（解決一個(gè)問題：做什么？）珠穆朗瑪峰海撥8844.43米，如果你將一張紙不斷地對(duì)折，經(jīng)過若干次的對(duì)折就能高于珠穆朗瑪峰的高度，對(duì)折多少次就能做到呢？今天我們就開發(fā)這樣一個(gè)程序，來計(jì)算一下需要對(duì)折的次數(shù)。二、分析問題（解決對(duì)程序感知的兩個(gè)問題：程序有幾個(gè)事件？分別改變的是什么對(duì)象的何種屬性？如何做？）師生討論分析問題，畫出程序流程圖。三、界面設(shè)計(jì)（解決五個(gè)問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）1、構(gòu)建界面：學(xué)生操作，添加控件，完成界面設(shè)計(jì)。2、設(shè)置對(duì)象屬性：根據(jù)程序

35、界面，在屬性窗口中設(shè)置每個(gè)控件的屬性值。設(shè)置屬性：label1.captiontext1.texttext1.lockedtext1.backcolorcommand1.caption四、編寫代碼（解決兩個(gè)問題：要有幾個(gè)對(duì)象的什么事件？每個(gè)事件要修改的是哪些對(duì)象的什么屬性？）學(xué)生參考課本自主學(xué)習(xí)探究，分組討論do loop語句的用法。1、對(duì)折command1的click事件代碼private sub command1_click()dim i as integerdim h1, h2 as singleh1 = val(text1.text)h2 = 8844.43 * 10000if h1

36、= h2text2.text = cstr(i)end sub2、退出command2的click事件代碼private sub command2_click()endend sub五、實(shí)踐與創(chuàng)新（運(yùn)用中體驗(yàn)成功，進(jìn)一步激發(fā)興趣。用所獲）從1連續(xù)累加到某個(gè)最小的數(shù)，使它們的和不小于10000.六、總結(jié)拓展（解決兩個(gè)問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識(shí)，建構(gòu)起新的知識(shí)體系；二是拓展延伸，這個(gè)程序的進(jìn)一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）1、編寫程序過程中用到的控件的屬性設(shè)置及用法 2、程序中用的到循環(huán)結(jié)構(gòu)do loop 語句用法。第8課 我的媒體播放器一、導(dǎo)入新課（解決一個(gè)問題：做什么？

37、）在計(jì)算機(jī)上你們用什么軟件播放歌曲，用什么軟件播放vcd視頻？我們利用vb來制作一個(gè)既能播放歌曲又能聽歌的播放器。二、分析問題（解決對(duì)程序感知的兩個(gè)問題：程序有幾個(gè)事件？分別改變的是什么對(duì)象的何種屬性？如何做？）教師展示做好的播放器。師生討論要使用的7個(gè)控件。三、界面設(shè)計(jì)（解決五個(gè)問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）1、構(gòu)建界面：學(xué)生操作，添加控件，完成界面設(shè)計(jì)。2、設(shè)置對(duì)象屬性。四、編寫代碼（解決兩個(gè)問題：要有幾個(gè)對(duì)象的什么事件？每個(gè)事件要修改的是哪些對(duì)象的什么屬性？）學(xué)生自主學(xué)習(xí)，分組討論參考課本來完成。完成任務(wù)的同學(xué)當(dāng)老師小助手輔導(dǎo)其他同學(xué)。教師引導(dǎo)學(xué)生理解commond

38、ialog控件、mmcontrol控件的使用。1、打開command1的click事件代碼private sub command1_click()mmcontrol1.command = closecommondialog1.showopenif option1.value = true then mmcontrol1.devicetype = if option1.value = true then mmcontrol1.devicetype = waveaudioif option1.value = true then mmcontrol1.devicetype = mmcontrol1.

39、filename = commondialog1.filenamemmcontrol1.command = openmmcontrol1.hwnddisplay = picture1.hwndmmcontrol1.command = playend sub2、退出command2的click事件代碼private sub command2_click()endend sub3、form1的dblclick事件代碼private sub form_dblclick()mmcontrol1.command = closemmcontrol1.shareable = trueend sub4、for

40、m1的加載事件代碼private sub form_load()commondialog1.filter = mp3|*.mp3end sub5、option1的click事件代碼private sub option1_click()commondialog1.filter = mp3|*.mp3end sub6、option2的click事件代碼private sub option2_click()commondialog1.filter = wav|*.wavend sub7、option1的click事件代碼private sub option3_click()commondialog1

41、.filter = mpg|*.mpgend sub五、實(shí)踐與創(chuàng)新（運(yùn)用中體驗(yàn)成功，進(jìn)一步激發(fā)興趣。用所獲）利用commondialog控件，調(diào)出font設(shè)置對(duì)話框。并評(píng)價(jià)。六、總結(jié)拓展（解決兩個(gè)問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識(shí)，建構(gòu)起新的知識(shí)體系；二是拓展延伸，這個(gè)程序的進(jìn)一步完善，或其它方面的應(yīng)用。總結(jié)獲）編寫程序過程中用到的控件的屬性設(shè)置及用法commondialog控件、mmcontrol控件、pictrue控件和frame控件一、標(biāo)簽屬性1、name，這是每個(gè)控件都有的，即設(shè)置標(biāo)簽對(duì)象的名稱。2、alignment，用于設(shè)置標(biāo)簽中文字顯示的對(duì)齊方式。0、標(biāo)簽文字左對(duì)齊，

42、這是缺省值；1、標(biāo)簽文字向右對(duì)齊；2、標(biāo)簽居中。3、autosize，用于設(shè)置標(biāo)簽的外框尺寸是否隨標(biāo)題大小自動(dòng)改變。true表示標(biāo)簽的尺寸將隨標(biāo)題的更改而更改。false表示不更改，這是默認(rèn)值。建議一般情況下都盡量設(shè)置為true。注意：一旦設(shè)置了該屬性為true，則前面的alignment屬性自動(dòng)失效。道理相信不用我說大家也一定會(huì)明白。4、backcolor，上一章已經(jīng)說過，就是設(shè)置背景顏色。5、bordstyle，用于設(shè)置背景顏色是否透明顯示。0為以透明方式顯示，1是不以透明方式顯示（缺省值）。一般情況下建議設(shè)置為0，這樣就不會(huì)因?yàn)閯e人的電腦設(shè)置不同而顯示出不用。6、borderstyle，

43、用于設(shè)置標(biāo)簽的邊框形式，當(dāng)為0時(shí)表示不含邊框，這是默認(rèn)值，1顯示為立體下陷的固定邊框。7、caption，這是標(biāo)簽的最重要屬性了，因?yàn)樗淖饔镁褪秋@示要表達(dá)的文字，即標(biāo)題。8、forecolor，設(shè)置前景色。通過設(shè)置這個(gè)屬性，標(biāo)簽顯示才能多姿多彩。9、font，設(shè)置標(biāo)簽字體。10、wordwrap，決定標(biāo)簽控件是否擴(kuò)大以顯示標(biāo)簽文字。二、文本框?qū)傩?、name，這是每個(gè)控件的基本屬性，用來設(shè)置文本框?qū)ο蟮拿Q。2、alignment，用于設(shè)置文本框中文字顯示的對(duì)齊方式。0、標(biāo)簽文字左對(duì)齊，這是缺省值；1、標(biāo)簽文字向右對(duì)齊；2、標(biāo)簽居中。3、backcolor，就是設(shè)置背景顏色。4、foreco

44、lor，設(shè)置前景色。5、multiline，設(shè)置文本框是否允許多行文本，如果設(shè)置為true，則允許多行文本輸入，false為不允許（默認(rèn)值）。一般情況下，多數(shù)文本框是應(yīng)用于單行輸入，如輸入口令、姓名、簡短信息等等，但如果是大篇文章輸入的話，如制作文本編輯器就應(yīng)該設(shè)置為true。注意：文本框是有大小限制的，如果超過64k的話就會(huì)出錯(cuò)。6、passwordchar，用于設(shè)置替代用戶輸入的密碼字符，通常用于密碼輸入。一般情況下多數(shù)設(shè)置為“*”號(hào)，缺省值為空。如果你想讓用戶輸入密碼的話，可要記得設(shè)置該屬性哦。7、scrollbars，用于設(shè)置文本框是否含有滾動(dòng)條。共有四個(gè)值：0為不含滾動(dòng)條（默認(rèn)值），1為水平滾動(dòng)條，2為垂直滾動(dòng)條，3為水平、垂直滾動(dòng)條都有。一般與multiline配合使用。8、maxlength，用于設(shè)置文本框中可以容納的字符數(shù)，缺省值為0，表示無限制，如果是其他整數(shù)值，則表示文本框最多可以容納的字符數(shù)。9、borderstyle，用于設(shè)置文本框的邊框形式，默認(rèn)值為1，表示有邊框，0為無邊框，這時(shí)跟標(biāo)簽差不多了吧。10、text，這是文本框最重要的屬性，也就是文本框里面的文本內(nèi)容。大部分利用文本框編程的都是利用這個(gè)屬性來進(jìn)行編程。按鈕(command)屬性1、name，用來標(biāo)識(shí)按鈕的名稱。一般建議用cmd+用途的英文單詞來起名，如確定按鈕就起名：cmdok