第一篇：VB教案-組合框的使用

VB6.0----結(jié)構(gòu)化程序設(shè)計

[14-2] 組合框的使用

【教學(xué)目標(biāo)】

1.了解組合框的組成及其主要屬性 2.掌握組合框添加刪除項目的方法

3.掌握通過改變組合框選項來改變文本框字體屬性的方法 【教學(xué)重點】

1.在組合框添加刪除項目的2種方法

2.組合框的Click事件用法

3.字體各種屬性的回顧 【教學(xué)難點】

根據(jù)組合框的選項來更換字體顏色 【教學(xué)手段】

情境教學(xué)法、任務(wù)驅(qū)動法、演示法、討論法 【教學(xué)過程】

一、引入

讓學(xué)生看已經(jīng)編好的程序，激發(fā)學(xué)生興趣，并引出VB的編程游戲。再讓學(xué)生上來操作，進入創(chuàng)設(shè)的情境中，提高學(xué)生的注意力。

[激發(fā)學(xué)生的學(xué)習(xí)興趣，讓學(xué)生參與課堂中來]

二、正課

1.建立如下圖所示界面.能根據(jù)組合框選擇的字體和字體大小來改變文本框中的文字屬性.Page 1

VB6.0----結(jié)構(gòu)化程序設(shè)計

Private Sub Combo1_Click()Text1.FontName = Combo1.Text End Sub

Private Sub Combo2_Click()Text1.FontSize = Combo2.Text End Sub

2.建立如下圖所示界面,要求文本框中的字體屬性能根據(jù)組合框選項的變化而變化.要求B,I,U這些按鈕按下去之后文本框中字體變?yōu)榇煮w或斜體或下劃線 要求能根據(jù)字體顏色”紅色””綠色”等改變文本框字體的顏色

Private Sub Combo1_Click()Text1.FontName = Combo1.Text End Sub

Private Sub Combo2_Click()Text1.FontSize = Combo2.Text End Sub

Private Sub Combo3_Click()If Combo3.Text = “紅色” Then Text1.ForeColor = vbRed

Page 2

VB6.0----結(jié)構(gòu)化程序設(shè)計

End If If Combo3.Text = “綠色” Then Text1.ForeColor = vbGreen End If If Combo3.Text = “藍色” Then Text1.ForeColor = vbBlue End If End Sub

Private Sub Command1_Click()Text1.FontUnderline = Not Text1.FontUnderline End Sub

Private Sub Command2_Click()Text1.FontBold = Not Text1.FontBold End Sub

Private Sub Command3_Click()Text1.FontItalic = Not Text1.FontItalic End Sub

Private Sub Command4_Click()End End Sub

三、總結(jié).為理清這節(jié)課所學(xué)的知識結(jié)構(gòu)，教師進行引導(dǎo)，讓學(xué)生自己歸納總結(jié)，完成課堂小結(jié)部分。

四、課堂作業(yè)

B, I ,U這些按鈕, 如何做到當(dāng)文本框字體已經(jīng)為粗體或斜體或下劃線格式時按下他們, 字體恢復(fù)正常.Page 3

第二篇：警械使用技術(shù)——警棍組合技術(shù)教案

教學(xué)訓(xùn)練法比武教案

課 目：警棍組合技術(shù)

教 官：陶毅

學(xué) 時：兩課時

學(xué) 材：公安民警警械武器使用訓(xùn)練教材

代表隊：**維吾爾自治區(qū)

警棍組合技術(shù)教案

Ⅰ教學(xué)提要

? 教學(xué)對象：（45名初任民警）1、45名學(xué)員，40男5女，少數(shù)民族比例占30%，均為大專以上文化程度，理解能力強，年齡在2328歲，無重大疾病影響訓(xùn)練。

2、通過前期訓(xùn)練，學(xué)員學(xué)習(xí)警務(wù)實戰(zhàn)技能的愿望很強烈，基本掌握警棍的基礎(chǔ)操作。還缺乏程序意識和安全意識，無法將所學(xué)的警棍技術(shù)運用于實戰(zhàn)中。

? 教學(xué)目標(biāo)：

1、掌握警棍組合技術(shù)動作要領(lǐng)

2、把握擊打時機、擊打部位

3、掌握警棍組合技術(shù)在四種情況下的運用

? 教學(xué)內(nèi)容：

