第一篇：vb程序設(shè)計實驗心得（大全）

vb程序設(shè)計實驗心得

vb程序設(shè)計實驗心得一：數(shù)據(jù)庫VB課程設(shè)計心得體會

數(shù)據(jù)庫課程設(shè)計大賽的塵囂漸漸遠去，懷著對這次大賽的些許不舍，懷著對當(dāng)初課程設(shè)計開始時候的豪情萬丈的決心的留戀，懷著通過這次課程設(shè)計積累的信心與斗志，我開始寫這篇文章，為自己的足跡留下哪怕是微不足道但是對自己彌足珍貴的痕跡并期望與大家共勉。

首先，讓我的記憶追溯到大二暑假，在老大的指引下，我接觸到Microsoft 公司的.NET產(chǎn)品。那個時候我已經(jīng)學(xué)過vc和asp，因為windows程序設(shè)計實驗的課的關(guān)系，接觸過vb，但是沒有專門去學(xué)他，因為習(xí)慣了c++里面的class，int，覺得vb的sub，var 看著就不是很順心。我是一個好奇心很強的人，突然看到了一個號稱“.網(wǎng)絡(luò)是用于創(chuàng)建下一代應(yīng)用程序的理想而又現(xiàn)實的開發(fā)工具”，而且主推c#語言，由于對c語言的一貫好感，我?guī)缀跏橇⒖虒λa(chǎn)生了興趣。我就開始了對c#的學(xué)習(xí)，任何語言都不是孤立存在的，所以數(shù)據(jù)交互是很重要的，暑假的時候我把我們這學(xué)期的課本數(shù)據(jù)庫系統(tǒng)概論看了一遍。我記得以前用c語言編程的時候，數(shù)據(jù)是在內(nèi)存中申請空間，譬如使用數(shù)組等等。很耗費內(nèi)存空間。這個時候就是數(shù)據(jù)庫站出來的時候啦，于是我又裝上了sql serverXX，以前學(xué)asp的時候用的是access，那個時候只是照著人家做，理論是什么也不是很清楚。

通過一個暑假的學(xué)習(xí)，基本搞清楚了理論方面的東西，具體怎么用也不是很清楚。但是這為這學(xué)期的課程設(shè)計打下了鋪墊。

來到學(xué)校后，隨著這學(xué)期的數(shù)據(jù)庫課程大賽開始了，我有一個看法就是我自己應(yīng)該具備的能力不是我會多少，而是我應(yīng)該具備快速學(xué)會東西的能力。遇到什么就學(xué)什么。我們有時候很容易被一些專業(yè)名詞說嚇著，包括什么建模，軟件工程，數(shù)據(jù)分析，數(shù)據(jù)挖掘等等。我身邊就有很多同學(xué)被這些紙老虎所唬住，而沒有勇氣去接觸他們，總是說這個太難了之類的退堂鼓的話，他們低估了自己的潛力同時也壓抑住了他們自己的好奇心。其實都是紙老虎，又不是什么國家科研難題，只是去用一些工具，發(fā)明工具是很難，但是用一個工具就容易多了，just do it！我記得我做這個數(shù)據(jù)庫之前，我們老師說要做好前期分析，我就在網(wǎng)上搜索用什么分析工具好。最后我選擇了roseUML建模工具。在此之前，我腦袋里面沒有軟件建模的思想，什么UML建模對我而言就是一張空白的紙。但是真正接觸后并沒有想象的那么難，有什么不懂的上網(wǎng)去搜索，這是一個信息橫流的世界，有g(shù)oogle，baidu就沒有不能解決的知識難題。以及后來的數(shù)據(jù)庫分析的時候用到的powerdesigner也是一樣。

開發(fā)的時候我想過用什么架構(gòu)，c/s模式？模式有很多，怎么選擇？我就上網(wǎng)搜索現(xiàn)在最流行的架構(gòu)是什么。結(jié)果搜到了MVC架構(gòu)，就是你啦。我決定用這個架構(gòu)，不會，沒關(guān)系，咱學(xué)。Just do it！前期工作準(zhǔn)備好后，那么我就得把我暑假學(xué)的.網(wǎng)絡(luò)加以實踐。這個時候我更加深入的了解了利用ado.Net操縱數(shù)據(jù)庫的知識。并且對數(shù)據(jù)庫里面的存儲過程有了比較深入的了解。經(jīng)過大概2個多星期的奮斗，我完成了我的數(shù)據(jù)庫課程設(shè)計--基于.網(wǎng)絡(luò)數(shù)據(jù)集的圖書館管理系統(tǒng)。并最后非常榮幸的獲得了大賽的一等獎以及以及新技術(shù)應(yīng)用獎。

與其臨淵羨魚，不如退而結(jié)網(wǎng)。這次數(shù)據(jù)庫課程設(shè)計給我的最大的印象就是如果自己有了興趣，就動手去做，困難在你的勇氣和毅力下是抬不了頭的。從做這個數(shù)據(jù)庫開始無論遇到什么困難，我都沒有一絲的放棄的念頭。出于對知識的渴望，出于對新技術(shù)的好奇，出于對一切未知的求知。我完成了這次數(shù)據(jù)庫課程設(shè)計，不過這只是我學(xué)習(xí)路上的驛站，未來十年.NET的核心技術(shù)就是XML[至少微軟是這么宣傳的]，我會繼續(xù)學(xué)習(xí)它，包括jave公司的j2ee我也很想試試，語言本來就是相通的，just do it！語言并不重要畢竟它僅僅是工具，用好一個工具并不是一件值得為外人道的事情，主要是了解學(xué)習(xí)思想。古語說的好：學(xué)無止境啊！

我很慶幸我參加了這次數(shù)據(jù)庫大賽，讓我確實打開了眼界。

（最后，很感激學(xué)校給了我們這次動手實踐的機會，讓我們學(xué)生有了一個共同學(xué)習(xí)，增長見識，開拓視野的機會。也感謝老師們對我們無私忘我的指導(dǎo)，我會以這次課程設(shè)計大賽作為對自己的激勵，繼續(xù)學(xué)習(xí)。畢竟學(xué)習(xí)就是一個just do it的過程?。┪抑苯訌膱蟾嫔厦鎻?fù)制過來的.....所以這段也不刪去了.............呵呵。

