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

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

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

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

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

5、一個label控件，修改fontforecolorbackcolorbackstyle設(shè)置控件屬性：Label1.CaptionLabel1.BackStyleLabel1.ForeColorCommand1.CaptionCommand1.BackColorCommand1.Style屬性與屬性值什么是屬性？屬性值又是什么？在VB中屬性是用來描述對象特性的。比如，在現(xiàn)實生活中我們常常會問：“這位先生的姓名是什么？”，“年齡多少？”。我們會回答這位先生叫張三，年齡30歲。這種問題放在VB中就變成：這位先生的“姓名屬性”是什么？，“年齡屬性”是什么？其中，“張三”就是名字屬性的值，“30”就是年

6、齡屬性的值。此外，為了描述一個人，光有前面兩項屬性是不夠的，往往還需要另外一些屬性，如性別、身高、體重、學(xué)歷等等。這時要注意的是，每一種對象所具有的屬性是不同的，比花與人兩種不同的對象，人具有“學(xué)歷”屬性而花沒有，花具有“香味”屬性而人沒有。 在VB中每種對象有若干個屬性。例如命令按鈕有名稱、標(biāo)題以及按鈕的尺寸等，不同的對象可能有不同的屬性類型和屬性值，用戶可以根據(jù)需要對它們賦予各種不同的值。 四、修改代碼體驗（解決三個問題：分清有幾個模型架？每個模型架表示的哪個對象的什么事件？修改的是哪個對象的什么屬性？）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()：過程名，由兩部分組成，對象名和事件名，兩者之間用下劃線連接。 End  Sub：過程結(jié)束的標(biāo)志。 2、修改：（1）雙擊“愿望一”按鈕，打開代碼窗口，修改la

8、bel1.caption（2）試探修改labela.forecolor=RGB（244，12，56）顏色值。進入代碼窗口的方法（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_Cl

9、ick()Label2.Caption = "我希望能安靜地生活！"Label2.ForeColor = RGB(244, 12, 56)End Sub五、實踐創(chuàng)新用好評價表六、總結(jié)（解決兩個問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識，建構(gòu)起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）開發(fā)VB應(yīng)用程序的步驟 總結(jié)上述幾個例題，開發(fā)一個VB應(yīng)用程序有三個步驟： 1、設(shè)計用戶界面 2、屬性設(shè)置 3、編寫事件過程代碼 第2課 自我介紹（七個環(huán)節(jié)）一、 分析問題（解決兩個問題：對程序整體的感知、分析有幾個事件）讓學(xué)生運行“自我介紹.frm”，運行

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

11、ue=true）（4）、如何修改label的字體屬性（修改label.font）設(shè)置控件屬性：Label1.CaptionLabel1.FontText1.TextText1.MultilineCommand1.CaptionOption1.CaptionOption1.Value三、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）1、退出2、三個optionbutton(text6.font.size=”14”,text6.font=”楷體_GB2312”)3、續(xù)行符“_”的用法4、字符串運算符“+”1、顯示Command1的Click事件代碼Priv

12、ate Sub Command1_Click()Option1.SetFocusText6.Font = "宋體"Text6.FontSize = "14"Text6.Text = "姓名：" + Text1.Text + "；Email：" + Text2.Text + _"；愛好：" + Text3.Text + "；優(yōu)點：" + Text4.Text + "；需要改進的地方：" + Text5.TextEnd Sub2、退出Command2的Clic

13、k事件代碼Private Sub Command2_Click()EndEnd Sub3、Option1的Click事件代碼Private Sub Option1_Click()Text6.Font = "宋體"Text6.FontSize = "14"Text6.Text = "姓名：" + Text1.Text + "；Email：" + Text2.Text + _"；愛好：" + Text3.Text + "；優(yōu)點：" + Text4.Text + "；需要

14、改進的地方：" + Text5.TextEnd Sub4、Option2的Click事件代碼Private Sub Option2_Click()Text6.Font = "黑體"Text6.FontSize = "14"Text6.Text = "姓名：" + Text1.Text + "；Email：" + Text2.Text + _"；愛好：" + Text3.Text + "；優(yōu)點：" + Text4.Text + "；需要改進的地方："

