打地鼠vb課程設(shè)計(jì)

1、<p><b>　　目 錄</b></p><p>　　第1章 課程設(shè)計(jì)目的與要求1</p><p>　　1.1 課程設(shè)計(jì)目的1</p><p>　　1.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境1</p><p>　　1.3 課程設(shè)計(jì)的預(yù)備知識(shí)1</p><p>　　1.4 課程設(shè)計(jì)要求1&l

2、t;/p><p>　　第2章 課程設(shè)計(jì)內(nèi)容2</p><p>　　2.1 游戲介紹2</p><p>　　2.2 游戲設(shè)計(jì)3</p><p>　　2.3 游戲?qū)崿F(xiàn)12</p><p>　　第3章 課程設(shè)計(jì)總結(jié)14</p><p><b>　　參考文獻(xiàn)15</b>&l

3、t;/p><p><b>　　課程設(shè)計(jì)目的與要求</b></p><p>　　1.1 課程設(shè)計(jì)目的</p><p>　　本課程的課程設(shè)計(jì)實(shí)際是學(xué)生學(xué)習(xí)完《可視化編程技術(shù)》課程后，進(jìn)行的一次全面的綜合訓(xùn)練，其目的在于加深對(duì)可視化編程技術(shù)基本知識(shí)的理解，掌握運(yùn)用VB開發(fā)應(yīng)用程序的基本方法及基本技巧。</p><p>　　1.2

4、課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境</p><p>　　硬件要求能運(yùn)行Windows 9.X操作系統(tǒng)的微機(jī)系統(tǒng)。</p><p>　　軟件：Microsoft Visual Basic 6.0</p><p>　　1.3 課程設(shè)計(jì)的預(yù)備知識(shí)</p><p>　　熟悉Visual Basic 6.0程序設(shè)計(jì)的基本語法知識(shí)及常用技巧。</p>&l

5、t;p>　　1.4 課程設(shè)計(jì)要求</p><p>　　按課程設(shè)計(jì)指導(dǎo)書提供的課題，每個(gè)小組設(shè)計(jì)一個(gè)完整的小游戲應(yīng)用程序。要求根據(jù)規(guī)定設(shè)計(jì)游戲的具體要求，按照應(yīng)用程序的設(shè)計(jì)步驟和VB的基本知識(shí)應(yīng)用程序的分析與實(shí)現(xiàn)。應(yīng)根據(jù)后面給出的基本學(xué)時(shí)分配合理安排設(shè)計(jì)時(shí)間，并獨(dú)立完成各方面的設(shè)計(jì)。選擇同一題目的同學(xué)，可以共同協(xié)作完成一個(gè)應(yīng)用程序的開發(fā)任務(wù)。要求書寫詳細(xì)的設(shè)計(jì)說明書，對(duì)有復(fù)雜的代碼段和程序段的部分，應(yīng)畫出程序

6、流程圖，寫出全部的代碼。在界面設(shè)計(jì)中，需畫出每個(gè)窗體的布局，進(jìn)行屬性說明，杜絕雷同。</p><p><b>　　課程設(shè)計(jì)內(nèi)容</b></p><p><b>　　2.1游戲介紹</b></p><p>　　2.1.1 游戲規(guī)則</p><p>　　打地鼠是一種非常有趣的益智游戲。游戲進(jìn)行時(shí)，地鼠不

7、斷從洞中探出頭再縮回去，當(dāng)?shù)厥箢^在洞外時(shí)，可以通過按鍵的方式打擊地鼠，時(shí)間到時(shí)游戲結(jié)束，打中地鼠次數(shù)越多得分越高，擊錯(cuò)、逃跑數(shù)越多得分越低。在英雄榜中保留前五名最高得分信息。</p><p>　　2.1.2 游戲說明</p><p>　　進(jìn)入“游戲”選擇“打地鼠”， 選擇“開始/幫助/英雄榜”，按ok 鍵確認(rèn)選項(xiàng)， 鼠標(biāo)左鍵敲打地鼠。</p><p>　　鼠標(biāo)左右鍵

