第一篇：VB大實(shí)驗(yàn)[范文]

綜 合 性 實(shí)

實(shí) 驗(yàn) 名 稱: 通訊錄管理系統(tǒng)

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

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

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

驗(yàn) 需求分析：

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

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

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

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

1.在下面窗口實(shí)現(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(“確定要?jiǎng)h除當(dāng)前記錄嗎？”, vbYesNo + vbQuestion, “確認(rèn)”)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é)果，按下返回按鈕返回上級(jí)窗口。

查詢界面窗體

代碼：

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 “手機(jī)” Combo1.AddItem “地址” Combo1.AddItem “公司” Combo1.AddItem “所在組” Text1.Text = "" End Sub 5 系統(tǒng)運(yùn)行及測(cè)試；參考文獻(xiàn);

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

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

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

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

第二篇：vb實(shí)驗(yàn)教案 -

實(shí)驗(yàn)一 VB集成開發(fā)環(huán)境和簡(jiǎn)單程序設(shè)計(jì)

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

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

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

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

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

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

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

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

三、教學(xué)重點(diǎn)難點(diǎn) VB語(yǔ)言程序的上機(jī)步驟

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

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

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

實(shí)驗(yàn)一 VB集成開發(fā)環(huán)境和簡(jiǎn)單程序設(shè)計(jì)

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

2． 如何使各窗口顯示或不顯示？ 3． 如何對(duì)工具箱添加選項(xiàng)卡？

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

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

6、參考實(shí)驗(yàn)教材“實(shí)驗(yàn)一”和“實(shí)驗(yàn)二”的實(shí)驗(yàn)過(guò)程編寫程序。

P 2

教學(xué)后記：

實(shí)驗(yàn)二 順序結(jié)構(gòu)程序設(shè)計(jì)

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

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

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

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

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

三、教學(xué)重點(diǎn)難點(diǎn)

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

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

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

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

P 3

實(shí)驗(yàn)二 順序結(jié)構(gòu)程序設(shè)計(jì)

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

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

圖6

除法運(yùn)算符實(shí)驗(yàn)（界面設(shè)計(jì)）

（2）編寫命令按鈕的事件過(guò)程： 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或單擊工具欄上的“啟動(dòng)”按鈕運(yùn)行程序，在第一個(gè)文本框中輸入被除數(shù)，在第二個(gè)文本框中輸入除數(shù)，然后單擊命令按鈕，即可得到三種不同的相除結(jié)

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

P 5

圖7

除法運(yùn)算符試驗(yàn)（運(yùn)行情況）

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

(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 要求：先手工計(jì)算，再上機(jī)驗(yàn)證。

教學(xué)后記：

P 6

實(shí)驗(yàn)三 選擇結(jié)構(gòu)程序設(shè)計(jì)

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

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

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

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

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

三、教學(xué)重點(diǎn)難點(diǎn)

邏輯表達(dá)式的正確書寫形式

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

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

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

P 7

實(shí)驗(yàn)三 選擇結(jié)構(gòu)程序設(shè)計(jì)

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

2．稅務(wù)部門征收所得稅，規(guī)定如下：（1）收入在800元以內(nèi)，免征；

（2）收入在800~1000元以內(nèi)，超過(guò)200元的部分納稅5%；（3）收入在1000~2000元以內(nèi)，超過(guò)1000元的部分，納稅8%；（4）當(dāng)收入達(dá)到2000元或超過(guò)時(shí)，納稅10%； 編程實(shí)現(xiàn)上述操作。（1）編寫程序代碼：

（2）程序運(yùn)行

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

P 8

圖30 納稅運(yùn)行情況

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

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

5．設(shè)在窗體上已經(jīng)建立一個(gè)文本框Text1，兩個(gè)命令按鈕Commmand1和Command2，說(shuō)明執(zhí)行以下語(yǔ)句后，各控件將顯示什么內(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é)后記：

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

P 10

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

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

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

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

三、教學(xué)重點(diǎn)難點(diǎn)

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

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

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

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

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

P 11 1.計(jì)算階乘

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

（1）編寫程序

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

圖36

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

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

程序如下：

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

P 12

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

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

教學(xué)后記：

實(shí)驗(yàn)五 VB的常用控件

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

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

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

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

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

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

4.掌握?qǐng)D片框控件和圖像框控件的使用方法。

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

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

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

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

