布爾津鎮(zhèn)初級(jí)中學(xué)教案

課題第十四課VB綜合應(yīng)用練習(xí)二

課時(shí)及授課1課時(shí)

時(shí)間

授課人20xx年6月13日

1.知識(shí)與技能

⑴掌握菜單編輯器的應(yīng)用。

⑵掌握下拉式菜單和彈出式菜單的制作方法。

2.過(guò)程與方法

教學(xué)目標(biāo)（學(xué)習(xí)

⑴菜單編輯器的熟練應(yīng)用

目標(biāo)）

⑵菜單項(xiàng)事件過(guò)程的編寫(xiě)方法

3.情感態(tài)度與價(jià)值觀

通過(guò)學(xué)生的動(dòng)手操作，使學(xué)生具備較強(qiáng)的自學(xué)能力、實(shí)踐能力、創(chuàng)新能力，激發(fā)學(xué)生的

求知欲。

⑴單編輯器的熟練使用

教學(xué)重點(diǎn)

⑵菜單項(xiàng)事件過(guò)程的編寫(xiě)方法

教學(xué)難點(diǎn)菜單項(xiàng)事件過(guò)程的編寫(xiě)方法

教學(xué)用具多媒體網(wǎng)絡(luò)教室

教學(xué)方法以任務(wù)區(qū)動(dòng)式為主，演、講、練相結(jié)合的教學(xué)方法

（學(xué)習(xí)方法）

教學(xué)過(guò)程一、導(dǎo)入備注

同學(xué)們下面這個(gè)記事本我們經(jīng)常用到，幾天我們就來(lái)一起自己動(dòng)手（補(bǔ)充）

制作這個(gè)簡(jiǎn)易的記事本！

咬件MIU幡式???>

二、新課：

步驟一：繪制界面。

新建一個(gè)標(biāo)準(zhǔn)EXE工程，將其Caption屬性改“超級(jí)記事本”，點(diǎn)擊Icon

屬性給它找個(gè)合適的Icon圖標(biāo)。單擊菜單“工程”-“部件”，在彈出

的“部件”對(duì)話框里找到MicrosoftRichTextBox6.0和公共對(duì)話框

MicrosoftCommonDialog6.0并選中它們，單擊“確定”按鈕。這時(shí)

左邊的工具欄上出現(xiàn)了我們剛才新添的兩個(gè)控件了。在窗體上繪制

RichTextBox和CommnDialog,其中RichTextBox的大小和位置可不

用理睬，我們將在代碼中處理它，當(dāng)然，有必要把它的ScrollBar屬性

設(shè)為2-rtfVertical,這樣在打開(kāi)和編輯文件時(shí)垂直滾動(dòng)條才可用。

步驟二、創(chuàng)建記事本的菜單欄

打開(kāi)工具選項(xiàng)條單擊菜單編輯器

力1^51?MicrosoftVtw4l［或計(jì)］

文依DMkD紀(jì)BOD工皿械(Q)防?見(jiàn)g)B9(DIM?JHWMKA)1COM)

◎,a6015x649s

m■性(川_

Forml(Fbrm),■MN

A1351

也」

■文件?MkD皿QIMJXH)

:…：?

PG

(1)在標(biāo)題欄里面分別添加“文件(&F)”“編輯(&E)”“格式

(&A)”“幫助(&H)”并分別設(shè)置名稱和快捷鍵。

(2)分別在“文件”“編輯”“格式”“幫助”選項(xiàng)下編輯如圖所

示的的子菜單，設(shè)置標(biāo)題，名稱，快捷鍵。

步驟三、代碼的編寫(xiě)

(1)文件file

①新建new

new

PrivateSubnew_Click()

sfile=""一

Textl.Text=""

Forml.Caption="無(wú)標(biāo)題-記事本"

EndSub

②打開(kāi)open

jopen▼||C11ck

PrivateSubopen_Click。

OnErrorGoToa

CommonDialogl.ShowOpen

，分離路徑和旻件名

DimindexAsInteger