1、移動劈擊組合2、攻擊對方手臂組合3、攻擊對方大腿組合4、結(jié)合徒手組合? 教學(xué)要求：

學(xué)員：

1、嚴(yán)格遵守訓(xùn)練場紀(jì)律，令行禁止。

2、認(rèn)真聽講，仔細看示范，刻苦訓(xùn)練，相互探討，共同提高。

3、愛護器材，注意訓(xùn)練安全，訓(xùn)練力量適當(dāng)，防止事故發(fā)生。

教官：

1、做好課前備課，器材保障。

2、提前到達布置場地，做好上課前的準(zhǔn)備工作。

3、及時發(fā)現(xiàn)訓(xùn)練中存在的問題，及時引導(dǎo)、糾正，應(yīng)急措施得當(dāng)。

4、做好應(yīng)急準(zhǔn)備預(yù)案。

? 教學(xué)分工：

主講教官1名：負責(zé)教案編寫，課堂的組織教學(xué)。

輔助教官1名：負責(zé)場地布置，器材保障，帶領(lǐng)學(xué)員課前準(zhǔn)備活動、配合示范、情況顯示、訓(xùn)練糾錯、輔助主講教官的教學(xué)。

? 教學(xué)重點：

1、警棍組合動作要領(lǐng)

2、擊打時機的掌握

3、擊打部位的準(zhǔn)確性 ? 教學(xué)難點：

1、根據(jù)實際情況選擇適合的警棍組合技術(shù)

2、警棍擊打的時機掌握 ? 教學(xué)方法：

理論提示、講解示范、分組訓(xùn)練、檢查糾錯、小結(jié)講評 ? 教時安排： 兩課時（90分鐘）

一、課前準(zhǔn)備（12分鐘）

（一）宣布教學(xué)提要（2分鐘）

（二）熱身活動（10分鐘）

二、教學(xué)實施（68分鐘）

（一）理論提示（2分鐘）

（二）組織訓(xùn)練（66分鐘）

1、復(fù)習(xí)移動劈擊組合（6分鐘）

2、攻擊對方手臂組合（15分鐘）

3、攻擊對方大腿組合（15分鐘）

4、結(jié)合徒手技術(shù)（30分鐘）

5、訓(xùn)練后集中糾錯、驗收（課中進行）

三、教終小結(jié)（10分鐘）? 場地器材： 綜合訓(xùn)練館

教具及訓(xùn)練器材：

名稱

數(shù)量

單位

教具準(zhǔn)備

單警裝備

人數(shù)

套

教官、學(xué)員配帶

棍棒

人數(shù)

支

教官課前準(zhǔn)備

腳靶

人數(shù)

個

教官課前準(zhǔn)備

海綿棍

人數(shù)

支

教官課前準(zhǔn)備

防暴服

人數(shù)

套

教官、學(xué)員準(zhǔn)備

急救包

套

教官課前準(zhǔn)備

Ⅱ教學(xué)進程

? 準(zhǔn)備部分（12分鐘）

（1）教官組織清點人數(shù)，整理服裝、檢查器材。（2）宣布教學(xué)提要：（2分鐘）

宣布本節(jié)課的授課內(nèi)容、目的、重點、訓(xùn)練的步驟和方法，時間的安排及要求。各位學(xué)員大家好，今天由我和輔助教官XXX在此利用90分鐘的時間，與大家繼續(xù)學(xué)習(xí)警棍組合技術(shù)，旨在通過課前復(fù)習(xí)、理論提示、講解示范、分組訓(xùn)練、檢查糾錯、小結(jié)講評的方法，使大家掌握警棍組合技術(shù)動作要領(lǐng)、把握擊打時機、擊打部位、掌握警棍組合技術(shù)在四種情況下的運用。訓(xùn)練中希望大家

1、嚴(yán)格遵守訓(xùn)練場紀(jì)律，令行禁止；

2、認(rèn)真聽講，仔細看示范，刻苦訓(xùn)練，相互探討，共同提高；

3、愛護器材，注意訓(xùn)練安全，防止事故發(fā)生。

（3）進行身體準(zhǔn)備活動（10分鐘）

輔助教官帶領(lǐng)學(xué)員做熱身活動

1、慢跑：800m

2、徒手操：4×8拍（肩、肘、腰、膝關(guān)節(jié)重點活動）