P 13

P 14

實(shí)驗(yàn)五 VB的常用控件

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

運(yùn)行結(jié)果：

第二題：

運(yùn)行結(jié)果：

P 15

第四題：

運(yùn)行結(jié)果：

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

教學(xué)后記：

實(shí)驗(yàn)六 數(shù)組

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

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

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

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

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

三、教學(xué)重點(diǎn)難點(diǎn)

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

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

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

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

實(shí)驗(yàn)六 數(shù)組

第一題：

P 17

Dim a(0 To 9)As Integer '定義一個(gè)大小為10的整形數(shù)組 '數(shù)組賦值命令按鈕事件過(guò)程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“請(qǐng)輸入數(shù)組元素” & i + 1 & “/” & “10”, “數(shù)組賦值”))Next i End Sub '顯示數(shù)組元素命令按鈕事件過(guò)程 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%()'定義一個(gè)二維數(shù)組(6x8)和兩個(gè)動(dòng)態(tài)數(shù)組 '將二維數(shù)組按行存儲(chǔ)到一維數(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ù)組按列存儲(chǔ)到一維數(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 '窗體載入事件過(guò)程 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)成一個(gè)三角形！" 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

實(shí)驗(yàn)八 等級(jí)考試專題及考查

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

進(jìn)行一次等級(jí)考試的模擬測(cè)試。

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

1.熟悉等級(jí)考試中程序題的答題過(guò)程。

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

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

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

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

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

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

實(shí)驗(yàn)八 等級(jí)考試專題及考查

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

2.每個(gè)同學(xué)都把自己等級(jí)考試中隨機(jī)抽到的題目抄寫下來(lái)，互相傳閱，最后把不同類型的題目做個(gè)歸納總結(jié)。

教學(xué)后記：

第三篇：VB實(shí)驗(yàn)指導(dǎo)書

VB程序設(shè)計(jì)

實(shí)驗(yàn)指導(dǎo)書

電子與計(jì)算機(jī)科學(xué)技術(shù)學(xué)院 實(shí)驗(yàn)一

熟悉VB集成開發(fā)環(huán)境

一、實(shí)驗(yàn)?zāi)康?/p>

1．熟悉計(jì)算機(jī)環(huán)境 2.VB的安裝、啟動(dòng)與退出 3.熟悉VB語(yǔ)言編程環(huán)境

二、實(shí)驗(yàn)環(huán)境

1．計(jì)算機(jī)

2.Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．熟悉機(jī)房實(shí)驗(yàn)環(huán)境

2．學(xué)習(xí)Visual Basic 6.0開發(fā)環(huán)境

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容

（1）Windows的基本操作。（2）VB的安裝、啟動(dòng)與退出。（3）VB集成開發(fā)環(huán)境的初步使用。2.實(shí)驗(yàn)步驟

（1）打開計(jì)算機(jī)，進(jìn)入Windows；

（2）在CD－ROM驅(qū)動(dòng)器中插入Visual Basic 6.0系統(tǒng)盤；（3）運(yùn)行安裝程序（Setup.exe），即可進(jìn)入“安裝程序向?qū)А保?/p>

（4）在“安裝程序向?qū)А币I(lǐng)下，按步驟選擇相應(yīng)的選項(xiàng)，添加對(duì)應(yīng)的參數(shù)，完成安裝過(guò)程；

（5）從以下幾方面熟悉VB集成開發(fā)環(huán)境：

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

五、實(shí)驗(yàn)報(bào)告要求

1.整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2.小結(jié)實(shí)驗(yàn)心得體會(huì) 3.回答思考題：

