第一篇：可用的教案vb

《淺水洼里的小魚》教學(xué)設(shè)計(jì)

一、視頻播放，激發(fā)興趣

藍(lán)天是白云的家，樹林是小鳥的家，泥土是種子的家。我們是祖國(guó)的花朵，祖國(guó)就是我們的家。）師生齊讀小詩。

師：是啊！我們都有一個(gè)溫暖的家?。ㄒ贿叢フn件）大海就是魚兒美麗的家，魚兒在大海里多么快活??！他們每天和爸爸媽媽、小伙伴一起玩耍、游戲。可是有一天，海面上刮起了狂風(fēng)，小魚被帶上了沙灘。風(fēng)停了，小魚這才發(fā)現(xiàn)自己被困在了----淺水洼里。

今天我們繼續(xù)學(xué)習(xí)第28課《淺水洼里的小魚》（逐字板書課題）齊讀課題。

師：小魚被困在淺水洼里，它們是多么想回家呀！你們?cè)敢馑退厝幔浚ㄏ茸杂勺x一遍，再開火車讀）。

二、復(fù)習(xí)回顧，導(dǎo)入新知

學(xué)生開火車讀詞語。

三、讀課文，把握課文主要內(nèi)容

1、看來同學(xué)們上節(jié)課學(xué)習(xí)得真不錯(cuò)，讓我們?cè)俅巫哌M(jìn)課文看看吧！

2請(qǐng)同學(xué)們打開書132頁，擺好認(rèn)真聽讀的姿勢(shì)，聽錄音朗讀，邊聽邊想：課文主要講了一件什么事，請(qǐng)用“誰，在干什么？”的句式說說。

3、幻燈片出示： _________ 在 _________ ？

四、領(lǐng)悟詞句，感情朗讀，情感升華，（學(xué)習(xí)第一自然段）

1、師：是呀！清晨，我們呼吸著清新的空氣在海邊散步，過著幸福的日子，可是有誰知道小魚遇到了困難呢？我想請(qǐng)一位同學(xué)讀一讀第一自然段，其他同學(xué)邊聽邊想：你讀懂了什么？ 我讀懂了：小魚很不快活，很慘，非常可憐，很難過?? 師：是的，小魚多么可憐呀，我們一起來讀讀這一句話。生齊讀：它們被困到水洼里，回不了大海了。師：什么是“困”？

生：困就是四周被東西圍住，圍困的意思。失去了自由了?。ò鍟盒◆~被困）師：假如你就是這淺水洼里被困的小魚，你的心情會(huì)怎樣？（現(xiàn)場(chǎng)采訪）生1：我很傷心。

師：你就傷心地給大家讀讀這句話。生2：小魚會(huì)孤獨(dú)、寂寞、著急。

師：那你就帶著著急的語氣給大家朗讀。

2、師：盛老師仿佛真的看到了淺水洼里被困的小魚，它們是多么傷心、難過，又是多么的著急。被困在水洼里的小魚多嗎？。

生：我覺得被困在水洼里的小魚有很多。（板書：多）師：。你是從課文中哪一句話讀出來的呢？ 生：被困的小魚，也許有幾百條，甚至有幾千條。

師：這句話中的哪個(gè)詞語體現(xiàn)了小魚很多呢？

生：我從“幾百條”、“幾千條”讀出被困的小魚有很多。請(qǐng)你來讀讀這個(gè)句子。

師：你看，這位小朋友多會(huì)讀書??！他能抓住句子中的重點(diǎn)詞語讀懂句子，這可是個(gè)好方法。讓我們齊讀這句話吧！

3、師：小魚被困了，他們的處境特別危險(xiǎn)！因?yàn)椋ㄗx）用不了多久；；；；；；；（學(xué)生發(fā)現(xiàn)“水、吸干、蒸干、干死”這個(gè)字變大變紅了）

師：把這四個(gè)詞語聯(lián)系起來想一想，看看你能想到什么？（板書：危）

生：這些小魚都會(huì)有生命危險(xiǎn)。

生：如果水被沙粒吸干，被太陽蒸干，小魚就會(huì)死掉。師：你真會(huì)聯(lián)想。

師：你看，小魚多可憐呀！假如小魚會(huì)說話的話，它可能會(huì)說些什么呀？ 師：同學(xué)們體會(huì)得很好，此時(shí)，小魚最大的心愿是什么？ 生：我真想回大海；要是有個(gè)好心人把我送回大海，那該多好呀！

四、學(xué)習(xí)第二自然段

1、師：小魚們?cè)跍\水洼里苦苦掙扎，他們最大的心愿就是能回到大海的懷抱中。一個(gè)小男孩明白了小魚的心愿，請(qǐng)大家自由的朗讀第二自然段。

2、師：那個(gè)小男孩在干什么？ 生：小男孩在撿魚、扔魚。

師：對(duì)，小男孩彎下腰去，撿起淺水洼里的小魚，他把小魚扔到哪里去了？把句子連起來說。生：小男孩撿魚、扔魚，把魚扔回了大海里。

師：一個(gè)多么有愛心的小男孩啊！你們想來表演一下小男孩子當(dāng)時(shí)撿魚，扔魚的情形嗎？ 師：老師來替你旁白，表演時(shí)要（特別注意彎下腰、撿起、扔回幾個(gè)動(dòng)作）。

