第一篇：八年級下冊VB程序教學設計

第四課學學程序設計——初步認識編程軟件VB 教學目標及要求：

知識目標：了解什么是程序設計語言和計算機程序以及語言的分類； 能力目標：培養學生的閱讀總結和自主探索能力；

情感態度與價值觀：通過學生利用所學的知識解決實際問題，激發學生的學習興趣。教學重難點：

1.了解什么是程序設計語言。2.啟發學生創新思維要求：

3.以任務為驅動，激發學生創新思維

教法及學法：講授法談話法討論法、任務驅動和分組合作相結合 教學過程：

創設情境，導入新課：

教師運行游戲小程序，引起學生的興趣，并打開程序的源代碼說明編程并不很神秘。

試運行游戲小程序，激發學生的學習興趣。教師講授： 程序設計語言

教師活動：語言是人類交流思想、溝通感情最重要的工具。那么語言不通的人如何交流呢？ 學生活動：請一個語言翻譯或自己學會他人的語言 教師活動：計算機所做的事情均為人向機器下達的命令，那么操作者又是通過什么語言同計算機進行溝通的呢？

程序設計語言的分類及特點（1）、機器語言

教師活動：①計算機能聽懂的語言（機器語言）②機器語言的實質（二進制語言）③二進制語言的特點。強調計算機內部只認識二進制 學生活動：談對二進制語言的感受

教師小結：機器語言的特點（二進制、計算機直接能懂、難以理解，與人類語言差距較大）（2）匯編語言：用助記符表示面向機器的程序設計語言。使用匯編語言編寫的程序，機器不能直接識別，要由一種程序將匯編語言翻譯成機器語言。適合編寫直接控制機器操作的程序，不容易使用。（3）、高級語言

高級語言最接近人的自然語言，即簡單易學，它所編制的程序計算機執行時需要“翻譯”，執行速度比二進制程序慢。計算機程序

教師提出問題一：什么是程序？

日常所說的“程序”是指事情的先后順序。問題二：什么是計算機程序？

教師展示游戲程序部分的源代碼語句，學生觀察游戲程序的源代碼。思考什么是計算機程序？

計算機程序是用程序設計語言編寫好的一組指令，用來指示計算機的每一步動作。VB程序設計語言：

1、VB簡介：

vb是Visual Basic的簡稱，是由美國微軟公司于1991年開發的一種可視化的、面向對象和采用事件驅動方式的結構化高級程序設計語言，可用于開發 Windows 環境下的各類應用程序。它簡單易學、效率高，且功能強大。

2、認識VB窗口：

教師活動：打開準備好的VB程序----世博口號.exe 學生活動：新建標準工程進入VB環境

教師活動：指認VB環境中菜單欄、工具欄、工具箱、屬性窗口、窗體、控件等的位置。工具箱：許多用于程序設計的控件 窗體編輯器：設計應用程序界面

工程資源管理器：幫助用戶管理工程中的每一個文件 屬性窗口：設置對象的特征

3、相關概念： ①對象的概念 教師活動：講解所謂“對象”就是個可操作實體如窗體、窗體中命令按鈕、標簽、文本框等。② 控件的概念

教師活動：講解控件的概念。（窗體界面中可供用戶操作的元素）學生活動：認識范例窗體中有哪些是控件 教師活動：在工具欄中指認相應控件 學生活動：向窗體中添加相應控件 ③ 屬性的概念

教師活動：講解屬性的概念。（控件的內部和外部特征）學生活動：嘗試在屬性窗口中找到某控件的相應屬性 ④ 事件和代碼的概念

師生活動：運行程序---點擊按鈕---請學生觀察窗體變化

師生活動：結束運行狀態---雙擊按鈕進入代碼窗口：觀察點擊按鈕程序發生變化的原因（代碼）---學生觀察、教師講解（代碼改變控件屬性方法：控件名.屬性名=屬性值）---學生嘗試用此方式改變窗體中其他控件的屬性（如Label1.Caption=”better city,better life”）教師演示：

1、教師演示設計運行程序“奔跑的小汽車”，學生認真觀察。

2、教師將素材發送到學生機，布置任務： 依照教師演示編寫程序“奔跑的小汽車”。學生體驗：

1、學生編寫程序“奔跑的小汽車”，教師巡回指導。

2、試修改程序，讓汽車倒車、速度變慢。

五、教學評價：