（1）如果“立即”窗口和“工具箱”窗口已被關(guān)閉，如何打開？（2）如果想改變VB程序代碼的字體，應(yīng)如何進(jìn)行設(shè)置？

實(shí)驗(yàn)二

建立VB應(yīng)用程序

一、實(shí)驗(yàn)?zāi)康?/p>

1．進(jìn)一步熟悉VB語(yǔ)言編程環(huán)境 2．熟悉創(chuàng)建VB程序的步驟

二、實(shí)驗(yàn)環(huán)境 1．計(jì)算機(jī)

2．Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．熟悉創(chuàng)建VB程序的步驟

2．進(jìn)一步學(xué)習(xí)Visual Basic 6.0開發(fā)環(huán)境

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容

（1）設(shè)計(jì)一個(gè)窗體，當(dāng)單擊“顯示”按鈕時(shí)，在文本框內(nèi)顯示“走進(jìn)VB程序樂園”；當(dāng)單擊“清除”按鈕時(shí)，清除文本框內(nèi)的文本；當(dāng)單擊“退出”按鈕時(shí)，結(jié)束程序運(yùn)行。程序界面如下所示：

（2）設(shè)計(jì)一個(gè)窗體，打開窗體時(shí)，標(biāo)簽顯示“風(fēng)景這邊獨(dú)好！”且為黑色；當(dāng)單擊“紅”時(shí)標(biāo)簽顯示紅色；當(dāng)單擊“黃”標(biāo)簽顯示黃色；當(dāng)單擊“還原”按鈕時(shí)，標(biāo)簽顯示黑色；當(dāng)單擊“退出”按鈕時(shí)，結(jié)束程序運(yùn)行。程序界面如下所示：

2.實(shí)驗(yàn)步驟（1）打開計(jì)算機(jī)，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項(xiàng)，打開“新建工程”窗口；

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

（4）在“工程設(shè)計(jì)”窗口，選擇“視圖”菜單中的“代碼窗口”菜單選項(xiàng)，打開“代碼窗口”窗口，設(shè)計(jì)命令按鈕控件的事件代碼；

（5）打開“工程設(shè)計(jì)”窗口，選擇“文件”菜單中的“保存窗體”菜單選項(xiàng)，將所建的窗體保存到指定的磁盤文件中；

（6）打開“工程設(shè)計(jì)”窗口，選擇“文件”菜單中的“保存工程”菜單選項(xiàng)，將所建的VB工程保存到指定的磁盤文件中；

（7）在“工程設(shè)計(jì)”窗口，選擇“運(yùn)行”菜單中的“啟動(dòng)”菜單選項(xiàng)，運(yùn)行程序，觀察運(yùn)行結(jié)果。

五、實(shí)驗(yàn)報(bào)告要求1．整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2．小結(jié)實(shí)驗(yàn)心得體會(huì) 3.回答思考題: 使用文本框和標(biāo)簽都可以顯示信息，二者所使用的屬性一樣嗎？請(qǐng)分別指出。

實(shí)驗(yàn)三

內(nèi)部函數(shù)的使用

一、實(shí)驗(yàn)?zāi)康?/p>

1．理解VB內(nèi)部函數(shù)的功能和書寫格式 2．學(xué)會(huì)在“立即”窗口中進(jìn)行操作

二、實(shí)驗(yàn)環(huán)境

1．計(jì)算機(jī)

2．Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．熟悉Visual Basic 6.0開發(fā)環(huán)境 2．學(xué)會(huì)使用“立即”窗口 3．練習(xí)使用常用的內(nèi)部函數(shù)

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容（1）常用數(shù)學(xué)函數(shù) 練習(xí)使用常用的數(shù)學(xué)函數(shù)：Abs、Cos、Exp、Int、Log、Rnd、Sgn、Sin、Sqr、Tan等。（2）常用字符函數(shù)

練習(xí)使用常用的字符函數(shù)：Lcase、Left、Len、Ltrim、Mid、Right、Rtrim、Space、Trim、Ucase等。（3）常用轉(zhuǎn)化函數(shù)