題目大概是用可視化編程實現(xiàn)一個簡單的數(shù)據(jù)庫管理系統(tǒng)我用的是BCB 題目雖然是簡單 但也明白了很多以前以為懂的問題代碼到?jīng)]什么 這種題目用BCB的話已經(jīng)不用幾行代碼了關(guān)鍵是了解了這些名詞Paradox，ADO，BDE，ODBC 一開始拖控件,寫幾行代碼 很快就完成了編譯也通過了 但傳到同學(xué)機器上就是顯示不出數(shù)據(jù)來折騰了我1天 又是發(fā)帖子 又是問群里的達人后來明白了我用的Paradox數(shù)據(jù)庫是用BDE引擎的發(fā)布軟件的時候要把BDE打包于是又學(xué)著打包BDE 卻發(fā)現(xiàn)不到1m的軟件如果打包BDE的話就10＋m了而且BCB6自帶的那個打包軟件用的我頭暈?zāi)垦Ｓ谑怯窒氩挥肂DE 所以又折騰了我半天答案是要使用ADO控件（以前我用的是BDE控件）而且要用Access數(shù)據(jù)庫了解了這些之后 作業(yè)也就完成了總的看來還是很有收獲的 幸虧我下了決心這個作業(yè)要自己做沒有去網(wǎng)上下載 呵呵

>vb程序設(shè)計實驗心得二：vb課設(shè)心得體會>>（1581字）

VB.NET課程是計算機科學(xué)與技術(shù)本科專業(yè)的專業(yè)骨干課。本課程主要通過VB.NET論述了面向?qū)ο蟪绦蛟O(shè)計和組建編程的機理，涉及到控制臺界面程序、Windows窗體程序、圖形界面編程、數(shù)據(jù)庫、網(wǎng)絡(luò)應(yīng)用系統(tǒng)等多方面的內(nèi)容。內(nèi)容量大，程序設(shè)計復(fù)雜、同時VB.NET程序調(diào)試是在VS.NET環(huán)境下進行，在編程過程中環(huán)境會自動為用戶生成一些必要代碼，以降低編程難度，降低學(xué)生的編程負擔(dān)，但這也帶來了一些問題，如：學(xué)生對VB.ENT的程序結(jié)構(gòu)把握和了解不全面，對編程機理了解不透徹，學(xué)生容易盲目照搬書上代碼，不求甚解，似是而非。為了解決這個問題，我們采取了課程設(shè)計的方法來加深學(xué)生對知識的理解，將書本知識遷移到新的問題解決中，提高學(xué)生分析問題和解決問題的能力。

要求學(xué)生在學(xué)習(xí)該課程中，應(yīng)用每個相對獨立的、完整的單元知識解決一個實際項目，設(shè)計編寫一個小作品;學(xué)完整個課程后，完成一個綜合性比較強的編程項目，使學(xué)生對整個課程內(nèi)容進行全面的總結(jié)、梳理，以項目完成為手段，全面鍛煉學(xué)生分析問題和解決問題的能力。

一.目的1.為使學(xué)生掌握VB.NET編程、面向?qū)ο蟪绦蛟O(shè)計思想和組建編程的知識實際技能，除了系統(tǒng)地講授必要的VB.NET知識，上機練習(xí)，做作業(yè)外，還應(yīng)該對學(xué)生作較全面的編程技能和分析問題解決問題的能力訓(xùn)練，即作課程設(shè)計，以達到如下目的：具體應(yīng)用和鞏固本課程及有關(guān)先修課的基礎(chǔ)理論和專業(yè)知識，了解面向?qū)ο蟪绦蛟O(shè)計思想，掌握應(yīng)用VB.NET編程和組建編程程序設(shè)計方法，培養(yǎng)學(xué)生初步的項目設(shè)計能力。

2.獨立地根據(jù)一定的項目要求，查閱資料，寫出項目開發(fā)目標(biāo)，分析開發(fā)過程中所用到的課程知識，提出解決方案，編碼并上機調(diào)試完成系統(tǒng)，培養(yǎng)學(xué)生分析問題和解決問題的能力。課程設(shè)計是教學(xué)過程中的一個重要環(huán)節(jié)，必須認真對待。

二.要求

在課程設(shè)計中要求學(xué)生注意培養(yǎng)認真負責(zé)，踏實細致的工作作風(fēng)和保質(zhì)保量，按時完成任務(wù)的習(xí)慣。在設(shè)計過程中必須做到：

1.在某個教學(xué)單元結(jié)束后，完成一個教師布置的、或?qū)W生自己擬定的、知識覆蓋整個章節(jié)的，有一定綜合性和難度的項目，要求學(xué)生描述出要達到的目標(biāo)、圍繞目標(biāo)，收集資料和素材，復(fù)習(xí)所需的課程知識，描述問題解決方案、編寫程序上機調(diào)試，直到項目的完成。最后的成果要有完成的作品和相應(yīng)的文檔。

2.在課程結(jié)束后，完成一個大的編程項目，其要求與課程單元的項目差不多，只是綜合性更強、難度更大、知識覆蓋面更廣，工作量更大，以全面促進學(xué)生復(fù)習(xí)和梳理學(xué)科教學(xué)內(nèi)容，提升學(xué)生分析問題、解決問題和文檔的書寫和編制。

三、采取的措施

為了保證課程設(shè)計能夠按照預(yù)定的目標(biāo)和計劃進行，我們還采取了以下措施來加強對學(xué)生監(jiān)督和管理。

1.首先講清楚課程設(shè)計的意義，讓學(xué)生能夠自覺積極主動地進行課程設(shè)計，發(fā)揮學(xué)生的主觀能動性;

2.在課程設(shè)計過程中，教師隨時巡視和監(jiān)督，了解把握和控制課程設(shè)計的進展;

3.將學(xué)生的作品集中展示、評價、打分，可以讓學(xué)生在展示的過程中獲得成就感、自豪感，學(xué)生之間可以相互學(xué)習(xí)、取長補短，同時在此過程中可以明確標(biāo)準(zhǔn)，自覺地按照標(biāo)準(zhǔn)來調(diào)整自己地學(xué)習(xí);

4.將課程設(shè)計作為學(xué)期成績的一部分記載，大約占10%，必須完成課程設(shè)計后才能參加考試，課程設(shè)計不過關(guān)，即使考得再好，也不能過。

四、取得的效果