index—IiMStrRev(CommonDialogl.FileName,

sfile=Right(CommonDialogl.FileNaine,Leu(CommoitPialogl.FileNanie)—:ndex)

sdir=Left(CommonDialogl.FileName.index-1)

'打開(kāi)文件

OpenCommonDialogl.FileNameForInputAs#1

Textl.Text=""

DoWhileNotEOF(1)

LineInput#1,ss

Textl.Text=Textl.Text&ss&vbCrLf

Loop

Close#1

Form1.Caption=s￡ile+“一記事本"

a:ExitSub

EndSub

③保存save

④另存為as

⑤打印print

⑥退出exit

(2)編輯editing

①剪切cut

②復(fù)制copy

③粘貼past

④刪除delete

⑤查找find

⑥查找下一個(gè)findnext

⑦全選selea11

(3)格式

①自動(dòng)換行autonew1ine

②字體fond

(4)幫助help

關(guān)于about

步驟四：程序調(diào)試

三、練習(xí)

學(xué)生不看書(shū)獨(dú)立編寫(xiě)記事本的程序。

四、小結(jié)：

你收獲了什么？

VB綜合應(yīng)用二

一、界面設(shè)計(jì)

二、代碼編寫(xiě)

三、調(diào)試運(yùn)行

板書(shū)設(shè)計(jì)

教學(xué)反思

布爾津鎮(zhèn)初級(jí)中學(xué)教案

課題第九課成績(jī)等級(jí)劃分-選擇結(jié)構(gòu)程序設(shè)計(jì)三課時(shí)及授課1課時(shí)

授課人時(shí)間20xx年5月2日

(1)掌握分支選擇結(jié)構(gòu)實(shí)現(xiàn)條件判斷控制。

教學(xué)目標(biāo)(2)能夠運(yùn)用分支選擇結(jié)構(gòu)設(shè)計(jì)編制程序解決問(wèn)題。

(學(xué)習(xí)目標(biāo))(3)培養(yǎng)學(xué)生的邏輯思維能力，促進(jìn)學(xué)生對(duì)問(wèn)題解決方法的理解。

(4)通過(guò)趣味性教學(xué)，使同學(xué)們保持高漲的學(xué)習(xí)興趣，在操作的同時(shí)獲得成功的喜悅。

讓學(xué)生學(xué)會(huì)使用VB語(yǔ)言的If分支語(yǔ)句，掌握分支判斷程序結(jié)構(gòu)，來(lái)解決實(shí)際問(wèn)題，

教學(xué)重點(diǎn)

并且培養(yǎng)學(xué)生的探索、創(chuàng)新能力。

教學(xué)難點(diǎn)對(duì)解決問(wèn)題的方法和步驟的理解，并能根據(jù)實(shí)際問(wèn)題寫(xiě)出程序代碼。

教學(xué)用具計(jì)算機(jī)多媒體教室

教學(xué)方法

講授法、演示法、分組討論法。

(學(xué)習(xí)方法)

教學(xué)過(guò)程一、回憶舊知備注

師:Ifyouenjoyrunningeverymorning,thenpleaseputyourright(補(bǔ)充)

hand,elsepleaseputyourlefthand.（屏幕演示）

生：（解釋英語(yǔ)句子）

師：VB程序設(shè)計(jì)實(shí)例（求數(shù)的絕對(duì)值）——屏幕演示

師生交流：討論程序中的代碼

DimAAsInteger

A=Va1（text1.text）

IfA>=0ThenPrint"Y=";AElsePrint"Y=";-A

EndSub

引出知識(shí)點(diǎn)：通過(guò)實(shí)例展示分析，引出在VB中If語(yǔ)句的基本用法。

語(yǔ)法1If條件Then語(yǔ)句1Else屏幕演示，師生互相討論

語(yǔ)句2師:1、關(guān)鍵字:ifthenelse

語(yǔ)法2If條件Thenendif

語(yǔ)句組12、條件是關(guān)系表達(dá)式或者是

Else邏輯表達(dá)式，關(guān)系表達(dá)式是用

語(yǔ)句組2關(guān)系運(yùn)算符連接起來(lái)的式子。

EndIf例：A>0;A<>0;AMod

2=0

二、引入新課

使用switch語(yǔ)句實(shí)現(xiàn)下面程序。

輸入一個(gè)學(xué)生的兩門課成績(jī)（百分制），計(jì)算該生的總分并要求輸出成績(jī)

等級(jí)‘A‘、’B'、’C'、’D'、'E'?？偡衷?80分以上為4,

160~179分為‘B',140~159分為‘C',120~139分為‘D',120

分以下為‘E'。

具體要求：

①學(xué)生的兩門課成績(jī)通過(guò)鍵盤(pán)輸入，成績(jī)應(yīng)該都為整數(shù)，輸入之前要有提

〃《百息、。

②若輸入的成績(jī)不是百分制成績(jī)，則給出錯(cuò)誤提示信息，并且不再進(jìn)行下

面的等級(jí)評(píng)價(jià)；若輸入的成績(jī)是百分制成績(jī)，則計(jì)算總分，并根據(jù)要求評(píng)

價(jià)等級(jí)。

③按下面形式輸出結(jié)果：

總分一一〉等級(jí)

如：186---〉A(chǔ)

把正確的程序源代碼寫(xiě)在卜面。

程序代碼：

#include<stdio.h>

intmain()//定義一個(gè)主函數(shù)

(

intgradel,grade2,sum;

chard;

printf("請(qǐng)輸入你的兩門成績(jī)，成績(jī)應(yīng)為整數(shù)：\n");〃提示信息

scanf("%d,%d",&gradel,&grade2);〃輸入語(yǔ)句

if(gradel<0||gradel>100||grade2<0||grade2>100)//if語(yǔ)句

設(shè)置條件

printf("輸入錯(cuò)誤，請(qǐng)輸入百分制成績(jī)。)〃提示錯(cuò)誤

else

(

sum=(gradel+grade2)/20;〃定義算法

switch(sum)//用switch語(yǔ)句進(jìn)行多分支

選擇

(

case10:

case9:d='A';break;

case8:d='B';break;

c\*C:\Progra>Files\MicrosoftVisualStudio\lyProjects

請(qǐng)輸入你的兩門成績(jī)，成績(jī)應(yīng)為整數(shù)：

-78,98

輸入錯(cuò)誤，請(qǐng)輸入百分制成績(jī)。Pressanykeytocontinue.

1■1

c\*C:\Progra>Files\MicrosoftVisualStudioMyProje

請(qǐng)輸入你的兩門成績(jī)，成績(jī)應(yīng)港^

78,76

154——>C

Pressanykeytocontinue.

輸出D:

c：r*C:\Progra>Files\MicrosoftVisualStudio\I^

請(qǐng)輸入你的兩門成績(jī)，成績(jī)應(yīng)為衰

5乙67

L34——>D

Pressanykeytocontinue

輸出E:

三、練習(xí)反饋、應(yīng)用拓展—屏幕演示

練習(xí)任務(wù)：設(shè)計(jì)一個(gè)程序，輸入三角形的三條邊，并求出對(duì)應(yīng)的三角形面

積

1、算法分析（師生互動(dòng)）

①輸入三條邊（定義變量）

②判斷這三條邊是否能構(gòu)成三角形（生：依據(jù)？）

③計(jì)算三角形面積的方法（生：（P=A+B+C）/2;S=SQR（P*（P-A）

(P-B)*(P-C))

④輸出：三角形面積S/不能構(gòu)成三角形

2、程序設(shè)計(jì)

師：程序界面設(shè)計(jì)——屏幕演示

3、程序代碼編寫(xiě)，解決問(wèn)題(上機(jī)實(shí)踐)

師生互動(dòng)：學(xué)生編寫(xiě)程序代碼，教師指導(dǎo)教學(xué)

PrivateSubCommandl_Click()

Dima,b,c,p,sAsSingle

a=Vai(textl.Text)

b=Val(text2.Text)

c=Val(text3.Text)

p=(a+b+c)/2

Ifa+b>cAndb+c>aAndc+a>bThen

s=Sqr(p*(p-a)*(p-b)*(p-c))

Label2.Caption="該三角形的面積為:&s

Else

Label2.Caption="這三條邊不能構(gòu)成三角形”

EndIf

EndSub

師:指出學(xué)習(xí)的重點(diǎn)——If……Then……Else

四、知識(shí)回顧、總結(jié)提升

課堂小結(jié)—指出本節(jié)課程的知識(shí)點(diǎn)

語(yǔ)法1If條件Then語(yǔ)句1Else語(yǔ)句2

語(yǔ)法2If條件Then語(yǔ)句組1

Else語(yǔ)句組2

EndIf

五、拓展知識(shí)：①開(kāi)語(yǔ)句的嵌套

②If語(yǔ)句的塊結(jié)構(gòu)

六、作業(yè)

某商場(chǎng)為了對(duì)蘋(píng)果進(jìn)行促銷，規(guī)定購(gòu)買2千克以上可以在原價(jià)每千克

1.5兀的基礎(chǔ)上打8折。請(qǐng)?jiān)O(shè)計(jì)一個(gè)程序計(jì)算購(gòu)買X千克蘋(píng)果的應(yīng)付款。

提示：變量X表示蘋(píng)果的重量，變量M表示應(yīng)付款。

第八課成績(jī)等級(jí)劃分-選擇結(jié)構(gòu)程序設(shè)計(jì)三

條件語(yǔ)句

板書(shū)設(shè)計(jì)IfThen1

Else語(yǔ)句2

教學(xué)反思

布爾津鎮(zhèn)初級(jí)中學(xué)教案

課題第十一課九九乘法表課時(shí)及授課

1課時(shí)

授課人時(shí)間20xx年5月23日

1、知識(shí)目標(biāo)：了解循環(huán)結(jié)構(gòu)在算法中的應(yīng)用。

2、技能目標(biāo)：學(xué)會(huì)在程序設(shè)計(jì)中利用循環(huán)結(jié)構(gòu)有效地解決問(wèn)題；理解算

教學(xué)目標(biāo)（學(xué)

法優(yōu)化的基礎(chǔ)知識(shí)。

習(xí)目標(biāo)）3、情感、態(tài)度與價(jià)值觀目標(biāo)：對(duì)待同一個(gè)問(wèn)題，運(yùn)用不同的知識(shí)和方法

解決問(wèn)題，往往能達(dá)到事半功倍的效果。培養(yǎng)學(xué)生運(yùn)用不同方法解決問(wèn)題

的習(xí)慣

教學(xué)重點(diǎn)了解循環(huán)結(jié)構(gòu)的實(shí)際應(yīng)用。

教學(xué)難點(diǎn)循環(huán)結(jié)構(gòu)的代碼寫(xiě)法。

教學(xué)用具計(jì)算機(jī)多媒體教室

教學(xué)方法（學(xué)

講授法、演示法、分組討論法。

習(xí)方法）

教學(xué)過(guò)程一、創(chuàng)設(shè)情境激發(fā)興趣（3分鐘）備注

讓學(xué)生回憶小學(xué)學(xué)過(guò)的九九乘法表，個(gè)別學(xué)生回答。再（補(bǔ)充）

讓學(xué)生閱讀"閱讀與思考"，讓學(xué)生知道九九乘法表的來(lái)歷。

提出中心任務(wù)—用語(yǔ)言程序編寫(xiě)九九乘法表。

（設(shè)計(jì)意圖：

為了更好地完成中心任務(wù)，教師在開(kāi)始上課時(shí)引導(dǎo)學(xué)生通過(guò)原來(lái)就熟

悉的九九乘法

對(duì)以前學(xué)過(guò)的定義變量、常量、運(yùn)算符、公式、賦值知識(shí)進(jìn)

表，來(lái)激發(fā)學(xué)

行復(fù)習(xí)。生學(xué)習(xí)的欲

望，從而引入

二、啟發(fā)探究學(xué)習(xí)新知（24分鐘）本課）

1、循環(huán)結(jié)構(gòu)定義：在算法中，從某處開(kāi)始，按照一定

條件，反復(fù)執(zhí)行某一處理步驟的過(guò)程。

2、觀察分析九九乘法表的排列特點(diǎn)，指導(dǎo)學(xué)生分類：

一行、第1行，第9行、進(jìn)而到第1列進(jìn)行全面分析。

教學(xué)處理：這一環(huán)節(jié)主要采用學(xué)生合作探究方式完成流

程圖繪制、程序界面的創(chuàng)建、代碼的生成。

每四人為一組，教師參與到學(xué)生研究過(guò)程中，對(duì)學(xué)生出

現(xiàn)的問(wèn)題進(jìn)行及時(shí)點(diǎn)撥幫助，最后由學(xué)生展示自己的流程

圖。然后教師展示正確流程圖。

(設(shè)計(jì)意圖：

)這樣設(shè)計(jì)的目

的是為了培養(yǎng)

3、循環(huán)結(jié)構(gòu)概念的理解：

學(xué)生合作交流

(1)循環(huán)結(jié)構(gòu)的三要素：循環(huán)初始值、循環(huán)體、循環(huán)精神及協(xié)作溝

的終止條件。通能力，并訓(xùn)

練學(xué)生的畫(huà)流

(2)循環(huán)結(jié)構(gòu)的算法流程圖程圖的能力。

(3)當(dāng)型循環(huán)與直到循環(huán)的區(qū)別

教學(xué)處理：引導(dǎo)學(xué)生認(rèn)真觀察剛剛得到的程序框圖，給

學(xué)生2分鐘討論交流時(shí)間，讓大家互相溝通，從而使得學(xué)生

對(duì)概念的理解更深刻，最后由學(xué)生說(shuō)出以上對(duì)概念的理解，

教師進(jìn)行歸納總結(jié)。

4、變式探究：

探究上再觀察列，如第1列等如何編寫(xiě)程序。

探究2:中心任務(wù)的逼近。

E語(yǔ)言實(shí)現(xiàn)九九乘法表

(設(shè)計(jì)意圖：

九九乘法表通過(guò)師生交

流，使學(xué)生對(duì)

概念有更深的

理解，同時(shí)鍛

煉了學(xué)生歸納

、總結(jié)的能

力，增強(qiáng)合作

交流意識(shí)。創(chuàng)

建了和諧的課

堂氛圍。)

窗口口程程序序集集名名保留保留留備備注注

窗口程序集1

子程序名返回值類型公開(kāi)備注

一按鈕1_被單擊

變量名類型靜態(tài)數(shù)蛆備注

被乘數(shù)整數(shù)型

乘數(shù)整數(shù)型

要顯不的內(nèi)容文本型1

廠〉計(jì)次循環(huán)首（9,被乘數(shù)）

：廠〉變量循環(huán)首（1,被乘數(shù)，1,）

要顯示的內(nèi)容=到文本（9）+“X”+到文本儆乘數(shù)）+"="+到文本6X被乘數(shù)）

畫(huà)板1.定位寫(xiě)出獨(dú)乘數(shù)X50-10,9X20-10,要顯示的內(nèi)容）

?二-變量循環(huán)尾0

：一計(jì)次循環(huán)尾0

廠，計(jì)次循環(huán)首⑸被乘數(shù)）

：廠〉變量循環(huán)首Q,被乘數(shù)，1,）

要顯示的內(nèi)容=到文本皴乘數(shù)）+“X”+到文本（I）+*="+到文本G史乘數(shù)X1）

畫(huà)板1.定位寫(xiě)出（1x50-10,被乘數(shù)X20-10,要顯示的閃容）

?L--變量循環(huán)尾0

L--計(jì)次循環(huán)尾0

3序名詆回值類型I公開(kāi)I密譯"

生

氏

逐

歷

+:?計(jì)次循環(huán)首⑨被乘數(shù)）|

:「一變量循環(huán)首（1,被乘數(shù)，1,乘數(shù)）

要顯示的內(nèi)容=到文本準(zhǔn)乘數(shù)）*“X”?到文本集數(shù)）?“二”?到文本隘乘數(shù)X乘數(shù)）

畫(huà)板1.定位寫(xiě)出讀數(shù)X50-10,被乘數(shù)X20-10,要顯示的內(nèi)容

:-變量循環(huán)尾0

二-計(jì)次循環(huán)尾0

窗口程序集名保留保留備注

窗口程序集1

子程序名返回值類型公開(kāi)備注

一技鈕1_被單擊

變量名類型靜態(tài)數(shù)組備注

被乘數(shù)整數(shù)型

乘數(shù)整數(shù)型

要顯不的內(nèi)容文本型

J+L，計(jì)次循環(huán)首（9,被乘數(shù)）

：:一變量循環(huán)首（1,被乘數(shù)，1,乘數(shù)）

要顯示的內(nèi)容=到文本隘乘數(shù)）*“X”+到文本讀數(shù)）?“二”*到文本獨(dú)乘數(shù)X乘數(shù)

畫(huà)板1.定位寫(xiě)出讀數(shù)X50-10,被乘數(shù)X20-10,要顯示的內(nèi)容）

、…變量循環(huán)尾0

二-計(jì)次循環(huán)尾0

\動(dòng)窗口］窗口程序集1/

（設(shè)計(jì)意圖：

三、鞏固知識(shí)應(yīng)用提高（n分鐘）①確定循環(huán)變

量和初始值；

變式1:結(jié)合練一練2探究。②確定循環(huán)

體；③確定循

此例可由學(xué)生獨(dú)立思考、回答，師生共同點(diǎn)評(píng)完成。