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

綜 合 性 實

實 驗 名 稱: 通訊錄管理系統

專 業 班 級: 數字1201班

學 生 姓 名:馬曉軍

學 號：201225070125 指 導 教 師：王云俠

驗 需求分析：

通訊錄管理系統是針對系統服務對象的具體要求設計的，能夠輸入所有人員的

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

WINDOWS XP系統；VB6.0 3開發工具和編程語言：

Visual Basic6.0語言 4 系統設計

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

系統主窗體

代碼：

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(“確定要刪除當前記錄嗎？”, 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.選擇要查詢的條件，輸入查詢的信息，按下查詢按鈕即可顯示查詢結果，按下返回按鈕返回上級窗口。

查詢界面窗體

代碼：

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 系統運行及測試；參考文獻;

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

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

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

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

第二篇：vb實驗教案 -

實驗一 VB集成開發環境和簡單程序設計

一、本次課主要內容

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

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

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

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

2．學習怎樣啟動和退出Visual Basic；

3．熟悉Visual Basic的工作環境，為以后的程序設計作好準備； 4．理解Visual Basic中對象和類的概念。5．學習用屬性窗口設置對象屬性的方法。

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

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

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

五、作業與習題布置

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

實驗一 VB集成開發環境和簡單程序設計

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

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

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

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

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

P 2

教學后記：

實驗二 順序結構程序設計

一、本次課主要內容

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

二、教學目的與要求

1．掌握Visual Basic數據類型的基本概念。2．掌握變量，常量的定義規則。

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

三、教學重點難點

VB的各種運算符的功能及表達式的構成

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

五、作業與習題布置

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

P 3

實驗二 順序結構程序設計

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

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

圖6

除法運算符實驗（界面設計）

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

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

P 5

圖7

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

2．先用手工計算下列表達式的值，然后在立即窗口中試驗這些表達式的輸出結果。

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

教學后記：

P 6

實驗三 選擇結構程序設計

一、本次課主要內容

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

2．按要求編寫程序實現稅務部門征收所得稅的納稅金額。

二、教學目的與要求

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

三、教學重點難點

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

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

五、作業與習題布置

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

P 7

實驗三 選擇結構程序設計

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

2．稅務部門征收所得稅，規定如下：（1）收入在800元以內，免征；

（2）收入在800~1000元以內，超過200元的部分納稅5%；（3）收入在1000~2000元以內，超過1000元的部分，納稅8%；（4）當收入達到2000元或超過時，納稅10%； 編程實現上述操作。（1）編寫程序代碼：

（2）程序運行

程序運行后，單擊窗體，在輸入對話框中輸入收入數，程序將輸出納稅金額。例如輸入1560，運行情況如圖30所示。

P 8

圖30 納稅運行情況

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

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

5．設在窗體上已經建立一個文本框Text1，兩個命令按鈕Commmand1和Command2，說明執行以下語句后，各控件將顯示什么內容？

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 教學后記：

實驗四 循環結構程序設計

P 10

一、本次課主要內容 1．計算階乘。

2．編程實現勾股定理中三個數的關系是a2＋b2 = c2。3．編程求完全數。

二、教學目的與要求

1.熟悉分支轉移結構程序設計，靈活使用有關語句。2.熟悉循環結構程序設計，靈活使用各種循環語句。3.能夠正確閱讀嵌套循環，及正確使用嵌套循環。

三、教學重點難點

循環結構程序設計及相關語句的用法

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

五、作業與習題布置

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

實驗四 循環結構程序設計

P 11 1.計算階乘

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

（1）編寫程序

（2）程序運行后，單擊窗體，將輸出30以內滿足關系的整數a，b，c的組合，同時顯示相應的a*a，b*b，c*c，結果如圖36所示。

圖36

程序執行結果

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

程序如下：

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

P 12

程序執行結果

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

（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語句重寫該程序。

教學后記：

實驗五 VB的常用控件

一、本次課主要內容

1．設置文本框Text1中內容的字體、字型和顏色。

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

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

二、教學目的與要求

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

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

三、教學重點難點 常用控件的使用方法

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

五、作業與習題布置

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

P 13

P 14

實驗五 VB的常用控件

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

運行結果：

第二題：

運行結果：

P 15

第四題：

運行結果：

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

教學后記：

實驗六 數組

一、本次課主要內容

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

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

二、教學目的與要求 1.掌握數組的基本概念。2.掌握數組的聲明、應用。3.掌握控件數組。

4.掌握如何利用數組解決與數組相關的常用算法（特別是排序算法）。

三、教學重點難點

利用數組解決與數組相關的常用算法

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

五、作業與習題布置

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

實驗六 數組

第一題：

P 17

Dim a(0 To 9)As Integer '定義一個大小為10的整形數組 '數組賦值命令按鈕事件過程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“請輸入數組元素” & i + 1 & “/” & “10”, “數組賦值”))Next i End Sub '顯示數組元素命令按鈕事件過程 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%()'定義一個二維數組(6x8)和兩個動態數組 '將二維數組按行存儲到一維數組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 = “" '將按行存放后的一維數組b的元素顯示到文本框中 For i = LBound(b)To UBound(b)Text2.Text = Text2.Text & Format(b(i), ”@@@@“)Next i End Sub '將二維數組按列存儲到一維數組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 = ”“ '將按列存放后的一維數組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 = ”“ '二維數組初始化

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 ”輸入的三條邊不能構成一個三角形！" 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

