【文章內(nèi)容簡(jiǎn)介】 。在 VB4里，可選參數(shù)可以不帶默認(rèn)值，而在 VB里，如果使用可選參數(shù)，則必須帶有默認(rèn)值。在調(diào)用的時(shí)候 ， VB若發(fā)現(xiàn)參數(shù)被省略，則自動(dòng)讀取 .param部分的默認(rèn)值，并顯式傳遞給過程。這一部分完全由編譯器處理，而且沒有任何性能損失，和手工傳遞所有參數(shù)是完全一樣的。至于按名傳遞， VB會(huì)自動(dòng)調(diào)整參數(shù)的順序，其結(jié)果與傳統(tǒng)方式的傳遞也沒有任何的不同。這說明我們可以放心地使用這項(xiàng)便利。而且?guī)в锌蛇x參數(shù)的過程拿到 C中，頂多變成不可選參數(shù)，也不會(huì)造成什么其他的麻煩。 COM組件都使用了默認(rèn)參數(shù)，而且有些過程的參數(shù)列表非常長(zhǎng)，在 VB里可以輕松地處理它們，而在 C中經(jīng)常讓開發(fā)者傳參數(shù)傳到吐血。 致謝 在本次課程 設(shè)計(jì)中，我從指導(dǎo)老師化希耀和張兵身上學(xué)到了很多東西。老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 另外，在游戲開發(fā)過程中許多同學(xué)也給于我們很大的幫助，幫助解決了不少的難點(diǎn)，使得游戲能及時(shí)開發(fā)完成 ,在此謝謝各位對(duì)此次設(shè)計(jì)的幫助。 參考文獻(xiàn) ： [1]龔沛曾，陸慰民，楊志強(qiáng) .Vsual Basic 程序設(shè)計(jì)教程 .高等教育出版社出版 。 [2]劉新民，蔡瓊，白糠 生 .Vsual Basic 程序設(shè)計(jì) .清華大學(xué)出版社出版。 [3]唐凱軍，湯惠莉 .VB6編程 80 例上手 .山東電子音像出版社。 [4]盧毅 .Vsual Basic 實(shí)例教程 .科學(xué)出版社出版。 [5]趙欣勝，亢慧娟，劉晟宏 .Vsual Basic 經(jīng)典范例 50 講 .科學(xué)出版社出版。 附件： 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使預(yù)覽區(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使預(yù)覽區(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。為了實(shí)現(xiàn)連消數(shù)行，這里使用遞歸調(diào)用 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 俄羅斯方塊游戲課程設(shè)計(jì) 目錄 前 言 ............................................................................................................................ 1 工程概況 ........................................................................................................................ 2 項(xiàng)目名稱 ............................................................................................................ 2 設(shè)計(jì)平臺(tái) ............................................................................................................ 2 程序設(shè)計(jì)思想 ..................................................................................................... 2 運(yùn)用的控件和主要對(duì)象 ..................................................................................... 3 主要實(shí)現(xiàn)的功能 ................................................................................................. 3 開發(fā)人員與分工 ................................................................................................. 3 正文 ................................................................................................................................ 4 游戲設(shè)計(jì)的具體實(shí)現(xiàn)