【導(dǎo)讀】題目用VB實現(xiàn)一個簡單的游戲。畢業(yè)設(shè)計（論文）報告紙。南京航空航天大學(xué)。究所取得的成果。盡本人所知，除了畢業(yè)設(shè)計（論文）中特別加以標。注引用的內(nèi)容外，本畢業(yè)設(shè)計（論文）不包含任何其他個人或集體已。經(jīng)發(fā)表或撰寫的成果作品。位及個人都擁有了自己的計算機,計算機不僅在工作方面給人們以很大的幫助,還給人們帶來。以小游戲的開發(fā)在這種形勢下就應(yīng)運而生,它的開發(fā)主要采用VC++,VB等編程語言.本設(shè)計采用VB編寫,VB一直以來被認為有以下優(yōu)缺點:優(yōu)點是上手快、開發(fā)效率高;缺點。是能力有限,運行效率低.這正是有些軟件把VB做為首選語言,而有些軟件肯定不會用VB做。的原因.而很多VC,DELPHI的程序員都認為VB里搞開發(fā)不自由.的確,簡單和功能強大這兩。踩雷,單擊鼠標左鍵在標記,疑問,空白三種狀態(tài)中循環(huán),同時單擊鼠標左右鍵為踩單擊點在內(nèi)。關(guān)鍵詞VB，掃雷游戲

　　

【正文】 MINE_NUM = 10 Case 1 MAP_X = 16 MAP_Y = 16 MINE_NUM = 40 Case 2 MAP_X = 30 MAP_Y = 16 MINE_NUM = 99 Case 3 MAP_X = GetSetting(Mine, SET, 1, 30) MAP_Y = GetSetting(Mine, SET, 2, 24) MINE_NUM = GetSetting(Mine, SET, 3, 50) End Select 畢業(yè)設(shè)計（論文）報告紙 30 For i = 0 To 3 muGame_Level(i).Checked = False Next i muGame_Level(index).Checked = True SaveSetting Mine, Level, 1, index 39。儲存選擇 End Sub 39。計數(shù)區(qū)初始化 Private Sub setCounterInit() Dim wid As Integer Dim hig As Integer 39。地雷計數(shù)顯示 Call setNowMines 39。顯示現(xiàn)在地雷數(shù) 0, 0 + , 0 + , 0 39。 wid = hig = = * 3 + wid = + hig 39。時間計數(shù)顯示 Call setNowTimer 0, 0 + , 0 + , 0 39。設(shè)定時間計數(shù)框大小 畢業(yè)設(shè)計（論文）報告紙 31 wid = hig = = * 3 + wid = + hig 39。計數(shù)區(qū)配置 wid = hig = 150, _150, _iMine(0).Width * MAP_X + wid, + 300 + hig 39。設(shè)定組件位置 Set = (1).Picture ( ) / 2, 150 150, 150 150 , 150 End Sub 39。地圖初始化 Private Sub setMapInit() = False 39。重新定義地圖數(shù)組大小 ReDim mapArr(MAP_X, MAP_Y) ReDim mapFaceArr(MAP_X, MAP_Y) 39。地圖中小方塊長寬 Dim iWid As Integer Dim iHig As Integer iWid = iMine(0).Width iHig = iMine(0).Height 畢業(yè)設(shè)計（論文）報告紙 32 39。設(shè)定地圖數(shù)組數(shù)據(jù) 39。并加載表示地圖數(shù)據(jù)之圖片 For y = 0 To MAP_Y 1 For x = 0 To MAP_X 1 mapArr(x, y) = 0 mapFaceArr(x, y) = 1 Call setMineImage(y * MAP_X + x, 9) iMine(y * MAP_X + x).Move x * iWid, y * iHig iMine(y * MAP_X + x).Visible = True iMine(y * MAP_X + x).ZOrder If (MAP_X * MAP_Y) Then Load iMine() End If Next x Next y 39。設(shè)定地圖區(qū)大小位置 Dim wid As Integer Dim hig As Integer wid = hig = 150, _ + 300, _ MAP_X * iWid + wid, _ MAP_Y * iHig + hig = True End Sub 39。設(shè)定窗體大小 畢業(yè)設(shè)計（論文）報告紙 33 Private Sub setFormSize() Dim wid As Integer Dim hig As Integer wid = hig = = + 300 + wid = + + 450 + hig End Sub 39。顯示現(xiàn)在地雷數(shù) Private Sub setNowMines() Dim intNM As Integer intNM = MINE_NUM MINE_NUM_LABEL If intNM 0 Then intNM = 0 Set = _ ((intNM Mod 1000) \ 100 + 1).Picture Set = _ ((intNM Mod 100) \ 10 + 1).Picture Set = _ ((intNM Mod 10) + 1).Picture End Sub 39。顯示現(xiàn)在經(jīng)過秒數(shù) Private Sub setNowTimer() Set = _ ((TIME_COUNTER Mod 1000) \ 100 + 1).Picture Set = _ 畢業(yè)設(shè)計（論文）報告紙 34 ((TIME_COUNTER Mod 100) \ 10 + 1).Picture Set = _ ((TIME_COUNTER Mod 10) + 1).Picture End Sub 39。顯示地雷 Private Sub showMine() For i = 0 To MAP_X For j = 0 To MAP_Y 39。顯示所有地雷 If mapArr(i, j) = 9 Then Call setMineImage((j * MAP_X + i), 11) End If 39。檢查標示錯誤之方塊 If mapFaceArr(i, j) = 2 And mapArr(i, j) 9 Then Call setMineImage((j * MAP_X + i), 15) End If Next j Next i End Sub 39。顯示完成 Private Sub showFinal() For x = 0 To MAP_X 1 For y = 0 To MAP_Y 1 If mapArr(x, y) = 9 Then Call setMineImage((y * MAP_X + x), 13) End If Next y 畢業(yè)設(shè)計（論文）報告紙 35 Next x MINE_NUM_LABEL = MINE_NUM Call setNowMines MsgBox 您花了 amp。 TIME_COUNTER amp。 秒完成地雷標示。 , , 過關(guān) = False isFinal = True isStart = False End Sub 39。選擇新游戲 Private Sub muGame_New_Click() Form_Load End Sub 39。 Private Sub muGame_Level_Click(index As Integer) If index = 3 Then vbModal End If Call setInit(index) 39。參數(shù)初始設(shè)定 Call setCounterInit 39。計數(shù)區(qū)配置 Call setMapInit 39。地雷區(qū)配置 Call setFormSize 39。設(shè)定窗體大小 End Sub 39。選擇結(jié)束 Private Sub muGame_Exit_Click() Do While 1 畢業(yè)設(shè)計（論文）報告紙 36 Unload iMine( 1) Loop Unload Me End Sub 39。定時器 Private Sub Timer1_Timer() TIME_COUNTER = TIME_COUNTER + 1 39。時間計數(shù)顯示 Call setNowTimer 39。設(shè)定狀態(tài)圖示 If TIME_COUNTER = 999 Then isDie = True = False mapFaceArr(xxx, yyy) = 0 Call showMine 39。設(shè)定狀態(tài)圖示 Call setStateImage MsgBox 您探測地雷的時間已超過，地雷已引爆。 , , 超時 End If End Sub 39。調(diào)出窗體 Private Sub about_Click() End Sub