vb課程設(shè)計(jì)-全自動(dòng)音樂打鈴軟件的設(shè)計(jì)

1、<p><b>　　目錄</b></p><p>　　1 選題背景··························

2、83;····································&

3、#183;··2</p><p>　　1.1 背景·····························

4、;···································2</p&g

5、t;<p>　　1.2 設(shè)計(jì)要求·································

6、;···························2</p><p>　　1.3 指導(dǎo)思想····&

7、#183;····································

8、;···················2</p><p>　　2 方案論證············

9、83;····································&

10、#183;················2</p><p>　　3 程序設(shè)計(jì)論述··············

11、83;····································&

12、#183;··········2</p><p>　　3.1 程序工作····················

13、83;····································&

14、#183;··2</p><p>　　3.2 控件屬性說明····························&

15、#183;···························4</p><p>　　3.3 程序代碼（附帶解釋說明）··&

16、#183;····································

17、;······4</p><p>　　4 結(jié)果分析·························

18、83;····································&

19、#183;··11</p><p>　　4.1 運(yùn)行結(jié)果····························&#

20、183;······························11</p><p>　　4.2 結(jié)果分析

21、83;····································&

22、#183;·····················15</p><p>　　5 總結(jié)··········

23、····································

24、3;······················15</p><p>　　設(shè)計(jì)體會(huì)及今后的改進(jìn)意見········&

25、#183;····································

26、;······16</p><p>　　參考文獻(xiàn)資料·························&#

27、183;····································

28、·17</p><p><b>　　1 選題背景</b></p><p><b>　　1.1 背景</b></p><p>　　如今，許多學(xué)校、工礦等單位都安裝音樂打鈴器，音樂打鈴已成為一種時(shí)尚的打鈴方式，它改進(jìn)了傳統(tǒng)單調(diào)的打鈴方式，讓打鈴方式變得豐富多彩。因此，我選擇了全自動(dòng)打鈴軟件作為我的課程設(shè)計(jì)課題。<

29、;/p><p><b>　　1.2 設(shè)計(jì)要求</b></p><p>　　設(shè)計(jì)基本要求為定時(shí)播出，以周為單位，可以在任意天任意時(shí)間設(shè)定播放音樂鈴聲?？梢匀我饪刂撇シ艜r(shí)間的長短，在設(shè)定的時(shí)間內(nèi)會(huì)連續(xù)播放，結(jié)束時(shí)間一到即會(huì)停止?？稍O(shè)置多套播放計(jì)劃，根據(jù)需要隨時(shí)啟用。內(nèi)置十首鈴聲，支持自定義鈴聲名稱及音樂。設(shè)置計(jì)劃時(shí)也可指定磁盤上的文件，支持WAV、MID、MP3等音樂文件格式

30、。 軟件界面簡潔實(shí)用，可以隨時(shí)手動(dòng)播放需要的鈴聲，或者暫時(shí)屏蔽某個(gè)不需要的鈴聲。</p><p><b>　　1.3 指導(dǎo)思想</b></p><p>　　本程序設(shè)計(jì)主要是用到windows media player播放器控件、定時(shí)器、對(duì)話框、列表框、文件列表框和組合框的使用方法。選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)的設(shè)計(jì)使用。</p><p><b>

31、;　　2 方案論證</b></p><p>　　最初的設(shè)計(jì)方案只用列表框加載音樂，用MMControl播放控件進(jìn)行播放，但是添加音樂后，音樂不播放，加之對(duì)此播放控件不太熟悉，編程較慢，且出現(xiàn)錯(cuò)誤較多就放棄了此計(jì)劃。 </p><p>　　后來的改進(jìn)的計(jì)劃是加載windows media player控件，設(shè)計(jì)兩個(gè)命令按鈕“默認(rèn)列表”、“自定義列表”分別用來切換默認(rèn)列表與自定義列

32、表兩個(gè)播放列表，其中默認(rèn)列表對(duì)應(yīng)firelist1，內(nèi)置十首默認(rèn)鈴聲；自定義列表對(duì)應(yīng)list1，可以通過單擊“添加文件”按鈕添加自己要選的指定格式的音樂。當(dāng)在任意一個(gè)text1文本框中輸入上課或下課時(shí)間后（考慮到學(xué)校上下課的時(shí)間基本精確到分鐘，所以程序設(shè)計(jì)是按此設(shè)計(jì)的，輸入時(shí)間時(shí)，就精確到分鐘即可），當(dāng)?shù)竭_(dá)此時(shí)間后，按照所選計(jì)劃進(jìn)行播放，當(dāng)播放進(jìn)度與設(shè)置的播放時(shí)長相等時(shí)，結(jié)束播放。同時(shí)，用戶雙擊列表中的音樂后，也可以使其播放。并且可以通