3、游戲熱身法：兩列對面站立，教官左手為1，右手為2，根據(jù)口令（口令11組追2組）進行10米追擊。熟練后，做算術(shù)口令追擊練習(xí)。

? 教學(xué)實施（68分鐘）

1、理論提示（2分鐘）

在上節(jié)課中，我們學(xué)習(xí)了警棍組合技術(shù)中的移動劈擊組合動作，大家基本掌握動作要領(lǐng)。今天我們進行警棍組合技術(shù)后三個科目的學(xué)習(xí)，為了更好的服務(wù)本節(jié)課，我們首先對上節(jié)課的移動劈擊進行復(fù)習(xí)，使大家更嫻熟的使用警棍移動劈擊技術(shù)。

2、組織訓(xùn)練（66分鐘）

（一）課前復(fù)習(xí)（6分鐘）

訓(xùn)練隊形：

△ △ △ △

★ ☆

▽ ▽ ▽ ▽

圖一 △學(xué)員 ★主教 ☆輔教

訓(xùn)練步驟：

1、對移動劈擊技術(shù)進行流水作業(yè)，了解學(xué)員前期訓(xùn)練水平。

上步上劈擊練習(xí)（正反手空擊）：集體練習(xí)。學(xué)員呈兩列橫隊站立，保持安全距離，出棍，呈肩上戒備勢，根據(jù)口令做動作。1上步，2上劈擊，3撤步，4戒備，在擊打時，注意警棍擊打的定位，擊打到一定位置，定住。

上步下劈擊練習(xí)（正反手空擊）：持棍戒備步伐移動集體練習(xí)，根據(jù)口令做動作。1上步，2下劈擊，3撤步，4戒備

2、集體連貫練習(xí)。

練習(xí)組數(shù)：操配手互換為一組，3組。

教官：通過對上步劈擊動作的復(fù)習(xí)，目的在于使大家熟練掌握移動劈擊動作要領(lǐng)，能夠保持身體重心、擊打動作規(guī)范、擊打定位準(zhǔn)確，下面我們開始學(xué)習(xí)今天課程。

（二）攻擊對方手臂組合（15分鐘）

訓(xùn)練隊形：（教官講解示范時學(xué)員面向教官，練習(xí)時學(xué)員面對面）

★ ☆

▽ ▽ ▽ ▽

△ △ △ △

圖二 △學(xué)員 ★主教 ☆輔教

講解示范：對抗?fàn)顟B(tài)下，民警對犯罪嫌疑人進行戒備、警告、出棍警告；對方揮拳攻擊時（或持械攻擊），民警應(yīng)該結(jié)合步伐移動（縱向或橫向），以身體帶動警棍劈擊對方攻擊手臂的內(nèi)側(cè)或外側(cè)。

訓(xùn)練步驟：

1、上步上劈擊對方手臂練習(xí)（正反手擊靶）：兩人一組，操手持警棍肩上戒備，配手持腳靶固定手臂攻擊動作，操手根據(jù)口令做動作。1警告2上步，3上劈擊，4撤步，5戒備

2、移動上劈擊對方手臂練習(xí)（正反手擊靶）：兩人一組，操手持警棍肩上戒備，配手持腳靶，操配手保持移動狀態(tài)，由配手用腳靶隨機做手臂攻擊配合動作，操手進行擊打練習(xí)

3、針對學(xué)員存在的個別問題，進行個別糾正；存在的普遍問題，集中進行點評、糾正，后進行訓(xùn)練。

訓(xùn)練組數(shù)：各5組。

易產(chǎn)生的問題：距離控制不當(dāng)、擊打部位不準(zhǔn)確

糾正方法：加強步伐移動及擊打練習(xí)

（三）攻擊對方大腿的組合（15分鐘）

訓(xùn)練隊形：（教官講解示范時學(xué)員面向教官，練習(xí)時學(xué)員面對面）

★ ☆

▽ ▽ ▽ ▽

△ △ △ △

圖三 △學(xué)員 ★主教 ☆輔教

講解示范：對抗?fàn)顟B(tài)下，民警對犯罪嫌疑人進行戒備、警告、出棍警告；對方揮拳攻擊時（或持械攻擊），民警使用警棍上步劈擊對方大腿，然后后撤或側(cè)閃，戒備、警告。

訓(xùn)練步驟：