師描述，生做動(dòng)作：小男孩來到一個(gè)水洼前，看到第一條魚，他彎下腰，撿起魚，用力地扔回大海；他又彎下腰去撿起第二條小魚，用力地扔回大海，還有第三條，第四條，彎腰、撿魚、用力地扔，扔得遠(yuǎn)些，還有很多小魚，快，要不停地?fù)?，不停地扔。師：我們先停一停，剛才你在救魚的過程中有什么感受？（我覺得很累！）累，你還撿呀！因?yàn)槔劭倹]有失去一條生命更重要。那么，此時(shí)你的心情怎么樣？

生：快樂，因?yàn)閹椭鷦e人總是覺得快樂。

4、師：大家覺得這是一個(gè)怎樣的小男孩？（心地善良、有愛心）你想對(duì)他說什么？

那就讓我們用稱贊的語氣齊讀第二段。

五、創(chuàng)設(shè)情景，讓學(xué)生與文本對(duì)話（學(xué)習(xí)第三至六段）

1、過渡：面對(duì)小男孩執(zhí)著的愛心，我“看了一會(huì)，忍不住走過去對(duì)小男孩說：”水洼里的小魚有成百上千條，你是撿不完的“，小男孩子知道嗎？（知道）”那你為什么還在撿？誰在乎呢？““這條小魚在乎”，小魚在乎什么呢？（要活著，要去找爸爸媽媽），除了小魚自己在乎，還有誰在乎？（小男孩在乎，小魚的爸爸媽媽在乎，小魚的兄弟姐妹在乎，所有有愛心的人和他的親人都在乎）（板書：在乎）

（可以引導(dǎo)學(xué)生：如果你有危險(xiǎn)的時(shí)候，誰在乎？是呀！現(xiàn)在小魚有危險(xiǎn)了，還有誰在乎呢？）

2、師：是呀，一條小魚就是一條生命，一百條小魚就是一百條生命，因此“小男孩一邊，一邊，，”，“一邊，一邊”說明這兩個(gè)動(dòng)作是同時(shí)進(jìn)行的。小男孩為什么不先回答完，再去撿魚呢？（小男孩子為了救小魚爭(zhēng)分奪秒）

3、師：他不停地?fù)祠~、扔魚，嘴里不停地叨念，“叨念”是什么意思呢？（念叨，沒完沒了地說）

小男孩在叨念什么呢？“這條在乎，這條也在乎，還有這一條、這一條、這一條??“

六、出示句子填空，訓(xùn)練學(xué)生的理解、表達(dá)（鞏固課文，升華主題）。

1、師：是呀，我們都在乎小魚。那么這個(gè)句子你會(huì)填嗎？開動(dòng)腦筋想一想吧！

（出示句子：這條在乎，這條也在乎！還有這一條，這一條，這一條……所有的小魚_______________。）

生：這條在乎，這條也在乎！還有這一條……所有的小魚都在乎。

2、師：下面這個(gè)句子，可有難度了，想不想來挑戰(zhàn)呀？

(出示句子：這條_________，這條也_________！還有這一條，這一條，這一條……所有的小魚_________。)生1：這條想回大海，這一條也想回大海！還有這一條……所有的小魚都想回大海。

生2：這條想活，這一條也想活！還有這一條……所有的小魚都想活。

生3：這條是個(gè)小生命，這條也是小生命!還有這一條……所有小魚都是小生命。

3、師：你們體會(huì)得真不錯(cuò)，現(xiàn)在老師要招募小演員來表演作者和文中小男孩的對(duì)話了，你們想報(bào)名參加嗎？

師：請(qǐng)看大屏幕，前后兩個(gè)同學(xué)合作練習(xí)作者和文中小男孩的話，呆會(huì)老師請(qǐng)最佳小演員來表演。（學(xué)生表演）

師：他們的表演太精彩了！你們也想來表演嗎？這么多同學(xué)都想呀，老師也想和你們一起來表演讀，那我們一起來吧！師：女同學(xué)（小男孩），男同學(xué)（叔叔），老師讀旁白。

4、師：站在一旁的叔叔和來沙灘上散步的其他人，看到小男孩子撿魚，扔魚，也許他們會(huì)做什么呢、師：是呀，正是因?yàn)橛性S多像小男孩一樣有愛心的人在不停地?fù)祠~，扔魚，才使成百上千的小魚回到了大海媽媽的懷抱。瞧！小魚們?cè)诖蠛Ｖ杏蔚枚嗝纯旎睿畹枚嗝葱腋?！他們又見到了親愛的爸爸媽媽、可愛好朋友。它們游得多開心啦！

七、小結(jié)、拓展

1、師：同學(xué)們，無論鳥獸蟲魚，還是花草樹木，地球媽媽都賦予了它們寶貴的生命。讓我們像這位小男孩一樣保護(hù)動(dòng)物、珍愛生命，和小動(dòng)物們和諧相處，伸出溫暖的雙手去保護(hù)它們。你們能做到嗎：（能）

2、師：愛心小天使就知道你們會(huì)做到的，她把愛心卡片都送來了，你們盡情的寫寫吧！幻燈片出示：如果一只小鳥受了傷，落在窗臺(tái)上，你會(huì)怎么做？

如果一只野兔受傷了，躺在大樹旁，你會(huì)怎么做？

3、學(xué)生在心型卡片上補(bǔ)充句子。

4、師：哪些同學(xué)已經(jīng)寫好自己的做法了，我們來聽聽他們是怎么做愛心天使？

八、作業(yè)自選商場(chǎng)