15、; + Text5.TextEnd Sub5、Option3的Click事件代碼Private Sub Option3_Click()Text6.Font = "楷體_gb2312"Text6.FontSize = "14"Text6.Text = "姓名：" + Text1.Text + "；Email：" + Text2.Text + _"；愛好：" + Text3.Text + "；優(yōu)點：" + Text4.Text + "；需要改進的地方：" +

16、Text5.TextEnd Sub四、調(diào)試與運行（解決程序的修正問題）程序的三種狀態(tài)：設(shè)計、運行、break五、保存文件保存窗體文件（*.frm）和保存工程文件(*.vbp)六、生成可執(zhí)行文件保存可執(zhí)行文件（*.exe）:可執(zhí)行文件有什么作用七、實踐與創(chuàng)新八、總結(jié)拓展（解決兩個問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識，建構(gòu)起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）1、屬性設(shè)置和編寫代碼中的問題2、拓展：多余代碼的去除第3課謎語大擂臺（一）一、引入新課我們來做一個猜謎游戲，看哪位同學(xué)能用最快的時間猜出來。這個游戲的設(shè)計特點讓學(xué)生總結(jié)一下： 三個Comma

17、ndBotton“謎語”、“答案”、“退出” 單擊事件發(fā)生后，程序運行結(jié)果怎樣？如何制作這一程序呢？二、分析問題（解決對程序感知的兩個問題：程序有幾個事件？分別改變的是什么對象的何種屬性？如何做？）程序有三個事件：謎語、答案、退出三個按鈕的_Click事件三個事件改變的控件屬性： 謎語：Text1 顯示出現(xiàn)謎語的時間 Text2 顯示現(xiàn)在時間 Text3 顯示耗時 答案：Text2 將出現(xiàn)答案的時間定格 Text3 將從出謎語到顯示答案的時間定格 Text4 顯示答案 退出：退出程序分析：Textbox需要幾個？ Lable需要幾個？ Commandbutton需要幾個？還要用到Timer控件

18、，Image控件。三、界面設(shè)計（解決五個問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）用到的控件和屬性設(shè)置（對于常用的Label、TextBox、CommandButton，基本的是兩項：修改標(biāo)題、美化）Label1.CaptionLabel1.FontLabel1.ForeColor Text1.FontText1.ForeColorImage1.PictureImage1.StretchTimer1.InterValIimer1.EnabledCommand1.Caption四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）1、謎語Comma

19、nd1的Click事件代碼Private Sub Command1_Click()Text1.Text = Time$Timer1.Enabled = TrueLabel5.Caption = "高山不見一寸土，" + vbCrLf + "平地不見半畝田，" + vbCrLf + "江河湖海沒有水，" + _ vbCrLf + "世界各國在眼前。" + vbCrLf + vbCrLf + "(打一學(xué)習(xí)工具)"End Sub2、答案Command2的Click事件代碼Private Sub Com

20、mand2_Click()Timer1.Enabled = FalseText4.Text = "地圖"End Sub3、退出Command3的Click事件代碼Private Sub Command3_Click()End Sub4、Timer1控件的代碼Private Sub Timer1_Timer()Text2.Text = CStr(Time$)Text3.Text = CStr(Val(Text3.Text) + 1) + "秒"End Sub教師講授timer1程序控件代碼以及在程序中的作用。教師引導(dǎo)val()、cstr()、timer$的

21、使用方法，vbcrlf常數(shù)的作用。五、修正調(diào)試（解決程序的修正問題）增加一個清除按扭，將使謎語、計時信息都返回到初始態(tài)。分組討論，小組合作完成任務(wù)。六、實踐與創(chuàng)新（大顯身手）設(shè)計一個程序，用來顯示系統(tǒng)時間。分組討論，互助合作，完成任務(wù)七、總結(jié)拓展（解決兩個問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識，建構(gòu)起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）1、編寫程序過程中用到的控件的屬性設(shè)置及用法2、用到的函數(shù)val()、cstr()、timer$的使用方法，vbcrlf常數(shù)的作用3、字符串的概念，字符串合并運算。拓展：程序的缺陷第課 節(jié)約用水算水價一、導(dǎo)入新課為