教學后記：

P 24

P 25

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

一、本次課主要內容

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

二、教學目的與要求

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

2.掌握利用VB內部函數、表達式、控制結構等知識進行較復雜的編程。

三、教學重點難點 等級考試的復雜題型

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

五、作業與習題布置

1.認真完成和按時提交考查任務；

2.自行復習，準備下學期初的國二VB考試。

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

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

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

教學后記：

第三篇：VB實驗指導書

VB程序設計

實驗指導書

電子與計算機科學技術學院 實驗一

熟悉VB集成開發環境

一、實驗目的

1．熟悉計算機環境 2.VB的安裝、啟動與退出 3.熟悉VB語言編程環境

二、實驗環境

1．計算機

2.Visual Basic 6.0開發環境

三、實驗說明

1．熟悉機房實驗環境

2．學習Visual Basic 6.0開發環境

四、實驗內容和步驟

1.實驗內容

（1）Windows的基本操作。（2）VB的安裝、啟動與退出。（3）VB集成開發環境的初步使用。2.實驗步驟

（1）打開計算機，進入Windows；

（2）在CD－ROM驅動器中插入Visual Basic 6.0系統盤；（3）運行安裝程序（Setup.exe），即可進入“安裝程序向導”；

（4）在“安裝程序向導”引領下，按步驟選擇相應的選項，添加對應的參數，完成安裝過程；

（5）從以下幾方面熟悉VB集成開發環境：

? 標題欄 ? 菜單欄 ? 工具欄 ? 工程設計窗口 ①“工程資源管理器”窗口 ②“窗體設計器”窗口 ③“屬性設置”窗口 ④“代碼設計”窗口 ⑤“窗體布局”窗口 ⑥“立即”窗口 ⑦“工具箱”窗口

五、實驗報告要求

1.整理實驗結果，填入相應表格中 2.小結實驗心得體會 3.回答思考題：

（1）如果“立即”窗口和“工具箱”窗口已被關閉，如何打開？（2）如果想改變VB程序代碼的字體，應如何進行設置？

實驗二

建立VB應用程序

一、實驗目的

1．進一步熟悉VB語言編程環境 2．熟悉創建VB程序的步驟

二、實驗環境 1．計算機

2．Visual Basic 6.0開發環境

三、實驗說明

1．熟悉創建VB程序的步驟

2．進一步學習Visual Basic 6.0開發環境

四、實驗內容和步驟

1.實驗內容