練習(xí)使用常用的轉(zhuǎn)化函數(shù)：Asc、Chr、Str、Val等。（4）常用日期函數(shù)

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

（1）打開計(jì)算機(jī)，進(jìn)入Visual Basic 6.0系統(tǒng)環(huán)境；

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

五、實(shí)驗(yàn)報(bào)告要求1．整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2．小結(jié)實(shí)驗(yàn)心得體會(huì) 3．回答思考題:（1）Int函數(shù)的功能是獲取數(shù)值的整數(shù)部分，如果在獲取數(shù)值整數(shù)部分的時(shí)候，要實(shí)現(xiàn)“四舍五入”，該如何實(shí)現(xiàn)？

（2）Rnd函數(shù)的功能是返回一個(gè)0至1之間的隨機(jī)數(shù)，如果要返回0至100之間的隨機(jī)數(shù)，該如何實(shí)現(xiàn)？

實(shí)驗(yàn)四

表達(dá)式的書寫及求值

一、實(shí)驗(yàn)?zāi)康?/p>

1.掌握算術(shù)運(yùn)算符、字符運(yùn)算符和邏輯運(yùn)算符的含義 2.掌握算術(shù)表達(dá)式、字符表達(dá)式和邏輯表達(dá)式的書寫 3.掌握算術(shù)表達(dá)式、字符表達(dá)式和邏輯表達(dá)式的求值

二、實(shí)驗(yàn)環(huán)境

1．計(jì)算機(jī)

2.Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．理解VB中各種運(yùn)算符的含義

2．練習(xí)算術(shù)表達(dá)式、字符表達(dá)式和邏輯表達(dá)式的書寫

3．在“立即”窗口中練習(xí)算術(shù)表達(dá)式、字符表達(dá)式和邏輯表達(dá)式的求值

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容

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

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$=“程序設(shè)計(jì)”，la=True，計(jì)算下列表達(dá)式的值。①(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.實(shí)驗(yàn)步驟

（1）打開計(jì)算機(jī)，進(jìn)入Visual Basic 6.0系統(tǒng)環(huán)境；

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

五、實(shí)驗(yàn)報(bào)告要求1．整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2．小結(jié)實(shí)驗(yàn)心得體會(huì) 3．回答思考題：

（1）試計(jì)算以下表達(dá)式的值：3 Or 3, 4 And 1。

（2）把以下表達(dá)式中的括號(hào)去掉后，表達(dá)式的值改變了嗎？為什么？

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

實(shí)驗(yàn)五

輸入輸出操作

一、實(shí)驗(yàn)?zāi)康?/p>

1．掌握賦值語(yǔ)句的使用 2．掌握Print方法的使用 3．掌握輸入輸出對(duì)話框的使用

二、實(shí)驗(yàn)環(huán)境

1．計(jì)算機(jī)

2．Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．理解賦值語(yǔ)句、Print方法、輸入輸出對(duì)話框的使用 2．練習(xí)賦值語(yǔ)句、Print方法、輸入輸出對(duì)話框的使用

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容

（1）設(shè)計(jì)一個(gè)窗體，用Print方法在窗體上顯示“輕松快樂學(xué)VB！”。

（2）設(shè)計(jì)一個(gè)窗體，單擊窗體時(shí)，實(shí)現(xiàn)以下功能：

① 使用Inputbox函數(shù)輸入兩個(gè)整數(shù)X和Y； ② 計(jì)算|sinx+cosy|的值，并賦給變量Z； ③使用Msgbox函數(shù)輸出計(jì)算結(jié)果。2.實(shí)驗(yàn)步驟（1）打開計(jì)算機(jī)，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項(xiàng)，打開“新建工程”窗口；

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

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項(xiàng)，打開“代碼窗口”窗口，設(shè)計(jì)窗體單擊事件的事件代碼；（5）運(yùn)行程序，觀察結(jié)果；（6）保存窗體，保存工程。

