【正文】 ame = “螺旋形”mazenum = 3 End IfIf = 3 Then filelacation = “” filename = “路障形” mazenum = 4 End IfIf = 4 Then filelacation = “” filename = “彎曲形” mazenum = 5 End IfIf = 5 Then filelacation = “” filename = “怪異形” mazenum = 6 End IfIf = 6 Thenfilelacation = “” filename = “無障礙形” mazenum = 7 End IfFor k = 1 To oldnum121)line1(i).X2 = 10 *(“39。musiame = ”“( amp。 ”“)End IfEnd SubPrivate Sub RadioButton6_CheckedChanged(ByVal sender As , ByVal e As )Handles If = True Then39。()()End IfEnd Sub End Class[設計】此窗體用來調(diào)節(jié)蛇運動的快慢程度。Private Sub TrackBar1_Scroll(ByVal sender As , ByVal e As )Handles Dim v As Integer v = timeinterval = 500 /(2 ^ v) = End Sub[設計】此窗體用來顯示玩家的成績，用到了listBox控件來顯示成績，點擊清除所有記錄可還原，recordlist（）用來記錄文件中的每一行。Public Class Form6Public Sub Form6_Load(ByVal sender As , ByVal e As )Handles For i = 1 To 7 ((i))NextEnd SubPrivate Sub Button1_Click(ByVal sender As , ByVal e As )Handles ()FileOpen(1, amp。 ”“, )For i = 1 To 7 (i)= LineInput(1)((i))NextFileClose(1)End SubPrivate Sub Button2_Click(ByVal sender As , ByVal e As )Handles ()End Sub End Class定義各種變量Imports Module Module1Public barriercolor As = ‘記錄障礙物的顏色Public panalcolor As = ‘記錄面板的顏色Public oldnum As IntegerPublic oldnum1 As IntegerPublic bnum1 As IntegerPublic filelacation As String = ”“Public filename As String = ”螺旋形Public timeinterval As Integer = 1000 Public mazenum As Integer = 2 ‘為每一個障礙物類型做標記Public lifetime As Integer = 1 ‘生命次數(shù)Public barrier(400)As RectangleShape End Module設計過程遇到的主要問題及解決方法，一個個確定等距的坐標將其畫下，廢了我好大的氣力，但后來受到了動態(tài)添加控件的觸動用數(shù)組將其解決。，了解了鍵盤下所代表的代碼意義，之前一直使用的是select case keycode代碼，怎么也無法使其響應。后來看看課本上關于鍵盤的代碼，隨便使用了select case ，令我欣慰的是竟然成功了。根據(jù)所提供的文件夾，了解起大概用法，為了讓我編程更容易，我對其文件做了一定的修改。，解決的辦法就是不斷的進行調(diào)試，修改。比如在我編寫重新開局的菜單代碼時總是會出現(xiàn)兩只蛇；，因此我得另辟蹊徑。設計中尚存的不足分析，一個一個的進行攻破，我會發(fā)現(xiàn)越往后編寫越要考慮到之前的內(nèi)容，在解決程序之間的關系會越麻煩，調(diào)試的次數(shù)更多。而且編完后縱觀全局會發(fā)現(xiàn)代碼的結構較混亂，重復性高，他人難以看的明白。 在定義變量時我盡量定義其為全局變量和模塊級變量。部分變量為了簡單或難以翻譯為英文的僅僅使用了字母代替，對讀代碼有一定困難。 我所犯下的最大錯誤就是使用控件來顯示蛇，因為在運行程序時蛇身會隨著長度的增加閃爍的愈發(fā)厲害?？赡苁强丶?，程序運行不流暢，效率不高。 我想在游戲中添加一些音樂，并且用到了循環(huán)播放的代碼，但是至今我還是沒有想到如何能將播放中的音樂暫停。還有的就是怎樣才能同時播放兩種聲音。 對于排行榜的編寫存在一些問題，比如：怎樣才能使顯示的行間距更開；如何才能使所顯示的各項指標在其對應的列下，在這一點上有很大的缺陷?？赡艹绦蛞玫絛ictionary方法。 當我運行程序時，如果我點了界面上的某條線的話，蛇就不再響應鍵盤事件了，必須使用ctrl+方向鍵才能使其響應鍵盤事件。應該是我點擊時失去了焦點導致無法正常運行。心得體會這個程序從難度上講足足有四顆星，因此我想說我確實摸索了很久，從界面的制作排版到代碼的編寫。由于計算機編程知識當初只學了些皮毛，很多次我在編程時不斷調(diào)試卻依然出現(xiàn)這樣那樣的毛病，可能是無意中拼寫錯誤，但有些確實是因為不了解vb的某些較為冷僻的用法所致。這段時間，常會向同學請教，也自覺地去借了些書看看，基本上完成了要求，但是功能、界面都還不是很完善，我會借助以后的時間繼續(xù)去加工的，我需要的是學以致用。我體會到了編寫程序是個有條理的邏輯過程，首先必須有個大致的思路，整體的規(guī)劃出來。然后再是分步地去具體完成，尤為重要的是需要投入相當一部分精力去精益求精，這樣你的成果才不會是毛糙的。思維調(diào)動是件另人愉快的事情，而我們應該去學會享受腦力勞動的過程，哪怕是一次次地失利。這就是2個月的課程設計所教會我的。參考文獻[2].王棟，visual basic程序設計實用教程，北京，清華大學出版社第五篇：vb課程設計 職工工資管理系統(tǒng)代碼Form1: Dim errorCount As Integer Private Sub Command1_Click()If = “system” And = “1234” ThenLoad Form2MsgBox “登陸成功，歡迎您進入職工工資管理系統(tǒng)”, vbInformation, “登陸成功”ElseerrorCount = errorCount + 1If errorCount 3 ThenMsgBox “用戶名或密碼錯誤(第” amp。 errorCount amp。 “次)！”, vbOKOnly + vbExclamation, “登陸失敗”End IfIf errorCount = 3 Then = False = False = FalseMsgBox “三次輸入用戶名或密碼錯誤,程序?qū)⒆詣油顺觯　? vbOKOnly + vbExclamation, “登陸失敗”EndEnd If End IfEnd SubPrivate Sub Command2_Click()Unload Me End SubPrivate Sub Form_Load()errorCount = 0 End SubPrivate Sub Form_Unload(Cancel As Integer)If MsgBox(“是否要退出程序?”, vbYesNo, “退出提示”)= vbNo ThenCancel = 1 End If End SubFor i = 1 To jlNumygList(i).shifagongzi =(CSng(ygList(i).jibengz)+ ygList(i).gerensuiCSng(ygList(i).jingtie)ygList(y).shifagongzi = ygList(zuishao).shifagongzi ygList(zuishao).shifagongzi = End If Next loadData End SubPrivate Sub Command5_Click()Dim linShi As YuanGong = InputBox(“請輸入要添加的姓名”, “添加員工姓名錄入”)If Len(Trim()) 0 Then = InputBox(“請輸入添加員工的基本工資”, “添加員工基本工資錄入”)If Len(Trim()) 0 Then = InputBox(“請輸入添加員工的津貼”, “添加員工津貼錄入”)If Len(Trim()) 0 Then = InputBox(“請輸入添加員工的個人所得稅”, “添加員工個稅錄入”)If Len(Trim()) 0 Then = InputBox(“請輸入添加員工的水電費”, “添加員工水電費錄入”)If Len(Trim()) 0 ThenOpen filedir For Append As 1Write 1, 。Close 1MsgBox “添加員工成功！”, vbOKOnly + vbInformation, “成功”jlNum = 0 If Len(Trim(filedir)) 0 ThenOpen filedir For Input As 1Do While Not EOF(1)Line Input 1, aIf Len(Trim(a)) 0 ThenjlNum = jlNum + 1End IfLoopClose 1ReDim Preserve ygList(jlNum)As YuanGongjlNum = 0Open filedir For Input As 1Do While Not EOF(1)jlNum = jlNum + 1Input 1, ygList(jlNum).ygnamgInput 1, ygList(jlNum).jibengzInput 1, ygList(jlNum).jingtieNextClose 1MsgBox “刪除員工成功！”, vbOKOnly + vbInformation, “成功”jlNum = 0 If Len(Trim(filedir)) 0 ThenOpen filedir For Input As 1Do While Not EOF(1)Line Input 1, aIf Len(Trim(a)) 0 ThenjlNum = jlNum + 1End IfLoopClose 1ReDim ygList(jlNum)As YuanGongjlNum = 0Open filedir For Input As 1Do While Not EOF(1)jlNum = jlNum + 1Input 1, ygList(jlNum).ygnamgInput 1, ygList(jlNum).jibengzInput 1, ygList(jlNum).jingtieInput 1, ygList(jlNum).gerensuiInput 1, ygList(jlNum).suidianfeiLoopClose 1loadData = True = False = False = True = True End If = “姓名” amp。 vbTab amp。 “工資” amp。 vbTab amp。 “津貼” amp。 vbTab amp。 “所得稅” amp。 vbTab amp。 “水電費” amp。 vbCrLfFor i = 1 To jlNum = amp。 ygList(i).ygnamg amp。 vbTab amp。 ygList(i).jibengz amp。 vbTab amp。 ygList(i).jingtie amp。 vbTab amp。 ygList(i).gerensui amp。 vbTab amp。 ygList(i).suidianfei amp。 vbCrLfNext ElseMsgBox “刪除員工失?。　? vbOKOnly + vbExclamation, “失敗” End If End SubPrivate Sub Command7_Click()