33、過“刪除”按鈕刪除自定義列表中不想要的鈴聲，也可以按“清空”按鈕清空自定義列表。在周末的時(shí)候，設(shè)計(jì)為不打鈴，以周開始循環(huán)打鈴。綜上，通過改變?cè)O(shè)計(jì)思路，自動(dòng)打鈴最后實(shí)現(xiàn)。</p><p><b>　　3 程序設(shè)計(jì)論述</b></p><p>　　3.1 設(shè)計(jì)工作簡述</p><p>　　該課程設(shè)計(jì)歷時(shí)5天完成：</p><p&

34、gt;　　第一天：進(jìn)行總體的設(shè)計(jì)，確定設(shè)計(jì)思路，即具體編程設(shè)計(jì)步驟。</p><p>　　第二天：進(jìn)行初步編程。進(jìn)行界面設(shè)計(jì)，編輯添加音樂到播放列表以及雙進(jìn)行播放的程序。</p><p>　　第三天：完成剩余程序設(shè)計(jì)，主要是控制定時(shí)打鈴的程序。并驗(yàn)證正確性。</p><p>　　第四天：上級(jí)驗(yàn)證程序正確性，并進(jìn)行改進(jìn)。</p><p>　　第

35、五天：編寫課程設(shè)計(jì)報(bào)告，并打印成稿。</p><p>　　3.2 控件屬性說明</p><p>　　表3-2 控件屬性表</p><p>　　3.3 程序代碼（附帶解釋說明）</p><p>　　Option Explicit</p><p>　　Dim a(), b() '聲明數(shù)組a(),b(),其分別

36、用來保存自定義列表中各項(xiàng)的路徑和文件名</p><p>　　Dim x As String '保存將時(shí)間轉(zhuǎn)為字符串的變量</p><p>　　Dim n As Integer '表示text1數(shù)組的下標(biāo)</p><p>　　'當(dāng)點(diǎn)擊組合框中的第一項(xiàng)是，選擇鈴聲（請(qǐng)事先選好鈴聲）</p><p>　　——————————

37、———————————————————————</p><p>　　Private Sub Combo1_Click()[1]</p><p>　　If Combo1.ListIndex = 0 Then '當(dāng)?shù)谝豁?xiàng)被選中時(shí)，彈出對(duì)話框</p><p>　　MsgBox "請(qǐng)選擇鈴聲"</p><p>　　'

38、;如果在默認(rèn)列表或自定義列表內(nèi)選擇鈴聲，將其賦給text5</p><p>　　If File1.Visible = True Then</p><p>　　Text5.Text = File1.List(File1.ListIndex)</p><p><b>　　Else</b></p><p>　　Text5.Te

39、xt = List1.List(List1.ListIndex)</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　————————————————————

40、—————————————</p><p><b>　　'強(qiáng)行結(jié)束程序</b></p><p>　　Private Sub Command4_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p>

41、;<p>　　—————————————————————————————————</p><p>　　'點(diǎn)擊command5即默認(rèn)列表按鈕時(shí)，文件列表框顯示,列表框不顯示</p><p>　　Private Sub Command5_Click()</p><p>　　List1.Visible = False</p><p

42、>　　File1.Visible = True</p><p><b>　　End Sub</b></p><p>　　—————————————————————————————————</p><p>　　'點(diǎn)擊command6即自定義列表按鈕時(shí)，文件列表框顯示,列表框不顯示</p><p>　　Priv

43、ate Sub Command6_Click()</p><p>　　List1.Visible = True</p><p>　　File1.Visible = False</p><p><b>　　End Sub</b></p><p>　　—————————————————————————————————<

44、/p><p>　　'點(diǎn)擊command7即默認(rèn)時(shí)間按鈕時(shí)，在text1控件數(shù)組中顯示默認(rèn)時(shí)間</p><p>　　Private Sub Command7_Click()</p><p>　　Text1(0).Text = "08:00"</p><p>　　Text1(1).Text = "08:50&qu

45、ot;</p><p>　　Text1(2).Text = "09:00"</p><p>　　Text1(3).Text = "09:50"</p><p>　　Text1(4).Text = "10:05"</p><p>　　Text1(5).Text = "10:5