1、教師點評 教師通過巡視，把部分學生修改的結果進行點評，指出典型的錯誤。

2、學生進行自評： 評價內容描述

對我的學習

滿意 還可以

還需 努力

了解程序設計語言和計算機程序

初步認識VB窗口的組成和工作環境

對程序設計學習的興趣

六、課后小結：

這節課，我們體驗了用VB設計程序，了解程序有關知識。（回顧本節知識）希望同學們繼續努力。

第二篇：《我的第一個VB程序》教學設計

《我的第一個VB程序》教學設計 鹽城中學何娟 教材分析

本節課是《算法與程序設計》(選修)第二章第一節的內容。第一節共分三個課時,這是第二課時的內容。前一課時集中介紹了VB集成開發環境和界面設計，這一課時通過一個實例介紹可視化編程的一般步驟，在程序編寫過程中完成VB基本知識和技能講解。教材中此部分內容詳細清晰，對學生上機實踐有很強的指導作用。學情分析

上節課主要介紹了VB集成開發環境、控件、對象、屬性等基本概念，熟悉了標簽、文本框和命令按鈕等基本控件機器屬性設置的操作，本節課在熟悉界面設計的基礎上進一步了解可視化編程的一般步驟，尤其是代碼設計。由于大部分學生是初次接觸程序設計，而一般人對于程序設計有著“難”的偏見，因此學生既有好奇心，又有畏難情緒。因此教師應充分了解這一點，通過簡單的例子，讓同學體驗成功的快樂，在揭開“編程”神秘的面紗的同時，激發學生學習的積極性和對程序設計的興趣。教學目標

知識與技能目標：

要求學生熟悉可視化編程的一般步驟。

讓學生了解事件、事件驅動機制等基本概念。學生能獨立的完成一個簡單的VB程序。過程與方法

設問導入新課，學生進行自主探究學習、小組合作交流學習等方式，激發學生的學習興趣，讓學生在“做中學”，既考驗其動手能力和舉一反三能力，又避免紙上談兵，理解不透徹。老師在分析一個完整的程序基礎上布置難易適中的任務，在學生操作過程中巡視指導。情感態度和價值觀

★ 培養學生自主探索、協作學習的能力。★培養學生勇于實踐和不斷進取的精神?！?培養學生的對程序設計的興趣。

四、教學重點與難點

★ 重點：可視化編程的一般步驟。

★ 難點：學生在熟悉編程的一般步驟的基礎上能編程解決實際問題。

五、教法與學法

★教學方法：講解與演示相結合、啟發式教學法、任務驅動法 ★學習方法：模仿學習、自主探究學習，小組交流合作學習

六、設計思想

尊重學生解決問題的思維過程，模擬學生的學習體驗和情感體驗，在以學生為主體、教師為主導的架構下，搭建以生為本的學習的平臺，幫助學生通過學與練，以不斷解決問題為手段，一步步完成學習任務。

新課標中提出了信息技術課程要以進一步提高學生信息素養為宗旨，強調通過合作解決實際問題，掌握信息技術，感受信息文化，增強信息意識，提高學生總體的信息素養。而在本節課中就堅持了以教師為主導，學生為主體，發展能力和提高素質為主線的啟發式教學思想，努力為學生創設了開放式的學習環境。

本節課以編寫一個完整地程序為主線，讓學生了解事件、代碼的基本組成、代碼的書寫規則以及具體語句中涉及到的知識點（主要包括：數據的類型、變量的定義與聲明、表達式以及一些常用語句和函數）。通過自主編寫程序發現問題，探究解決問題的方式，最后學會自我總結。讓學生通過討論學習，小組合作學習等方式掌握可視化編程的一般步驟，提高解決實際問題的能力。

七、教學過程 教學環節

教師/學生活動設計

設置疑問 導入新課

【導入】：展示上節課已經做好的程序界面（如下圖），請同學根據界面猜想程序功能，教師運行測試，發現輸入被加數和加數后單擊計算按鈕，不能正常顯示結果?！窘處熖釂枴浚涸斐蛇@種情況的原因是什么呢？ 【學生討論、回答】

【教師分析總結】：該程序缺少代碼。上節課我們只完成了界面設計部分，其實程序設計還有一個更重要的部分，那就是代碼設計。[板書] 界面設計代碼設計打個比方：就好像一只手表只有表殼和表帶，而沒有機芯，是無法正常工作的。所以兩者齊全才可以成為一個真正的程序。[板書] 我的第一個VB程序

