中學新疆版八年級信息技術第十四課-VB綜合應用練習二

布爾津鎮(zhèn)初級中學教案

課題第十四課VB綜合應用練習二

課時及授課1課時

時間

授課人20xx年6月13日

1.知識與技能

⑴掌握菜單編輯器的應用。

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

2.過程與方法

教學目標（學習

⑴菜單編輯器的熟練應用

目標）

⑵菜單項事件過程的編寫方法

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

通過學生的動手操作，使學生具備較強的自學能力、實踐能力、創(chuàng)新能力，激發(fā)學生的

求知欲。

⑴單編輯器的熟練使用

教學重點

⑵菜單項事件過程的編寫方法

教學難點菜單項事件過程的編寫方法

教學用具多媒體網(wǎng)絡教室

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

（學習方法）

教學過程一、導入備注

同學們下面這個記事本我們經(jīng)常用到，幾天我們就來一起自己動手（補充）

制作這個簡易的記事本！

咬件MIU幡式???>

二、新課：

步驟一：繪制界面。

新建一個標準EXE工程，將其Caption屬性改“超級記事本”，點擊Icon

屬性給它找個合適的Icon圖標。單擊菜單“工程”-“部件”，在彈出

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

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

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

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

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

設為2-rtfVertical,這樣在打開和編輯文件時垂直滾動條才可用。

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

打開工具選項條單擊菜單編輯器

力1^51?MicrosoftVtw4l［或計］

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

◎,a6015x649s

m■性(川_

Forml(Fbrm),■MN

A1351

也」

■文件?MkD皿QIMJXH)

:…：?

PG

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

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

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

示的的子菜單，設置標題，名稱，快捷鍵。

步驟三、代碼的編寫

(1)文件file

①新建new

new

PrivateSubnew_Click()

sfile=""一

Textl.Text=""

Forml.Caption="無標題-記事本"

EndSub

②打開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)

'打開文件

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

②復制copy

③粘貼past

④刪除delete

⑤查找find

⑥查找下一個findnext

⑦全選selea11

(3)格式

①自動換行autonew1ine

②字體fond

(4)幫助help

關于about

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

三、練習

學生不看書獨立編寫記事本的程序。

四、小結(jié)：

你收獲了什么？

VB綜合應用二

一、界面設計

二、代碼編寫

三、調(diào)試運行

板書設計

教學反思

布爾津鎮(zhèn)初級中學教案

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

授課人時間20xx年5月2日

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

教學目標(2)能夠運用分支選擇結(jié)構(gòu)設計編制程序解決問題。

(學習目標)(3)培養(yǎng)學生的邏輯思維能力，促進學生對問題解決方法的理解。

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

讓學生學會使用VB語言的If分支語句，掌握分支判斷程序結(jié)構(gòu)，來解決實際問題，

教學重點

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

教學難點對解決問題的方法和步驟的理解，并能根據(jù)實際問題寫出程序代碼。

教學用具計算機多媒體教室

教學方法

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

(學習方法)

教學過程一、回憶舊知備注

師:Ifyouenjoyrunningeverymorning,thenpleaseputyourright(補充)

hand,elsepleaseputyourlefthand.（屏幕演示）

生：（解釋英語句子）

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

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

DimAAsInteger

A=Va1（text1.text）

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

EndSub

引出知識點：通過實例展示分析，引出在VB中If語句的基本用法。

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

語句2師:1、關鍵字:ifthenelse

語法2If條件Thenendif

語句組12、條件是關系表達式或者是

Else邏輯表達式，關系表達式是用

語句組2關系運算符連接起來的式子。

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

2=0

二、引入新課

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

輸入一個學生的兩門課成績（百分制），計算該生的總分并要求輸出成績

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

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

分以下為‘E'。

具體要求：

①學生的兩門課成績通過鍵盤輸入，成績應該都為整數(shù)，輸入之前要有提

〃《百息、。

②若輸入的成績不是百分制成績，則給出錯誤提示信息，并且不再進行下

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

價等級。

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

總分一一〉等級

如：186---〉A

把正確的程序源代碼寫在卜面。

程序代碼：

#include<stdio.h>

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

