【正文】 RECORD_FILE_NAME For Random As FileNum Len = Len(Record(0))39。 將自動(dòng)改為 “ amp。在地圖上把 舊蛇尾坐標(biāo) 下的地圖格的屬性設(shè)置為 空白地 ( * MAP_SCALE, * MAP_SCALE)Step(MAP_SCALE, MAP_SCALE), Map_Empty_Color, BF 39。參數(shù)：蛇頭的新坐標(biāo)_X，蛇頭的新坐標(biāo)_Y，是否增加蛇身長(zhǎng)度（T＝增加）Private Sub RefreshSnake(NewHead_X As Integer, NewHead_Y As Integer, blnAddLength As Boolean) Dim i As Integer Dim OldTail As thePosition 39。參數(shù)：blnShow（T＝顯示獎(jiǎng)品,F＝清除獎(jiǎng)品）Private Sub ShowPrize(blnShow As Boolean) Dim tempPrize As thePosition Dim tempColor As Long If blnShow Then 39。改變玩家的分?jǐn)?shù)39。加分 Call AddFood 39。蛇移動(dòng) 的處理過(guò)程Private Sub PlayerMove() Dim tempHead As thePosition 39。如果游戲正在進(jìn)行，則發(fā)送“暫?！卑存I事件，暫停游戲 End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Or blnStartGame = False Or blnOnKeyEvents = False Then Exit Sub 39。地圖初始化 ReDim MapProperty(MAX_COL_INDEX, MAX_ROW_INDEX) Map_Width = (MAX_COL_INDEX + 1) * MAP_SCALE Map_Height = (MAX_ROW_INDEX + 1) * MAP_SCALE = Map_Width + 2 = Map_Height + 2 (0, 0)Step(Map_Width, Map_Height), Map_Empty_Color, BF FoodCount_AtOneTime = 2 39。地圖－食物顏色Private MapProperty() As Integer 39。用于表示二維坐標(biāo)值Public Type thePositionX As IntegerY As IntegerEnd TypePublic FoodCount_AtOneTime As Integer 39。起始 獎(jiǎng)勵(lì)分?jǐn)?shù)的 上限Public Const MIN_PRIZE As Integer = 20 39。蛇身End EnumPublic Const MAP_SCALE As Integer = 15 39。 初始化地圖：布置食物，炸彈，蛇身位置以及蛇頭的移動(dòng)方向——在PictureBox上繪畫(huà)圖像 并修改對(duì)應(yīng)的地圖格屬性值（MapProperty()數(shù)組）?；蛟S有人會(huì)覺(jué)得奇怪，一張圖就要用到一個(gè)PictureBox，小游戲的圖不多還沒(méi)關(guān)系，如果是ＲＰＧ的話不就要?jiǎng)佑玫綆浊€(gè)甚至幾萬(wàn)個(gè)PictureBox？豈不是麻煩死了？所以如果圖片很多的時(shí)候，我通常都是把圖全部都放在同一個(gè)圖形檔里面，這樣就只要用到一個(gè)PictureBox了，要用圖片時(shí)從里面把它抓出來(lái)就好了，不過(guò)要怎么抓呢？我建議使用函數(shù)BitBlt()來(lái)做圖形的搬移。而且篩選很容易把你攪得頭暈?zāi)X脹，所以涉及的各個(gè)數(shù)組之間的關(guān)系一定要先理順，先用一個(gè)例子來(lái)解釋如何進(jìn)行篩選。i=27。先擦　Line (cx, BT 100)Step(3 * D, D), RGB(225, 0, 0), BF　Line (cx + D, BT 200)Step(D, D), RGB(225, 0, 0), BFEnd SubPrivate Sub drawway(n)　Line (Width/23*D/22*D,BTn*D)Step(7*D,D),BackColor, BF39。再在屬性框中把它的Enabled屬性改為False，Interval屬性改為50，前一個(gè)值表示該時(shí)鐘控件是否激活，后一個(gè)值決定該時(shí)鐘控件產(chǎn)生Timer事件的間隔時(shí)間，我們將用它來(lái)控制小球的移動(dòng)頻率。編寫(xiě)趣味撞球小游戲再在屬性框中把Form1的ScaleMode 屬性改為3－Pixel，表明我們將以像素為我們的坐標(biāo)計(jì)算單位，把Form1的StartUpPosition 屬性設(shè)為2－CenterScreen，使運(yùn)行時(shí)窗體出現(xiàn)在屏幕正中。每層跑道左邊有幾個(gè)方塊Dim l2(22) As Integer 39。　　打亂重排的算法　　在程序中的很多地方要涉及打亂順序重排的問(wèn)題，下面我們就來(lái)先簡(jiǎn)單介紹一下打亂是如何實(shí)現(xiàn)的。i++)ListBox1ItemsAdd(IntToStr(b[i]))。Top 屬性：表示圖形的位置的Ｙ座標(biāo)。本人 ： 190317890 (請(qǐng)?jiān)谏矸蒡?yàn)證里面寫(xiě)上“CSDN”)郵箱 bugs1984需要本程序VB源碼文件的朋友，請(qǐng)留下你的 Email，我會(huì)盡快寄出。食物MAP_BOMB 39。食物顏色Public Const BOMB_COLOR As Long = vbRed 39。蛇頭移動(dòng)方向（值為 －1，0，1）X_Way As IntegerY_Way As Integer39。地圖高度（象素）Private Map_Empty_Color 39。玩家的初始分?jǐn)?shù) = 0 = 0 curEatCount = 0 PrizeRemain = 0 blnPause = False = False = = = = True = True = False Exit Sub End If blnThroughWall = True 39。放置炸彈 For i = 1 To BombCount_AtOneTime Call AddBomb Next = False = = = = False = False 39。 , vbInformation, GAME OVER Call CheckRecord() 39。增加蛇身長(zhǎng)度 = + 1 39。如果游戲正在進(jìn)行，則發(fā)送“暫?！卑存I事件，暫停游戲 Ans = MsgBox(游戲尚未結(jié)束，確定要退出嗎？, vbQuestion Or vbYesNo Or vbDefaultButton2) If Ans = vbYes Then End Else Cancel = True End If Else End End IfEnd Sub39。標(biāo)記地圖格的屬性為 炸彈 ( * MAP_SCALE, * MAP_SCALE)Step(MAP_SCALE, MAP_SCALE), Map_Bomb_Color, BF 39。清除獎(jiǎng)品 ( * MAP_SCALE, * MAP_SCALE)Step(MAP_SCALE, MAP_SCALE), Map_Empty_Color, BF 39。蛇身長(zhǎng)度 + 1 Else 39。 你輸入的 “ amp。顯示當(dāng)前剩余的 獎(jiǎng)勵(lì)分?jǐn)?shù) End Sub《排行榜窗體 frmScoreList 代碼》——Private Record(9) As theRecord 39。 ( 當(dāng)蛇頭和蛇身任一節(jié)重合時(shí),游戲結(jié)束
（2）地圖： 藍(lán)色方格－－食物 (吃進(jìn)食物后,蛇身長(zhǎng)度增加一節(jié))； 紅色方格－－炸彈； 淡紫色方格－－蛇頭； 亮綠色長(zhǎng)條－－蛇身。 是否同意？, vbQuestion Or vbYesNo, 輸入玩家名稱) If Ans = vbYes Then Name = Left(Name, 15) End If Loop Until Len(RTrim(Name)) = 15 And Len(RTrim(Name)) 0 39。pos 排名 Dim Name As String 39。在地圖上 擦除舊的的蛇頭 (NewHead_X * MAP_SCALE, NewHead_Y * MAP_SCALE)Step(MAP_SCALE, MAP_SCALE), , BF 39。記錄獎(jiǎng)品的坐標(biāo) MapProperty(, ) = MAP_PRIZE 39。記錄（累加）當(dāng)前吃進(jìn)的物品 39。統(tǒng)計(jì)玩家吃進(jìn)的 炸彈數(shù)量 = 39。找出蛇頭的新坐標(biāo) = Snake_P1(0).X + = Snake_P1(0).Y + If blnThroughWall Then 39。按“Numpad 5”鍵－－暫停/繼續(xù) If KeyCode = KEY_PAUSE Then blnPause = Not blnPause = blnPause = Not blnPause Exit Sub End If If blnPause Then Exit Sub 39。設(shè)置 蛇每吃進(jìn)多少物品（包括食物和炸彈，獎(jiǎng)品不計(jì)）才顯示一次獎(jiǎng)品 curLevel = AddScorePerFood = curLevel 39。當(dāng)前級(jí)別Private P1 As thePlayerInfo 39。當(dāng)前剩余的 獎(jiǎng)勵(lì)分?jǐn)?shù)Public EatCountPerShowPrize 39。記錄玩家的相關(guān)信息和設(shè)置值：Public Type thePlayerInfoScore As Integer 39。蛇身初始長(zhǎng)度Public Const SPEED_LV1 As Integer = 200 39。 控制方向（根據(jù)Nokia貪吃蛇的操作方式）——由于蛇頭只能朝上下左右4個(gè)方向移動(dòng)，但是方向鍵有8個(gè)，所以“斜線方向”的控制鍵和水平，垂直方向的控制鍵編碼上有點(diǎn)不同 斜線方向鍵（以“右上”方向鍵為例）——如果當(dāng)前蛇頭朝著左邊（水平方向）運(yùn)動(dòng)，則將水平方向的分量變?yōu)?，再將垂直方向的分量變?yōu)?（向上運(yùn)動(dòng)）；如果當(dāng)前蛇頭朝著上方（垂直方向）運(yùn)動(dòng)，則將垂直方向的分量變?yōu)?，再將水平方向的分量變?yōu)?1（向右運(yùn)動(dòng)）。H8800C6 ANDamp。 進(jìn)行二次、多次篩選的方法都一樣，只是要注意相中的好漢在哪個(gè)數(shù)組里面，千萬(wàn)別搞錯(cuò)就行了。for(i=1。注意要篩去玩家不可能通過(guò)的情況！drawway (20)39。 Dim BallX As IntegerDim BallY As IntegerDim AddX As IntegerDim AddY As IntegerDim HitX As IntegerDim W As IntegerDim H As IntegerPrivate Sub Command1_Click()BallX=Int(Rnd(1)＊)＊5＋25BallY=Int(()/10)＊5AddX=－5AddY=－5Form_Paint=TrueEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)X=X－50If X15 Then X=15If XW－105 Then X=W－105HitX=XIf =True ThenLine(16,H－5)－(W－6,H),＆HC0C0C0,BFLine(HitX,H)－(HitX＋100,H－5),0,BFEnd IfEnd SubPrivate Sub Form_Paint()ClsW=Int((ScaleWidth－140)/5)＊5H=Int((ScaleHeight－10)/5)＊5BackColor=＆HC0C0C0Line(10,10)－(15,H),0,BFLine(W－5,10)－(W,H),0,BFLine(10,10)－(W,15),0,BFEnd SubPrivate Sub Timer1_Timer()(BallX,BallY),4,＆HC0C0C0BallX=Bal