新課講授： 創設情境 剖析代碼

【教師操作并講解】：（創設情境）那么代碼該怎樣編寫呢？我們可以首先模擬前臺，對于用戶而言，輸入被加數和加數后，用戶希望單擊計算按鈕，可以從第三個文本框中看到計算結果。所以，代碼添加在按鈕里，雙擊計算按鈕。機器會自動添加兩行代碼，代碼的主體就在這兩行中間添加。【教師講解】：（知識遷移）由于同學對數學題目的解題步驟比較熟悉，我們姑且把它當作一道數學題來解答。首先，我們分析一下，題目中涉及到幾個變量？ 【學生回答】：

【教師講解并操作】：在VB中，用到的變量應該先定義后使用，現在我們來定義這三個變量，假設我們分別以變量a，b，c來表示被加數、加數及和。先定義變量a，定義語句的格式為：dim 變量名 as 類型，所以語句為：dim a as single , 這里的single為實型，相當于數學里的實數。【教師提問】：那么變量b和c應該怎樣定義呢？ 【學生回答，教師演示】：dim b as single

dim c as single 【教師提問】：a，b，c三個量中哪些是已知條件？在數學題里已知條件被加數和加數由題目提供，而我們的程序被加數和加數是由誰提供的呢？ 【學生回答】：用戶 【教師提問】：那么用戶把被加數填寫在哪呢？ 【學生回答】：

【教師講解并操作】：所以a的值為text1.text,a=text1.text。那么b的值應該如何獲取呢？請一位同學回答?！緦W生回答】： 【教師提問】：至此，我們已經知道a和b的值了，那么如何通過已知條件求解出c呢？請一位同學在教師機上演示?！緦W生操作】： 【故設懸疑】：程序編寫到這里是否行了呢？同學的意見出現了分歧，都說實踐是檢驗真理的唯一標準，那么我們就讓機器來驗證吧 【教師運行程序】： 【教師講解】：程序并沒有如我們所料想的那樣顯示結果，事實證明我們的程序存在一些小問題，那究竟是哪里出錯了呢？正如同學們知道的，我們其實已經把和的值求出來了，可是程序為什么不顯示結果呢？對！我們把求出來的結果存放在變量c中，而對于用戶而言，并不知道變量c的存在，他只關心第三個文本框，所以，我們還應該將變量c顯示在第三個文本框中?，F在再請一位同學在教師機將代碼修改正確?！窘處煼治隹偨Y】：一個完整的代碼通常包括這樣幾個部分： 定義變量 輸入 處理 輸出

給次按鈕Command2添加代碼：End 【課堂實踐一】：獨立完成加法程序（提供界面和代碼圖片）

【展示學生程序】

舉一反三 解決新問題

【課堂實踐二】：已知圓的半徑，求圓的周長和面積。（為節約時間，界面已提供）【教師巡回指導】

展示評價

【展示學生程序】老師不但可選成功的程序，也可選取較不成功的作品，但要有典型意義。

【學生評價】 【教師評價】

總結并提出希望

【教師總結】一直以來，在我們的印象中，編程是件很難的事?？墒峭ㄟ^加法程序這部分內容的學習我們發現編程也是有章可循的，希望通過這節課的學習，同學們能喜愛上編程，讓程序學習變成一件快樂的事。

第三篇：VB程序連乘算法的教學設計

VB程序連乘算法的教學設計

摘 要：該文主要對程序設計課程中的連乘算法進行教學設計，結合實例介紹了連乘算法的關鍵點，對算法中經常會遇到的內存溢出問題進行解析，針對連乘算法的通用表達式進行了優化，使程序更易理解，達到加深理解，優化教學效果。

關鍵詞：程序設計 算法 連乘算法 溢出

中圖分類號：G64 文獻標識碼：A 文章編號：1672-3791（2015）12（a）-0220-02

在程序設計課程中，算法是課程的重點，同時也是難點，如何將算法原理向學生講解透徹并可以讓其輕松接受，是在教學過程中需要思考的一個問題。

在計算機中，算法（Algorithm）是對特定問題求解步驟的一種描述，它是指令序列的集合。程序設計就是設計算法、編寫代碼、調試運行的過程。顯而易見，算法是程序設計的基礎，程序設計是算法的具體實現。在程序設計課程的教學設計過程中，常用算法一般包括求最大/最小值、累加/連乘、窮舉法、遞推法等，該文將主要針對連乘算法進行分析。連乘算法