師：同學(xué)們！你們都有一顆善良的心，可是在我們身邊還有一些人不懂得保護(hù)動(dòng)物、植物，今天回家，請(qǐng)你們像老師這樣制作一張精美的卡片，送給親朋好友，讓所有的人也投入到愛護(hù)動(dòng)物、保護(hù)動(dòng)物的行動(dòng)中來吧！

板書設(shè)計(jì)： 淺水洼里的小魚

小魚被困男孩在乎保護(hù)動(dòng)物 5

多 危 撿 扔

珍愛生命

第二篇：vb實(shí)驗(yàn)教案 -

實(shí)驗(yàn)一 VB集成開發(fā)環(huán)境和簡(jiǎn)單程序設(shè)計(jì)

一、本次課主要內(nèi)容

1． 練習(xí)Visual Basic6.0的安裝與重新安裝。2． 啟動(dòng)和退出Visual Basic 6.0。3． 認(rèn)識(shí)VB6.0的工作界面。

4． 編寫顯示“歡迎使用Visual Basic6.0”的窗體程序。

P 1 5． 按照Visual Basic編寫程序的基本步驟建立一個(gè)用于“商品銷售計(jì)劃”的窗體程序。

二、教學(xué)目的與要求 1．熟悉VB6.0的安裝；

2．學(xué)習(xí)怎樣啟動(dòng)和退出Visual Basic；

3．熟悉Visual Basic的工作環(huán)境，為以后的程序設(shè)計(jì)作好準(zhǔn)備； 4．理解Visual Basic中對(duì)象和類的概念。5．學(xué)習(xí)用屬性窗口設(shè)置對(duì)象屬性的方法。

6．初步學(xué)習(xí)在代碼編輯器中輸入程序代碼的基本操作。7．基本掌握用Visual Basic編寫程序的基本步驟。8．了解Visual Basic聯(lián)機(jī)幫助的使用方法。

三、教學(xué)重點(diǎn)難點(diǎn) VB語言程序的上機(jī)步驟

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)2。

實(shí)驗(yàn)一 VB集成開發(fā)環(huán)境和簡(jiǎn)單程序設(shè)計(jì)

1． Visual Basic 6.0有多種類型的窗口，若想在設(shè)計(jì)時(shí)看到代碼窗口，如何操作？

2． 如何使各窗口顯示或不顯示？ 3． 如何對(duì)工具箱添加選項(xiàng)卡？

4．當(dāng)建立好一個(gè)簡(jiǎn)單的應(yīng)用程序后，假定該工程僅有一個(gè)窗體模塊。問該工程涉及到多少個(gè)文件要保存？若要保存該工程中的所有文件，正確的操作應(yīng)先保存什么文件？再保存什么文件？若不這樣做，系統(tǒng)會(huì)出現(xiàn)什么信息？

5．在窗體上畫一個(gè)命令按鈕，然后通過屬性窗口設(shè)置下列屬性： Caption：這是命令按鈕 Font：宋體 粗體 三號(hào) Visible：False Style：1-Graphical

6、參考實(shí)驗(yàn)教材“實(shí)驗(yàn)一”和“實(shí)驗(yàn)二”的實(shí)驗(yàn)過程編寫程序。

P 2

教學(xué)后記：

實(shí)驗(yàn)二 順序結(jié)構(gòu)程序設(shè)計(jì)

一、本次課主要內(nèi)容

1.實(shí)驗(yàn)Visual Basic中三種除法運(yùn)算符（/、、Mod）的區(qū)別。2．掌握表達(dá)式的書寫，并能閱讀出表達(dá)式的運(yùn)行結(jié)果。3．設(shè)計(jì)一個(gè)簡(jiǎn)單的計(jì)數(shù)器。

二、教學(xué)目的與要求

1．掌握Visual Basic數(shù)據(jù)類型的基本概念。2．掌握變量，常量的定義規(guī)則。

3．掌握Visual Basic各種運(yùn)算符的功能及表達(dá)式的構(gòu)成和求值方法。4．掌握Visual Basic的基本語句。

三、教學(xué)重點(diǎn)難點(diǎn)

VB的各種運(yùn)算符的功能及表達(dá)式的構(gòu)成

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)3。

P 3

實(shí)驗(yàn)二 順序結(jié)構(gòu)程序設(shè)計(jì)

1．實(shí)驗(yàn)Visual Basic中三種除法運(yùn)算符（/、、Mod）的區(qū)別。按以下步驟執(zhí)行：

P 4（1）在窗體上畫5個(gè)標(biāo)簽、5個(gè)文本框和一個(gè)命令按鈕。5個(gè)標(biāo)簽的標(biāo)題分別為：“被除數(shù)”、“除數(shù)”、“浮點(diǎn)除（/）”、“整數(shù)除（）”和“余數(shù)除（Mod）”，把5個(gè)文本框清為空白，把命令按鈕的標(biāo)題設(shè)置為“執(zhí)行除法運(yùn)算”，如圖6所示。

圖6

除法運(yùn)算符實(shí)驗(yàn)（界面設(shè)計(jì)）

（2）編寫命令按鈕的事件過程： Private Sub Command1_Click()Dim diviD, diviS As Single diviD = Val(Text1.Text)diviS = Val(Text2.Text)Text3.Text = Str(diviD / diviS)Text4.Text = Str(diviD diviS)Text5.Text = Str(diviD Mod diviS)End Sub

（3）按F5或單擊工具欄上的“啟動(dòng)”按鈕運(yùn)行程序，在第一個(gè)文本框中輸入被除數(shù)，在第二個(gè)文本框中輸入除數(shù)，然后單擊命令按鈕，即可得到三種不同的相除結(jié)