8、都可打擊想、要能更快的打到地鼠連續(xù)打擊左右鍵，那能加快打地鼠的次數(shù)。</p><p><b>　　2.2游戲設(shè)計(jì)</b></p><p>　　2.2.1 界面設(shè)計(jì)：</p><p>　　打開標(biāo)準(zhǔn)EXE工程，先添加一個(gè)Label控件，屬性為“得分”，然后再添加一個(gè)時(shí)間控件Timer，然后在添加5個(gè)圖片控件，分別為Image1，Image2，Ima

9、ge3，Image4，Image5。然后在在5個(gè)圖片控件中分別添加。</p><p><b>　　如下圖2.1所示。</b></p><p>　　圖2.1 游戲開始界面</p><p>　　2.2.2 屬性設(shè)置</p><p>　　Command1的屬性設(shè)置為：開始</p><p>　　Comm

10、and2的屬性設(shè)置為：結(jié)束</p><p>　　計(jì)時(shí)器（Timer）的屬性設(shè)置為：</p><p>　　Enabled設(shè)置為：Fslse</p><p>　　Interval設(shè)置為：700</p><p><b>　　編程思路及代碼</b></p><p>　　Dim 鼠X As Single&l

11、t;/p><p>　　Dim 鼠Y As Single</p><p>　　Dim 地鼠 As Byte</p><p>　　Dim 對(duì)數(shù) As Integer</p><p>　　Dim 總數(shù) As Integer</p><p>　　Sub 判斷(X, Y)</p><p>　　Select C

12、ase 地鼠</p><p>　　Case 0, 1, 2</p><p><b>　　X = 地鼠</b></p><p><b>　　Y = 0</b></p><p>　　Case 3, 4, 5</p><p>　　X = 地鼠 - 3</p><

13、p><b>　　Y = 1</b></p><p>　　Case 6, 7, 8</p><p>　　X = 地鼠 - 6</p><p><b>　　Y = 2</b></p><p>　　End Select</p><p><b>　　End Sub&l

14、t;/b></p><p>　　Private Sub Form_Load()</p><p><b>　　Randomize</b></p><p><b>　　Show</b></p><p><b>　　Print</b></p><p>　

15、　For 地鼠 = 0 To 8</p><p><b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p><b>　　Next</b></p><p&g

16、t;<b>　　總數(shù) = 1</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　Randomize</b></p><p><b>　　Show</b>

17、;</p><p><b>　　Print</b></p><p>　　For 地鼠 = 0 To 8</p><p><b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 105

18、0 * Y</p><p><b>　　Next</b></p><p><b>　　總數(shù) = 1</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_MouseMove(Button As Integer, Shi

19、ft As Integer, X As Single, Y As Single)</p><p>　　Image1.Move X - Image1.Width / 2, Y - Image1.Height / 2</p><p>　　鼠X = Image1.Left</p><p>　　鼠Y = Image1.Top</p><p>　　Ti

20、mer1.Enabled = True</p><p>　　Label2.Caption = "運(yùn)行中..."</p><p><b>　　End Sub</b></p><p>　　Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As

21、Single, Y As Single)</p><p>　　Image1.Picture = Image3.Picture</p><p><b>　　xy = 99</b></p><p>　　If 鼠X > 800 And 鼠X < 1850 Then</p><p>　　If 鼠Y + 1500 &g

22、t; 1600 And 鼠Y + 1500 < 2350 Then xy = 0</p><p>　　If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 3</p><p>　　If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 6</p><

23、;p><b>　　End If</b></p><p>　　If 鼠X > 1850 And 鼠X < 2900 Then</p><p>　　If 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 1</p><p>　　If 鼠Y + 1500 > 2650

24、And 鼠Y + 1500 < 3400 Then xy = 4</p><p>　　If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 7</p><p><b>　　End If</b></p><p>　　If 鼠X > 2900 And 鼠X < 3950

25、Then</p><p>　　If 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 2</p><p>　　If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 5</p><p>　　If 鼠Y + 1500 > 3700 And 鼠Y +