五、實(shí)驗(yàn)報(bào)告要求

1．整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2．小結(jié)實(shí)驗(yàn)心得體會(huì) 3．回答思考題：

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

（2）賦值號(hào)“=”在VB中還有其它的功能嗎？請(qǐng)指出。

實(shí)驗(yàn)六

標(biāo)準(zhǔn)模塊和窗體的使用

一、實(shí)驗(yàn)?zāi)康?1.理解標(biāo)準(zhǔn)模塊的建立和模塊級(jí)變量的定義和使用 2.掌握窗體的建立和窗體常用屬性、方法和事件

二、實(shí)驗(yàn)環(huán)境

1．計(jì)算機(jī)

2．Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．熟練運(yùn)用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應(yīng)用程序的步驟 3．學(xué)會(huì)使用標(biāo)準(zhǔn)模塊

4．學(xué)會(huì)設(shè)計(jì)窗體界面實(shí)現(xiàn)一定的功能

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容

（1）建立“Sub Main”過(guò)程，使用Inputbox函數(shù)輸入長(zhǎng)方體的長(zhǎng)、寬和高，計(jì)算長(zhǎng)方體的體積，使用Msgbox函數(shù)輸出計(jì)算結(jié)果。

（2）設(shè)計(jì)一個(gè)窗體，通過(guò)2個(gè)文本框接收數(shù)據(jù)，1個(gè)文本框輸出數(shù)據(jù)，2個(gè)標(biāo)簽分別顯示“＋”和“＝”，3個(gè)命令按鈕控制操作，實(shí)現(xiàn)加法器的功能，程序的運(yùn)行結(jié)果如下圖所示：

2.實(shí)驗(yàn)步驟

實(shí)驗(yàn)內(nèi)容（1）操作步驟：

（1）打開計(jì)算機(jī)，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項(xiàng)，打開“新建工程”窗口；（2）選擇“工程”菜單中的“添加模塊”菜單選項(xiàng)，打開“添加模塊”窗口；

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

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

（5）在“工程屬性”窗口中，單擊“確定”按鈕，確定“Sub Main”過(guò)程為當(dāng)前啟動(dòng)對(duì)象；

（6）運(yùn)行程序觀察結(jié)果；（7）保存模塊文件和工程。實(shí)驗(yàn)內(nèi)容（2）操作步驟：

（1）打開計(jì)算機(jī)，在Visual Basic系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項(xiàng)，打開“新建工程”窗口；

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

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項(xiàng)，打開“代碼窗口”窗口，設(shè)計(jì)窗體單擊事件的事件代碼；（5）運(yùn)行程序，觀察結(jié)果；（6）保存窗體，保存工程。

五、實(shí)驗(yàn)報(bào)告要求1．整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2．小結(jié)實(shí)驗(yàn)心得體會(huì) 3.回答思考題：

（1）窗體模塊與標(biāo)準(zhǔn)模塊有什么不同?（2）如果在窗體的事件過(guò)程中，要使用標(biāo)準(zhǔn)模塊中定義的變量，應(yīng)如何定義該變量？

實(shí)驗(yàn)七

基本內(nèi)部控件的使用

一、實(shí)驗(yàn)?zāi)康?/p>

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

二、實(shí)驗(yàn)環(huán)境

1．計(jì)算機(jī)

2．Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．熟練運(yùn)用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應(yīng)用程序的步驟 3．學(xué)會(huì)使用基本內(nèi)部控件

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容（1）設(shè)計(jì)一個(gè)窗體，通過(guò)1文本框輸出數(shù)據(jù)，3個(gè)命令按鈕控制文本框內(nèi)數(shù)據(jù)的操作，實(shí)現(xiàn)文本編輯器的功能，程序的運(yùn)行結(jié)果如下圖所示：

（2）設(shè)計(jì)一個(gè)窗體，利用文本框輸出數(shù)據(jù)，窗體下面有一個(gè)電子時(shí)鐘，程序的運(yùn)行結(jié)果如下圖所示：