通過以上措施，學(xué)生全部都完成了自己的項目、將所有的作品通過超鏈接網(wǎng)頁的方式集成在一個作品集中，所有的學(xué)生都完成了4～6個小作品，每個作品都反映了學(xué)生應(yīng)用課程的某部分知識解決某個問題的結(jié)果，通過完成這些作品，學(xué)生鞏固、加深了對相關(guān)知識的理解，加強了知識之間的聯(lián)系，促進了知識的遷移和應(yīng)用。同時學(xué)生看到凝聚著自己的心血、汗水、思維和創(chuàng)新的作品，就像一個母親看到自己呱呱墜地孩子那樣充滿了喜悅，激發(fā)了學(xué)生的創(chuàng)造欲望。通過同學(xué)之間作品的對比，提供了一個相互學(xué)習(xí)交流的平臺，激發(fā)了學(xué)生的競爭意識。總之通過課程設(shè)計受到了良好的多方面的效果，從考試成績來看，2004級本科全部都及格了。

>vb程序設(shè)計實驗心得三：vb課設(shè)心得體會>>（598字）

我們組這次設(shè)計的程序是考勤管理系統(tǒng)，主要用于企事業(yè)單位的考勤，便于統(tǒng)計員工的出勤情況。

1.通過這一次的程序設(shè)計，使我能夠進一步掌握用程序設(shè)計語言解決實際問題的方法，在操作當(dāng)中把所學(xué)到的用于實際的編程里面去。

2.通過這一次的程序設(shè)計，使我能夠提高分析問題、查閱資料、吸收新知識的能力，在分析解決問題時比以前有了很大的進步，一些常用的知識和一些常規(guī)的錯誤都能夠解決。

3.通過這一次的程序設(shè)計和指導(dǎo)教師姜瑤老師的指導(dǎo)使我能夠進一步對VB有了熟練的操作，并且在分析，編程方面比以前有了更大的提高。

4.我認為實踐周的程序設(shè)計是給我們學(xué)習(xí)的一個大好機會，使我們在這樣的機會里學(xué)到了一定的知識，畢竟理論要通過實踐來鍛煉，也只有自己參與了這樣的一個鍛煉，才能更好的發(fā)現(xiàn)自己的不足并加以改進和完善!

在這次的設(shè)計過程中，我學(xué)到的不僅是知識，我還認識到許多事情。這次設(shè)計使我的編程水平提高了一大步，使我充分的認識到合作的可貴。由于這次設(shè)計涉及到數(shù)據(jù)庫，我也學(xué)到了不少數(shù)據(jù)庫連接的知識，對數(shù)據(jù)庫的操作有了進一步的了解。這次設(shè)計對我的綜合能力是一次很好的鍛煉，但是我必須承認自己的能力和知識還很膚淺。所以今后我的學(xué)習(xí)道路還是很漫長的。最后，在這里我要衷心的感謝我們的指導(dǎo)老師謝謝她的耐心指導(dǎo)和熱心幫助。由于我水平有限，加之時間短暫，故學(xué)習(xí)數(shù)據(jù)庫系統(tǒng)中還有許多不足之處，請老師批評指正，我會在以后的制作中不斷改進，不斷完善。

>vb程序設(shè)計實驗心得四：vb實訓(xùn)心得>>（1108字）

為期兩周的實訓(xùn)即將結(jié)束，通過這次的實訓(xùn)使我們學(xué)到了很多，同時也讓我們意識到我們要學(xué)的更多。本次實訓(xùn)的項目是 雛鷹 學(xué)生成績管理系統(tǒng)，以小組的形式進行分工合作，我組共9個人，任務(wù)是用戶模塊的程序設(shè)計。從程序的需求分析、可行性分析、設(shè)計到編寫、調(diào)試、修改、完善、到最后的實訓(xùn)報告，每個人都付出了時間和精力去做好自己的任務(wù)并努力地去完善它。

實訓(xùn)的第一天接到任務(wù)時我們都覺得有點難度，很有挑戰(zhàn)性，畢竟學(xué)生成績管理系統(tǒng)是一個比較系統(tǒng)、完善、功能相對較齊全的管理系統(tǒng)，即使是用戶模塊也可以完成各種操作，如對用戶的查詢、添加.刪除以及修改等。因此程序編寫也十分復(fù)雜，工作量較大，編寫一定要認真。一個小小的失誤都可能使程序出現(xiàn)大的漏洞。而我們只是學(xué)了點簡單的vb程序編寫，沒有嘗試過這種相對來說比較系統(tǒng)完善的系統(tǒng)。所以在做項目的時候我們倍感壓力、更加的團結(jié)協(xié)作，可即使如此我們還是出現(xiàn)了錯誤，我們的程序在編寫上存在一些漏洞，導(dǎo)致調(diào)試時不能正常運行，后經(jīng)過老師的指導(dǎo)、我們的調(diào)整，終于可以完美的運行，這里也耽誤了我們很多寶貴的時間，直接導(dǎo)致了我們在項目調(diào)試上速度不夠快。

本人很榮幸地擔(dān)任組長一職，和另一位組長一起進行本小組成員的任務(wù)分配以及協(xié)調(diào)等。我組要做的用戶模塊分為用戶管理和修改密碼兩塊內(nèi)容。用戶管理中又包括用戶的查詢、添加、修改以及刪除功能，它是只有具有管理員權(quán)限的情況下才能進入操作、而普通用戶就只能修改自己的登錄密碼。在實訓(xùn)過程中我們也認識了一些新的老師，他們對我們親切認真負責(zé)，很有耐心地對我們進行講解并指導(dǎo)我們解決遇到的難題。老師們交會了我們很多簡單實用的技巧。也讓我們意識到了要想全面完整地完成一個模塊，首先要進行程序的設(shè)計，全面分析會用到的東西以及考慮可能會出現(xiàn)的情況，理清思緒、寫出大致的要點后再上機編寫程序以及操作。否則像一開始的我們馬上上機編寫、想到什么就補什么，不僅浪費時間也亂了之前寫好的一些程序。系統(tǒng)分析越準(zhǔn)確，設(shè)計的系統(tǒng)越精確，可以大大減少后期的修改、維護工作。當(dāng)然做好做對一個項目固然重要，同時美觀程度也是必不可少的，無論是從參觀者的角度還是自己看的角度都很重要。