26、 1500 < 4450 Then xy = 8</p><p><b>　　End If</b></p><p>　　If 地鼠 = xy Then</p><p>　　對(duì)數(shù) = 對(duì)數(shù) + 1</p><p>　　Label1.Caption = "打中次數(shù) :" & 對(duì)數(shù)</p

27、><p><b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image6.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p><b>　　End If</b></p><p><b>　　End Sub

28、</b></p><p>　　Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　Image1.Move 鼠X - (Image1.Width / 2 - X), 鼠Y - (Image1.Height / 2 - Y)<

29、/p><p>　　鼠X = Image1.Left</p><p>　　鼠Y = Image1.Top</p><p><b>　　End Sub</b></p><p>　　Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single

30、, Y As Single)</p><p>　　Image1.Picture = Image2.Picture</p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　總數(shù) = 總數(shù) + 1</p><p>

31、;<b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p>　　地鼠 = Int(Rnd * 9)</p><p><b>　　判斷 X, Y</b></p>

32、<p>　　Form1.PaintPicture Image4.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p>　　If 總數(shù) > 100 Then</p><p>　　Timer1.Enabled = False</p><p><b>　　判斷 X, Y</b></p

33、><p>　　Form1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p>　　If 對(duì)數(shù) > 100 Then</p><p>　　msg = MsgBox("恭喜" + Chr(13) + "你以經(jīng)爆機(jī)了，還要繼續(xù)嗎？", vbYe

34、sNo, "地鼠娛樂部")</p><p><b>　　Else</b></p><p>　　msg = MsgBox("你以經(jīng)過關(guān)了，您打中了" & 對(duì)數(shù) & "次。還要繼續(xù)嗎?", vbYesNo, "地鼠娛樂部")</p><p><b&

35、gt;　　End If</b></p><p>　　If msg = vbYes Then</p><p><b>　　總數(shù) = 1</b></p><p><b>　　對(duì)數(shù) = 0</b></p><p>　　Timer1.Enabled = True</p><p

36、><b>　　Else</b></p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</

37、b></p><p>　　Private Sub 犯得上_Click(Index As Integer)</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 關(guān)于_Click()</p>&l

38、t;p>　　MsgBox " 地鼠娛樂部" + Chr(13) + Chr(13) + "這是一個(gè)基于Windows98以上操作系統(tǒng)下" + Chr(13) + _</p><p>　　"用VB編寫的程序", , "地鼠娛樂部"</p><p><b>　　End Sub</b>&l

39、t;/p><p>　　Private Sub 使用_Click()</p><p>　　MsgBox "歡迎來到地鼠娛樂部" + Chr(13) + "使用說明:" + Chr(13) + "鼠標(biāo)左右鍵都可打擊" _</p><p>　　+ "想要能更快的打到地鼠連續(xù)打擊左右鍵，" + Ch

40、r(13) + "那能加快打地鼠的次數(shù)", , "地鼠娛樂部"</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)</p&g

41、t;<p>　　Image1.Move X - Image1.Width / 2, Y - Image1.Height / 2</p><p>　　鼠X = Image1.Left</p><p>　　鼠Y = Image1.Top</p><p>　　Timer1.Enabled = True</p><p>　　Label2

42、.Caption = "運(yùn)行中..."</p><p><b>　　End Sub</b></p><p>　　Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　Image

43、1.Picture = Image3.Picture</p><p><b>　　xy = 99</b></p><p>　　If 鼠X > 800 And 鼠X < 1850 Then</p><p>　　If 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 0</

44、p><p>　　If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 3</p><p>　　If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 6</p><p><b>　　End If</b></p><

45、;p>　　If 鼠X > 1850 And 鼠X < 2900 Then</p><p>　　If 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 1</p><p>　　If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 4</p>&

46、lt;p>　　If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 7</p><p><b>　　End If</b></p><p>　　If 鼠X > 2900 And 鼠X < 3950 Then</p><p>　　If 鼠Y + 1500 > 160

47、0 And 鼠Y + 1500 < 2350 Then xy = 2</p><p>　　If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 5</p><p>　　If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 8</p><p>