46、5"</p><p>　　Text1(6).Text = "11:05"</p><p>　　Text1(7).Text = "11:50"</p><p>　　Text1(8).Text = "14:00"</p><p>　　Text1(9).Text = "

47、14:50"</p><p>　　Text1(10).Text = "15:00"</p><p>　　Text1(11).Text = "15:50"</p><p>　　Text1(12).Text = "16:05"</p><p>　　Text1(13).Text

48、= "16:55"</p><p>　　Text1(14).Text = "17:05"</p><p>　　Text1(15).Text = "17:55"</p><p><b>　　End Sub</b></p><p>　　———————————————

49、——————————————————</p><p>　　'點(diǎn)擊command8即清空時(shí)間按鈕時(shí)，清空所有時(shí)間</p><p>　　Private Sub Command8_Click()</p><p>　　For n = 0 To 15</p><p>　　Text1(n).Text = ""</p>

50、;<p><b>　　Next n</b></p><p><b>　　End Sub</b></p><p>　　—————————————————————————————————</p><p>　　'雙擊文件列表框中某一項(xiàng)時(shí)，播放所選歌曲</p><p>　　Privat

51、e Sub File1_DblClick()</p><p>　　WindowsMediaPlayer1.URL = App.Path & "\mp3\" & File1.List(File1.ListIndex) [2]</p><p>　　WindowsMediaPlayer1.Controls.play</p><p>　　

52、Text4.Text = File1.List(File1.ListIndex) 'Text4顯示正在播放的歌曲</p><p><b>　　End Sub</b></p><p>　　—————————————————————————————————</p><p>　　Private Sub Form_Load()</

53、p><p><b>　　Show</b></p><p>　　Timer1.Interval = 1000</p><p>　　Timer2.Interval = 1000</p><p>　　Timer3.Interval = 1000</p><p>　　Timer1.Enabled = Fals

54、e 'timer1不可用，防止選中歌曲就進(jìn)行打鈴</p><p>　　File1.Visible = True '加載窗體時(shí)只顯示默認(rèn)列表</p><p>　　List1.Visible = False</p><p>　　MsgBox "請(qǐng)?zhí)砑逾徛?quot;</p><p>　　File1.Path = App

55、.Path & "\mp3" '此處為默認(rèn)音樂，其所在文件夾與工程文件放在一起，名為“mp3”的文件夾</p><p>　　Text1(0).Text = "08:00" '加載默認(rèn)時(shí)間</p><p>　　Text1(1).Text = "08:50"</p><p>　　Text

56、1(2).Text = "09:00"</p><p>　　Text1(3).Text = "09:50"</p><p>　　Text1(4).Text = "10:05"</p><p>　　Text1(5).Text = "10:55"</p><p>　　

57、Text1(6).Text = "11:05"</p><p>　　Text1(7).Text = "11:50"</p><p>　　Text1(8).Text = "14:00"</p><p>　　Text1(9).Text = "14:50"</p><p&g

58、t;　　Text1(10).Text = "15:00"</p><p>　　Text1(11).Text = "15:50"</p><p>　　Text1(12).Text = "16:05"</p><p>　　Text1(13).Text = "16:55"</p>

59、<p>　　Text1(14).Text = "17:05"</p><p>　　Text1(15).Text = "17:55"</p><p>　　'如果今天是周末，則不打鈴</p><p>　　If Weekday(Date) = 1 Or Weekday(Date) = 7 Then</p&g

60、t;<p>　　MsgBox "今天周末，不執(zhí)行程序"</p><p>　　Timer1.Enabled = False</p><p>　　Timer3.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End Su

61、b</b></p><p>　　————————————————————————————————————</p><p>　　Private Sub Command1_Click()[3]</p><p>　　'定義i,j兩個(gè)靜態(tài)變量用來，其為數(shù)組a()，b()的下標(biāo)</p><p>　　Static i As Integ

62、er, j As Integer</p><p>　　'定義動(dòng)態(tài)數(shù)組a(i), b(j)，且值保存，分別用于記錄列表框中各項(xiàng)的路徑和文件名</p><p>　　ReDim Preserve a(i), b(j)</p><p>　　'篩選指定格式的文件</p><p>　　CommonDialog1.Filter=”全部格式

63、|*.*|*.mp3|*.mp3|*.wma|*.wma|</p><p>　　*.wmv|*.wmv|*.mid|*.mid”</p><p>　　CommonDialog1.InitDir = "D:\"</p><p>　　CommonDialog1.Action = 1</p><p>　　If CommonDia