在程序基礎教學中，為了提高教學效果，針對剛入門的程序設計初學者，教師們一般采用任務驅動法[1]進行算法的分析，引導學生理解和掌握該算法的核心思想，進而再用程序的方式來描述與驗證該算法。例如：

以上是一個典型的連乘算法，該算法描述的關鍵點可歸納如下：

（1）每一項和每次連乘之積是變化量。

（2）因此，需要兩個變量：

①用T表示每一項的值：T=T+1。

②用S表示連乘之積：S=S*T。

（3）循環終止條件： 循環次數>n。

（4）初始化：S=1。內存溢出問題

在講解程序算法時，大多數程序設計教程都很少提及賦值或計算中的“溢出”問題，然而在學生的編程操作中，“溢出”卻是經常會遇到的一個問題[2]，這些問題常常會讓學生覺得困惑，查找原因時卻無從下手，導致學生出現畏難情緒。因此，教師有必要在授課過程中，對程序在內存中的存儲方式進行初步講解，讓學生可以了解程序的運行機制，加深理解。

軟件在運行過程中，如果程序調用的數據文件過大，或程序設計中存在著死循環等bug，軟件寫入內存中的數據量超過了系統分配給該軟件的內存空間大小，則會發生內存空間裝不下而溢出的現象，這種現象就叫內存溢出。在求階乘的算法中，由于階乘的結果累積速度較快較大，容易發生數據溢出。

讓學生進行程序的調試與運行，當n=10和=50時運行結果如圖1所示，但當n=100時，卻彈出如圖2所示的警告信息。

分析導致“溢出”錯誤的原因：

當程序運行發生“溢出”錯誤時，通過調試跟蹤，在T=（2* i）^ 2/（（2*i-1）*（2*i+1））語句處，把光標移至i變量上，可以發現溢出時i的值為91；當i=91時，表達式（（2*i-1）*（2*i+1））=，該表達式的值為33123。程序將結果值S設置為double類型，當i=91時，結果為33123，這個值按道理應在double類型的數值范圍內，但程序仍然發生了溢出錯誤，問題在哪里呢？

實際上，產生這個溢出問題的原因是由于VB本身的內存分配機制造成的，VB在進行計算過程中，它總是分配一個最省內存的臨時內存空間去存儲這些中間計算結果數值，這個最省的內存空間容量根據表達式中數據類型決定，如上述相乘的兩個表達式（2*i-1）和（2*i+1），他們當中的變量i是整型，因此，VB也將使用一個類型為整型的臨時變量來存儲兩個表達式的乘積。所以，當i=91時，得到乘積結果33 123，此時即使是乘積結果變量S設置為double類型，但乘積結果（33 123）已超過了聲明為整型的臨時變量空間的極限（-32 768～+32 767），所以仍然會發生溢出錯誤。

根據上面的原因分析，可以從以下幾方面進行修正：

（1）將變量 i 定義為長整型或實數型或變體型。

（2）將錯誤語句中的變量 i或常量（1或2）其一操作數利用轉換函數Clng（i）或Clng（1），以求足以容納計算結果。

（3）避免大數相乘，可將錯誤語句改為T=（2*i）^ 2/（2*i-1）/（2*i+1）。

（4）連乘算法的改進。

同一問題可用不同算法解決，而一個算法的質量優劣將影響到算法乃至程序的效率。雖然上述方法解決了“溢出”問題，但是表達式T=（2*i）^2/（2*i-1）*（2*i+1）顯得很笨重，表達式明顯復雜。能否有辦法可以降低復雜度，簡化表達式以求程序優化呢？

可以把通項表達式T=（2*i）^2/（2*i-1）*（2*i+1）中的分子式分解開來，把問題理解為簡單表達式T=A/B（其中A=（2*i）^2和B=（2*i-1）*（2*i+1），如此一來問題就變得較為簡單且易于解決。因此，求∏的近似值的VB程序代碼優化實現如下：

在此例中，關鍵點在于如何將復雜的通項表達式分解為簡單表達式，進而實現連乘算法的優化。因此，如何構造通項表達式尤為關鍵，必須注意2點。