1、上步下劈擊練習(xí)（正反手擊靶）：兩人一組，操手持警棍肩上戒備，配手持腳靶固定于大腿部位，操手根據(jù)口令做動作。1警告2上步，3下劈擊，4撤步，5戒備

2、移動下劈擊練習(xí)（正反手擊靶）：兩人一組，操手持警棍肩上戒備，配手持腳靶，操配手保持移動狀態(tài)，由配手用腳靶隨機做下劈擊配合動作，操手進行擊打練習(xí)

3、針對學(xué)員存在的個別問題，進行個別糾正；存在的普遍問題，集中進行點評、糾正，后進行訓(xùn)練。

練習(xí)組數(shù)：各5組。

易產(chǎn)生的問題：距離控制不當(dāng)、擊打部位不準(zhǔn)確

糾正方法：加強步伐移動及擊打練習(xí)

教官：通過對攻擊手臂、大腿的練習(xí)，能夠靈活運用步伐，保持身體重心、擊打有效部位，達到制止違法犯罪的目的。實戰(zhàn)中，我們是在受到嫌疑人攻擊后，進行反擊，下面我們利用場景模擬的方法，進入下一內(nèi)容的學(xué)習(xí)。

（四）結(jié)合徒手技術(shù)（30分鐘）

情景導(dǎo)入隊形：（教官講解示范時學(xué)員面向教官，練習(xí)時學(xué)員面對面）

▽ ▽ ▽ ▽

△

☆

★

△ △ △

圖四 △學(xué)員 ★主教 ☆輔教

模擬雙警（主教及一名學(xué)員）巡邏過程中，發(fā)現(xiàn)在某街道一人（輔教，著防暴服）尋釁滋事隨意毆打他人，警察上前通過語言制止，嫌疑人（輔教）不聽勸阻，行為過激，上前撕扯民警，民警迅速將其推開，嫌疑人惱羞成怒，隨手拾起棍棒欲襲擊民警，民警發(fā)出使用警棍警告并開棍戒備。嫌疑人使用棍棒從斜上方擊打民警，民警使用警棍（海綿警棍）截擊擊打嫌疑人橈正中神經(jīng)點，嫌疑人丟下木棍，跪地服從命令。民警持棍肩上戒備觀察。

通過情景導(dǎo)入，用提問式展開內(nèi)容：在剛才的模擬情景中，民警使用了何種警棍組合？結(jié)合徒手技術(shù) 講解示范：民警面對對方的襲擊，應(yīng)迅速推開對方，拉開保持安全距離。使用語言警告，同時，取出警棍，快速移動位置，在對方攻擊時使用警棍向下劈擊，擊打?qū)Ψ酱笸韧鈧?cè)，然后拉開距離，肩上戒備觀察。

訓(xùn)練隊形：（教官講解示范時學(xué)員面向教官，練習(xí)時學(xué)員面對面）

▽ ▽ ▽ ▽

★ ☆

△ △ △ △

圖五 △學(xué)員 ★主教 ☆輔教

訓(xùn)練步驟：

1、程序、動作分解練習(xí)：兩人一組，呈操配手練習(xí)，操配手根據(jù)口令做動作。1配手靠近操手揮拳欲打，2操手使用推掌將配手推開保持距離，3配手持棍棒襲擊操手，4操手開棍警告，5操手使用警棍擊打，6拉開距離戒備觀察

2、程序、動作連貫練習(xí)。

3、針對學(xué)員存在的個別問題，進行個別糾正；存在的普遍問題，集中進行點評、糾正，后進行訓(xùn)練。

組數(shù)：各5組。

（五）綜合練習(xí)

兩人一組，擊打防暴服對抗練習(xí)。操手持海綿警棍，配手充當(dāng)嫌疑人，采用徒手的方式攻擊操手，操手使用海綿警棍擊打配手手臂、大腿，配手被擊打后模擬受擊打動作。

練習(xí)組數(shù)：兩人各擊打一分鐘為一組，5組，易產(chǎn)生的問題：推掌迅速、拉開距離、擊打時機

糾正方法：保持心理戒備，集中注意力，控制步伐移動，勤加練習(xí)

四、教終小結(jié)：（10分鐘）

