第一篇：《VB課程設計》實訓計劃

《VB課程設計》實訓計劃

一、實驗目的

全面掌握利用VB實施應用軟件開發的知識和方法，系統提高中小型應用程序的開發能力，努力培養提高創新精神和團隊精神，為以后學習JAVA打下堅實的基于面向對象的應用軟件開發基礎。

二、設計時間

2010-2011學年第二學期第16-18周。

三、組織形式

獨立完成。

四、基本要求

1、設計必須在機房完成，不得遲到、早退或曠課。

2、設計作品的實現功能不得低于設計要求。

3、根據設計流程撰寫設計報告，主要包括系統分析、解決方案、主要功能的實現要點、設計中遇到的問題及解決方法、設計中存在的不足、對設計的感想和心得體會等。

4、設計過程中要開拓思路、互相協作、自主學習，努力提高分析問題和解決問題的能力。

5、不得抄襲他人作品，一經發現，作零分處理。

五、具體任務

任務一：Visual Basic操作基礎 任務難度：* 基本要求：

? 熟練掌握Visual Basic 6.0的啟動方法。? 熟悉VB的開發環境。

? 熟悉常用菜單，使用菜單和工具欄創建工程，保存工程生成exe文件。? ? 學會向窗體中放置控件和使用屬性窗口。

學會建立一個簡單界面的應用程序，在代碼編輯窗口中添加代碼。

? 掌握啟動工程和結束工程的方法。任務二：程序設計基礎1 任務難度：** 基本要求：

? 掌握VB的常量、變量、數組和表達式的定義。? ? ? ? 熟練掌握VB簡單的語句書寫。掌握分支結構的使用。掌握循環結構的使用。

掌握各種常用函數的使用。

任務三：程序設計基礎2 任務難度：*** 基本要求： ? ? ? ? 熟練掌握常用函數的使用。熟練掌握分支結構的使用。熟練掌握循環結構的使用。掌握常用簡單算法的編程。

任務四：窗體、標簽、文本框和按鈕 任務難度：* 基本要求：

? 學會添加多個窗體。? ? ? ? ? 掌握啟動窗體和切換窗體。掌握為窗體添加事件代碼。掌握標簽的屬性和事件代碼。掌握文本框的屬性和事件代碼。掌握按鈕的事件代碼

任務五：框架、選項按鈕、列表框和組合框 任務難度：* 基本要求：

? 掌握選項按鈕和復選框各控件的使用。? ? 掌握列表框的使用。掌握組合框的使用。

? 區別幾種控件的使用場合。任務六：菜單與工具欄 任務難度：* 基本要求：

? 熟練掌握菜單編輯器的使用方法。? 掌握菜單、工具欄的設計技巧。

? 熟練掌握菜單和工具欄的應用方法。任務七：過程與函數 任務難度：* 基本要求：

? 熟練掌握代碼編輯窗口的操作。? ? ? 過程與函數的定義。

熟練掌握過程與函數參數的傳遞。掌握過程與函數的變量的有效范圍。

? 掌握過程與函數的調用過程 任務八：數據庫功能 任務難度：** 基本要求： ? ? ? 掌握數據管理器的使用方法。掌握數據庫的基本操作。掌握ADO的使用方法。

任務九：圖形與圖像

同類設計：英語字典、漢語字典 任務難度：* 基本要求： ? ? ? 掌握VB坐標系和各項設置方法。掌握各個繪圖方法。

掌握圖形圖像的顯示方法。? 掌握滾動條的使用方法

任務十：文件管理 任務難度：*** 基本要求：

? 掌握公共對話框的使用方法。? ? 理解文件操作的一般步驟及實現方法。掌握文件系統控件。

? 了解FSO的特點及使用方法。任務十一：圖書管理系統 任務難度：***** 基本要求： ? ? ? 在Visual Basic6.0的環境下設計一個圖書管理系統。

實現圖書和人員的增、刪、改，圖書的借閱和賠償管理等操作。培養學生基本的編程思路和掌握簡單的算法及實際應用能力。

? 了解VB開發應用程序的整個過程。

六、考核辦法