總的來說，這次實訓(xùn)還是比較成功的。最后出來的系統(tǒng)，大家都很有成就感，這是我們一步步設(shè)計、一步步完善、辛苦付出后得到的成果。小組合作、幫助隊友，無論是團隊合作這方面還是個人動手這方面，我們都得到了很好的鍛煉。當(dāng)然實訓(xùn)不僅使我們學(xué)到了知識，也幫助我們縮小了實踐和理論的差距，通過這次實訓(xùn)讓我們更深一步的對vb這門課程的知識有更進一步的渴望，同時對自己的專業(yè)，對自己的能力，對自己所學(xué)的有正確的認識，并且能在以后的學(xué)習(xí)工作中不斷提高和完善自己。

第二篇：VB程序設(shè)計課程設(shè)計

VB程序設(shè)計課程設(shè)計

1、目的

VB程序設(shè)計課程設(shè)計是考察學(xué)生對VB程序設(shè)計課程相關(guān)知識點掌握情況的重要環(huán)節(jié)，也是激勵學(xué)生進一步學(xué)習(xí)VB、提高運用VB開發(fā)實際計算機程序的能力。課程設(shè)計的重點在于學(xué)生利用VB開發(fā)程序的能力。

2、課程設(shè)計題目

學(xué)生信息管理系統(tǒng)

3、程序功能

該程序具有建立數(shù)據(jù)庫，建立數(shù)據(jù)庫表，添加數(shù)據(jù)，刪除數(shù)據(jù)，查詢學(xué)生每學(xué)期成績、不及格情況、積點情況等相關(guān)信息的功能。

4、實現(xiàn)要求

每個學(xué)生建立一個數(shù)據(jù)庫（名字自擬），數(shù)據(jù)庫中建立學(xué)生基本信息表（學(xué)號、姓名、性別、出生年、出生月、出生日、聯(lián)系電話、年級、班級、住址等）、學(xué)生成績表（學(xué)號、課程號、成績、學(xué)期等）、課程信息表（課程號、課程名稱、出版社、出版日期、版次、頁碼、價格、課程類型（基礎(chǔ)課、專業(yè)基礎(chǔ)課、選修課等）、開課學(xué)院等）。

把課程信息、每一學(xué)期的成績等分別輸入相應(yīng)的表中，其中學(xué)生基本信息表記錄不少于5個學(xué)生的信息。

在以上數(shù)據(jù)的基礎(chǔ)上，實現(xiàn)相關(guān)的程序功能（不僅僅第3條指定的功能）。

設(shè)計多界面程序，相關(guān)查詢結(jié)果應(yīng)由不同的界面顯示，每個同學(xué)顯示結(jié)果的形式應(yīng)盡量不同。

5、考核

根據(jù)學(xué)生實現(xiàn)程序功能多少（40分）、界面設(shè)計情況（20分）、課程設(shè)計報告撰寫情況（20）、答辯情況（20分）進行考核。雷同者應(yīng)重做。

6、課程設(shè)計報告內(nèi)容

1）課程設(shè)計題目

2）課程設(shè)計的目的3）程序功能介紹

4）程序界面設(shè)計與控件屬性設(shè)置

5）程序代碼編寫

6）程序演示（將運行過程用截圖方式截下來，并對輸入數(shù)據(jù)、輸出的結(jié)果進行適當(dāng)說明）

7）課程學(xué)習(xí)與課程設(shè)計心得體會

7、上交材料

本次課程設(shè)計以小班為單位上交如下資料：

1）光盤：每一小班建立一個目錄（專業(yè)年級班級），在此目錄下建立每個同學(xué)的目錄（學(xué)號姓名），在每個同學(xué)的目錄下保存該同學(xué)的電子版的課程設(shè)計報告、打包的程序。

2）紙制版的課程設(shè)計報告

第三篇：vb程序設(shè)計方法

發(fā)表于《中小學(xué)信息技術(shù)教育》雜志2005年第7期 VB程序設(shè)計方法——今天我來做導(dǎo)演！

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

1、知道創(chuàng)建一個VB程序的基本步驟

2、了解窗口、事件和消息的含義

3、培養(yǎng)學(xué)生的自主探究精神

教學(xué)重點和難點：

1、窗口，事件和消息的關(guān)系

2、屬性的設(shè)置

3、代碼的輸入

學(xué)生分析：

高一學(xué)生，已經(jīng)學(xué)習(xí)了程序的三種基本結(jié)構(gòu)，能辨別三種結(jié)構(gòu)，但不會自己書寫程序。對VB基本上一無所知。

教學(xué)方法：

采用主動式任務(wù)驅(qū)動的教學(xué)方法，通過創(chuàng)設(shè)情境，激發(fā)學(xué)生對VB的興趣,使學(xué)生產(chǎn)生動手做一個VB程序的欲望.在布置任務(wù)的時候,不是教師指定完成什么任務(wù),而是由學(xué)生自己提出想完成一個樣的任務(wù)，即想做一個什么樣的VB程序，因為任務(wù)是學(xué)生自己提出來的,所以學(xué)生肯定感興趣的,這就避免了教師布置的任務(wù)不能照顧到全體學(xué)生裝的弊端.而教師作為引導(dǎo)者和技術(shù)幫助者,幫助學(xué)生一步步地完成任務(wù)，引導(dǎo)學(xué)生分解任務(wù)，分解為界面的創(chuàng)建，屬性的設(shè)置，代碼的輸入等幾部分。在實踐過程中，使學(xué)生掌握用VB進行程序設(shè)計的步驟和方法。

教學(xué)過程：

一、激趣引入

師：上節(jié)課中我們演示了一個拋硬幣的VB小程序，大家還有印象嗎？（教師演示這個程序）師：下面我再來演示幾個其他VB小程序（教師演示若干個趣味小程序，如，和劉德華對話，井字棋，心情好嗎，挖地雷，單選復(fù)選框與字體，測驗記憶力，彈球游戲，剪刀包袱，在演示過程中，讓學(xué)生注意鼠標(biāo)單擊按鈕，或者鼠標(biāo)移動，窗口上會有什么反應(yīng)）

師：窗口——舞臺，事件——導(dǎo)演的命令，反應(yīng)——演員的表演，控件——演員（以對比方式說明它們之間的關(guān)系，讓學(xué)生明白，需要哪個演員（控件）作出什么表演，要對這個演員（控件）發(fā)號施令，導(dǎo)演不能瞎指揮，不然表演要亂套的。）

師：有了舞臺，演員，導(dǎo)演在哪兒呢？導(dǎo)演就是你！今天就是請大家當(dāng)一回導(dǎo)演（出示課題：今天你來做導(dǎo)演?。┮鈭D：