48、<b>　　End If</b></p><p>　　If 地鼠 = xy Then</p><p>　　對(duì)數(shù) = 對(duì)數(shù) + 1</p><p>　　Label1.Caption = "打中次數(shù) :" & 對(duì)數(shù)</p><p><b>　　判斷 X, Y</b></

49、p><p>　　Form1.PaintPicture Image6.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Ima

50、ge1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　Image1.Move 鼠X - (Image1.Width / 2 - X), 鼠Y - (Image1.Height / 2 - Y)</p><p>　　鼠X = Image1.Left</p>&

51、lt;p>　　鼠Y = Image1.Top</p><p><b>　　End Sub</b></p><p>　　Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　Image1.Pict

52、ure = Image2.Picture</p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　總數(shù) = 總數(shù) + 1</p><p><b>　　判斷 X, Y</b></p><p&g

53、t;　　Form1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p>　　地鼠 = Int(Rnd * 9)</p><p><b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image4.Picture, 10

54、00 + 1050 * X, 1000 + 1050 * Y</p><p>　　If 總數(shù) > 100 Then</p><p>　　Timer1.Enabled = False</p><p><b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image5.Pictu

55、re, 1000 + 1050 * X, 1000 + 1050 * Y</p><p>　　If 對(duì)數(shù) > 100 Then</p><p>　　msg = MsgBox("恭喜" + Chr(13) + "你以經(jīng)爆機(jī)了，還要繼續(xù)嗎？", vbYesNo, "地鼠娛樂部")</p><p><

56、b>　　Else</b></p><p>　　msg = MsgBox("你以經(jīng)過關(guān)了，您打中了" & 對(duì)數(shù) & "次。還要繼續(xù)嗎?", vbYesNo, "地鼠娛樂部")</p><p><b>　　End If</b></p><p>　　If m

57、sg = vbYes Then</p><p><b>　　總數(shù) = 1</b></p><p><b>　　對(duì)數(shù) = 0</b></p><p>　　Timer1.Enabled = True</p><p><b>　　Else</b></p><p&g

58、t;<b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 犯得上_Clic

59、k(Index As Integer)</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 關(guān)于_Click()</p><p>　　MsgBox " 地鼠娛樂部" + Chr(13) + C

60、hr(13) + "這是一個(gè)基于Windows98以上操作系統(tǒng)下" + Chr(13) + _</p><p>　　"用VB編寫的程序", , "地鼠娛樂部"</p><p><b>　　End Sub</b></p><p>　　Private Sub 使用_Click()</

61、p><p>　　MsgBox "歡迎來到地鼠娛樂部" + Chr(13) + "使用說明:" + Chr(13) + "鼠標(biāo)左右鍵都可打擊" _</p><p>　　+ "想要能更快的打到地鼠連續(xù)打擊左右鍵，" + Chr(13) + "那能加快打地鼠的次數(shù)", , "地鼠娛樂部&qu

62、ot;</p><p><b>　　End Sub</b></p><p><b>　　2.3 游戲?qū)崿F(xiàn)</b></p><p>　　2.3.1程序調(diào)試及測(cè)試：</p><p>　　程序調(diào)試的操作步驟如下：</p><p>　?。?）建立一標(biāo)準(zhǔn)EXE工程，將這一模塊程序添加到

63、工程中。如果你是通過雙擊標(biāo)準(zhǔn)模塊程序Model1.BAS進(jìn)入Visual Basic系統(tǒng)的，則首先需要添加一個(gè)窗體模塊。</p><p>　?。?）將該標(biāo)準(zhǔn)模塊程序Model1.BAS中代碼的指定的錯(cuò)誤修改正確或在指定的空位填上適當(dāng)?shù)恼Z句，并在窗體模塊中編寫代碼（常常寫在窗體的Click()事件中）調(diào)用標(biāo)準(zhǔn)模塊中的Sub過程或用戶自定義函數(shù)（如果在標(biāo)準(zhǔn)模塊程序Model1.BAS有多個(gè)過程或函數(shù)，要注意調(diào)用的先后