總分100分，按以下方法進行考核：

1、遵守設計紀律，不遲到、不早退、不曠課。20分。遲到或早退一次扣2分、曠課1小時扣5分。該項不及格者，設計評定為不及格。

2、認真撰寫實驗報告。20分。

3、作品設計符合任務要求。30分。抄襲他人作品的，設計為零分。

4、作品測試、答辯。30分。

第二篇：VB實訓總結

VB實訓總結

時間過得真快，轉眼間，一周的實訓生活已悄然過去了，然而實訓的過程還歷歷在目。

實訓期間，讓我學到了很多東西，不僅使我在理論上對VB程序設計有了全新的認識，在實踐能力上也得到了提高，真正地做到了學以致用，更學到了很多做人的道理，對我來說受益非淺。親身感受到理論與實際的相結合，讓我大開眼界。也是對以前所學知識的一個初審吧！這次實訓對于我以后學習、找工作也真是受益菲淺，在短短的一周中相信這些寶貴的經驗會成為我今后成功的重要的基石。作為一名大二的學生，經過差不多一年半的在校學習，對程序設計有了理性的認識和理解。在校期間，一直忙于理論知識的學習，沒有機會也沒有相應的經驗來參與項目的設計開發。所以在實訓之前，程序設計對我來說是比較抽象的，不知道一個完整的程序要怎么完成。

這次我做的項目是人事管理系統，其中包含了登陸、員工資料庫、考勤庫、工資庫、商務信息等幾個部分。在實訓剛開始的時候，做的只是幾個簡單的界面，覺得其實還算比較簡單的，到第三天，基本部分的代碼都編寫出來了，但是調試的時候出現了很多問題。而且，有時候由于考慮不周以及粗心的緣故，代碼方面也存在很大的誤差。老師們教會了我們很多簡單實用的技巧。也讓我們意識到了要想全面完整的完成一個模塊，首先要經行程序設計，全面分析會用到的東西及

考慮可能會出現的情況。所以出現的問題也在老師的指導下，順利解決了。本程序的編寫，有很多不足的地方，可能有些功能不太全面也不太完善，但我覺得自己是認認真真的做了，而且從中學到了很多，以后，我要把自己欠缺的知識點補習好，而且要學會舉一反三，融會貫通，最重要的是改掉粗心馬虎、考慮不周的習慣。我想我以后會將此程序完善好，爭取能夠運用到生活中去。

在實訓期間帶給我不僅僅是一種經驗，更是我人生的一筆財富。俗語說:紙上得來終覺淺。沒有把理論用于實踐是學得不深刻的。當今大學教育是以理論為主，能有機會進行實訓，對我來說是受益不淺的。我就快畢業走向社會了，相信這次實習對我日后參加工作有幫助。

一路的艱辛與微笑，雖有所收獲，然所學是開始，新的考驗和抉擇要奮斗不息、礪前行，請不要讓我們年輕的時光留下太多遺憾！

第三篇：VB實訓心得

為期一周的實訓即將結束，通過這次的實訓使我們學到了很多，同時也讓我們意識到我們要學的更多。本次實訓的項目是關于工程測量的程序設計，以小組的形式進行分工合作，我組共3個人，任務是四等水準測量的程序設計。從程序的需求分析、可行性分析、設計到編寫、調試、修改、完善、到最后的實訓報告，每個人都付出了時間和精力去做好自己的任務并努力地去完善它。

實訓的第一天接到任務時我們都覺得有點難度，很有挑戰性，畢竟四等水準測量是一個比較系統、完善、功能相對較齊全的計算程序，因此程序編寫也十分復雜，工作量較大，編寫一定要認真。一個小小的失誤都可能使程序出現大的漏洞。而我們只是學了點簡單的vb程序編寫，沒有嘗試過這種相對來說比較系統完善的系統。所以在做項目的時候我們倍感壓力、更加的團結協作，可即使如此我們還是出現了錯誤，我們的程序在編寫上存在一些漏洞，導致調試時不能正常運行，后經過老師的指導、我們的調整，終于可以完美的運行，這里也耽誤了我們很多寶貴的時間，直接導致了我們在項目調試上速度不夠快。