（一）、本次課學(xué)習(xí)了警棍組合技術(shù)中的移動劈擊組合、攻擊對方手臂組合、攻擊對方大腿組合技術(shù)、結(jié)合徒手組合，從理論教學(xué)到分組訓(xùn)練，最后進行綜合訓(xùn)練，大家能夠掌握動作要領(lǐng)，熟練使用警棍組合運用。但是突發(fā)情況處置是訓(xùn)練難點，需要大家下去勤加練習(xí)。

（二）、教學(xué)中大家學(xué)習(xí)態(tài)度端正，刻苦訓(xùn)練，掌握了教官所教授的警棍組合技術(shù)，達到預(yù)期的目標(biāo)。警務(wù)工作，復(fù)雜多變，還需要大家靈活應(yīng)變，課后需要大家積極思考，并進行總結(jié)。

（三）、存在的不足：

1、腳下步伐移動不夠靈活，協(xié)調(diào)性差，導(dǎo)致重心不穩(wěn)；

2、不能及時抓住反擊時機，導(dǎo)致措施良機，反擊被動；

3、擊打部位不準(zhǔn)確。

（四）、對本節(jié)課，大家有什么問題？下節(jié)課我們學(xué)習(xí)武器的使用，請大家下去預(yù)習(xí)。

（五）、檢查裝備、器材，清點人數(shù)，學(xué)員帶離訓(xùn)練場。

Ⅲ教學(xué)總結(jié)

·教學(xué)任務(wù)的完成通過90分鐘的訓(xùn)練，采用理論提示、講解示范、分組訓(xùn)練、檢查驗收、小結(jié)講評等方法，使全體學(xué)員基本掌握了警棍組合技術(shù)的動作要領(lǐng)、方法、步驟和三種運用情況。通過引導(dǎo)使學(xué)員積極思考，認(rèn)真訓(xùn)練，共同完成了教學(xué)任務(wù)。存在的問題：個別學(xué)員的協(xié)調(diào)性較差，對動作要領(lǐng)的掌握較慢，需要進行單獨輔導(dǎo)；學(xué)員對警棍組合技術(shù)的步驟及時機把握不準(zhǔn)，還需要在后面的課程中進一步加強。

·教學(xué)過程的把握

在教學(xué)過程中，能按照教學(xué)計劃結(jié)合教案完整的進行授課訓(xùn)練，引導(dǎo)學(xué)員積極參加訓(xùn)練，快速提高。存在的問題：在練習(xí)環(huán)節(jié)中，個人體會階段，教學(xué)紀(jì)律有些散亂。在綜合訓(xùn)練過程中，學(xué)員情緒過于興奮，導(dǎo)致教學(xué)秩序混亂，導(dǎo)致學(xué)員的注意力分散，需要教官引導(dǎo)。

·教學(xué)的其它情況

個別學(xué)員對教具不愛護，造成教具損壞。

在訓(xùn)練中，要注意對學(xué)員的保護，避免訓(xùn)練中受傷。聽取學(xué)員意見，下節(jié)課解答問題。

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

《VB》公開課教案

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

教育

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

授課人：朱國營 地點：電腦實驗1室 班級：09計1 課題：第五章第三節(jié)——Circle（畫圓）方法

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

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

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

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

二、講授新課

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

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

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

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

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

2、用step是以上一個繪圖語句的坐標(biāo)為參考點，再加上此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

（二）、難點分析

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

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

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

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

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

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

三、課堂總結(jié)

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

四、提高作業(yè)

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

2、繪制“氣泡”

第四篇：vb實驗教案 -

實驗一 VB集成開發(fā)環(huán)境和簡單程序設(shè)計

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

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

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

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

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

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

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

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

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

四、教學(xué)方法和手段 實驗室機房電腦上機

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

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

實驗一 VB集成開發(fā)環(huán)境和簡單程序設(shè)計

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

2． 如何使各窗口顯示或不顯示？ 3． 如何對工具箱添加選項卡？

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

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

6、參考實驗教材“實驗一”和“實驗二”的實驗過程編寫程序。

P 2

教學(xué)后記：

實驗二 順序結(jié)構(gòu)程序設(shè)計

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

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

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

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

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

三、教學(xué)重點難點

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

四、教學(xué)方法和手段 實驗室機房電腦上機

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

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

P 3

實驗二 順序結(jié)構(gòu)程序設(shè)計

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

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

圖6

除法運算符實驗（界面設(shè)計）