1、在演示過程中，提醒學(xué)生注意窗口，事件（點擊按鈕或移動按鈕），消息（事件的反應(yīng)）。

2、激發(fā)學(xué)生的興趣，產(chǎn)生自己動手做一個VB程序的欲望。

二、形成任務(wù) 大屏幕展示：

一、確定導(dǎo)演的工作目標(biāo)，即你想要完成一個什么樣的VB程序？

老師引導(dǎo)，啟發(fā)學(xué)生，使每個學(xué)生能確定自己的目標(biāo)，即要完成一個什么樣的VB程序，即名稱是什么？功能是什么？……。（對于不能確定的學(xué)生，建議參考老師演示的例子，從中選擇一個自己感興趣的）

意圖：這是很重要的一個過程，要很好地引導(dǎo)學(xué)生，使學(xué)生清楚地知道自己的任務(wù)，即自己要做什么？

三、分解任務(wù)

（以演示中的一個小例子，來說明如何完成一個VB程序）大屏幕展示：

二、導(dǎo)演如何完成任務(wù)？

師：導(dǎo)演正式上任了，大家都胸有成竹了，明確了要做一個什么樣的VB程序，首先做什么呢？

1、界面的設(shè)計（舞臺的布置）師：一個程序，你最先看到是什么？

師：舞臺如何布局？演員如何選?。看翱谌绾尾季?？上面要放哪些東西？這些東西怎么放比較好看？……

意圖：引導(dǎo)學(xué)生從界面設(shè)計入手，學(xué)會用控件來輸入文字，圖片，通過對文字的修飾，圖片的插入，引入屬性的設(shè)置，突破這個難點。

2、如何讓對象動起來？

師：窗口布置好了，舞臺拱建好了，演員也到位了，那么讓演員如何表演呢？每個演員做什么動作呢？導(dǎo)演發(fā)布命令的時候（輸入代碼）的時候，一定要看清對象，不要亂發(fā)命令?。∫鈭D：

引入代碼的輸入。為節(jié)省時間，提供演示程序的代碼，避免自己書寫代碼。

四、動手實踐

師：各位躍躍欲試的導(dǎo)演們，按照自己剛才確定的任務(wù)，動手來完成自己的第一個VB小程序吧！可能問題：

有些學(xué)生在輸入代碼的時候，為分不清代碼需要給哪個控件加上，這時一定要讓學(xué)生明白，導(dǎo)演的指令必須是針對某個演員發(fā)的，不能亂發(fā)。對于學(xué)生碰到的問題，老師做好技術(shù)指導(dǎo)工作。

五、評價交流（展示學(xué)生作品，交流評價）

師：不同風(fēng)格的導(dǎo)演設(shè)計的效果是不同的，讓我們來欣賞一下各位導(dǎo)演的作品吧 意圖：

通過電子教室軟件，轉(zhuǎn)發(fā)一些小組完成的作品，能過交流了解其他同學(xué)的制作成果，吸取他人經(jīng)驗

提醒學(xué)生在程序中加入制作人信息，即導(dǎo)演的信息，有初步的版權(quán)意識

有些學(xué)生可能設(shè)計的任務(wù)比較大，在課內(nèi)無法完成，則鼓勵在課后繼續(xù)完成，作為拓展作業(yè)。

五、總結(jié)

師：各位導(dǎo)演感覺如何？做一個導(dǎo)演不容易吧，做一個好的導(dǎo)演更不容易。創(chuàng)建一個VB程序的基本步驟：界面設(shè)計，屬性設(shè)置，代碼輸入。

導(dǎo)演有大有小，但是基本工作是一樣的，就是上面這些步驟，今天我們是小導(dǎo)演，明天我們可能是大導(dǎo)演，期待欣賞到同學(xué)們的大作！意圖：回顧過程，總結(jié)提高。

附：學(xué)案

今天我來做導(dǎo)演

——ＶＢ程序設(shè)計方法

一、明確目標(biāo)

身為導(dǎo)演，最重要的一件事，就是明確自己的目標(biāo)，請確定你的目標(biāo)，即你想做個什么樣的VB程序？

提示：如果一時之間想不出來，可以參考老師演示的例子

二、設(shè)計舞臺（界面的布局）

１、如果你想在窗口上輸入文字，方法如下：

（１）用鼠標(biāo)選擇左邊工具欄中的“ＬＡＢＥＬ”標(biāo)簽

（２）在窗口上拖出一個大小合適的矩形（矩形的大小可以用矩形邊上的八個小方塊進行調(diào)整）

２、如果你想插入一張圖片，方法如下：

（１）用鼠標(biāo)選擇左邊工具欄中的“ＩＭＡＧＥＳ”標(biāo)簽

（２）在窗口上拖出一個大小合適的矩形

３、如果你想在窗口上增加一個按鈕，方法如下：

（１）用鼠標(biāo)選擇左邊工具欄中的“ＢＵＴＴＯＮ”標(biāo)簽

（２）在窗口上拖出一個大小合適的矩形

４、如果你想在窗口上增加一個文本框，方法如下：

（１）用鼠標(biāo)選擇左邊工具欄中的“ＴＥＸＴ”標(biāo)簽

（２）在窗口上拖出一個大小合適的矩形

：），增加其他控件的方法類似，相信自己，試一試！

三、對演員進行分工（屬性的設(shè)置）

１、如何在窗口上顯示文字？

方法如下：

（１）用鼠標(biāo)選中Ｌａｂｅｌ控件

（２）在右邊的屬性窗口中找到“Ｃａｐｔｉｏｎ”屬性，在右邊輸入要顯示的文字 思考：如何修改文字的字體？顏色？大?。?提示：修改相應(yīng)的屬性

２、如何插入圖片？

方法如下：

（１）用鼠標(biāo)選中Ｉｍａｇｅ控件

（２）在右邊的屬性窗口中找到“Picture”屬性，點擊旁邊的省略號按鈕，選擇要插入的圖片

3、如何修改Text顯示的文字？ 方法如下：

（1）用鼠標(biāo)選中Text控件

（2）在右邊鼠性中選中Text屬性，輸入要顯示的文字

4、如何修改按鈕上顯示的文字？ 方法如下：

選中按鈕，修改“Caption”屬性

四、讓演員動起來（輸入代碼）選擇演員，輸入想要演員實現(xiàn)的代碼

五、檢查一下導(dǎo)演工作進展如何？ 方法： 運行、播放

六、你是個合格的導(dǎo)演？還是個優(yōu)秀的導(dǎo)演？