本人很榮幸地擔任組長一職，與其他組員一起進行任務分配以及協調等。我組做了四等水準測量的計算程序、豎直角計算和視距測量三塊內容。在實訓過程中，老師對我們親切認真負責，很有耐心地對我們進行講解并指導我們解決遇到的難題。老師交會了我們很多簡單實用的技巧。也讓我們意識到了要想全面完整地完成一個模塊，首先要進行程序的設計，全面分析會用到的東西以及考慮可能會出現的情況，理清思緒、寫出大致的要點后再上機編寫程序以及操作。否則像一開始的我們馬上上機編寫、想到什么就補什么，不僅浪費時間也亂了之前寫好的一些程序。系統分析越準確，設計的系統越精確，可以大大減少后期的修改、維護工作。當然做好做對一個項目固然重要，同時美觀程度也是必不可少的，無論是從參觀者的角度還是自己看的角度都很重要。

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

第四篇：VB綜合實訓

VB換膚（GUI界面）

第一種方法：后綴為.she文件的皮膚

SkinSharp換膚庫不是COM組件，無需進行系統注冊，僅以標準dll方式存在。

1.打開vb6開發環境，新建一個工程文件，并存檔

2.將一個名為“膚色”的文件夾和一個名為SkinH_VB6.dll的文件拷貝到工程所在的目錄

3.外部函數接口api函數原型，把這原形放在通用聲明段

Private Declare Function SkinH_AttachEx Lib “SkinH_VB6.dll”(ByVal lpSkinFile As String, ByVal lpPasswd As String)As Long

4.若需要什么樣的皮膚（即.she文件）就在相應的事件（比喻在Form_Load()）中輸入下面的內容：

SkinH_AttachEx App.Path & “/皮膚/vista.she”, “ ”

app.path：系統字串常量，返回工程所在的路徑。

皮膚：是跟工程在同一目錄下的一個文件夾

vista.she：皮膚文件，可以把網上下載的.she文件放在同目錄下用時，只接按上四步驟即可。

第二種方法：ActiveSkin 4.3軟件的應用。可以自己更改皮膚

1.安裝ActiveSkin 4.3。同其它軟件安裝一樣。

2.漢化該軟件。直接運行setup.exe（漢化的安裝文件）。點下一步直至完成

3.新建一個VB工程文件，在工具箱灰白色地方右鍵單擊，選擇[部件]，在部件對話框中勾選ActiveSkin 4.3后單擊[應用][確定]

4.在出現的兩個控件中選擇拖入到窗體上。右鍵單擊，選擇[編輯皮膚]即可到ActiveSkin 4.3中編輯皮膚

5.Label控件必須使用該部件給的ab控件來替換。原本的A是不會顯示

6.選擇相應的事件(如Form_Load())。在該事件中輸入：

Skin1.ApplySkin Me.hWnd

7.如果要移植你的程序到別的機器上運行，請編譯打包。因為該皮膚需要系統其它文件來支持。所以你可以選擇VB-PowerWrap進行VB程序的封裝

VB與ACCESS2003數據庫連接相關步驟：

第一步：建立連接

1.引用相關組件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 2.在通用聲明段申明：Dim mConn As ADODB.Connection 3.在對應的事件（如Form_Click()）中：set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection 4.設置其連接字串（與磁盤上的MDB文件建立連接）：

mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “RSData.mdb” 5.打開連接：mConn.Open 6.測試連接是否成功：if mConn.State=adStateOpen then msgbox “數據庫已經連接成功！” else msgbox “數據庫連接不成功！” 以上連接方法是在事件里完成，也可以把連接做一個過程，需要連接時直接帶參調用也可。如在模塊中這樣定義

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中調該函數。其相應代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失敗！”

End If End Sub

第二步：從數據庫中取出記錄，綁定到相對應的控件(Microsoft DataGrid Control 6.0(SP6)(OLEDB))中

1.在通用聲明段定義記錄對象：

Dim rs As New ADODB.Recordset 2.在相應的事件（如Form_Click()）中定義：