（1）通項表達式T=B/A中的A或B均可為常量或變量表達式，A和B可以繼續分解；①若A=1，則T=B；②若B=1，則T=1/A；

（2）必須精選變量A與B的數據類型，避免出現“溢出”。結語

該文對程序設計課程中關于連乘算法的問題進行了初步探討，指出程序設計初學者中學習過程中經常會遇到的“溢出”問題，提出修正方法，并對連乘算法進行改進優化，加深理解，強化教學效果。

參考文獻

[1] 楊晨霞，涂風濤.任務驅動教學法在Visual Basic程序設計教學中的應用[J].職教論壇，2012（18）：79-81.[2] 賈穎.“VB 程序設計”課程教學中的變量類型使用問題研究[J].Computer Education，2008（20）：138-139.

第四篇：論文VB程序

《教務信息管理系統VB程序設計》的教學思路（2010年高職單招計算機專業技能測試題）

福安市民族職業中學———馮建鋒

摘要：針對2010年高職單招計算機專業技能測試題，結合我省高職單招VB程序設計教學考綱要求進行分析。針對我校學生實際情況寫出《教務信息管理系統VB程序設計》的教學思路（要求）

關鍵詞：信息管理系統，VB程序設計，教學思路 程序思路，需要完成一個教務信息管理系統。

1：完成頁面的設計。首先創建一個工程，工程中自動生成一個Form，也就是我們常說的頁面，并給這個頁面的名稱設置成Form1，用以區分系統中其他的頁面。通過編輯欄中的，Label工具，在頁面中間插入一段文字，為“教務管理系統”。因為完成一個教務管理系統，需要完成的內容有學生信息的錄入，學生信息的修改，學生信息刪除以及學生信息的查詢。于是在該頁面使用Button工具，放置四個按鈕并將四個按鈕的Caption分別設置成“學生錄入”，“學生修改”，“學生刪除”和“信息統計”。且名稱分別設置成Command1,Command2,Command3,Command4。依據程序要求我們可以知道，需要完成學生錄入，學生修改，學生刪除，和信息統計的各個功能，就必須存在有四個排版各不相同的頁面，來滿足各個功能的需求，于是在工程的樹形菜單下選擇窗體，再選擇新建窗體。重復操作四次，成功建立了四個Form。分別命名為Form2,Form3,Form4,Form5用來區分和其他的Form。上面提到過的設置了四個按鈕，作為按鈕則是拿來點擊的，而按照我們的思路，四個按鈕分別代表了要完成的四項功能，那么可以得出每點擊一個按鈕，就應該要彈出相對應的頁面來提供給用戶恰當的服務。于是雙擊按鈕，將自動生成代碼如下： Private Sub Command1_Click()····· End Sub 其中Command1是代表按鈕的名稱整個函數就是代表了某一個按鈕被點擊之后應該執行的內容。End表示此函數結束。那么就應該寫入對應的內容。完成之后的代碼如下： Private Sub Command1_Click()

Form2.Show End Sub Private Sub Command2_Click()

Form4.Show End Sub Private Sub Command3_Click()

Form3.Show End Sub Private Sub Command4_Click()Form5.Show End Sub 分別代表了不同的按鈕點擊之后不同的執行的位置。其中Form.Show則代表對于某一個頁面進行顯示的功能。以上第一段表示了點擊按鈕1顯示頁面2。其他意思同上就不贅述。這樣就完成了主頁面：

我們可以知道的是還需要完成四個功能，學生錄入，學生修改，學生刪除和信息統計。完成學生錄入的設計：使用工具欄中的Label,Text,和button以及Adodc進行頁面的設計。即可。完成頁面如下：。

其中Adodc原本工具欄中并沒有，需要添加控件。按ctrl+T或者在菜單“工程”－“組件”里選擇

Microsoft ADO Data Control 6.0(SP6)(OLEDB)選中之后，就可以在工具欄中選擇該控件進行拖拽。其中Adodc中基本連接方法： Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=” + App.Path + “hkmdckdb1.mdb”//字符串的連接。Adodc直接雙擊，可以在欄目中選定數據庫的路徑也就是Access文件的路徑。就會自動生成ConnectionString。本頁面的程序代碼如下：

Private Sub Command1_Click()//點擊按鈕觸發函數。

If Trim(Text1.Text)<> “" And Trim(Text2.Text)<> ”“ And Trim(Text3.Text)<> ”“ And Trim(Text4.Text)<> ”“ And Trim(Text5.Text)<> ”“ And Trim(Text6.Text)<> ”“ Then