2.實(shí)驗(yàn)步驟

（1）打開計(jì)算機(jī)，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項(xiàng)，打開“新建工程”窗口；

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

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項(xiàng)，打開“代碼窗口”窗口，設(shè)計(jì)命令按鈕控件的事件代碼；（5）運(yùn)行程序，觀察結(jié)果；（6）保存窗體，保存工程。

五、實(shí)驗(yàn)報(bào)告要求

1． 整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2． 小結(jié)實(shí)驗(yàn)心得體會(huì) 3.回答思考題：

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

實(shí)驗(yàn)八

順序結(jié)構(gòu)程序設(shè)計(jì)

一、實(shí)驗(yàn)?zāi)康?/p>

1.掌握順序結(jié)構(gòu)的執(zhí)行過(guò)程 2.掌握順序結(jié)構(gòu)程序設(shè)計(jì)方法

二、實(shí)驗(yàn)環(huán)境

1．計(jì)算機(jī)

2．Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．熟練運(yùn)用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應(yīng)用程序的步驟 3．學(xué)會(huì)編寫順序結(jié)構(gòu)程序

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容

（1）設(shè)計(jì)一窗體，通過(guò)3個(gè)文本框輸入長(zhǎng)方體的長(zhǎng)、寬和高，單擊“計(jì)算”按鈕計(jì)算長(zhǎng)方體的體積和表面積，程序的運(yùn)行結(jié)果如下圖所示：

（2）設(shè)計(jì)一窗體，在窗體中輸出一個(gè)由“*”組成的菱形。2.實(shí)驗(yàn)步驟

（1）打開計(jì)算機(jī)，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項(xiàng)，打開“新建工程”窗口；

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

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項(xiàng)，打開“代碼窗口”窗口，設(shè)計(jì)命令按鈕控件的事件代碼；（5）運(yùn)行程序，觀察結(jié)果；（6）保存窗體，保存工程。

五、實(shí)驗(yàn)報(bào)告要求1． 整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2． 小結(jié)實(shí)驗(yàn)心得體會(huì)

實(shí)驗(yàn)九

分支結(jié)構(gòu)程序設(shè)計(jì)

一、實(shí)驗(yàn)?zāi)康?/p>

1.掌握分支結(jié)構(gòu)語(yǔ)句的執(zhí)行過(guò)程

2.掌握IF語(yǔ)句和SELECT CASE 語(yǔ)句的使用 3．掌握分支結(jié)構(gòu)程序設(shè)計(jì)方法

二、實(shí)驗(yàn)環(huán)境

1．計(jì)算機(jī)

2．Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．熟練運(yùn)用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應(yīng)用程序的步驟 3．學(xué)會(huì)編寫分支結(jié)構(gòu)程序

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容

（1）求解方程ax2+bx+c=0，通過(guò)三個(gè)文本框輸入a，b，c的值，程序的運(yùn)行結(jié)果如下圖所示：

（2）通過(guò)文本框輸入x的值，求解以下分段函數(shù)的值，使用SELECT CASE 語(yǔ)句實(shí)現(xiàn)。

x?100?x?0.9x1000?x?2000???0.8x2000?x?3000?x?3000 Y＝?0.7x2.實(shí)驗(yàn)步驟

（1）打開計(jì)算機(jī)，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項(xiàng)，打開“新建工程”窗口；

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

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項(xiàng)，打開“代碼窗口”窗口，設(shè)計(jì)命令按鈕控件的事件代碼；（5）運(yùn)行程序，觀察結(jié)果；（6）保存窗體，保存工程。

五、實(shí)驗(yàn)報(bào)告要求1． 整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2． 小結(jié)實(shí)驗(yàn)心得體會(huì) 3． 回答思考題：（1）有以下程序段：

Select Case Int(Aver / 10)Case 9 print “優(yōu)秀” Case 8 print “良好” Case Is > 5 print “中等” Case Is < 6 print “差” End Select 試問：當(dāng)Aver=100時(shí)，程序的輸出結(jié)果？（2）在VB中，改變Select Case語(yǔ)句中Case項(xiàng)的順序，會(huì)影響程序的執(zhí)行結(jié)果嗎？