Set rs = New ADODB.Recordset Dim sql As String

sql = “select * from 部門表” rs.CursorLocation = adUseClient rs.Open sql, mConn, 1, 3

3.在窗體上從部件中找到Microsoft DataGrid Control 6.0(SP6)(OLEDB)并加載到工具箱上，然后產生一個實體對象，其名稱為DataGrid1 Set DataGrid1.DataSource = mRst.DataSource

注意：游標與鎖

0=adopenForwardonly:僅向前游標 — 除僅允許在記錄中向前滾動之外，其行為類似動態游標。這樣，當需要在 Recordset 中單程移動時就可提高性能。

1=adopenkeyset:鍵集游標 — 其行為類似動態游標，不同的只是禁止查看其他用戶添加的記錄，并禁止訪問其他用戶刪除的記錄，其他用戶所作的數據更改將依然可見。它始終支持書簽，因此允許 Recordset 中各種類型的移動。

2=adopenDynamic:動態游標 — 用于查看其他用戶所作的添加、更改和刪除，并用于不依賴書簽的 Recordset 中各種類型的移動。如果提供者支持，可使用書簽。3=adopenstatic:靜態游標 — 提供記錄集合的靜態副本以查找數據或生成報告。它始終支持書簽，因此允許 Recordset 中各種類型的移動。其他用戶所作的添加、更改或刪除將不可見。這是打開客戶端(ADOR)Recordset 對象時唯一允許使用的游標類型。

mRst.CursorLocation = adUseClient:使用由本地游標庫提供的客戶端游標

mRst.CursorLocation = adUseServer 默認值。使用數據提供者或驅動程序提供的游標。

1=adLockReadOnly 默認值，只讀。無法更改數據。

2=adLockPessimistic 保守式記錄鎖定（逐條）。提供者執行必要的操作確保成功編輯記錄，通常采用編輯時立即鎖定數據源的記錄的方式。

3=adLockOptimistic 開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調用 Update 方法時鎖定記錄。

4=adLockBatchOptimistic 開放式批更新。用于與立即更新模式相反的批更新模式。

第三步：向數據庫中寫數據（找一個相應的事件，如Command1_Click()）

Dim bmid As String,bmmc As String,sql As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset bmid = Text1.Text:bmmc = Text2.Text conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

On Error GoTo cancel: sql = “insert into 部門表(部門ID,部門名稱)values('” + bmid + “','” + bmmc + “')” rs.Open sql, conn

cancel:

If conn.Errors.Count = 0 Then

Else

MsgBox “寫數據有問題，主鍵重復”

End If 除了用SQL語句增加庫記錄以外，也可以用下面的方法來增加庫記錄

rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.Open “部門表”, conn, , , adCmdTable rs.AddNew rs.Fields(0)= bmid rs.Fields(1)= bmmc rs.Update 第四步：刪除數據庫中的一條記錄（找一個相應的事件，如Command2_Click()）

Private Sub command2_click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset

Dim bmid As String bmid = Trim(DataGrid1.Columns(0))conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “delete from 部門表 where 部門ID='” + bmid + “'” rst.Open sql, conn, 1, 3

sql = “select * from 部門表”

rst.CursorLocation = adUseClient

rst.Open sql, conn, 1, 3 if not rst.eof()then

rst.movenext end if

Set DataGrid1.DataSource = rst.DataSource set rst=nothing set conn=nothing End sub 第五步：更改數據庫中的信息（找一個相應的事件，如Command1_Click()）Private Sub Command1_Click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset Dim s As String

s = “實驗中心”

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “update 部門表 set 部門名稱='” + s + “' where 部門ID='001'” rst.Open sql, conn End Sub

第一步：建立連接

1.引用相關組件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 Dim mConn As ADODB.Connection Private Sub Form_Click()set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “Police Information.mdb” mConn.Open if mConn.State=adStateOpen then msgbox “數據庫已經連接成功！” else msgbox “數據庫連接不成功！” End Sub 以上連接方法是在事件里完成，也可以把連接做一個過程，需要連接時直接帶參調用也可。如在模塊中這樣定義

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中調該函數。其相應代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失敗！”