（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或單擊工具欄上的“啟動”按鈕運行程序，在第一個文本框中輸入被除數(shù)，在第二個文本框中輸入除數(shù)，然后單擊命令按鈕，即可得到三種不同的相除結(jié)

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

P 5

圖7

除法運算符試驗（運行情況）

2．先用手工計算下列表達式的值，然后在立即窗口中試驗這些表達式的輸出結(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 求下列表達式的值：

(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 要求：先手工計算，再上機驗證。

教學(xué)后記：

P 6

實驗三 選擇結(jié)構(gòu)程序設(shè)計

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

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

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

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

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

三、教學(xué)重點難點

邏輯表達式的正確書寫形式

四、教學(xué)方法和手段 實驗室機房電腦上機

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

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

P 7

實驗三 選擇結(jié)構(gòu)程序設(shè)計

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)收入達到2000元或超過時，納稅10%； 編程實現(xiàn)上述操作。（1）編寫程序代碼：

（2）程序運行

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

P 8

圖30 納稅運行情況

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

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

5．設(shè)在窗體上已經(jīng)建立一個文本框Text1，兩個命令按鈕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é)后記：

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

P 10

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

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

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

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

三、教學(xué)重點難點

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

四、教學(xué)方法和手段 實驗室機房電腦上機

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

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

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

P 11 1.計算階乘

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

（1）編寫程序

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

圖36

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

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

程序如下：

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

P 12

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

4．編程計算由下列公式確定的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語句計算2n，請嘗試用不同形式的Do?Loop語句和For?Next語句重寫該程序。

教學(xué)后記：

實驗五 VB的常用控件

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

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

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

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

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

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

4.掌握圖片框控件和圖像框控件的使用方法。

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

四、教學(xué)方法和手段 實驗室機房電腦上機

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

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

P 13

P 14

實驗五 VB的常用控件

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

運行結(jié)果：

第二題：

運行結(jié)果：

P 15

第四題：

運行結(jié)果：

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

教學(xué)后記：

實驗六 數(shù)組

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

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

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

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

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

三、教學(xué)重點難點

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

四、教學(xué)方法和手段 實驗室機房電腦上機

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

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

實驗六 數(shù)組

第一題：

P 17

Dim a(0 To 9)As Integer '定義一個大小為10的整形數(shù)組 '數(shù)組賦值命令按鈕事件過程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“請輸入數(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%()'定義一個二維數(shù)組(6x8)和兩個動態(tài)數(shù)組 '將二維數(shù)組按行存儲到一維數(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ù)組按列存儲到一維數(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)成一個三角形！" 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

實驗八 等級考試專題及考查

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

進行一次等級考試的模擬測試。

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

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

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

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

四、教學(xué)方法和手段 實驗室機房電腦上機

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

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

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

實驗八 等級考試專題及考查

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

2.每個同學(xué)都把自己等級考試中隨機抽到的題目抄寫下來，互相傳閱，最后把不同類型的題目做個歸納總結(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 & “成績是:” & a 如果一個連接內(nèi)有非字符串型內(nèi)容，使用&強制轉(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)在最后一個數(shù)據(jù)的右邊.如果下一個tab(n)的列數(shù)<=當(dāng)前光標(biāo)的列數(shù)，則自動提行.數(shù)據(jù)后如跟;,，則表示下一個數(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(“請輸入一個數(shù):”)'輸入的是字符串 Print Val(x)^ 2 'val(x)把數(shù)字式的串轉(zhuǎn)換成數(shù)值型 Print x ^ 2 注：default:設(shè)置默認(rèn)（缺?。﹨?shù)值

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

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

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

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

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

不加括號，成了命令

MsgBox “你弄錯了”, 3 + 256, “警告”

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

等效于如下：

Dim m as string M=”abdcd”

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

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

第4章

程序設(shè)計

4．1 賦值語句,是一個動作命令,”=”叫賦值操作，不是等號

Let 變量名=表達式

變量名=表達式

賦值是自右向左運算

Label1.Caption = “計算機學(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 例：輸入一個數(shù),判斷是負還是非負 n = Val(InputBox(“請輸入一個數(shù):”))If n < 0 Then

Print “負數(shù)” Else

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

Print “負數(shù)” Else

If n = 0 Then

Print “0”

Else

Print “正數(shù)”

End If End If