實(shí)驗(yàn)

十一、實(shí)驗(yàn)?zāi)康?．理解循環(huán)結(jié)構(gòu)的執(zhí)行過(guò)程

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

2．掌握FOR語(yǔ)句、WHILE語(yǔ)句和DO語(yǔ)句的使用 3．掌握循環(huán)結(jié)構(gòu)程序設(shè)計(jì)方法

二、實(shí)驗(yàn)環(huán)境

1．計(jì)算機(jī)

2．Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．熟練運(yùn)用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應(yīng)用程序的步驟 3．學(xué)會(huì)編寫循環(huán)結(jié)構(gòu)程序

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容

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

（2）設(shè)計(jì)一窗體,輸出1～100之間能被3整除的個(gè)數(shù)及它們的和，程序的運(yùn)行結(jié)果如下圖所示：

2.實(shí)驗(yàn)步驟（1）打開計(jì)算機(jī)，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項(xiàng)，打開“新建工程”窗口；

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

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項(xiàng)，打開“代碼窗口”窗口，設(shè)計(jì)命令按鈕控件的事件代碼；（5）運(yùn)行程序，觀察結(jié)果；（6）保存窗體，保存工程。

五、實(shí)驗(yàn)報(bào)告要求

1． 整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2． 小結(jié)實(shí)驗(yàn)心得體會(huì)

實(shí)驗(yàn)十一

一維數(shù)組的應(yīng)用

一、實(shí)驗(yàn)?zāi)康?/p>

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

2．學(xué)會(huì)用數(shù)組和程序基本控制結(jié)構(gòu)實(shí)現(xiàn)數(shù)據(jù)的求和、求平均、求極值和排序等算法程序的設(shè)計(jì)

3．加深對(duì)循環(huán)控制結(jié)構(gòu)的理解和使用

二、實(shí)驗(yàn)環(huán)境

1．計(jì)算機(jī)

2．Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．熟練運(yùn)用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應(yīng)用程序的步驟

3．學(xué)會(huì)使用一維數(shù)組實(shí)現(xiàn)簡(jiǎn)單的應(yīng)用程序

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容

產(chǎn)生10個(gè)隨機(jī)數(shù)，存入到數(shù)組中，編程實(shí)現(xiàn)以下內(nèi)容：（1）求數(shù)組所有元素的和及平均值；（2）輸出數(shù)組的最大值和最小值；

（3）對(duì)數(shù)組從小到大進(jìn)行排序，并輸出排序后的數(shù)組元素。要求在窗體上顯示結(jié)果。2.實(shí)驗(yàn)步驟

（1）打開計(jì)算機(jī)，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項(xiàng)，打開“新建工程”窗口；

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

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項(xiàng)，打開“代碼窗口”窗口，設(shè)計(jì)命令按鈕控件的事件代碼；（5）運(yùn)行程序，觀察結(jié)果；（6）保存窗體，保存工程。

五、實(shí)驗(yàn)報(bào)告要求

1． 整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2． 小結(jié)實(shí)驗(yàn)心得體會(huì)

實(shí)驗(yàn)十二

二維數(shù)組的應(yīng)用

一、實(shí)驗(yàn)?zāi)康?/p>

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

2．學(xué)會(huì)用二維數(shù)組和程序基本控制結(jié)構(gòu)實(shí)現(xiàn)矩陣運(yùn)算的方法

二、實(shí)驗(yàn)環(huán)境

1．計(jì)算機(jī)

2．Visual Basic 6.0開發(fā)環(huán)境

三、實(shí)驗(yàn)說(shuō)明

1．熟練運(yùn)用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應(yīng)用程序的步驟

3．學(xué)會(huì)使用二維數(shù)組實(shí)現(xiàn)簡(jiǎn)單的矩陣運(yùn)算