果。例如，在第一、第二個(gè)文本框中分別輸入124和3，然后單擊命令按鈕，結(jié)果如圖7所示。

P 5

圖7

除法運(yùn)算符試驗(yàn)（運(yùn)行情況）

2．先用手工計(jì)算下列表達(dá)式的值，然后在立即窗口中試驗(yàn)這些表達(dá)式的輸出結(jié)果。

(1)8*3*62(2)7/6*3.2/2.15*(4.3+2.8)(3)344*4.0^3/1.6(4)653 Mod 2.6*Fix(3.7)(5)“abc” + “345” & “257”(6)279.37 + “0.63” = 280(7)4>8 And 4 = 5(8)True Or Not(8+3 >= 11)(9)8 > 4 Or 5 < 9(10)(True And False)Or(True Or False)3．設(shè)x,y,z均為布爾型變量，其值分別為： x=True Y=True Z=False 求下列表達(dá)式的值：

(1)x Or y And z(2)Not x And Not y(3)x Xor y Or z(4)Not x Eqv Not y(5)(Not y Or x)And(y Or z)(6)x Or Not y Imp z 要求：先手工計(jì)算，再上機(jī)驗(yàn)證。

教學(xué)后記：

P 6

實(shí)驗(yàn)三 選擇結(jié)構(gòu)程序設(shè)計(jì)

一、本次課主要內(nèi)容

1．編程求解一元二次方程的根。

2．按要求編寫程序?qū)崿F(xiàn)稅務(wù)部門征收所得稅的納稅金額。

二、教學(xué)目的與要求

1.掌握邏輯表達(dá)式的正確書寫形式。2.掌握單分支與多分支語句的使用。3.熟悉“選擇”結(jié)構(gòu)程序設(shè)計(jì)。

三、教學(xué)重點(diǎn)難點(diǎn)

邏輯表達(dá)式的正確書寫形式

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)4。

P 7

實(shí)驗(yàn)三 選擇結(jié)構(gòu)程序設(shè)計(jì)

1．求解一元二次方程的根。

2．稅務(wù)部門征收所得稅，規(guī)定如下：（1）收入在800元以內(nèi)，免征；

（2）收入在800~1000元以內(nèi)，超過200元的部分納稅5%；（3）收入在1000~2000元以內(nèi)，超過1000元的部分，納稅8%；（4）當(dāng)收入達(dá)到2000元或超過時(shí)，納稅10%； 編程實(shí)現(xiàn)上述操作。（1）編寫程序代碼：

（2）程序運(yùn)行

程序運(yùn)行后，單擊窗體，在輸入對(duì)話框中輸入收入數(shù)，程序?qū)⑤敵黾{稅金額。例如輸入1560，運(yùn)行情況如圖30所示。

P 8

圖30 納稅運(yùn)行情況

3．輸入x、y、z三個(gè)數(shù)，按從大到小的次序顯示。要求：對(duì)輸入數(shù)據(jù)應(yīng)有測(cè)試手段，可以通過IsNumeric函數(shù)對(duì)文本框中的數(shù)進(jìn)行測(cè)試。若輸入的數(shù)有非數(shù)字字符，顯示“不能轉(zhuǎn)換成數(shù)值”，提示再輸入。當(dāng)輸入的三個(gè)數(shù)全部都是數(shù)字字符后再轉(zhuǎn)換成數(shù)值型，然后進(jìn)行大小比較。

4．某市公用電話收費(fèi)標(biāo)準(zhǔn)如下：市話通話時(shí)間在3分鐘以下，收費(fèi)0.50元；3分鐘以上，則每超過1分鐘加收0.15元；在7:00-19:00之間通話者，按上述收費(fèi)標(biāo)準(zhǔn)全價(jià)收費(fèi)；在其他時(shí)間通話者一律接收費(fèi)標(biāo)準(zhǔn)的半價(jià)收費(fèi)。試計(jì)算某人在T時(shí)間通話S分鐘，應(yīng)繳多少電話費(fèi)。

5．設(shè)在窗體上已經(jīng)建立一個(gè)文本框Text1，兩個(gè)命令按鈕Commmand1和Command2，說明執(zhí)行以下語句后，各控件將顯示什么內(nèi)容？

Text1.Text = Command1.Caption Command1.Caption = Command2.Caption Command2.Caption = Text1.Text Text1.Text = Command1.Caption & Command2.Caption 6．下面程序段的輸出是什么？

（1）If(2 * 2 = 5)<(2 * 2 = 4)Then Print “True is greater then false.” Else Print “False is greater then true.” End If（2）a = 0 If a > = 7 Then a = 1 Print “Watch Out”, a End If（3）a = 0 If a > = 7 Then a = 1 End If Print “Watch Out”, a

P 9 教學(xué)后記：

實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

P 10

一、本次課主要內(nèi)容 1．計(jì)算階乘。

2．編程實(shí)現(xiàn)勾股定理中三個(gè)數(shù)的關(guān)系是a2＋b2 = c2。3．編程求完全數(shù)。

二、教學(xué)目的與要求

1.熟悉分支轉(zhuǎn)移結(jié)構(gòu)程序設(shè)計(jì)，靈活使用有關(guān)語句。2.熟悉循環(huán)結(jié)構(gòu)程序設(shè)計(jì)，靈活使用各種循環(huán)語句。3.能夠正確閱讀嵌套循環(huán)，及正確使用嵌套循環(huán)。

三、教學(xué)重點(diǎn)難點(diǎn)

循環(huán)結(jié)構(gòu)程序設(shè)計(jì)及相關(guān)語句的用法

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)5。