64、log1.FileName = "" Then '如果沒選擇文件，退出工程</p><p><b>　　Exit Sub</b></p><p>　　Else '若選中，文件路徑賦給a（），文件名賦給b（）。i,j分別加1，當(dāng)添加文件后，繼續(xù)執(zhí)行</p><p>　　a(i) = CommonDialog1.

65、FileName</p><p>　　b(j) = CommonDialog1.FileTitle</p><p>　　List1.AddItem b(j)</p><p><b>　　i = i + 1</b></p><p><b>　　j = j + 1</b></p><

66、p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　—————————————————————————————————</p><p>　　'點(diǎn)擊command2即“刪除”按鈕時(shí)，刪除自定義列表中所選項(xiàng)</p><p>　　Pr

67、ivate Sub Command2_Click()</p><p>　　List1.RemoveItem List1.ListIndex</p><p><b>　　End Sub</b></p><p>　　—————————————————————————————————</p><p>　　'點(diǎn)擊comm

68、and3即“清空”按鈕時(shí)，清空自定義列表內(nèi)所有項(xiàng)</p><p>　　Private Sub Command3_Click()</p><p>　　List1.Clear</p><p><b>　　End Sub</b></p><p>　　—————————————————————————————————</p

69、><p>　　'雙擊文列表框中某一項(xiàng)時(shí)，播放所選歌曲</p><p>　　Private Sub List1_DblClick()</p><p>　　WindowsMediaPlayer1.URL = a(List1.ListIndex)</p><p>　　WindowsMediaPlayer1.Controls.play</p

70、><p>　　Text4.Text = List1.List(List1.ListIndex)</p><p><b>　　End Sub</b></p><p>　　—————————————————————————————————</p><p>　　'執(zhí)行播放器控件自動(dòng)打鈴的命令</p><

71、p>　　Private Sub Timer1_Timer()</p><p>　　'首先判斷列表框中的項(xiàng)是否被選中，如果選中，往下執(zhí)行</p><p>　　If List1.ListIndex <> -1 Then</p><p>　　'判斷播放器是否正在播放，如果正在播放，則停止，</p><p>　　&#

72、39;自動(dòng)播放令選擇的列表項(xiàng)，以防設(shè)置的播放時(shí)間超過打鈴時(shí)間間隔 ，</p><p>　　'播放后，timer1都要停止工作，否則不會(huì)播放，下同</p><p>　　If WindowsMediaPlayer1.playState = 3 Then [4]</p><p>　　WindowsMediaPlayer1.Controls.stop</p&g

73、t;<p>　　WindowsMediaPlayer1.URL = a(List1.ListIndex)</p><p>　　WindowsMediaPlayer1.Controls.play</p><p>　　Text4.Text = List1.List(List1.ListIndex)</p><p>　　Timer1.Enabled = Fa

74、lse</p><p>　　Else '如果播放器處于停止或閑置狀態(tài)，則播放列表框內(nèi)所選列表項(xiàng)</p><p>　　WindowsMediaPlayer1.URL = a(List1.ListIndex)</p><p>　　WindowsMediaPlayer1.Controls.play</p><p>　　Text4.Text

75、 = List1.List(List1.ListIndex)</p><p>　　Timer1.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　'首先判斷文件列表框中的項(xiàng)是否被選中，如果選

76、中，往下執(zhí)行</p><p>　　If File1.ListIndex <> -1 Then</p><p>　　'判斷播放器是否正在播放，如果正在播放，則停止，</p><p>　　'自動(dòng)播放令選擇的列表項(xiàng)，以防設(shè)置的播放時(shí)間超過打鈴時(shí)間間隔</p><p>　　If WindowsMediaPlayer1.pl

77、ayState = 3 Then</p><p>　　WindowsMediaPlayer1.Controls.stop</p><p>　　WindowsMediaPlayer1.URL = App.Path & "\mp3\" & File1.List(File1.ListIndex)</p><p>　　WindowsMed

78、iaPlayer1.Controls.play</p><p>　　Text4.Text = File1.List(File1.ListIndex)</p><p>　　Timer1.Enabled = False</p><p>　　Else '如果播放器處于停止或閑置狀態(tài)，則播放文件框內(nèi)的所選列表項(xiàng)</p><p>　　Wind

79、owsMediaPlayer1.URL = App.Path & "\mp3\" & File1.List(File1.ListIndex)</p><p>　　WindowsMediaPlayer1.Controls.play</p><p>　　Text4.Text = File1.List(File1.ListIndex)</p>&