22、了提高節(jié)水意識，促進人們形成良好的用水習(xí)慣，物價部門對居民用水實行階梯式水價：若用水量小于或等于12噸，價格為2.85元/噸；若用水量大于12噸，大于12噸的部分，價格為：2.85×2元/噸?，F(xiàn)在我們就替物價部門設(shè)計一個這樣的計算水費的程序。二、分析問題（解決對程序感知的兩個問題：程序有幾個事件？分別改變的是什么對象的何種屬性？如何做？）分析收取水費問題，畫出其流程圖。學(xué)生分組討論畫出流程圖。三、界面設(shè)計（解決五個問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）1、構(gòu)建界面：學(xué)生操作，添加控件，完成界面設(shè)計。2、設(shè)置對象屬性：根據(jù)程序界面，在屬性窗口中設(shè)置每個控件的屬性值。采用自

23、主探究和合作學(xué)習(xí)形式。設(shè)置控件屬性：Label1.Caption Text1.Text Text1.Locked Command1.Caption Form1.Caption 四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）代碼編寫，調(diào)試，運行。學(xué)生參考課本，自主學(xué)習(xí)探究。教師引導(dǎo)學(xué)生理解If語句的用法，引導(dǎo)學(xué)生理解賦值語句，總結(jié)VB中常見的數(shù)據(jù)類型。教師準(zhǔn)備幾個If條件語句小程序，讓學(xué)生去讀程序，引導(dǎo)學(xué)生加深對If 語句的理解。1、計算Command1的Click事件代碼Private Sub Command1_Click()Dim x, y As

24、 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 = " "Text2.Text = " "End Sub3、退出Command3的Click事件代碼Private Sub Command3_Click()EndEnd Sub4、窗體Form1的Load事件代

25、碼Private Sub Form_Load()Label3.Caption = "說明：" & vbCr & "小于或等于12噸，價格為2.85元/噸；" & vbCrLf & _"大于12噸的部分，價格為：2.85×2元/噸。"End Sub五、實踐與創(chuàng)新設(shè)計一個程序“我怎么樣？”輸入學(xué)生成績，如果成績大于等于96分，就輸出“very good!”，如果成績小于96分，就輸出“dont give up”。分組討論，互助合作，完成任務(wù)六、總結(jié)拓展（解決兩個問題：一是梳理總結(jié)：是幫助學(xué)生梳理本

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

27、三、界面設(shè)計（解決五個問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）1、構(gòu)建界面：學(xué)生操作，添加控件，完成界面設(shè)計。2、設(shè)置對象屬性：根據(jù)程序界面，在屬性窗口中設(shè)置每個控件的屬性值。采用自主探究和合作學(xué)習(xí)形式。設(shè)置控件屬性：Label1.CaptionText1.TextText1.VisibleCommand1.CaptionForm1.Caption四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）學(xué)生參考課本自主學(xué)習(xí)探究，輸入程序運行調(diào)試。完成任務(wù)的同學(xué)當(dāng)老師小助手輔導(dǎo)其他同學(xué)。教師引導(dǎo)學(xué)生讀程序，理解Select語句的用法、三個函數(shù)Int