實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

P 11 1.計(jì)算階乘

2．勾股定理中三個(gè)數(shù)的關(guān)系是a2＋b2 = c2。編寫程序，輸出30以內(nèi)滿足上述關(guān)系的整數(shù)組合，例如3，4，5就是一個(gè)整數(shù)組合。

（1）編寫程序

（2）程序運(yùn)行后，單擊窗體，將輸出30以內(nèi)滿足關(guān)系的整數(shù)a，b，c的組合，同時(shí)顯示相應(yīng)的a*a，b*b，c*c，結(jié)果如圖36所示。

圖36

程序執(zhí)行結(jié)果

3．如果一個(gè)數(shù)的因子（不包括本身）之和等于這個(gè)數(shù)本身，則稱這樣的數(shù)為“完全數(shù)”。例如，整數(shù)28的因子為1，2，4，7，14，其和1＋2＋4＋7＋14 = 28，因此28是一個(gè)完全數(shù)。試編寫一個(gè)程序，從鍵盤上輸出正整數(shù)N和M，輸出N和M之間的所有完全數(shù)。

程序如下：

程序運(yùn)行后，單擊窗體，在兩個(gè)輸入對(duì)話框中分別輸入N 和M的值，即可輸出N和M之間的“完全數(shù)”。假定輸入的N和M的值分別為2和1000，則結(jié)果如圖37所示。

P 12

程序執(zhí)行結(jié)果

4．編程計(jì)算由下列公式確定的s值，其中n是用戶輸入的正整數(shù)，注意選用合適的變量類型。

（1）s = 12 + 22 + 32 + ? + n2（2）s = 11×22×33×?×nn（3）s = 1 + 1×2 + 1×2×3 + ? + 1×2×3×?×n 5．用While?Wend語句計(jì)算2n，請(qǐng)嘗試用不同形式的Do?Loop語句和For?Next語句重寫該程序。

教學(xué)后記：

實(shí)驗(yàn)五 VB的常用控件

一、本次課主要內(nèi)容

1．設(shè)置文本框Text1中內(nèi)容的字體、字型和顏色。

2．如果單擊“添加”按鈕，就將在文本框和組合框中輸入或選擇的內(nèi)容插入空格后連接成一個(gè)字符串添加到List1中；如果單擊“去除”按鈕，就將List1中選中的項(xiàng)刪除；如果單擊“清空”按鈕，就將List1中所有的項(xiàng)目全部刪除。

3．將定時(shí)器計(jì)時(shí)開始后度過的總秒數(shù)換算為時(shí)、分、秒(取2位小數(shù))顯示。4．將復(fù)選框的選中狀態(tài)（Value屬性值）轉(zhuǎn)換為邏輯值后賦值給圖片框的AutoSize屬性，決定圖片框是否自動(dòng)改變大小以顯示全部圖形；將復(fù)選框的選中狀態(tài)（Value屬性值）轉(zhuǎn)換為邏輯值后賦值給圖像框的Stretcch屬性，決定圖形是否自動(dòng)縮放以適應(yīng)圖像框大小。

二、教學(xué)目的與要求

1.掌握單選按鈕、復(fù)選框和框架的使用方法。2.掌握列表框控件和組合框控件的使用方法。3.掌握時(shí)鐘控件的使用方法。

4.掌握?qǐng)D片框控件和圖像框控件的使用方法。

三、教學(xué)重點(diǎn)難點(diǎn) 常用控件的使用方法

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)6。

P 13

P 14

實(shí)驗(yàn)五 VB的常用控件

1．設(shè)計(jì)界面（程序一到四）2．設(shè)置屬性 3．編寫程序代碼 4.調(diào)試運(yùn)行 第一題：

運(yùn)行結(jié)果：

第二題：

運(yùn)行結(jié)果：

P 15

第四題：

運(yùn)行結(jié)果：

5.利用時(shí)鐘控件和圖像控件編寫一個(gè)自動(dòng)紅綠燈模擬程序。要求在晚上21:00到早晨7:00全亮，其余時(shí)間紅、黃、綠燈自動(dòng)切換。

教學(xué)后記：

實(shí)驗(yàn)六 數(shù)組

一、本次課主要內(nèi)容

1.定義一個(gè)固定大小的一維數(shù)組，并為數(shù)組元素賦值，最后將數(shù)組元素輸出到窗體上。

P 16 2.請(qǐng)編寫程序，完成將一個(gè)6×8的矩陣分別按行和列的順序放到一維數(shù)組中。3.隨機(jī)產(chǎn)生10個(gè)數(shù)，按升序（降序）排列輸出

二、教學(xué)目的與要求 1.掌握數(shù)組的基本概念。2.掌握數(shù)組的聲明、應(yīng)用。3.掌握控件數(shù)組。

4.掌握如何利用數(shù)組解決與數(shù)組相關(guān)的常用算法（特別是排序算法）。

三、教學(xué)重點(diǎn)難點(diǎn)

利用數(shù)組解決與數(shù)組相關(guān)的常用算法

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)7。

實(shí)驗(yàn)六 數(shù)組

第一題：

P 17