80、lt;p>　　Timer1.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　————————————————————

81、—————————————</p><p>　　'在label1內(nèi)顯示時(shí)間，將其轉(zhuǎn)為字符串格式</p><p>　　Private Sub Timer2_Timer()</p><p>　　Label1.Caption = Format(Now, "yyyy年m月dd日hh:mm:ss dddd")[5]</p><

82、p><b>　　End Sub</b></p><p>　　'根據(jù)播放計(jì)劃，調(diào)用自動(dòng)打鈴程序</p><p>　　Private Sub Timer3_Timer()</p><p>　　Dim y As Integer, z As Integer</p><p>　　x = Format(Time, &q

83、uot;hh:mm") '轉(zhuǎn)化時(shí)間為只有小時(shí)和分鐘的字符串格式</p><p>　　'從0~15判斷，如果其中某一文本框與轉(zhuǎn)化后的時(shí)間相等，</p><p>　　'根據(jù)組合框所選擇的播放計(jì)劃,調(diào)用timer1進(jìn)行自動(dòng)打鈴</p><p>　　For n = 0 To 15</p><p>　　'當(dāng)te

84、xt控件數(shù)組中某一項(xiàng)等于轉(zhuǎn)化格式后的時(shí)間是，往下執(zhí)行</p><p>　　If Text1(n).Text = x Or Text1(n).Text = "0" & x Then</p><p>　　Select Case Combo1.ListIndex '選擇組合框中的播放計(jì)劃</p><p>　　Case 0 '

85、用戶選擇鈴聲</p><p>　　'根據(jù)一開始時(shí)選擇的播放鈴聲，在文件列表框和列表框內(nèi)找尋索引號(hào)</p><p>　　If File1.List(y) = Text5.Text Then </p><p>　　File1.ListIndex = y</p><p><b>　　End If</b></p&g

86、t;<p>　　If List1.List(z) = Text5.Text Then</p><p>　　List1.ListIndex = z</p><p><b>　　End If</b></p><p>　　Case 1 '隨機(jī)播放所選列表的鈴聲(換列表時(shí)請(qǐng)?jiān)冱c(diǎn)一下此計(jì)劃）</p><p>

87、;　　'判定所選列表，進(jìn)行隨機(jī)選擇</p><p>　　Text5.Text = "" '清空text5</p><p>　　If File1.Visible = True Then</p><p>　　File1.ListIndex = Int(Rnd * File1.ListCount)</p><p&

88、gt;<b>　　End If</b></p><p>　　If List1.Visible = True Then</p><p>　　List1.ListIndex = Int(Rnd * List1.ListCount)</p><p><b>　　End If</b></p><p>　　E

89、nd Select</p><p>　　'加載窗體時(shí)，timer3循環(huán)間隔為1秒，直至滿足上面的相等條件，調(diào)用timer2</p><p>　　'然后改為1分鐘循環(huán)判斷一次，否則每秒都在循環(huán)，不斷調(diào)用timer2，播放器無法播放</p><p>　　Timer3.Interval = 60000</p><p>　　Timer

90、1.Enabled = True</p><p><b>　　End If</b></p><p><b>　　Next n</b></p><p><b>　　End Sub</b></p><p>　　—————————————————————————————————<

91、;/p><p><b>　　'控制播放時(shí)長</b></p><p>　　Private Sub Timer4_Timer()</p><p>　　'text3顯示播放器的播放進(jìn)度，且將播放進(jìn)度轉(zhuǎn)化為整形顯示</p><p>　　Text3.Text = CInt(WindowsMediaPlayer1.Con

92、trols.currentPosition)</p><p>　　'當(dāng)播放進(jìn)度與設(shè)定播放時(shí)長相等時(shí)，則停止打鈴</p><p>　　If Val(Text2.Text) = Val(Text3.Text) Then</p><p>　　WindowsMediaPlayer1.Controls.stop</p><p><b>

93、;　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　4 結(jié)果分析</b></p><p><b>　　4.1 運(yùn)行結(jié)果</b></p><p><b>　　圖4-1 設(shè)計(jì)界面</b><

94、;/p><p><b>　　圖4-2 啟動(dòng)界面</b></p><p>　　圖4-3 點(diǎn)擊對(duì)話框后的界面</p><p>　　圖4-4 在默認(rèn)列表雙擊播放歌曲的界面</p><p>　　圖4-5 在自定義列表雙擊播放歌曲的界面</p><p>　　圖4-6 選擇用戶計(jì)劃1后到15：25開始播指定鈴聲（