（1）設計一個窗體，當單擊“顯示”按鈕時，在文本框內顯示“走進VB程序樂園”；當單擊“清除”按鈕時，清除文本框內的文本；當單擊“退出”按鈕時，結束程序運行。程序界面如下所示：

（2）設計一個窗體，打開窗體時，標簽顯示“風景這邊獨好！”且為黑色；當單擊“紅”時標簽顯示紅色；當單擊“黃”標簽顯示黃色；當單擊“還原”按鈕時，標簽顯示黑色；當單擊“退出”按鈕時，結束程序運行。程序界面如下所示：

2.實驗步驟（1）打開計算機，在Visual Basic 6.0系統環境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開工具箱窗口添加所需控件，設計該實驗的界面；

（4）在“工程設計”窗口，選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；

（5）打開“工程設計”窗口，選擇“文件”菜單中的“保存窗體”菜單選項，將所建的窗體保存到指定的磁盤文件中；

（6）打開“工程設計”窗口，選擇“文件”菜單中的“保存工程”菜單選項，將所建的VB工程保存到指定的磁盤文件中；

（7）在“工程設計”窗口，選擇“運行”菜單中的“啟動”菜單選項，運行程序，觀察運行結果。

五、實驗報告要求1．整理實驗結果，填入相應表格中 2．小結實驗心得體會 3.回答思考題: 使用文本框和標簽都可以顯示信息，二者所使用的屬性一樣嗎？請分別指出。

實驗三

內部函數的使用

一、實驗目的

1．理解VB內部函數的功能和書寫格式 2．學會在“立即”窗口中進行操作

二、實驗環境

1．計算機

2．Visual Basic 6.0開發環境

三、實驗說明

1．熟悉Visual Basic 6.0開發環境 2．學會使用“立即”窗口 3．練習使用常用的內部函數

四、實驗內容和步驟

1.實驗內容（1）常用數學函數 練習使用常用的數學函數：Abs、Cos、Exp、Int、Log、Rnd、Sgn、Sin、Sqr、Tan等。（2）常用字符函數

練習使用常用的字符函數：Lcase、Left、Len、Ltrim、Mid、Right、Rtrim、Space、Trim、Ucase等。（3）常用轉化函數

練習使用常用的轉化函數：Asc、Chr、Str、Val等。（4）常用日期函數