64、順序，否則得不到正確結(jié)果），調(diào)試運(yùn)行程序，使其能輸出正確結(jié)果。</p><p>　?。?）按要求保存工程</p><p><b>　　程序功能測(cè)試如下：</b></p><p>　　經(jīng)過代碼測(cè)試正確的程序只是基本上驗(yàn)證了程序邏輯上的正確性，但并不能驗(yàn)證程序是否滿足程序說明書中定義的功能，也不能驗(yàn)證測(cè)試數(shù)據(jù)本身是否完備。程序功能測(cè)試則面向程序應(yīng)用

65、環(huán)境，把程序看做一個(gè)“黑匣子”，認(rèn)為程序只要滿足應(yīng)用功能上的需求，就是可行的。</p><p><b>　　2.3.2游戲運(yùn)行</b></p><p>　　此圖是為進(jìn)入游戲界面，單擊開始按鈕，游戲開始運(yùn)行，此時(shí)單擊鼠標(biāo)左鍵進(jìn)行游戲，如果中途放棄，單擊結(jié)束按鈕。如圖2.3 所示： </p><p>　　圖2.2 游戲運(yùn)行界面</p>

66、<p>　　此圖為運(yùn)行中圖片，單擊左鍵進(jìn)行操作，用鼠標(biāo)控制懸空的小錘砸地鼠，砸到就加分，依次累計(jì)，分高則過關(guān)。</p><p><b>　　如圖2.4 所示：</b></p><p>　　圖2.3游戲運(yùn)行中界面</p><p>　　此圖為游戲結(jié)束界面，在游戲中會(huì)對(duì)打擊地鼠次數(shù)進(jìn)行累計(jì)并顯示在操作界面上，分?jǐn)?shù)達(dá)到一定時(shí)就過關(guān)。<

67、;/p><p><b>　　如圖2.5 所示：</b></p><p>　　圖2.4 游戲結(jié)束界面</p><p><b>　　課程設(shè)計(jì)總結(jié)</b></p><p>　　通過一個(gè)學(xué)期的學(xué)習(xí)，我認(rèn)為要學(xué)好vb語言程序設(shè)計(jì)這門課程，不僅要認(rèn)真閱讀課本知識(shí)，更重要的是要通過上機(jī)實(shí)踐才能增強(qiáng)和鞏固我得知識(shí)。特別

68、是作為高職生，更要注重實(shí)踐這一環(huán)節(jié)，只有這樣我們才能成為合格的電子專業(yè)人材。</p><p>　　這不，我們的動(dòng)手機(jī)會(huì)來了，我們這組做的是打地鼠游戲的設(shè)計(jì)，對(duì)我來說是有一點(diǎn)難度的，但是通過兩周的課程設(shè)計(jì)，我有很多有關(guān)于vb課程設(shè)計(jì)方面的心得體會(huì)，當(dāng)我剛剛接觸這個(gè)課程設(shè)計(jì)的時(shí)候，我感覺對(duì)我來說有些棘手，我根本不知道從何開始下手，但是在老師和同學(xué)的幫助下，我終于完成了這次課設(shè)。我想沒有他們我可能都要放棄了，因?yàn)槲冶救?/p>

69、對(duì)動(dòng)手做vb課設(shè)也并不是很熟悉，學(xué)的東西好像它是它，我是我似的，理論聯(lián)系不了實(shí)際。以前的c語言學(xué)的就是東一半西一半的，而且這么長(zhǎng)時(shí)間沒有接觸c語言了有些東西都還給上帝了。畢竟c語言是所有語言的基礎(chǔ)，學(xué)好c語言其他的計(jì)算機(jī)語言就會(huì)學(xué)得輕松的多了。一開始的程序這塊兒我就有一點(diǎn)抓狂了。因?yàn)槲覍懙某绦虻糜幸话胧清e(cuò)的。后來請(qǐng)教我們班的同學(xué)和我們的老師，每次跟他們一起到試驗(yàn)室調(diào)試程序，看老師邊做邊給我們講解。最后在計(jì)算機(jī)上做出來的時(shí)候，雖然不是我們