95、播放會(huì)有延時(shí)）</p><p>　　圖4-7 選擇用戶計(jì)劃2后到15：33開始隨機(jī)選歌打鈴（播放會(huì)有延時(shí)）</p><p>　　圖4-8 可不選播放計(jì)劃，按用戶所選歌曲播放（播放會(huì)有延時(shí)）</p><p><b>　　4.2 結(jié)果分析</b></p><p>　　該程序基本可以執(zhí)行所要求打鈴命令，但也存在一些些缺陷，如：

96、在選擇播放計(jì)劃1前必須先選定歌曲，否則Text5不顯示。不能完成分別設(shè)置上課鈴聲和下課鈴聲。</p><p><b>　　5 總結(jié)</b></p><p>　　這次課程設(shè)計(jì)我做的題目是制作一個(gè)全自動(dòng)音樂打鈴軟件，雖然有一定難度，但是在不斷的摸索、查資料下運(yùn)用windows media player控件，結(jié)合列表框、文件列表框、定時(shí)器、組合框等的使用，最后完成軟件的制作

97、。雖然有很一些缺陷，但設(shè)計(jì)要求的打鈴功能基本可以完成，自己非常滿意最后的成果，它值得我付出那么多的汗水。</p><p>　　設(shè)計(jì)體會(huì)及今后的改進(jìn)意見</p><p>　　生活就是這樣，汗水預(yù)示著結(jié)果也見證著收獲。勞動(dòng)是人類生存生活永恒不變的話題。通過實(shí)習(xí)，我才真正領(lǐng)略到“艱苦奮斗”這一詞的真正含義，我才意識(shí)到老一輩電子設(shè)計(jì)為我們的社會(huì)付出。我想說，設(shè)計(jì)確實(shí)有些辛苦，但苦中也有樂，在如今單

98、一的理論學(xué)習(xí)中，很少有機(jī)會(huì)能有實(shí)踐的機(jī)會(huì)，但我們可以，而且設(shè)計(jì)也是一個(gè)團(tuán)隊(duì)的任務(wù)，一起的工作可以讓我們有說有笑，相互幫助，配合默契，多少人間歡樂在這里灑下，大學(xué)里一年的相處還趕不上這十來天的合作，我感覺我和同學(xué)們之間的距離更加近了；我想說，確實(shí)很累，但當(dāng)我們看到自己所做的成果時(shí)，心中也不免產(chǎn)生興奮； 正所謂“三百六十行，行行出狀元”。我們同樣可以為社會(huì)作出我們應(yīng)該做的一切，這有什么不好？我們不斷的反問自己。也許有人不喜歡這類的工作，也許

99、有人認(rèn)為設(shè)計(jì)的工作有些枯燥，但我們認(rèn)為無論干什么，只要人生活的有意義就可。社會(huì)需要我們，我們也可以為社會(huì)而工作。既然如此，那還有什么必要失落呢？于是我們決定沿著自己的路，執(zhí)著的走下去。通過這次課程設(shè)計(jì)使我懂得了理論與實(shí)際相結(jié)合是很重要的，只有理論知識(shí)是遠(yuǎn)遠(yuǎn)不夠的，只有把所學(xué)的理論知識(shí)與實(shí)踐相結(jié)合起來，從理論中得出結(jié)論，才能真正為社會(huì)服務(wù)，</p><p>　　對(duì)我們而言，知識(shí)上的收獲重要，精神上的豐收更加可喜。挫

100、折是一份財(cái)富，經(jīng)歷是一份擁有。這次課程設(shè)計(jì)必將成為我人生旅途上一個(gè)非常美好的回憶！</p><p><b>　　參 考 文 獻(xiàn)</b></p><p>　　[1]張路平,喻波,邵謙謙.《Visual Basic6.0編程案例精解》.電子工業(yè)出版社.2005-04</p><p>　　[2]陸毅.《Visual Basic實(shí)例教程》.科學(xué)出版社.

101、2002-09</p><p>　　[3]林卓然.《Visual Basic程序設(shè)計(jì)教程(第2版)》 .電子工業(yè)出版社.2010-11</p><p>　　[4]龔沛曾,陸慰民,楊志強(qiáng).《Visual Basic程序設(shè)計(jì)教程》.高等教育出版社.2000-07</p><p>　　[5]邵潔.《Visual Basic程序設(shè)計(jì)(第三版)》.東南大學(xué)出版社.2006-0