【文章內容簡介】 。在 VB4里，可選參數(shù)可以不帶默認值，而在 VB里，如果使用可選參數(shù)，則必須帶有默認值。在調用的時候 ， VB若發(fā)現(xiàn)參數(shù)被省略，則自動讀取 .param部分的默認值，并顯式傳遞給過程。這一部分完全由編譯器處理，而且沒有任何性能損失，和手工傳遞所有參數(shù)是完全一樣的。至于按名傳遞， VB會自動調整參數(shù)的順序，其結果與傳統(tǒng)方式的傳遞也沒有任何的不同。這說明我們可以放心地使用這項便利。而且?guī)в锌蛇x參數(shù)的過程拿到 C中，頂多變成不可選參數(shù)，也不會造成什么其他的麻煩。 COM組件都使用了默認參數(shù)，而且有些過程的參數(shù)列表非常長，在 VB里可以輕松地處理它們，而在 C中經常讓開發(fā)者傳參數(shù)傳到吐血。 致謝 在本次課程 設計中，我從指導老師化希耀和張兵身上學到了很多東西。老師認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。 另外，在游戲開發(fā)過程中許多同學也給于我們很大的幫助，幫助解決了不少的難點，使得游戲能及時開發(fā)完成 ,在此謝謝各位對此次設計的幫助。 參考文獻 ： [1]龔沛曾，陸慰民，楊志強 .Vsual Basic 程序設計教程 .高等教育出版社出版 。 [2]劉新民，蔡瓊，白糠 生 .Vsual Basic 程序設計 .清華大學出版社出版。 [3]唐凱軍，湯惠莉 .VB6編程 80 例上手 .山東電子音像出版社。 [4]盧毅 .Vsual Basic 實例教程 .科學出版社出版。 [5]趙欣勝，亢慧娟，劉晟宏 .Vsual Basic 經典范例 50 講 .科學出版社出版。 附件： Private Sub hidefang(a As Integer) 39。定義使方塊不可見的過程 Select Case a Case 0 39。a＝ 0使游戲區(qū)方塊不可見 cmdfang(n(0)).Visible = False cmdfang(n(1)).Visible = False cmdfang(n(2)).Visible = False cmdfang(n(3)).Visible = False Case 1 39。a＝ 1使預覽區(qū)方塊不可見 cmdfangnext(m(0)).Visible = False cmdfangnext(m(1)).Visible = False cmdfangnext(m(2)).Visible = False cmdfangnext(m(3)).Visible = False End Select End Sub Private Sub showfang(a As Integer) 39。定義使方塊可見的過程 Select Case a Case 0 39。a＝ 0使游戲區(qū)方塊可見 cmdfang(n(0)).Visible = True cmdfang(n(1)).Visible = True cmdfang(n(2)).Visible = True cmdfang(n(3)).Visible = True Case 1 39。a＝ 1使預覽區(qū)方塊不可見 cmdfangnext(m(0)).Visible = True cmdfangnext(m(1)).Visible = True cmdfangnext(m(2)).Visible = True cmdfangnext(m(3)).Visible = True End Select End Sub Private Sub clearline() 39。定義消除整行的過程 For i = 190 To 10 Step 10 If cmdfang(i).Visible = True And _ cmdfang(i + 1).Visible = True And _ cmdfang(i + 2).Visible = True And _ cmdfang(i + 3).Visible = True And _ cmdfang(i + 4).Visible = True And _ cmdfang(i + 5).Visible = True And _ cmdfang(i + 6).Visible = True And _ cmdfang(i + 7).Visible = True And _ cmdfang(i + 8).Visible = True And _ cmdfang(i + 9).Visible = True Then For j = i + 4 To i Step 1 t = 1 cmdfang(j).Visible = False cmdfang(2 * i + 9 j).Visible = False For k = 1 To 4000 DoEvents Next t = 0 Next linenum = linenum + 1 For j = i 1 To 0 Step 1 If cmdfang(j).Visible = True Then cmdfang(j).Visible = False cmdfang(j + 10).Visible = True End If Next clearline 39。為了實現(xiàn)連消數(shù)行，這里使用遞歸調用 End If Next End Sub Private Function downable() As Boolean 39。自定義函數(shù)，確定方塊是否能下降 If n(0) 190 And n(1) 190 And n(2) 190 And n(3) 190 Then If cmdfang(n(0) + 10).Visible = False And _ cmdfang(n(1) + 10).Visible = False And _ cmdfang(n(2) + 10).Visible = False And _ cmdfang(n(3) + 10).Visible = False Then downable = True Else: downable = False End If Else: downable = False End If End Function Private Function leftable() As Boolean 39。自定義函數(shù)，確定方塊是否能左移 If n(0) Mod 10 0 And n(1) Mod 10 0 And n(2) Mod 10 0 And n(3) Mod 10 0Then If cmdfang(n(0) 1).Visible = False And _ cmdfang(n(1) 1).Visible = False And _ cmdfang(n(2) 1).Visible = False And _ cmdfang(n(3) 1).Visible = False Then leftable = True Else: leftable = False End If Else: leftable = False End If End Function Private Function rightable() As Boolean 39。自定義函數(shù)，確定方塊是否能右移If n(0) Mod 10 9 And n(1) Mod 10 9 And n(2) Mod 10 9 And n(3) Mod 10 9Then If cmdfang(n(0) + 1).Visible = False And _ cmdfang(n(1) + 1).Visible = False And _ cmdfang(n(2) + 1).Visible = False And _ cmdfang(n(3) + 1).Visible = False Then rightable = True Else: rightable = False End If Else: rightable = False End If End Function 俄羅斯方塊游戲課程設計 目錄 前 言 ............................................................................................................................ 1 工程概況 ........................................................................................................................ 2 項目名稱 ............................................................................................................ 2 設計平臺 ............................................................................................................ 2 程序設計思想 ..................................................................................................... 2 運用的控件和主要對象 ..................................................................................... 3 主要實現(xiàn)的功能 ................................................................................................. 3 開發(fā)人員與分工 ................................................................................................. 3 正文 ................................................................................................................................ 4 游戲設計的具體實現(xiàn)