四、實(shí)驗(yàn)內(nèi)容和步驟

1.實(shí)驗(yàn)內(nèi)容

使用二維數(shù)組表示一個(gè)3行3列的方陣，編程實(shí)現(xiàn)以下內(nèi)容：（1）輸出方陣的轉(zhuǎn)置矩陣；（2）輸出方陣每行的最大值和最小值。要求在窗體上顯示結(jié)果。2.實(shí)驗(yàn)步驟

（1）打開計(jì)算機(jī)，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項(xiàng)，打開“新建工程”窗口；

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

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項(xiàng)，打開“代碼窗口”窗口，設(shè)計(jì)命令按鈕控件的事件代碼；（5）運(yùn)行程序，觀察結(jié)果；（6）保存窗體，保存工程。

五、實(shí)驗(yàn)報(bào)告要求1． 整理實(shí)驗(yàn)結(jié)果，填入相應(yīng)表格中 2． 小結(jié)實(shí)驗(yàn)心得體會(huì)

第四篇：vb綜合實(shí)驗(yàn)

綜 合 性 實(shí) 驗(yàn)

實(shí) 驗(yàn) 名 稱:關(guān)閉標(biāo)題包含指定字符的所有窗口 專 業(yè) 班 級(jí): 學(xué) 生 姓 名：

學(xué) 號(hào)：

指 導(dǎo) 教 師：

需求分析：

關(guān)閉標(biāo)題包含指定字符的所有窗口，使我們能更方便的關(guān)閉很多窗口，避免了一個(gè)一個(gè)關(guān)閉的麻煩 運(yùn)行環(huán)境：

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

Visual Basic6.0語(yǔ)言； 4 系統(tǒng)設(shè)置：

下例程序運(yùn)行后，單擊按鈕關(guān)閉標(biāo)題包含“記事本”的所有窗口

'在窗體上放置 3 個(gè)控件，所有控件無(wú)需設(shè)置任何屬性，全部采用默認(rèn)設(shè)置： ' 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()'設(shè)置控件初始狀態(tài)，實(shí)際可以在窗體設(shè)計(jì)階段完成 Dim S As Single

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

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 '不在這里發(fā)送關(guān)閉消息，是為了防止漏查 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 '發(fā)送關(guān)閉窗口消息 DoEvents Next End Sub 5參考文獻(xiàn)：

龔培增，楊志強(qiáng)Visual Basic程序設(shè)計(jì)教程（

第五篇：vb程序設(shè)計(jì)實(shí)驗(yàn)心得

vb程序設(shè)計(jì)實(shí)驗(yàn)心得

vb程序設(shè)計(jì)實(shí)驗(yàn)心得一：數(shù)據(jù)庫(kù)VB課程設(shè)計(jì)心得體會(huì)

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

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

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

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

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

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

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

（最后，很感激學(xué)校給了我們這次動(dòng)手實(shí)踐的機(jī)會(huì)，讓我們學(xué)生有了一個(gè)共同學(xué)習(xí)，增長(zhǎng)見識(shí)，開拓視野的機(jī)會(huì)。也感謝老師們對(duì)我們無(wú)私忘我的指導(dǎo)，我會(huì)以這次課程設(shè)計(jì)大賽作為對(duì)自己的激勵(lì)，繼續(xù)學(xué)習(xí)。畢竟學(xué)習(xí)就是一個(gè)just do it的過(guò)程?。┪抑苯訌膱?bào)告上面復(fù)制過(guò)來(lái)的.....所以這段也不刪去了.............呵呵。

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

>vb程序設(shè)計(jì)實(shí)驗(yàn)心得二：vb課設(shè)心得體會(huì)>>（1581字）

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

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

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

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

二.要求

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

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

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

三、采取的措施

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

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

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

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

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

四、取得的效果

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

>vb程序設(shè)計(jì)實(shí)驗(yàn)心得三：vb課設(shè)心得體會(huì)>>（598字）

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

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

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

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

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

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

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

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

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

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

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