1、你知道如何做一個VB程序了嗎？（知道/不知道）

2、你是個合格的/優(yōu)秀的導(dǎo)演？（是/不是）

第四篇：基于“過程創(chuàng)新”的《VB程序設(shè)計》實驗教學(xué)改革

基于“過程創(chuàng)新”的《VB程序設(shè)計》實驗教學(xué)改革

軟件學(xué)院

王彩霞

從世界上第一臺電子計算機誕生直至今天，經(jīng)過幾十年的發(fā)展計算機已近廣泛應(yīng)用到人們生活的各個領(lǐng)域，改變著大眾原有的生活、學(xué)習(xí)和工作方式。CNNIC第35次中國互聯(lián)網(wǎng)絡(luò)發(fā)展統(tǒng)計報告指出，隨著互聯(lián)網(wǎng)技術(shù)的普及和推廣，互聯(lián)網(wǎng)已經(jīng)存在于大眾生活的每個角落，成為人們生活密不可分的一部分。在計算機和網(wǎng)絡(luò)高度普及的現(xiàn)今社會，只有掌握基本的計算機使用技能，才能更有效的工作，提升自身價值。Visual

Basic語言簡單直觀、上手比較容易，使用Visual

Basic語言可以開發(fā)出各種基于Windows的應(yīng)用程序。因此，國內(nèi)很多院校在課程設(shè)置上都把Visual

Basic程序設(shè)計作為培養(yǎng)非計算機專業(yè)大學(xué)生計算機能力的必修課程。但是，Visual

Basic程序設(shè)計課程傳統(tǒng)的教學(xué)模式，更多的是將授課目標(biāo)定位在知識理論層面的講授，不注重學(xué)生的動手實踐，這種教學(xué)模式不利于學(xué)生綜合能力的培養(yǎng)和創(chuàng)新能力的發(fā)揮。對于計算機類課程，理論與實踐相結(jié)合，多動手多實踐是學(xué)好課程的關(guān)鍵。通過Visual

Basic課程的實驗實踐教學(xué)改革，培養(yǎng)學(xué)生的計算機思維能力和綜合創(chuàng)新能力，使學(xué)生具有一定解決實際問題的能力，能夠分析和處理實際工作中遇到的相關(guān)技術(shù)問題。

一、Visual

Basic實驗教學(xué)中存在的問題

1、實驗教學(xué)定位不準(zhǔn)確，內(nèi)容不合理

在目前Visual

Basic的課程教學(xué)中，理論教學(xué)的地位大于實驗教學(xué)，實驗課僅僅是理論課的補充。而作為計算機類課程，多動手才是“硬道理”，理論和實驗教學(xué)同等重要。現(xiàn)行的實驗教學(xué)內(nèi)容和理論教學(xué)內(nèi)容區(qū)分度不大，在理論課每完成一部分知識的學(xué)習(xí)后，安排學(xué)生上機實驗進行理論驗證。大多數(shù)的實驗教材都附帶完整的實驗題目源代碼，學(xué)生在實驗課上只是拷貝答案，將代碼機械的敲入計算機，并沒有解題的思考過程。程序一旦運行出錯，學(xué)生的第一反應(yīng)不是查看編譯環(huán)境的報錯提示，而是翻看實驗指導(dǎo)書的答案，尋找程序代碼和答案哪里不一致。整個實驗下來，學(xué)生并沒有掌握如何編寫程序、如何修改程序，而是成了拷貝代碼的“機器人”。這樣的實驗課程內(nèi)容設(shè)置，無法有效的培養(yǎng)學(xué)生發(fā)現(xiàn)、分析、解決問題能力。

2、實驗教學(xué)方法單一

在實驗課的教學(xué)過程中，教師的教學(xué)方法比較單一，通常一步一步把實驗步驟、要點等進行詳細講解。而學(xué)生在學(xué)習(xí)過程中，也慢慢養(yǎng)成習(xí)慣，等著老師講解不去思考問題。甚至有一些學(xué)生把老師的講解過程直接記錄下來，一步一步模仿操作，死記硬背。在最初的1~2次實驗課中，學(xué)生因為初次接觸計算機編程，這樣的教學(xué)和學(xué)習(xí)方式還是可行的。但是，整個學(xué)期的實驗課程全部采用這樣的教學(xué)和學(xué)習(xí)方式，表面看似教學(xué)效果顯著，學(xué)生能夠按時完成實驗內(nèi)容；而實際上，學(xué)生在學(xué)習(xí)過程中缺少提問、思考的機會，學(xué)習(xí)沒有主動性，綜合創(chuàng)新能力的培養(yǎng)無從談起。

二、Visual

Basic實驗教學(xué)改革的內(nèi)容

對《VB程序設(shè)計》課程實驗教學(xué)中存在的現(xiàn)有問題，進行針對性的實驗教學(xué)改革，具有一定的現(xiàn)實意義。合理有效的實驗教學(xué)改革，可以激發(fā)學(xué)生的學(xué)習(xí)興趣，提高學(xué)生的實際動手能力，培養(yǎng)學(xué)生的綜合素質(zhì)。

在教育部提出的“本科教學(xué)質(zhì)量工程”的背景下，先進的實驗教學(xué)理念是實驗改革的核心所在。實驗教學(xué)的“過程創(chuàng)新”是指“把創(chuàng)新能力的培養(yǎng)融入實驗教學(xué)的各個環(huán)節(jié)，實驗教學(xué)內(nèi)容和專業(yè)技術(shù)發(fā)展更新緊密結(jié)合”。通過實驗內(nèi)容、實驗教學(xué)方式、實驗考核方式、課后輔助教學(xué)以及培養(yǎng)目標(biāo)五個模塊的改革，實施三個層次實驗教學(xué)，將培養(yǎng)學(xué)生的創(chuàng)新能力貫穿整個實驗教學(xué)過程，形成基于“過程創(chuàng)新”的多層次、多模塊《VB程序設(shè)計》實驗教學(xué)改革體系，實驗教學(xué)改革體系如圖1所示。

實驗內(nèi)容

培養(yǎng)目標(biāo)

教學(xué)方式

VB程序設(shè)計實驗教學(xué)

基礎(chǔ)實驗

提升實驗

綜合項目

基礎(chǔ)創(chuàng)新能力培養(yǎng)

應(yīng)用創(chuàng)新能力培養(yǎng)