Dim a(0 To 9)As Integer '定義一個(gè)大小為10的整形數(shù)組 '數(shù)組賦值命令按鈕事件過程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“請(qǐng)輸入數(shù)組元素” & i + 1 & “/” & “10”, “數(shù)組賦值”))Next i End Sub '顯示數(shù)組元素命令按鈕事件過程 Private Sub Command2_Click()For i = 0 To 9 Print a(i)Next i End Sub

第二題： Option Base 1 Dim a%(6, 8), b%(), c%()'定義一個(gè)二維數(shù)組(6x8)和兩個(gè)動(dòng)態(tài)數(shù)組 '將二維數(shù)組按行存儲(chǔ)到一維數(shù)組b中 Private Sub Command1_Click()k = 1 For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

b(k)= a(i, j): k = k + 1 Next j Next i Text2.Text = “" '將按行存放后的一維數(shù)組b的元素顯示到文本框中 For i = LBound(b)To UBound(b)Text2.Text = Text2.Text & Format(b(i), ”@@@@“)Next i End Sub '將二維數(shù)組按列存儲(chǔ)到一維數(shù)組c中 Private Sub Command2_Click()k = 1 For j = LBound(a, 2)To UBound(a, 2)For i = LBound(a, 1)To UBound(a, 1)c(k)= a(i, j): k = k + 1 Next i Next j Text3.Text = ”“ '將按列存放后的一維數(shù)組c的元素顯示到文本框中 For i = LBound(c)To UBound(c)Text3.Text = Text3.Text & Format(c(i), ”@@@@“)Next i End Sub '窗體載入事件過程 Private Sub Form_Load()Text1.Text = ”“: Text2.Text = ”“: Text3.Text = ”“ '二維數(shù)組初始化

For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

P 18

a(i, j)= Int(90 * Rnd)X)*(pz))End Sub Private Sub cmdJs_Click()Dim a!, b!, c!, w!a = Val(txtA.Text)b = Val(txtB.Text)c = Val(txtC.Text)If a > b + c Or b > a + c Or c > a + b Then MsgBox ”輸入的三條邊不能構(gòu)成一個(gè)三角形！" Else Call area(a, b, c, w)txtMj.Text = Str(w)End If End Sub 第二題：

P 23

Private Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer Dim r As Integer r = x Mod y Do While r <> 0 x = y y = r r = x Mod y Loop gcd = y End Function Private Sub Command1_Click()Dim a As Integer, b As Integer a = Val(Text1.Text): b = Val(Text2.Text)x = gcd(a, b)Text3.Text = x End Sub

第三題：

Private Function prime(x)As Boolean If x < 2 Then prime = False Exit Function

End If For i = 2 To Sqr(x)If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function

Private Sub Form_Click()For a = 200 To 1000-2 b = a + 2 If prime(a)And prime(b)Then Debug.Print a, b c = a + b End If Next Print c End Sub

教學(xué)后記：

P 24

P 25

實(shí)驗(yàn)八 等級(jí)考試專題及考查

一、本次課主要內(nèi)容

進(jìn)行一次等級(jí)考試的模擬測(cè)試。

二、教學(xué)目的與要求

1.熟悉等級(jí)考試中程序題的答題過程。

2.掌握利用VB內(nèi)部函數(shù)、表達(dá)式、控制結(jié)構(gòu)等知識(shí)進(jìn)行較復(fù)雜的編程。

三、教學(xué)重點(diǎn)難點(diǎn) 等級(jí)考試的復(fù)雜題型

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.認(rèn)真完成和按時(shí)提交考查任務(wù)；

2.自行復(fù)習(xí)，準(zhǔn)備下學(xué)期初的國(guó)二VB考試。

實(shí)驗(yàn)八 等級(jí)考試專題及考查

P 26 1．登陸等級(jí)考試系統(tǒng)，選做VB的基礎(chǔ)知識(shí)和程序題（包括程序改錯(cuò)，程序填空、程序設(shè)計(jì)）

2.每個(gè)同學(xué)都把自己等級(jí)考試中隨機(jī)抽到的題目抄寫下來，互相傳閱，最后把不同類型的題目做個(gè)歸納總結(jié)。

教學(xué)后記：

第三篇：vb教案2

第三章 輸出

print(?)方法： 窗體.方法

Form1.Print 12 Print 23 a = 10 Print a + 20, 30, Sin(a)Print a + 20;30;Sin(a)xm = “李四” Print xm & “成績(jī)是:” & a 如果一個(gè)連接內(nèi)有非字符串型內(nèi)容，使用&強(qiáng)制轉(zhuǎn)換 2 與Print相關(guān)函數(shù)

Tab(n)

'Dim a, b, c As Integer 'a,b為變體

Dim a As Integer, b As Integer, c As Integer a = 12: b = 24: c = 34 '多句書寫一行上，用:隔開 Print Tab(2);a;Tab(10);b;Tab(10);c 指定在第n列位置開始輸出數(shù)據(jù),輸出完成后光標(biāo)在最后一個(gè)數(shù)據(jù)的右邊.如果下一個(gè)tab(n)的列數(shù)<=當(dāng)前光標(biāo)的列數(shù)，則自動(dòng)提行.數(shù)據(jù)后如跟;,，則表示下一個(gè)數(shù)據(jù)是接著上一數(shù)據(jù)右邊輸出 Print “ab” + Space(5)+ “cd” Print “ab”;Spc(5);“cd”;Spc(5);“ef” Print “ab”;Tab(8);“cd”;Tab(15);“ef” cls方法 Picture1.Cls Form1.Cls

cls