(

intgradel,grade2,sum;

chard;

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

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

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

設置條件

printf("輸入錯誤，請輸入百分制成績。)〃提示錯誤

else

(

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

switch(sum)//用switch語句進行多分支

選擇

(

case10:

case9:d='A';break;

case8:d='B';break;

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

請輸入你的兩門成績，成績應為整數(shù)：

-78,98

輸入錯誤，請輸入百分制成績。Pressanykeytocontinue.

1■1

c\*C:\Progra>Files\MicrosoftVisualStudioMyProje

請輸入你的兩門成績，成績應港^

78,76

154——>C

Pressanykeytocontinue.

輸出D:

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

請輸入你的兩門成績，成績應為衰

5乙67

L34——>D

Pressanykeytocontinue

輸出E:

三、練習反饋、應用拓展—屏幕演示

練習任務：設計一個程序，輸入三角形的三條邊，并求出對應的三角形面

積

1、算法分析（師生互動）

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

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

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

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

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

2、程序設計

師：程序界面設計——屏幕演示

3、程序代碼編寫，解決問題(上機實踐)

師生互動：學生編寫程序代碼，教師指導教學

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

師:指出學習的重點——If……Then……Else

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

課堂小結(jié)—指出本節(jié)課程的知識點

語法1If條件Then語句1Else語句2

語法2If條件Then語句組1

Else語句組2

EndIf

五、拓展知識：①開語句的嵌套

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

六、作業(yè)

某商場為了對蘋果進行促銷，規(guī)定購買2千克以上可以在原價每千克

1.5兀的基礎上打8折。請設計一個程序計算購買X千克蘋果的應付款。

提示：變量X表示蘋果的重量，變量M表示應付款。

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

條件語句

板書設計IfThen1

Else語句2

教學反思

布爾津鎮(zhèn)初級中學教案

課題第十一課九九乘法表課時及授課

1課時

授課人時間20xx年5月23日

1、知識目標：了解循環(huán)結(jié)構(gòu)在算法中的應用。

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

教學目標（學

法優(yōu)化的基礎知識。

習目標）3、情感、態(tài)度與價值觀目標：對待同一個問題，運用不同的知識和方法

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

的習慣

教學重點了解循環(huán)結(jié)構(gòu)的實際應用。

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

教學用具計算機多媒體教室

教學方法（學

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

習方法）

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

讓學生回憶小學學過的九九乘法表，個別學生回答。再（補充）

讓學生閱讀"閱讀與思考"，讓學生知道九九乘法表的來歷。

提出中心任務—用語言程序編寫九九乘法表。

（設計意圖：

為了更好地完成中心任務，教師在開始上課時引導學生通過原來就熟

悉的九九乘法

對以前學過的定義變量、常量、運算符、公式、賦值知識進

表，來激發(fā)學

行復習。生學習的欲

望，從而引入

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

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

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

2、觀察分析九九乘法表的排列特點，指導學生分類：

一行、第1行，第9行、進而到第1列進行全面分析。

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

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

每四人為一組，教師參與到學生研究過程中，對學生出

現(xiàn)的問題進行及時點撥幫助，最后由學生展示自己的流程

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

(設計意圖：

)這樣設計的目

的是為了培養(yǎng)

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

學生合作交流

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

的終止條件。通能力，并訓

練學生的畫流

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

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

教學處理：引導學生認真觀察剛剛得到的程序框圖，給

學生2分鐘討論交流時間，讓大家互相溝通，從而使得學生

對概念的理解更深刻，最后由學生說出以上對概念的理解，

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

4、變式探究：

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

探究2:中心任務的逼近。

E語言實現(xiàn)九九乘法表

(設計意圖：

九九乘法表通過師生交

流，使學生對

概念有更深的

理解，同時鍛

煉了學生歸納

、總結(jié)的能

力，增強合作

交流意識。創(chuàng)

建了和諧的課

堂氛圍。)

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

窗口程序集1

子程序名返回值類型公開備注

一按鈕1_被單擊

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

3序名詆回值類型I公開I密譯"

生

氏

逐

歷

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

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

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

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

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

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

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

窗口程序集1

子程序名返回值類型公開備注

一技鈕1_被單擊

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

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

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

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

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

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

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

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

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

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

\動窗口］窗口程序集1/

（設計意圖：

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

量和初始值；

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

體；③確定循

此例可由學生獨立思考、回答，師生共同點評完成。