End If End Sub

第五篇：vb實訓心得

Vb實訓心得

這次實訓，我覺得我真收獲挺多的，以前愚昧無知，現在感覺是豁然開朗，VisualBasic程序設計，剛開始學vb時不知道是干啥用的，我覺得很新鮮，于是乎很認真的聽講，我發現這門課程很有趣，老師幽默而卻講課生動，很吸引人，就這樣，喜歡上VB了，感覺挺有用的，剛開始就想著還可以自己編軟件，多好啊！其實真沒那么容易啊，要學好VB也是一件不容易的事，經過這次實訓，我覺得我的vb有大大的提升，總而言之，最重要的是多做例題多實踐多鍛煉多操

作。下面在介紹一下VB的發展過程：

VisualBasic(簡稱VB)是Microsoft公司于1998年推出的可視化開發工具。Visual意為“可視化”，它是指開發圖形用戶界面（GUI）時，無須編寫大量代碼去描述界面元素的位置和外觀。Basic是指BASIC語言，這是一種面向初學者的語言。VisualBasic是基于Ｂasic的可視化程序設計語言，它繼承了Basic語言簡單易懂的特點，采用面相對對象、事件驅動的編程機制，提供了直觀的可視化程序設計方法。VisualBasic是目前面向對象開發的主要語言之一，是最簡單、最容易使用的語言，因此它是初學者學習可視化編程語言的最佳選擇。在以Windows操作系統為平臺的眾多可視化編程工具中，VisualBasic具有易用性、通用性和開發效率高等特點，這使得VisualBasic特別適合于一般應用程序的開發，成為最流行的Windows應用程序開發語言。VisualBasic6.0現有三種版本：學習

版、專業版和企業版。

VB集成了一系列功能，在VB程序設計環境中能夠完成程序的編寫、調試、查錯、運行、編譯、保存等基本操作，同時還提供了大量程序

設計的“零部件”（在VB中稱為函數、控件），能夠很方便的根據

需要“組裝”成一個復雜的程序。

vb開發的應用程序的運行采用事件驅動原理。程序設計人

員不僅在程序設計時不需要考慮程序代碼執行的先后問題，而且同一

個對象可以因用戶的不同操作而產生不同的結果。

vb中提供的編輯器不僅提供了典型的windows文字處理應

用程序的各種功能，如剪切、復制、粘貼等，使得程序的輸入和修改

非常方便。而且在vb代碼窗口輸入代碼時，對于vb中的對象的屬性、方法，內置的函數、已定義的自定義函數、過程，已定義的變量等，能自動給出拼寫提示。這樣可大大減少編程人員的記憶量。

在vb開發環境下，通過api(application program interface)

函數調用，可充分使用windows提供的各種系統資源，來擴充所開發的應用程序的功能。

vb全面支持windows系統的ole（object linking and

embedding）技術，因此可以方便、快捷地實現不同應用程序之間的動態數據交換。

另外，在vb中，可以開發出包括標準exe（標準windows應

用程序）、activex控件、activex exe(對象的嵌入和鏈接)等多種

類型的應用程序。

Visual Basic 語言的特點：

1、面向對象的可視化設計平臺

2、事件驅動的編程機制

3、結構化的程序設計語言

4、強大的數據庫功能和網絡開發功能

5、充分利用Windows資源

6、方便實用的程序指導

我們已經學了一學期VB了，大家知道VB都能做什么呢？記事

本、畫圖、做一些小游戲等等，其實還有好多好多東西都能用VB編

出來，世界著名的三大軟件之一---SPSS就是用VB開發的。現代社

會，隨著計算機科學技術飛速發展，VB也不斷改進，他已經徹底擺

脫了“玩具語言”的形象，成為編制通用Windows應用程序、數據庫

應用程序、多媒體應用程序以及網絡應用程序的理想工具。VB不僅

是一種編程語言，而且是集應用程序開發、調試和測試于一體的集成開發環境。

作為當代大學生，我們在以科技為主導的新世紀里，一定要掌握

vb這門課程，有利的發揮我們的才能和智慧，輝煌我們的人生！