練習使用常用的日期函數：Date、Day、Hour、Minute、Month、Now、Second、Time、Weekday、Year等。（5）計算下列函數值。①Sqr(4+3*7)②Int(123.456)③Abs(-12345)④Mid$(“abcdABCD”,5,4)⑤Len(“清華大學出版社ABCD”)⑥Asc(“M”)⑦Asc(Chr(100))⑧DataDiff(“D”,#3/25/2004#,#10/30/2004#)⑨IsData(#11/20/2003#)⑩IsNumeric(“ABC”)2.實驗步驟

（1）打開計算機，進入Visual Basic 6.0系統環境；

（2）在視圖下拉菜單中選擇“立即窗口”，在“立即窗口”中計算各函數的值。

五、實驗報告要求1．整理實驗結果，填入相應表格中 2．小結實驗心得體會 3．回答思考題:（1）Int函數的功能是獲取數值的整數部分，如果在獲取數值整數部分的時候，要實現“四舍五入”，該如何實現？

（2）Rnd函數的功能是返回一個0至1之間的隨機數，如果要返回0至100之間的隨機數，該如何實現？

實驗四

表達式的書寫及求值

一、實驗目的

1.掌握算術運算符、字符運算符和邏輯運算符的含義 2.掌握算術表達式、字符表達式和邏輯表達式的書寫 3.掌握算術表達式、字符表達式和邏輯表達式的求值

二、實驗環境

1．計算機

2.Visual Basic 6.0開發環境

三、實驗說明

1．理解VB中各種運算符的含義

2．練習算術表達式、字符表達式和邏輯表達式的書寫

3．在“立即”窗口中練習算術表達式、字符表達式和邏輯表達式的求值

四、實驗內容和步驟

1.實驗內容

（1）將下列代數式寫成Visual Basic的算術表達式，并給題中變量賦值（a=1,b=2,c=3,x=2,y=1），然后計算表達式的值。

sin2(20?a(4ab?1))①

315abc?(abc②a?b?c)sin45?x?yxy ③22x?y2xy?1?a④

52a9ealna⑤

（2）已知na=100，nb=5，sa$=“Visual Basic”，da=#3/15/2004 8:15:03 PM#，sb$=“程序設計”，la=True，計算下列表達式的值。①(na+nb)/ Sqr(na)②Mid(sa + sb,8,7)③Right(sa$,5)+ Space(5)+ Left(sb$,2)④sb & Str(na)& “ 分” ⑤Year(da)& Month(da)& Day(da)⑥Hour(da)& “:” & Minute(da)& “:” & Second(da)⑦da + 20 ⑧na + nb > 200 And Sqr(na)> 10 Or la ⑨Len(sa)= 12 And Not la And na = 100 ⑩Hour(da)> Int(na / 10)And na > nb 2.實驗步驟

（1）打開計算機，進入Visual Basic 6.0系統環境；

（2）在視圖下拉菜單中選擇“立即窗口”，在“立即窗口”中書寫表達式，并計算各表達式的值。

五、實驗報告要求1．整理實驗結果，填入相應表格中 2．小結實驗心得體會 3．回答思考題：

（1）試計算以下表達式的值：3 Or 3, 4 And 1。

（2）把以下表達式中的括號去掉后，表達式的值改變了嗎？為什么？

?((1＋2)<(2*2))Or(10/2<>5)?((1＋2)<(2*2))+(10/2<>5)

實驗五

輸入輸出操作

一、實驗目的

1．掌握賦值語句的使用 2．掌握Print方法的使用 3．掌握輸入輸出對話框的使用

二、實驗環境

1．計算機

2．Visual Basic 6.0開發環境

三、實驗說明

1．理解賦值語句、Print方法、輸入輸出對話框的使用 2．練習賦值語句、Print方法、輸入輸出對話框的使用

四、實驗內容和步驟

1.實驗內容

（1）設計一個窗體，用Print方法在窗體上顯示“輕松快樂學VB！”。

（2）設計一個窗體，單擊窗體時，實現以下功能：

① 使用Inputbox函數輸入兩個整數X和Y； ② 計算|sinx+cosy|的值，并賦給變量Z； ③使用Msgbox函數輸出計算結果。2.實驗步驟（1）打開計算機，在Visual Basic 6.0系統環境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開工具箱窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計窗體單擊事件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求

1．整理實驗結果，填入相應表格中 2．小結實驗心得體會 3．回答思考題：

（1）Inputbox函數的返回值是什么類型的數據？使用Inputbox函數一次可以輸入兩個或兩個以上的值嗎？

（2）賦值號“=”在VB中還有其它的功能嗎？請指出。

實驗六

標準模塊和窗體的使用

一、實驗目的 1.理解標準模塊的建立和模塊級變量的定義和使用 2.掌握窗體的建立和窗體常用屬性、方法和事件

二、實驗環境

1．計算機

2．Visual Basic 6.0開發環境

三、實驗說明

1．熟練運用Visual Basic 6.0開發環境 2．熟悉建立VB應用程序的步驟 3．學會使用標準模塊

4．學會設計窗體界面實現一定的功能

四、實驗內容和步驟

1.實驗內容

（1）建立“Sub Main”過程，使用Inputbox函數輸入長方體的長、寬和高，計算長方體的體積，使用Msgbox函數輸出計算結果。

（2）設計一個窗體，通過2個文本框接收數據，1個文本框輸出數據，2個標簽分別顯示“＋”和“＝”，3個命令按鈕控制操作，實現加法器的功能，程序的運行結果如下圖所示：

2.實驗步驟

實驗內容（1）操作步驟：

（1）打開計算機，在Visual Basic 6.0系統環境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；（2）選擇“工程”菜單中的“添加模塊”菜單選項，打開“添加模塊”窗口；

（3）在“添加模塊”窗口中，單擊“打開”按鈕，打開“代碼設計”窗口，輸入程序代碼；

（4）選擇“工程”菜單中的“工程屬性”菜單選項，打開“工程屬性”窗口；

（5）在“工程屬性”窗口中，單擊“確定”按鈕，確定“Sub Main”過程為當前啟動對象；

（6）運行程序觀察結果；（7）保存模塊文件和工程。實驗內容（2）操作步驟：

（1）打開計算機，在Visual Basic系統環境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計窗體單擊事件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求1．整理實驗結果，填入相應表格中 2．小結實驗心得體會 3.回答思考題：

（1）窗體模塊與標準模塊有什么不同?（2）如果在窗體的事件過程中，要使用標準模塊中定義的變量，應如何定義該變量？

實驗七

基本內部控件的使用

一、實驗目的

1.掌握基本內部控件的屬性、方法和事件 2.掌握基本內部控件的使用

二、實驗環境

1．計算機

2．Visual Basic 6.0開發環境

三、實驗說明

1．熟練運用Visual Basic 6.0開發環境 2．熟悉建立VB應用程序的步驟 3．學會使用基本內部控件

四、實驗內容和步驟

1.實驗內容（1）設計一個窗體，通過1文本框輸出數據，3個命令按鈕控制文本框內數據的操作，實現文本編輯器的功能，程序的運行結果如下圖所示：

（2）設計一個窗體，利用文本框輸出數據，窗體下面有一個電子時鐘，程序的運行結果如下圖所示：

2.實驗步驟

（1）打開計算機，在Visual Basic 6.0系統環境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求

1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會 3.回答思考題：

在一個窗體上，可以把多個命令按鈕的Default屬性設置為TRUE嗎？為什么？

實驗八

順序結構程序設計

一、實驗目的

1.掌握順序結構的執行過程 2.掌握順序結構程序設計方法

二、實驗環境

1．計算機

2．Visual Basic 6.0開發環境

三、實驗說明

1．熟練運用Visual Basic 6.0開發環境 2．熟悉建立VB應用程序的步驟 3．學會編寫順序結構程序

四、實驗內容和步驟

1.實驗內容

（1）設計一窗體，通過3個文本框輸入長方體的長、寬和高，單擊“計算”按鈕計算長方體的體積和表面積，程序的運行結果如下圖所示：

（2）設計一窗體，在窗體中輸出一個由“*”組成的菱形。2.實驗步驟

（1）打開計算機，在Visual Basic 6.0系統環境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會

實驗九

分支結構程序設計

一、實驗目的

1.掌握分支結構語句的執行過程

2.掌握IF語句和SELECT CASE 語句的使用 3．掌握分支結構程序設計方法

二、實驗環境

1．計算機

2．Visual Basic 6.0開發環境

三、實驗說明

1．熟練運用Visual Basic 6.0開發環境 2．熟悉建立VB應用程序的步驟 3．學會編寫分支結構程序

四、實驗內容和步驟

1.實驗內容

（1）求解方程ax2+bx+c=0，通過三個文本框輸入a，b，c的值，程序的運行結果如下圖所示：

（2）通過文本框輸入x的值，求解以下分段函數的值，使用SELECT CASE 語句實現。

x?100?x?0.9x1000?x?2000???0.8x2000?x?3000?x?3000 Y＝?0.7x2.實驗步驟

（1）打開計算機，在Visual Basic 6.0系統環境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會 3． 回答思考題：（1）有以下程序段：

Select Case Int(Aver / 10)Case 9 print “優秀” Case 8 print “良好” Case Is > 5 print “中等” Case Is < 6 print “差” End Select 試問：當Aver=100時，程序的輸出結果？（2）在VB中，改變Select Case語句中Case項的順序，會影響程序的執行結果嗎？

實驗

十一、實驗目的1．理解循環結構的執行過程

循環結構程序設計

2．掌握FOR語句、WHILE語句和DO語句的使用 3．掌握循環結構程序設計方法

二、實驗環境

1．計算機

2．Visual Basic 6.0開發環境

三、實驗說明

1．熟練運用Visual Basic 6.0開發環境 2．熟悉建立VB應用程序的步驟 3．學會編寫循環結構程序

四、實驗內容和步驟

1.實驗內容

（1）求S的值。P＝1+（1+2）＋（1+2+3）＋（1+2+3+4）＋?+（1+2+3+4＋?N）（令N=50），程序的運行結果如下圖所示：

（2）設計一窗體,輸出1～100之間能被3整除的個數及它們的和，程序的運行結果如下圖所示：

2.實驗步驟（1）打開計算機，在Visual Basic 6.0系統環境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求

1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會

實驗十一

一維數組的應用

一、實驗目的

1．掌握一維數組的概念、定義、數組元素的引用和初始化。

2．學會用數組和程序基本控制結構實現數據的求和、求平均、求極值和排序等算法程序的設計

3．加深對循環控制結構的理解和使用

二、實驗環境

1．計算機

2．Visual Basic 6.0開發環境

三、實驗說明

1．熟練運用Visual Basic 6.0開發環境 2．熟悉建立VB應用程序的步驟

3．學會使用一維數組實現簡單的應用程序

四、實驗內容和步驟

1.實驗內容

產生10個隨機數，存入到數組中，編程實現以下內容：（1）求數組所有元素的和及平均值；（2）輸出數組的最大值和最小值；

（3）對數組從小到大進行排序，并輸出排序后的數組元素。要求在窗體上顯示結果。2.實驗步驟

（1）打開計算機，在Visual Basic 6.0系統環境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求

1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會

實驗十二

二維數組的應用

一、實驗目的

1．掌握二維數組的概念、定義、數組元素的引用

2．學會用二維數組和程序基本控制結構實現矩陣運算的方法

二、實驗環境

1．計算機

2．Visual Basic 6.0開發環境

三、實驗說明

1．熟練運用Visual Basic 6.0開發環境 2．熟悉建立VB應用程序的步驟

3．學會使用二維數組實現簡單的矩陣運算

四、實驗內容和步驟

1.實驗內容

使用二維數組表示一個3行3列的方陣，編程實現以下內容：（1）輸出方陣的轉置矩陣；（2）輸出方陣每行的最大值和最小值。要求在窗體上顯示結果。2.實驗步驟

（1）打開計算機，在Visual Basic 6.0系統環境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會

第四篇：vb綜合實驗

綜 合 性 實 驗

實 驗 名 稱:關閉標題包含指定字符的所有窗口 專 業 班 級: 學 生 姓 名：

學 號：

指 導 教 師：

需求分析：

關閉標題包含指定字符的所有窗口，使我們能更方便的關閉很多窗口，避免了一個一個關閉的麻煩 運行環境：

WINDOWS XP系統；VB6.0； 3開發工具和編程語言

Visual Basic6.0語言； 4 系統設置：

下例程序運行后，單擊按鈕關閉標題包含“記事本”的所有窗口

'在窗體上放置 3 個控件，所有控件無需設置任何屬性，全部采用默認設置： ' Command1，Label1，Text1

Private Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA”(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String)As Long Private Declare Function PostMessage Lib “user32” Alias “PostMessageA”(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)As Long Private Declare Function GetWindowText Lib “user32” Alias “GetWindowTextA”(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long)As Long Private Sub Form_Load()'設置控件初始狀態，實際可以在窗體設計階段完成 Dim S As Single

Me.Caption = “關閉指定窗口”: Text1.Text = “記事本” Label1.AutoSize = True: Label1.Caption = “窗口標題包含的字符：” Command1.Caption = “關閉指定窗口”

S = Label1.Height Label1.Move S, S Text1.Move S + Label1.Width, S * 0.5, S * 8, S * 2 Command1.Move S, S * 3, S * 8, S * 2 End Sub

Private Sub Command1_Click()Dim hWnds As Long, nCap As String, nFind As String Dim S As Long, S1 As Long, nLong()As Long, nCount As Long

S = 255: nFind = Text1.Text Do hWnds = FindWindowEx(0, hWnds, vbNullString, vbNullString)If hWnds = 0 Then Exit Do nCap = String(S + 1, “ ”)GetWindowText hWnds, nCap, S S1 = InStr(nCap, Chr(0))If S1 > 0 Then nCap = Left(nCap, S1-1)If InStr(nCap, nFind)> 0 Then ' PostMessage hWnds, &H10, 0, 0 '不在這里發送關閉消息，是為了防止漏查 nCount = nCount + 1 ReDim Preserve nLong(1 To nCount)nLong(nCount)= hWnds End If Loop

For S = 1 To nCount PostMessage nLong(S), &H10, 0, 0 '發送關閉窗口消息 DoEvents Next End Sub 5參考文獻：

龔培增，楊志強Visual Basic程序設計教程（

第五篇：vb程序設計實驗心得

vb程序設計實驗心得

vb程序設計實驗心得一：數據庫VB課程設計心得體會

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

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

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

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

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

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

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

（最后，很感激學校給了我們這次動手實踐的機會，讓我們學生有了一個共同學習，增長見識，開拓視野的機會。也感謝老師們對我們無私忘我的指導，我會以這次課程設計大賽作為對自己的激勵，繼續學習。畢竟學習就是一個just do it的過程！）我直接從報告上面復制過來的.....所以這段也不刪去了.............呵呵。

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

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

VB.NET課程是計算機科學與技術本科專業的專業骨干課。本課程主要通過VB.NET論述了面向對象程序設計和組建編程的機理，涉及到控制臺界面程序、Windows窗體程序、圖形界面編程、數據庫、網絡應用系統等多方面的內容。內容量大，程序設計復雜、同時VB.NET程序調試是在VS.NET環境下進行，在編程過程中環境會自動為用戶生成一些必要代碼，以降低編程難度，降低學生的編程負擔，但這也帶來了一些問題，如：學生對VB.ENT的程序結構把握和了解不全面，對編程機理了解不透徹，學生容易盲目照搬書上代碼，不求甚解，似是而非。為了解決這個問題，我們采取了課程設計的方法來加深學生對知識的理解，將書本知識遷移到新的問題解決中，提高學生分析問題和解決問題的能力。

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

一.目的1.為使學生掌握VB.NET編程、面向對象程序設計思想和組建編程的知識實際技能，除了系統地講授必要的VB.NET知識，上機練習，做作業外，還應該對學生作較全面的編程技能和分析問題解決問題的能力訓練，即作課程設計，以達到如下目的：具體應用和鞏固本課程及有關先修課的基礎理論和專業知識，了解面向對象程序設計思想，掌握應用VB.NET編程和組建編程程序設計方法，培養學生初步的項目設計能力。

2.獨立地根據一定的項目要求，查閱資料，寫出項目開發目標，分析開發過程中所用到的課程知識，提出解決方案，編碼并上機調試完成系統，培養學生分析問題和解決問題的能力。課程設計是教學過程中的一個重要環節，必須認真對待。

二.要求

在課程設計中要求學生注意培養認真負責，踏實細致的工作作風和保質保量，按時完成任務的習慣。在設計過程中必須做到：

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

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

三、采取的措施

為了保證課程設計能夠按照預定的目標和計劃進行，我們還采取了以下措施來加強對學生監督和管理。

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

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

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

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

四、取得的效果

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

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

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

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

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

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

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

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

>vb程序設計實驗心得四：vb實訓心得>>（1108字）

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

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

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

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