28、(),Rnd() msgbox()的用法。教師總結(jié)分支結(jié)構(gòu)If語句和Select語句的用法，區(qū)別。兩者可替代。教師準(zhǔn)備兩個If 和Select語句的小程序，讓學(xué)生讀程序，看哪組同學(xué)說出正確結(jié)果，加深對兩個分支結(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 = "哥倆一般高，" & vbCr & "每天三

29、出操，" & vbCr & _"團結(jié)互助好，" & vbCr & "人人都需要。" & vbCr & vbCr & "（打一生活用具）"Case 2Label1.Caption = "身體細(xì)又長，" & vbCr & "肚里黑心腸，" _& vbCr & "尖嘴多靈巧，" & vbCr & "寫字畫畫它幫忙。" & vbCr &

30、 vbCr & "（打一學(xué)習(xí)用具）"Case 3Label1.Caption = "兩腳尖尖，" & vbCr & "一走一站，" _& vbCr & "看看腳印，" & vbCr & "盡是圈圈。" & vbCr & vbCr & "（打一學(xué)習(xí)用具）"End SelectEnd Sub2、退出Command3的Click事件代碼Private Sub Command3_Click()EndEnd

31、 Sub3、確認(rèn)Command2的Click事件代碼Private Sub Command2_Click()Dim x As Integerx = Val(Text2.Text)Select Case xCase 1If Text1.Text = "筷子" ThenMsgBox "對了！你真聰明！", vbOKOnly, "祝賀"ElseMsgBox "不對！請再試一次！", vbOKOnly, "很遺憾"End IfCase 2If Text1.Text = "鉛筆" Th

32、enMsgBox "對了！你真聰明！", vbOKOnly, "祝賀"ElseMsgBox "不對！請再試一次！", vbOKOnly, "很遺憾"End IfCase 3If Text1.Text = "圓規(guī)" ThenMsgBox "對了！你真聰明！", vbOKOnly, "祝賀"ElseMsgBox "不對！請再試一次！", vbOKOnly, "很遺憾"End IfEnd SelectEnd Sub4、謎底

33、Command4的Click事件代碼Private Sub Command4_Click()Dim x As Integerx = Val(Text2.Text)Select Case xCase 1MsgBox "筷子", vbOKOnly, "答案"Case 2MsgBox "鉛筆", vbOKOnly, "答案"Case 3MsgBox "圓規(guī)", vbOKOnly, "答案"End SelectEnd Sub五、實踐與創(chuàng)新（運用中體驗成功，進一步激發(fā)興趣。用所獲）六、

34、總結(jié)拓展（解決兩個問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識，建構(gòu)起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）1、編寫程序過程中用到的控件的屬性設(shè)置及用法 2、程序中用的到分支結(jié)構(gòu)Select語句，并與If 語句的區(qū)別，兩種語句的替換用法。3、程序中用到的Int(),Rnd() msgbox()函數(shù)。第6課 會計小助理一、導(dǎo)入新課（解決一個問題：做什么？）算盤是我國古代偉大發(fā)明之一，由于它的獨特優(yōu)勢今天而仍然成為會計人員的必修課，他們經(jīng)常用算盤練習(xí)計算從1開始連續(xù)加到某個整數(shù)的和，他們計算的結(jié)果是否正確？現(xiàn)在我們設(shè)計一個程序求“從1連續(xù)加到某個整數(shù)的和”，

35、來驗證打算盤的準(zhǔn)確度。二、分析問題（解決對程序感知的兩個問題：程序有幾個事件？分別改變的是什么對象的何種屬性？如何做？）師生討論分析問題，用流程圖描述“會計小助手”程序。三、界面設(shè)計（解決五個問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）1、構(gòu)建界面：學(xué)生操作，添加控件，完成界面設(shè)計。2、設(shè)置對象屬性：根據(jù)程序界面，在屬性窗口中設(shè)置每個控件的屬性值。設(shè)置控件屬性：Label1.CaptionText1.TextText1.LockedCommand1.CaptionForm1.Caption四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）學(xué)生參

36、考課本自主學(xué)習(xí)探究，for next語句，累加器z=z+x的用法. 把原程序修改為1到100之間奇數(shù)的和。分組討論，看哪個小組的同學(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 + xNext xText2.Text = CStr(z)End Sub2、清空Command2的Click事件代碼Private Sub Command2_Click()Text1.Text = "

37、; "Text2.Text = " "End Sub3、退出Command3的Click事件代碼Private Sub Command3_Click()EndEnd Sub五、實踐與創(chuàng)新（運用中體驗成功，進一步激發(fā)興趣。用所獲）設(shè)計一個程序，求從10加到1000的和六、總結(jié)拓展（解決兩個問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識，建構(gòu)起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）1、編寫程序過程中用到的控件的屬性設(shè)置及用法 2、程序中用的到循環(huán)結(jié)構(gòu)for next語句。第7課 欲與珠峰試比高一、導(dǎo)入新課（解決一個問題：做什么？）

38、珠穆朗瑪峰海撥8844.43米，如果你將一張紙不斷地對折，經(jīng)過若干次的對折就能高于珠穆朗瑪峰的高度，對折多少次就能做到呢？今天我們就開發(fā)這樣一個程序，來計算一下需要對折的次數(shù)。二、分析問題（解決對程序感知的兩個問題：程序有幾個事件？分別改變的是什么對象的何種屬性？如何做？）師生討論分析問題，畫出程序流程圖。三、界面設(shè)計（解決五個問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）1、構(gòu)建界面：學(xué)生操作，添加控件，完成界面設(shè)計。2、設(shè)置對象屬性：根據(jù)程序界面，在屬性窗口中設(shè)置每個控件的屬性值。設(shè)置屬性：Label1.CaptionText1.TextText1.LockedText1.BackC

39、olorCommand1.Caption四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）學(xué)生參考課本自主學(xué)習(xí)探究，分組討論Do Loop語句的用法。1、對折Command1的Click事件代碼Private Sub Command1_Click()Dim i As IntegerDim h1, h2 As Singleh1 = Val(Text1.Text)h2 = 8844.43 * 10000If h1 <= 0 ThenMsgBox "你輸入的數(shù)據(jù)有誤", vbOKOnly, "警告"Exit Su

40、bEnd Ifi = 0Doh1 = h1 * 2i = i + 1Loop Until h1 >= h2Text2.Text = CStr(i)End Sub2、退出Command2的Click事件代碼Private Sub Command2_Click()EndEnd Sub五、實踐與創(chuàng)新（運用中體驗成功，進一步激發(fā)興趣。用所獲）從1連續(xù)累加到某個最小的數(shù)，使它們的和不小于10000.六、總結(jié)拓展（解決兩個問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識，建構(gòu)起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）1、編寫程序過程中用到的控件的屬性設(shè)置及用法 2、

41、程序中用的到循環(huán)結(jié)構(gòu)do loop 語句用法。第8課 我的媒體播放器一、導(dǎo)入新課（解決一個問題：做什么？）在計算機上你們用什么軟件播放歌曲，用什么軟件播放VCD視頻？我們利用VB來制作一個既能播放歌曲又能聽歌的播放器。二、分析問題（解決對程序感知的兩個問題：程序有幾個事件？分別改變的是什么對象的何種屬性？如何做？）教師展示做好的播放器。師生討論要使用的7個控件。三、界面設(shè)計（解決五個問題：控件的添、刪、移、縮、設(shè)置屬性。界面怎樣做？）1、構(gòu)建界面：學(xué)生操作，添加控件，完成界面設(shè)計。2、設(shè)置對象屬性。四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）學(xué)生

42、自主學(xué)習(xí)，分組討論參考課本來完成。完成任務(wù)的同學(xué)當(dāng)老師小助手輔導(dǎo)其他同學(xué)。教師引導(dǎo)學(xué)生理解Commondialog控件、MMcontrol控件的使用。1、打開Command1的Click事件代碼Private Sub Command1_Click()MMControl1.Command = "close"CommonDialog1.ShowOpenIf Option1.Value = True Then MMControl1.DeviceType = ""If Option1.Value = True Then MMControl1.DeviceType

43、 = "WaveAudio"If Option1.Value = True Then MMControl1.DeviceType = ""MMControl1. = CommonDialog1.MMControl1.Command = "open"MMControl1.hWndDisplay = Picture1.hWndMMControl1.Command = "play"End Sub2、退出Command2的Click事件代碼Private Sub Command2_Click()EndEnd Sub3、Fo

44、rm1的DblClick事件代碼Private Sub Form_DblClick()MMControl1.Command = "close"MMControl1.Shareable = TrueEnd Sub4、Form1的加載事件代碼Private Sub Form_Load()CommonDialog1.Filter = "mp3|*.mp3"End Sub5、Option1的Click事件代碼Private Sub Option1_Click()CommonDialog1.Filter = "mp3|*.mp3"End Sub

45、6、Option2的Click事件代碼Private Sub Option2_Click()CommonDialog1.Filter = "wav|*.wav"End Sub7、Option1的Click事件代碼Private Sub Option3_Click()CommonDialog1.Filter = "mpg|*.mpg"End Sub五、實踐與創(chuàng)新（運用中體驗成功，進一步激發(fā)興趣。用所獲）利用CommonDialog控件，調(diào)出Font設(shè)置對話框。并評價。六、總結(jié)拓展（解決兩個問題：一是梳理總結(jié)：是幫助學(xué)生梳理本節(jié)所學(xué)知識，建構(gòu)起新的知識體系；

46、二是拓展延伸，這個程序的進一步完善，或其它方面的應(yīng)用?？偨Y(jié)獲）編寫程序過程中用到的控件的屬性設(shè)置及用法Commondialog控件、MMcontrol控件、Pictrue控件和Frame控件一、標(biāo)簽屬性1、Name，這是每個控件都有的，即設(shè)置標(biāo)簽對象的名稱。2、Alignment，用于設(shè)置標(biāo)簽中文字顯示的對齊方式。0、標(biāo)簽文字左對齊，這是缺省值；1、標(biāo)簽文字向右對齊；2、標(biāo)簽居中。3、AutoSize，用于設(shè)置標(biāo)簽的外框尺寸是否隨標(biāo)題大小自動改變。True表示標(biāo)簽的尺寸將隨標(biāo)題的更改而更改。False表示不更改，這是默認(rèn)值。建議一般情況下都盡量設(shè)置為True。注意：一旦設(shè)置了該屬性為True，

47、則前面的Alignment屬性自動失效。道理相信不用我說大家也一定會明白。4、BackColor，上一章已經(jīng)說過，就是設(shè)置背景顏色。5、BordStyle，用于設(shè)置背景顏色是否透明顯示。0為以透明方式顯示，1是不以透明方式顯示（缺省值）。一般情況下建議設(shè)置為0，這樣就不會因為別人的電腦設(shè)置不同而顯示出不用。6、BorderStyle，用于設(shè)置標(biāo)簽的邊框形式，當(dāng)為0時表示不含邊框，這是默認(rèn)值，1顯示為立體下陷的固定邊框。7、Caption，這是標(biāo)簽的最重要屬性了，因為它的作用就是顯示要表達的文字，即標(biāo)題。8、ForeColor，設(shè)置前景色。通過設(shè)置這個屬性，標(biāo)簽顯示才能多姿多彩。9、Font，設(shè)

48、置標(biāo)簽字體。10、WordWrap，決定標(biāo)簽控件是否擴大以顯示標(biāo)簽文字。二、文本框?qū)傩?、Name，這是每個控件的基本屬性，用來設(shè)置文本框?qū)ο蟮拿Q。2、Alignment，用于設(shè)置文本框中文字顯示的對齊方式。0、標(biāo)簽文字左對齊，這是缺省值；1、標(biāo)簽文字向右對齊；2、標(biāo)簽居中。3、BackColor，就是設(shè)置背景顏色。4、ForeColor，設(shè)置前景色。5、MultiLine，設(shè)置文本框是否允許多行文本，如果設(shè)置為True，則允許多行文本輸入，F(xiàn)alse為不允許（默認(rèn)值）。一般情況下，多數(shù)文本框是應(yīng)用于單行輸入，如輸入口令、姓名、簡短信息等等，但如果是大篇文章輸入的話，如制作文本編輯器就應(yīng)該設(shè)

49、置為True。注意：文本框是有大小限制的，如果超過64K的話就會出錯。6、PasswordChar，用于設(shè)置替代用戶輸入的密碼字符，通常用于密碼輸入。一般情況下多數(shù)設(shè)置為“*”號，缺省值為空。如果你想讓用戶輸入密碼的話，可要記得設(shè)置該屬性哦。7、ScrollBars，用于設(shè)置文本框是否含有滾動條。共有四個值：0為不含滾動條（默認(rèn)值），1為水平滾動條，2為垂直滾動條，3為水平、垂直滾動條都有。一般與MultiLine配合使用。8、MaxLength，用于設(shè)置文本框中可以容納的字符數(shù)，缺省值為0，表示無限制，如果是其他整數(shù)值，則表示文本框最多可以容納的字符數(shù)。9、BorderStyle，用于設(shè)置文本框的邊框形式，默認(rèn)值為1，表示有邊框，0為無邊框，這時跟標(biāo)簽差不多了吧。10、Text，這是文本框最