Adodc1.RecordSource = ”select * from stuInfo“

Adodc1.Refresh

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields(”stuNo“)= Trim(Text1.Text)

Adodc1.Recordset.Fields(”stuName“)= Trim(Text2.Text)

Adodc1.Recordset.Fields(”sex“)= Trim(Text6.Text)

Adodc1.Recordset.Fields(”age“)= Trim(Text3.Text)

Adodc1.Recordset.Fields(”tel“)= Trim(Text4.Text)

Adodc1.Recordset.Fields(”score“)= Val(Trim(Text5.Text))

Adodc1.Recordset.Update

Adodc1.Recordset.Requery

Adodc1.Refresh

Text1.Text = ”“

Text2.Text = ”“

Text3.Text = ”“

Text4.Text = ”“

Text5.Text = ”“

Text6.Text = ”“

MsgBox ”添加成功“, vbOKOnly, ”系統提示“ Else: MsgBox ”信息未填寫完整“, vbOKOnly, ”系統提示“ End If End Sub

對于以上解析如下：對于這個頁面在業務上我們可以知道，需要點擊錄入按鈕，那么就將各個Text中的內容寫入數據庫中，那么在數據庫中就會生成一條記錄，也就是某一個學生的信息情況，那么就完成了學生信息的錄入。首先文件進行了一個IF判斷：

If Trim(Text1.Text)<> ”“ And Trim(Text2.Text)<> ”“ And Trim(Text3.Text)<> ”“ And Trim(Text4.Text)<> ”“ And Trim(Text5.Text)<> ”“ And Trim(Text6.Text)<> ”“ Then “中間內容先省略”

Else: MsgBox ”信息未填寫完整“, vbOKOnly, ”系統提示“ End If End Sub

如果Text1至Text6的內容不等于（<>代表不等于）空字符串。也就是各個內容都輸入了的。就執行省略的了中間內容。如果有一個為空，也就是信息未填寫全。就執行Else:中的內容 也就是MsgBox ”信息未填寫完整“, vbOKOnly, ”系統提示“。這個代表了彈出一個對話框，其中文字寫了“信息未填寫完整”，按鈕上面顯示 vbOKOnly。之后結束IF語句，并退出函數?，F在對于省略部分的函數進行解析： Adodc1.RecordSource = ”select * from stuInfo“//從stuInfo表格中做一個查詢

Adodc1.Refresh

Adodc1.Recordset.AddNew//新增信息

//表格也就是提供的Access的數據庫中提供給了stuNo,stuName等字段名，以下就是在記錄集中將Text1中的字段寫入到stuNo的記錄集里，并以此類推，完成該記錄集的填充。

Adodc1.Recordset.Fields(”stuNo“)= Trim(Text1.Text)

Adodc1.Recordset.Fields(”stuName“)= Trim(Text2.Text)

Adodc1.Recordset.Fields(”sex“)= Trim(Text6.Text)

Adodc1.Recordset.Fields(”age“)= Trim(Text3.Text)

Adodc1.Recordset.Fields(”tel“)= Trim(Text4.Text)

Adodc1.Recordset.Fields(”score“)= Val(Trim(Text5.Text))

//到這里就成功的完成了記錄集的填寫

Adodc1.Recordset.Update//將字段更新到數據庫中

Adodc1.Recordset.Requery Adodc1.Refresh //將頁面中的Text的內容填寫為空

Text1.Text = ”“

Text2.Text = ”“

Text3.Text = ”“

Text4.Text = ”“

Text5.Text = ”“

Text6.Text = ”“ MsgBox ”添加成功“, vbOKOnly, ”系統提示“ //彈出方框，表示數據填寫成功。

到此數據全部填寫完成。并寫入數據庫。也完成了這個頁面的功能。之后的幾個頁面的內容類似。其中重點在于DataGrid和Adodc的綁定。對于DataGrid和Adodc的綁定在這里舉一個小小的例子如下： 1.ADODC1是數據庫連接部件

2.Datagrid1是顯示數據表中內容的表格

ADODC1需要設置它連接的是哪個數據表.(Adodc1.RecordSource = ”select * from 表名“)Datagrid1需要設置的是它的數據源來自ADODC1.(Set DataGrid1.DataSource = Adodc1)然后2個部件都要刷新！Refresh