3.2 數(shù)據(jù)輸入inputbox()x = InputBox(“請(qǐng)輸入一個(gè)數(shù):”)'輸入的是字符串 Print Val(x)^ 2 'val(x)把數(shù)字式的串轉(zhuǎn)換成數(shù)值型 Print x ^ 2 注：default:設(shè)置默認(rèn)（缺省）參數(shù)值

x = InputBox(“請(qǐng)輸入一個(gè)數(shù):”, “提示！”, 1)'輸入的是字符串

3.3 msgbox()函數(shù)，命令 函數(shù)：

Msgbox(“信息”,[類型],”標(biāo)題”)

t = MsgBox(“你弄錯(cuò)了”, , “警告”)

Private Sub Command3_Click()t = MsgBox(“你弄錯(cuò)了”, 3 + 256, “警告”)End Sub

不加括號(hào)，成了命令

MsgBox “你弄錯(cuò)了”, 3 + 256, “警告”

注：msgbox()會(huì)根據(jù)用戶點(diǎn)擊的按鈕來返回一個(gè)值,如點(diǎn)了“是(Y)”按鈕，則返回的是6，根據(jù)這個(gè)值來繼續(xù)編程控制程序的運(yùn)行.M$=”abdcd”

等效于如下：

Dim m as string M=”abdcd”

作業(yè)上交: pzyy14@126.com

規(guī)范：20100900001張三第一次.rar

第4章

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

4．1 賦值語句,是一個(gè)動(dòng)作命令,”=”叫賦值操作，不是等號(hào)

Let 變量名=表達(dá)式

變量名=表達(dá)式

賦值是自右向左運(yùn)算

Label1.Caption = “計(jì)算機(jī)學(xué)習(xí)” Label1.FontSize = 22 Label1.AutoSize = True Label1.ForeColor = RGB(255, 1, 1)X=x+1

4.2 條件語句 1 分支結(jié)構(gòu) If <條件> then

<語句塊>

[ else

<語句塊> ] End if 例：輸入一個(gè)數(shù),判斷是負(fù)還是非負(fù) n = Val(InputBox(“請(qǐng)輸入一個(gè)數(shù):”))If n < 0 Then

Print “負(fù)數(shù)” Else

Print “非負(fù)數(shù)” End If If n < 0 Then Print “負(fù)數(shù)” Else Print “非負(fù)數(shù)” 例: 輸入一個(gè)數(shù),判斷是負(fù)還是0,還是正 n = Val(InputBox(“請(qǐng)輸入一個(gè)數(shù):”))If n < 0 Then

Print “負(fù)數(shù)” Else

If n = 0 Then

Print “0”

Else

Print “正數(shù)”

End If End If

第四篇：VB優(yōu)質(zhì)課教案

《VB》公開課教案

(2010-04-05 20:20:16)轉(zhuǎn)載▼ 標(biāo)簽：

教育

時(shí)間：第十三周星期四第三節(jié)課

授課人：朱國(guó)營(yíng) 地點(diǎn)：電腦實(shí)驗(yàn)1室 班級(jí)：09計(jì)1 課題：第五章第三節(jié)——Circle（畫圓）方法

教學(xué)目的：通過簡(jiǎn)要說明畫圓方法的格式，并通過完成練習(xí)使學(xué)生進(jìn)一步掌握Circle方法的操作要點(diǎn)，以利于日后編制美觀的程序界面。課時(shí)分配：1課時(shí)

教學(xué)方法：“任務(wù)驅(qū)動(dòng)”教學(xué)法 教學(xué)難點(diǎn)：圓心的定位 教學(xué)手段：多媒體課件 教學(xué)過程：

一、復(fù)習(xí)提問，引入新課

通過復(fù)習(xí)畫線（Line）方法鞏固直線和矩形的繪制，并引入新課。

二、講授新課

（一）、讀書引導(dǎo)，提出任務(wù)：簡(jiǎn)要說明畫圓方法的格式，并通過完成練習(xí)使學(xué)生進(jìn)一步掌握Circle方法，使學(xué)生學(xué)會(huì)畫圓。

首先分配5分鐘時(shí)間讓學(xué)生閱讀本節(jié)課的內(nèi)容，然后簡(jiǎn)要說明畫圓方法的格式及注意事項(xiàng)，必要時(shí)通過例題來說明格式中各項(xiàng)參數(shù)的正確使用，同時(shí)提出本節(jié)課要完成的任務(wù)。

格式：[對(duì)象.]Circle [step](x, y),半徑 [, 顏色] 說明：

圓心坐標(biāo)設(shè)置有兩種方法：

1、省略step，就以（x,y）絕對(duì)坐標(biāo)為圓心。

2、用step是以上一個(gè)繪圖語句的坐標(biāo)為參考點(diǎn)，再加上此step的（x,y）值成為圓心的位置。舉例說明：

Private Sub Picture1_Click()Picture1.Circle(300, 300), 200, vbred Picture1.Circle Step(400, 400), 400, vbgreen Picture1.CurrentX = 2000: Picture1.CurrentY = 1000 Picture1.Circle Step(200,-300), 400 Picture1.Circle(2200, 700), 600, vbblue End Sub

（二）、難點(diǎn)分析

練習(xí)中的難點(diǎn)是如何定置圓的圓心，同時(shí)要注意顏色參數(shù)的變化。

（三）、學(xué)生完成任務(wù)：

（1）、在窗口中央畫一個(gè)半徑為1000的紅色圓。（2）、繪制“彩色同心圓”

（3）、思考題：利用前面知識(shí)，改變同心圓的線寬。