70、自己寫的，但是也有我們自己思考而且做出來的成果，我也有一種分享到的成就感。</p><p>　　通過這次vb課程設(shè)計(jì)，我感覺到了課程設(shè)計(jì)是培養(yǎng)學(xué)生綜合運(yùn)用所學(xué)知識(shí),發(fā)現(xiàn),提出,分析和解決實(shí)際問題,鍛煉實(shí)踐能力的重要環(huán)節(jié),是對(duì)學(xué)生實(shí)際工作能力的具體訓(xùn)練和考察過程.隨著科學(xué)技術(shù)發(fā)展的日新日異，使用各種編程語言編寫各種軟件和游戲等已經(jīng)成為當(dāng)今計(jì)算機(jī)應(yīng)用中空前活躍的領(lǐng)域， 在生活中可以說得是無處不在。因此作為二十一世紀(jì)的

71、大學(xué)生來說掌握vb編程設(shè)計(jì)語言以及其他的匯編語言的開發(fā)技術(shù)是十分重要的。所以雖然課社結(jié)束了，但我會(huì)繼續(xù)學(xué)習(xí)vb編程語言教程。</p><p>　　回顧起此次vb課程設(shè)計(jì)，至今我仍感慨頗多，的確，從選題到定稿，從理論到實(shí)踐，在整整兩星期的日子里，可以說得是苦多于甜，但是可以學(xué)到很多很多的東西，同時(shí)不僅可以鞏固了以前所學(xué)過的知識(shí)，而且學(xué)到了很多在書本上所沒有學(xué)到過的知識(shí)。通過這次課程設(shè)計(jì)使我懂得了理論與實(shí)際相結(jié)合是很

72、重要的，只有理論知識(shí)是遠(yuǎn)遠(yuǎn)不夠的，只有把所學(xué)的理論知識(shí)與實(shí)踐相結(jié)合起來，從理論中得出結(jié)論，才能提高自己的實(shí)際動(dòng)手能力和獨(dú)立思考的能力。在設(shè)計(jì)的過程中遇到問題，可以說得是困難重重，難免會(huì)遇到過各種各樣的問題，同時(shí)在設(shè)計(jì)的過程中發(fā)現(xiàn)了自己的不足之處，對(duì)以前所學(xué)過的知識(shí)理解得不夠深刻，掌握得不夠牢固，通過這次課程設(shè)計(jì)之后，一定把以前所學(xué)過的知識(shí)重新溫故。</p><p>　　這次課程設(shè)計(jì)終于順利完成了，在設(shè)計(jì)中遇到了很

73、多困難和問題，最后在xx老師的辛勤指導(dǎo)下，終于游逆而解。同時(shí)，在xx老師的身上我學(xué)得到很多實(shí)用的知識(shí)，在次我表示感謝！同時(shí)，我也要感謝給過我?guī)椭耐瑢W(xué)們，因?yàn)槲覀円唤M的同學(xué)在一起研究和思考才能完成這次課程設(shè)計(jì)。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　1．李一金，丁偉等編寫，《Visual Basic 6.0標(biāo)準(zhǔn)教程》，北京希望電子出版社&l

74、t;/p><p>　　2．黃學(xué)中編著，《Visual Basic 6.0教程》， 北京科海集團(tuán)公司</p><p>　　3．楊善林，馮光為等編著，《Visual Basic學(xué)習(xí)教程》，北京大學(xué)出版社</p><p>　　4. 趙建敏 ,《Visual Basic 6.0 程序開發(fā)指南》,航空工業(yè)出版社</p><p>　　5. 劉勝雷 , 《Vi

75、sual Basic 6.0 開發(fā)使用手冊(cè)》,機(jī)械工業(yè)出版社</p><p>　　6. 魏東 魏民 ,《Oracle 與 Visual Basic 編程指南》,電子工業(yè)出版社</p><p>　　7. 劉瑞新 ,《Visual Basic 6.0 程序設(shè)計(jì)教程》,機(jī)械工業(yè)出版社</p><p>　　8．王力華 編著，《Visual Basic 6.0時(shí)尚編程百例》，