Adodc1.ConnectionString = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & App.Path & ”1.mdb;Persist Security Info=False“ Adodc1.CommandType = adCmdText Adodc1.RecordSource = ”select * from table“ Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh

這個之后，Datagrid1就可以顯示1.mdb中table表的內容。

以下是本程序中修改頁面的代碼如下： Private Sub Command2_Click()

Dim str As String//定義str

Dim stuNo As String

Dim sql As String

stuNo = Text1.Text//獲得學號

If stuNo <> ”“ Then

Adodc1.Recordset.Filter = ”stuNo = '“ + stuNo + ”'“//通過學號機型查詢

str = Adodc1.Recordset.Fields(”sex“)

If str <> ”男“ Then//如果查詢出來的sex不等于男

Adodc1.Recordset.Fields(”sex“)= ”男“

Adodc1.Recordset.Update//將sex字段設置為男，并進行更新

Else

Adodc1.Recordset.Fields(”sex“)= ”女“

Adodc1.Recordset.Update//否則就將字段設置為女，并進行更新

End If

Else:

MsgBox ”學號未輸入“, vbOKOnly, ”系統信息“

End If

Adodc1.Recordset.Update//結束IF之后，更新一下Adodc

DataGrid1.Refresh//因為Adodc更新了，而DataGrid和Adodc進行了一次綁定，所以也需要對其進行更新。

End Sub

Private Sub Form_Load()//這個函數是頁面載入的時候執行的函數，因為頁面載入的時候本身就需要對表格的內容進行填充，將表格的內容填充為數據庫中的內容。所以進行頁面載入的時候，首先對DataGrid進行更新。

DataGrid1.Refresh End Sub

刪除的代碼和修改的代碼類似，其中的區別在于邏輯判斷的區別了最終執行的區別，一個是update一個則是delete。代碼如下： Private Sub Command2_Click()

Dim str As String

Dim stuNo As String

Dim sql As String

stuNo = Text1.Text

If stuNo <> ”“ Then//如果學號不為空，也就是該學生信息存在，也只有存在才可以刪除

Adodc1.Recordset.Filter = ”stuNo = '“ + stuNo + ”'“

Adodc1.Recordset.Delete//刪除操作

Else:

MsgBox ”學號未輸入“, vbOKOnly, ”系統信息“

End If

Adodc1.Recordset.Update//同更新類似不做贅述

DataGrid1.Refresh End Sub Private Sub Form_Load()DataGrid1.Refresh End Sub

最后是查詢的頁面，這個頁面稍稍有一點麻煩，因為對于其他頁面邏輯較為復雜。代碼如下： Private Sub Command1_Click()//點擊按鈕，執行一下函數

//對字符串進行定義

Dim stuNo As String

Dim StuName As String

Dim ScoreLow As Double

Dim ScoreHigh As Double

Dim sql As String

stuNo = Text1.Text

StuName = Text2.Text //因為查詢信息，是根據多個條件進行查詢的，在這里進行了一個定義，查詢條件主要有一下幾項，既是學生學號，學生姓名，學生成績，學生年齡，以及學生性別。

If stuNo <> ”“ Then//如果學號不為空，就將SQL語句變成之下的語句，用于查詢學生學號。

sql = ”select * from stuInfo where stuNo = '“ + Trim(stuNo)+ ”'“

End If

If StuName <> ”“ Then//如果姓名不為空，就將SQL語句變成之下的語句，用于查詢學生姓名。

sql = ”select * from stuInfo where stuName = '“ + Trim(StuName)+ ”'“

Text1.Text = ”“

End If

If Text3.Text <> ”“ And Text4.Text <> ”“ Then//這里是分數

ScoreLow = Text3.Text

ScoreHigh = Text4.Text

sql = ”select * from stuInfo where score >= “ + Trim$(ScoreLow)+ ” and score <= “ + Trim$(ScoreHigh)

Text1.Text = ”“

Text2.Text = ”“

End If

If Text5.Text <> ”“ And Text6.Text <> ”“ Then//年齡

sql = ”select * from stuInfo where age >= “ + Trim$(Text5.Text)+ ” and age <= “ + Trim$(Text6.Text)

End If

If Text7.Text <> ”“ Then//性別

sql = ”select * from stuInfo where sex = '“ + Trim$(Text7.Text)+ ”'“

End If

Adodc1.RecordSource = sql