綜合創(chuàng)新能力培養(yǎng)

啟發(fā)式

案例式

開放式

項目式

第一層次

第二層次

第三層次

考核方式

課后輔助教學(xué)方式

圖1

基于“過程創(chuàng)新”的《VB程序設(shè)計》實驗教學(xué)改革體系

（1）在第一層次的實驗教學(xué)中，避免“演示+模仿”的教學(xué)學(xué)習(xí)方式。在實驗教學(xué)過程中，教師要把握教學(xué)程度，做到要點、難點提示，而不是面面俱到。由于升入大學(xué)前計算機教學(xué)地區(qū)差異性和學(xué)生自身的知識儲備程度不同，班級中每個學(xué)生的學(xué)習(xí)情況都不一樣。在學(xué)習(xí)過程中，一部分學(xué)生“吃不飽”，一部分學(xué)生“吃不好”的現(xiàn)象比較普遍。所以，基礎(chǔ)實驗內(nèi)容的改革將保留實驗指導(dǎo)書中的經(jīng)典例題，保證學(xué)生“吃好”；同時，引入計算機等級考試的基礎(chǔ)性題目，保證學(xué)生“吃飽”。在第一個層次的實驗學(xué)習(xí)過程中，學(xué)生既掌握了基礎(chǔ)知識，同時兼顧了計算機等級考試，學(xué)生的基礎(chǔ)創(chuàng)新能力得到了培養(yǎng)。

（2）第二個層次的實驗采用開放式教學(xué)，在實驗課中引入實驗指導(dǎo)書以外的附加題，引導(dǎo)學(xué)生通過多種方式完成，例如：同學(xué)交流、上網(wǎng)搜索解法等。對于能完成附加題目的同學(xué)，采取額外加分鼓勵機制。為了避免出現(xiàn)抄襲現(xiàn)象，嚴格考核辦法，確保考核辦法的公平公正。通過完成第二個層次的實驗內(nèi)容，有效的培養(yǎng)了學(xué)生的應(yīng)用創(chuàng)新能力。

（3）在實驗課堂上，教師把每道題目、每個操作步驟、每個知識點都講解的細致詳盡，學(xué)生學(xué)到了所有的知識點，但是卻不能建立課程知識網(wǎng)。雖然，學(xué)生學(xué)完了所有的課程內(nèi)容，但是依然無法理解什么是程序設(shè)計，如何進行程序設(shè)計。所以，在第三個教學(xué)層次中，通過開發(fā)設(shè)計多知識點相結(jié)合的綜合實驗項目，整合教學(xué)知識點，使學(xué)生能夠更好的掌握知識脈絡(luò)。第三個層次的實驗采用項目驅(qū)動式教學(xué)，學(xué)生通過項目開發(fā)團隊、參加競賽等形式完成實驗，從而培養(yǎng)學(xué)生的綜合創(chuàng)新能力。

（4）目前比較普遍的實驗成績評定方法是將每一次實驗的成績進行累加，學(xué)生在實驗完成過程中，拖沓、偷懶現(xiàn)象比較嚴重。這種評定辦法給出的實驗成績不能真實有效的反映學(xué)生的真實水平和能力，具有一定的不合理性。對實驗考核方案進行改革，將實驗成績評定細化到基礎(chǔ)內(nèi)容、提升內(nèi)容、綜合項目、實驗出勤等幾個方面，保證成績的公平公正。

（5）采用線上線下多種課后輔導(dǎo)方式，讓學(xué)生課下有問題可以及時解決，保證學(xué)生的學(xué)習(xí)持續(xù)性和學(xué)習(xí)熱情。綜合運用線上的網(wǎng)絡(luò)和媒體資源，為學(xué)生提供廣闊的學(xué)習(xí)空間。通過線下課后約談等方式，對學(xué)生學(xué)習(xí)情況進行輔導(dǎo)分析，讓學(xué)生從上機操作中總結(jié)理論知識，使理論和實踐能相輔相成。

三、Visual

Basic實驗教學(xué)改革的實施

1、實驗課堂內(nèi)容改革和實施方法

（1）實驗課堂內(nèi)容改革

《VB程序設(shè)計》課程共分為10個實驗，根據(jù)章節(jié)知識的重要性及日常使用的側(cè)重點，每次實驗在實驗指導(dǎo)書原有內(nèi)容的基礎(chǔ)上擴充二級考題和附加題，形成《分層次實驗教學(xué)文檔》。

（2）實施方法

根據(jù)《分層次實驗教學(xué)文檔》中整理的實驗內(nèi)容，每次實驗課前提前布置學(xué)生進行基礎(chǔ)實驗內(nèi)容和擴充實驗內(nèi)容的預(yù)習(xí)。每次實驗課上課時，檢查學(xué)生的預(yù)習(xí)情況。

實驗課中除完成預(yù)習(xí)實驗內(nèi)容外，當(dāng)堂布置附加題，學(xué)生可以通過多種渠道答題，但是必須經(jīng)過教師檢查、提問才能得到附加分數(shù)。

2、綜合項目開發(fā)內(nèi)容和實施方法

（1）綜合項目內(nèi)容

除實驗課堂內(nèi)容的調(diào)整之外，在每個自然班中隨機進行項目開發(fā)團隊分組，進行綜合項目開發(fā)。綜合項目演示效果截圖如下所示：

圖2

“比大小”項目

圖3

“趣味撞球”項目

圖4

“石頭剪子布”項目

圖5

“心里話”項目

圖6

“桌面時鐘”項目

（2）實施方法

開課第2周，通過隨機抽簽形式進行項目分組，每組5人左右；開課第9周，根據(jù)《綜合項目開發(fā)文檔》中的內(nèi)容，隨機抽取項目組完成的綜合項目。確定項目組題目后，根據(jù)每個項目組的要求，安排編程思路分析講解時間。

項目開發(fā)完成后，項目組可以申請?zhí)崆按疝q。沒有申請?zhí)崆按疝q的項目組，在結(jié)課前一周，按照公布的綜合項目答辯時間進行答辯。為了避免渾水摸魚等不良情形的發(fā)生，改變慣用的隊長答辯的考核方式，采用隨機抽取項目組成員進行臨時考核的方式，并將該成員成績視為項目組成績。

3、實驗教學(xué)方法調(diào)整