（完成任務(wù)即完成練習(xí)，使學(xué)生在循序漸進(jìn)的練習(xí)中掌握知識(shí)。）

（四）、通過檢查學(xué)生完成練習(xí)的情況，既了解教學(xué)效果，也具有針對(duì)性地分析題目，提高教學(xué)效率。

三、課堂總結(jié)

本節(jié)課主要學(xué)習(xí)用Circle方法畫圓，畫圓的關(guān)鍵是要定好圓心的位置和顏色參數(shù)任選，線寬可用“Drawwidth”屬性值設(shè)置。

四、提高作業(yè)

1、繪制“風(fēng)車”

2、繪制“氣泡”

第五篇：vb語言編程教案

課

題：vb語言編程概述 課 時(shí):2課時(shí) 授課時(shí)間：2011.09.05 課堂類型：講授

教學(xué)目的：1.熟悉VB界面和VB集成開發(fā)環(huán)境；

2.在實(shí)際操作中學(xué)會(huì)編簡(jiǎn)單的VB應(yīng)用程序；

教學(xué)要求：1.掌握VB基礎(chǔ)知識(shí)。

2.會(huì)編簡(jiǎn)單的VB應(yīng)用程序。

教學(xué)重點(diǎn)：1.熟悉VB集成開發(fā)環(huán)境

2.編寫簡(jiǎn)單VB應(yīng)用程序。

教學(xué)難點(diǎn)：在熟悉VB界面的同時(shí)學(xué)習(xí)編寫簡(jiǎn)單VB應(yīng)用程序 教學(xué)方法：講授 教學(xué)過程：

一、VB簡(jiǎn)介

BASIC是英文Beginner’s All-purpose Symbolic Instruction Code（初學(xué)者通用符號(hào)指令代碼）的縮寫，它是專門為初學(xué)者設(shè)計(jì)的高級(jí)語言。Visual Basic是Microsoft公司于1991年推出的基于窗口的可視化程序設(shè)計(jì)語言。

a．“Visual”是“可視化的”、“形象化的”的意思。b.因此Visual Basic也具有易學(xué)易用的特點(diǎn)

c.目前Visual Basic的最新版本是Visual Basic 6.0（簡(jiǎn)稱VB 6.0）

二、啟動(dòng)VB

1、首先顯示“新建工程”對(duì)話框

直接單擊“打開”按鈕，創(chuàng)建“標(biāo)準(zhǔn)EXE”類型應(yīng)用程序，進(jìn)入集成開發(fā)環(huán)境主界面。

2、集成開發(fā)環(huán)境中的各元素 1）標(biāo)題欄：用來顯示窗口的標(biāo)題。2）菜單欄 3）工具欄 4）工具箱 5）窗體窗口 6）工程窗口 7）屬性窗口 8）窗體布局窗口

三、通過一個(gè)簡(jiǎn)單的應(yīng)用程序快速入門

【例1.1（實(shí)訓(xùn)1，p16）】制作一個(gè)的一個(gè)簡(jiǎn)單的應(yīng)用程序的運(yùn)行界面。它由一個(gè)窗體、一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕組成。當(dāng)用戶單擊命令按鈕“顯示”時(shí)，文本框中出現(xiàn)“教你學(xué)VB”。1．新建工程 2．添加文本框Text1 3．添加命令按鈕Command1 4．添加標(biāo)簽Label1 5．設(shè)置屬性 6．編寫事件過程代碼

前面的工作把應(yīng)用程序的界面設(shè)計(jì)好了，屬性也設(shè)置完畢。但現(xiàn)在應(yīng)用程序并不能實(shí)現(xiàn)實(shí)際的功能。為了使它具有一定的功能，還必須為對(duì)象編寫實(shí)現(xiàn)某一功能的事件過程代碼。1）雙擊窗體上的“顯示”按鈕，屏幕上出現(xiàn)代碼窗口，程序代碼就在這里編寫。編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = “歡迎使用VB” End Sub 2）運(yùn)行應(yīng)用程序 3）保存應(yīng)用程序

VB應(yīng)用程序至少有兩種文件需要保存： · 窗體文件（.frm）· 工程文件（.vbp）4）生成EXE文件

四、總結(jié)步驟

設(shè)計(jì)VB應(yīng)用程序主要有以下4個(gè)步驟：（1）設(shè)計(jì)用戶界面。（2）設(shè)置屬性。（3）編寫代碼。（4）保存和運(yùn)行調(diào)試程序，生成EXE文件。

五、知識(shí)延伸

1、只有一個(gè)文本框的實(shí)例 編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = “教你學(xué)VB“ End Sub

2、多個(gè)文本框時(shí) 編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = ”教你學(xué)VB“ Text2.Text = “歡迎使用VB“ End Sub

3、按照系統(tǒng)的元件特性分類(分別舉例說明)課后實(shí)訓(xùn)1 第二個(gè)命令按鈕：清除 第三個(gè)命令按鈕：退出 步驟：

1.添加2個(gè)命令按鈕 2.雙擊按鈕，進(jìn)入編程狀態(tài) 3.和顯示按鈕命令編程相似 編寫如下事件過程： Private Sub Command2_Click（）Text1.Text = ” “ End Sub Private Sub Command3_Click（）End End Sub

4、圖片的加載方法

Private Sub Form_Load()Image1.Picture = LoadPicture(App.Path + “1.BMP”)End Sub

六、小結(jié) 1.熟悉界面。

2.掌握完整編程過程以及運(yùn)行及調(diào)試程序的過程。