Adodc1.Refresh//更新數據集

Label7.Caption = ”滿足條件的一共有 “ + Trim$(Adodc1.Recordset.RecordCount)+ ” 人"

DataGrid1.Refresh//更新顯示信息

End Sub

典型案例：2010屆我校計算機專業36名考生參加高職單招，80分以上達27人。其中羅幼鳳同學得滿分100分。被福建師大本科計算機網絡專業錄取。

心得體會：

請按以上要求補充審改。而后發表。

第五篇：八年級下冊教學設計

Module4 New technology

Unit 2 If a snake bites you, take a photo.Teaching Aims: 1.Knowledge: Vocabulary: bite, appear, hurt, hide, dish, wrong, suggest, save one’s life, pick up, a few days earlier, take a photo, suggest to sb.Structure: Adverbial clauses of condition “If” 2.Abilities of language: 1)To learn how to describe a story(the structure of the story)2)To learn some reading skills such as predicting, skimming, scanning.3.Character building:

To learn how to save themselves when they are in danger.Key point: Adverbial clauses of condition Difficult points: How to present and practice the structure “if” clause Teaching Approach: “EDC”learning model “體驗—發現—建構”教學模式 即：“Experience—Discover—Construct”

Teaching aids: A mobile phone

Multi-media

learning plan

Teaching Procedures:

Before class: Warming-up

T's activity: Let students enjoy a song “If you are happy,...” Ss' activity: Enjoy and sing with the song together.Intention: To create a CONTEXT of the adverbial clause of “if”.Step1: Pre-reading

1.Mini-task1 Use a mobile phone to draw their attention on the use of it.T's activity: Show students a mobile phone, and ask them what we can

do with the mobile phone.Ss' activity: Show their results to the whole class freely.Intention: To activate the schemata about uses of the mobile phone.2.Mini-task 2 Dealing with some vocabulary in contexts.T's activity: Present a picture of the a cook, and ask them to describe

what they can see(The teacher gives some notes).Ss' activity: Describe the picture and learn new words.T's activity: Let students PREDICT what's happening and what he should

do.Ss' activity: According to the notes to guess some new words, and show

their results to the whole class.Intention: To create a real language context for the Ss to learn some necessary words and phrases and learn to observe, imagine, pick up some proper words to express their own opinions.Step2.While-reading Part I Task To understand the whole text in all.T's activity: Ask the students to skim the passage and discover(find

out)what's on earth happening.Ss' activity: Reading the passage quickly, and find out the main idea.Intention: To train the reading skill SKIMMING by reading through the

text and generalize the main idea.Part II Task circle To deal with details in the text.1.Mini-task1 Read the passage for details, and learn how a story

develops.(1)For No.5&6 T's activity: Present the necessary and basic sentences about the

story, ask them to DISCOVER the rules of key phrases and

retell the story with them.Ss' activity: Scan the passage independently, underline the

sentences and write the rules of the phrases on the

learning plan, then use the key phrases to retell the story.Intention: To practice the reading skill “SCANNING” and “DISCOVER”

the rule of the language, and learn how to use it.(2)For No.3&4

T's activity: Present a table with some important information about

the passage, ask them to complete it, then retell the story.Ss' activity: Scan the passage independently ,find out the information

about “when” “where” “what” “result” then retell the story.Intention: To practice the reading skill “SCANNING” “DISCOVER”

the important information, and learn how to use them to tell story.(3)For No.1 & 2 T's activity: Present some questions about the story and ask them to

answer them in their own words, then retell the story.Ss' activity: Scan the passage independently, expand thinking to answer

the questions, then retell the story and give their ideas.Part Ⅲ Task Listen and read the passage.T’s activity: Play the tape recorder.Ask the Ss to pay special attention to

the pronunciation and intonation.Ss’ activity: Imitate the pronunciation and intonation, then read in whole

class.Intention: To practise the Ss reading style and experience the beauty of

English.Step3: Post-reading

T's activity: Create some different CONTEXTS of danger, and ask them

what they will do USING “if”.Ss' activity: Brainstorm the different answers in groups in different ways，like dialogues, interviews and monologues or a talk ,then show their results to the class.Blackboard Design Module4 Unit2 If a snake bites you, take a photo 1.If a snake bites you ,take a photo with your mobile phone.2.If a snake bites you ,pick up your phone.Homework REWRITE the story in your own words