將以前“滿堂灌”的實驗課授課方式改為上課導(dǎo)入性講解、重點題目講解、結(jié)合學(xué)生實驗實際完成情況穿插式講解的方式，讓學(xué)生有更多的自主思考和交流的空間。對實驗課上的擴充知識和附加題，采用誰有問題誰提問解答誰的方式。這樣的實驗課授課方式，讓有興趣的同學(xué)可以學(xué)好，讓基礎(chǔ)一般的同學(xué)進行基礎(chǔ)題目編寫逐步培養(yǎng)編程興趣，促使學(xué)生能夠獨立思考，提高程序設(shè)計能力，加深學(xué)生對VB程序設(shè)計語言的掌握程度。

在綜合項目開發(fā)的過程中，通過電話、短信、、微信、郵件、課后答疑等多種形式，在整個學(xué)期的學(xué)習(xí)過程保證學(xué)生有問題隨時解決。

4、實驗成績

學(xué)生的實驗成績由實驗出勤、課堂表現(xiàn)、基礎(chǔ)實驗內(nèi)容、綜合項目四部分構(gòu)成，比重為3：2：5：5；完成實驗課堂附加題部分并通過檢查的同學(xué)，每次可獲得額外加分，所有成績合在一起不超過實驗成績總分。

四、結(jié)論

基于“過程創(chuàng)新”的多層次、多模塊實驗教學(xué)模式，對原有實驗教學(xué)模式進行了改革，實施多層次實驗教學(xué)內(nèi)容的過程控制管理，有效的提高學(xué)生程序設(shè)計能力，促使學(xué)生能夠獨立思考，并合理的綜合利用VB程序設(shè)計語言來解決具體問題。

第五篇：VB大實驗[范文]

綜 合 性 實

實 驗 名 稱: 通訊錄管理系統(tǒng)

專 業(yè) 班 級: 數(shù)字1201班

學(xué) 生 姓 名:馬曉軍

學(xué) 號：201225070125 指 導(dǎo) 教 師：王云俠

驗 需求分析：

通訊錄管理系統(tǒng)是針對系統(tǒng)服務(wù)對象的具體要求設(shè)計的，能夠輸入所有人員的

相關(guān)信息，實現(xiàn)人員的分類管理和查詢。主要設(shè)計了以下幾大功能：(1)新建、修改、刪除通訊錄記錄(2)能根據(jù)姓名進行模糊查詢(3)能根據(jù)電話查詢某人(4)方便的瀏覽逐條記錄 運行環(huán)境：

WINDOWS XP系統(tǒng)；VB6.0 3開發(fā)工具和編程語言：

Visual Basic6.0語言 4 系統(tǒng)設(shè)計

1.在下面窗口實現(xiàn)信息的瀏覽，新建，刪除以及修改，按確定執(zhí)行操作，按取消則放棄操作。

系統(tǒng)主窗體

代碼：

Private Sub CmdAdd_Click()Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdChange.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False Text1.SetFocus Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount

End Sub Private Sub CmdChange_Click()CmdAdd.Enabled = False CmdDel.Enabled = False CmdChange.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False Text1.SetFocus Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdDel_Click()x = MsgBox(“確定要刪除當(dāng)前記錄嗎？”, vbYesNo + vbQuestion, “確認”)If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Adodc1.Refresh End If Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub

Private Sub CmdEsc_Click()Adodc1.Refresh

CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdFind_Click()Form2.Show

End Sub Private Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdLast_Click()Adodc1.Recordset.MoveLast CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdN_Click()Dim n As Integer n = Text9.Text Adodc1.Recordset.Move n Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdNext_Click()Adodc1.Recordset.MoveNext CmdFirst.Enabled = True CmdPre.Enabled = True If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast CmdNext.Enabled = False CmdLast.Enabled = False End If

Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub

Private Sub CmdOk_Click()Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Text1.Locked = True Text2.Locked = True

Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True Text7.Locked = True Text8.Locked = True Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdPre_Click()Adodc1.Recordset.MovePrevious CmdNext.Enabled = True CmdLast.Enabled = True If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False End If Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub Form_Load()CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub 2.選擇要查詢的條件，輸入查詢的信息，按下查詢按鈕即可顯示查詢結(jié)果，按下返回按鈕返回上級窗口。

查詢界面窗體

代碼：

Private Sub CmdBack_Click()Form1.Show Unload Me End Sub Private Sub CmdFind_Click()Dim str As String str = “ Select * From person ”

str = str & “Where person.” & Combo1.Text & “ Like '” & Text1 & “% '” Adodc1.RecordSource = str Adodc1.Refresh End Sub Private Sub Form_Load()Combo1.AddItem “姓” Combo1.AddItem “名” Combo1.AddItem “手機” Combo1.AddItem “地址” Combo1.AddItem “公司” Combo1.AddItem “所在組” Text1.Text = "" End Sub 5 系統(tǒng)運行及測試；參考文獻;

[1]龔培曾，楊志強Visual Basic程序設(shè)計教程（第3版），高等教育出版社，2001/12 7心得體會：

1.VB程序設(shè)計本身并不復(fù)雜,翻開一本程序設(shè)計學(xué)習(xí)的書籍,看到的無非就是變量,函數(shù),條件語句,循環(huán)語句等概念.但要真正能進行程序設(shè)計,需要深入理解這些概念.因此,在程序入門階段還是應(yīng)該重視概念的學(xué)習(xí)、多請教老師、多與同學(xué)交流解決問題的方法、多與他人進行討論問題，所有VB問題都會弄懂的。

2.VB程序設(shè)計的入門學(xué)習(xí)并不難,但卻是一個十分重要的過程,因為程序設(shè)計思想就在這時形成的,良好的程序設(shè)計習(xí)慣也在這個階段養(yǎng)成。

3.課前預(yù)習(xí),認真聽課并適當(dāng)做些筆記,課后要認真復(fù)習(xí)消化所學(xué)內(nèi)容,完成作業(yè)。4.最后，本學(xué)期我VB程序設(shè)計能順利完成，我最要感謝的是我的王云俠老師，本身VB程序設(shè)計是很門讓人枯燥乏味的課程，而且讓我們感覺很難的課程；但是，值得我們幸運的是，我們遇到一位頗有責(zé)任心、有耐心、講課通俗易懂的好老師——王老師，加上她平日的熱情、耐心認真地指導(dǎo)；最終，使得我的通訊錄管理系統(tǒng)綜合實驗很順利的完成了；更使我懂得了，只要認真、用心、踏實地學(xué)習(xí)VB程序設(shè)計，我們一定會把VB學(xué)好的。