【正文】 的座標(biāo)xy 目的地的座標(biāo)ynWidth 來源圖片的寬度nHight 來源圖片的高度hSrcDC 來源圖片的DCxsrc 來源圖片的座標(biāo)xysrc 來源圖片的座標(biāo)ydwrop 運算方法：amp。接受資料：當(dāng)有資料送到的時候會引發(fā)DataArrival事件。 啟動Timer定時器，游戲開始。（4）如果當(dāng)前蛇頭位置的地圖屬性是“獎品”——加分，重新累計 吃進(jìn)的物品數(shù)（curEatCount = 0） 刷新蛇身坐標(biāo)，更新 地圖網(wǎng)格屬性 以及畫面（1）在更新蛇身坐標(biāo)之前，保存原來的 蛇尾坐標(biāo)；（2）先在地圖上 擦除舊的的蛇頭，然后在地圖上 繪畫出新的蛇頭；（3）修改變量值，標(biāo)記蛇頭新坐標(biāo)下的地圖格屬性為：蛇身；（4）要先更新 蛇身除了蛇頭外其余部分的坐標(biāo)；（5）之后才更新 蛇頭的坐標(biāo)；（6）判斷是否需要 增加蛇身長度——如果要增加長度：舊蛇尾的坐標(biāo)不變，蛇身長度 + 1；否則（無需增加蛇身長度）：如果蛇頭的新坐標(biāo)與舊蛇尾的坐標(biāo)重合，就不用在舊蛇尾的坐標(biāo)下 繪畫空白地的圖案（因為該網(wǎng)格屬性已經(jīng)是 蛇頭，而不是空白地）（7）在地圖上擦除舊蛇尾，繪畫空白地；（8）在地圖上把 舊蛇尾坐標(biāo) 下的地圖格的屬性設(shè)置為 空白地；《標(biāo)準(zhǔn)模塊 Module1 代碼》——Option Explicit39。地圖放大倍數(shù)39。蛇頭顏色Public Const BODY_COLOR As Long = vbGreen 39。起始 獎勵分?jǐn)?shù)的 下限39。標(biāo)記該玩家是否已經(jīng)game over39。地圖上同時出現(xiàn)的 食物數(shù)量Public BombCount_AtOneTime As Integer 39。標(biāo)記當(dāng)前是否處于暫停狀態(tài)（T＝暫停）Private blnThroughWall As Boolean 39。記錄地圖各個網(wǎng)格的屬性Private curEatCount As Integer 39。開始新游戲Private Sub cmdNewGame_Click() Dim i As Integer Randomize 39。地圖上同時存在的 食物數(shù)量 BombCount_AtOneTime = 1 39。設(shè)定蛇身各段的起始位置 Snake_P1(i).X = MAX_COL_INDEX UBound(Snake_P1) + i Snake_P1(i).Y = MAX_ROW_INDEX 39。以下情況（游戲結(jié)束、游戲還沒有開始、禁用擊鍵事件）不接收按鍵操作。默認(rèn)級別:6 = curLevel End Sub39。臨時存放蛇頭的新坐標(biāo) Dim blnAddLengh As Boolean 39。蛇身 39。補充地圖上的 食物 Case MAP_BOMB 39。刷新地圖 上的蛇身圖像39。參數(shù)：AddScore－－增加的分?jǐn)?shù)（正數(shù)＝加分，負(fù)數(shù)＝扣分）39。標(biāo)記地圖格的屬性為 食物 ( * MAP_SCALE, * MAP_SCALE)Step(MAP_SCALE, MAP_SCALE), Map_Food_Color, BF 39。顯示獎品 39。顯示當(dāng)前剩余的 獎勵分?jǐn)?shù) * MAP_SCALE, * MAP_SCALE, MAP_SCALE, MAP_SCALE 39。用于在更新蛇身坐標(biāo)之前，保存原來的 蛇尾坐標(biāo) OldTail = Snake_P1(UBound(Snake_P1)) 39。判斷是否需要 增加蛇身長度 If blnAddLength Then 39。在地圖上擦除舊蛇尾，繪畫空白地 End If End If = TrueEnd Sub39。 名 amp。 Left(Name, 15) amp。當(dāng)獎勵的分?jǐn)?shù)減少到零，就擦除獎品 Exit Sub End If tempColor = Int(Rnd() * (FULL_COLOR + 1)) 39。 Call ScoreSort(FileNum) For i = 0 To 9 Get FileNum, , Record(i) Record(i).Score, i Record(i).Name, i Next Close FileNum End Sub39。 (例如 等級為6，則玩家起始分?jǐn)?shù)是13分；每吃進(jìn)一個食物加6分；每吃進(jìn)一個炸彈減12分) 游戲運行之后會在所在目錄下創(chuàng)建一個的文件，存放得分記錄。讀入得分記錄 FileNum = FreeFile Open amp。 RECORD_FILE_NAME For Random As FileNum Len = Len(Record(0)) For i = 0 To 9 Record(i).Score = Val((i)) Record(i).Name = (i) Put FileNum, , Record(i) Next Close FileNumEnd Sub39。 ” amp。循環(huán)，設(shè)置玩家玩家名稱 Name = InputBox(你的得分是第 amp。如果蛇頭的新坐標(biāo)與舊蛇尾的坐標(biāo)重合，就不用在舊蛇尾的坐標(biāo)下 繪畫空白地的圖案（因為該網(wǎng)格屬性已經(jīng)是 蛇頭，而不是空白地） If Not (NewHead_X = And NewHead_Y = ) Then MapProperty(, ) = MAP_EMPTY 39。否則會出錯 For i = (UBound(Snake_P1)) To 1 Step 1 Snake_P1(i) = Snake_P1(i 1) Next 39。標(biāo)記地圖格的屬性為 空白地 = False = False End If End Sub 本文來自編程入門網(wǎng)()：VB 貪吃蛇 單人版游戲(四)文章來源： CSDN 文章作者： Bugs1984 刷新蛇身坐標(biāo)，更新 地圖網(wǎng)格屬性 以及畫面 39。隨機設(shè)定 起始的獎勵分?jǐn)?shù) = FULL_COLOR tempColor 39。在地圖上顯示 獎品 和 獎勵分?jǐn)?shù)39。增加地圖上的 食物Private Sub AddFood() Dim tempFood As thePosition 39。根據(jù)級別，設(shè)置速度End SubPrivate Sub tmrMove_Timer() Call PlayerMoveEnd Sub39。獎品 Call ChangeScore(PrizeRemain, False) Call ShowPrize(False) 39。顯示總共吃進(jìn)的 食物數(shù)量 Call ChangeScore(AddScorePerFood, True) 39?？瞻椎? 39。準(zhǔn)備新一輪游戲End Sub39。暫停Timer事件，等到本次移動操作全部完成后（即sub RefreshSnake(...)過程執(zhí)行完畢），再啟動Timer Call PlayerMove End Sub [返回]本文來自編程入門網(wǎng)()：VB 貪吃蛇 單人版游戲(三) 文章來源： CSDN 文章作者： Bugs1984 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) blnOnKeyEvents = True 39。顯示得分榜Private Sub cmdShowScoreList_Click() If blnPause = False Then Call Form_KeyDown(KEY_PAUSE, 0) 39。每吃進(jìn)一個 炸彈，所扣掉的分?jǐn)?shù)＋1 = 0 = 0 PrizeRemain = 0 = False = = = 39。暫時使用默認(rèn)填充色 Map_Bomb_Color = BOMB_COLOR Map_Empty_Color = EMPTY_COLOR Map_Food_Color = FOOD_COLOR = BODY_COLOR = HEAD_COLOR 39。存放前十名的 得分記錄信息Option ExplicitPrivate Sub cmdHelp_Click() If blnPause = False Then Call Form_KeyDown(KEY_PAUSE, 0) 39。地圖－炸彈顏色Private Map_Food_Color 39。第一次運行時先顯示得分榜End Sub本文來自編程入門網(wǎng)()：VB 貪吃蛇 單人版游戲(二)文章來源： CSDN 文章作者： Bugs1984 《主窗體 FrmPlay 代碼》——Private blnStartGame As Boolean 39。記錄 玩家的得分和名字Type theRecordName As String * 15Score As IntegerEnd Type39。記錄吃進(jìn)的 食物數(shù)量Bomb As Integer 39。記錄得分榜的 文件名Public Const MAX_PRIZE As Integer = 50 39。定義填充色Public Const HEAD_COLOR As Long = amp。加分獎品MAP_SNAKE 39。（2）如果當(dāng)前蛇頭位置的地圖屬性是“食物”——增加蛇身長度，統(tǒng)計玩家吃進(jìn)的食物數(shù)量，增加分?jǐn)?shù)，補充地圖上的食物，記錄（累加）當(dāng)前吃進(jìn)的物品，如果吃進(jìn)的物品（curEatCount） 達(dá)到一定數(shù)量（EatCountPerShowPrize）就在地圖上顯示獎品。 清除地圖上的所有物品，各個統(tǒng)計數(shù)值置零。步驟二：再來我們必須先確定程式是作Server端還是Client端的，要先設(shè)定一些屬性：Server寫法： = 5400 (數(shù)字可以隨便設(shè)) (等待連線)Client寫法： = 對方IP = 5400 (必須要和Server端相同) = 0 (連線)連線之前Client端要先知道Server端的IP，接著等到Server端等待連線時，Client端就可以呼叫Connect方法，雙方連線成功後就可以傳輸資料。ScaleMode 屬性：設(shè)定PictureBox所使用的座標(biāo)單位，一般都設(shè)為3像素知道了PictureBox的特性後，要怎么樣把它應(yīng)用到游戲中呢？舉個例子好了，我現(xiàn)在要做一個打磚塊的游戲，需要用到那些圖片呢？磚塊、球、擊球的板子，一共有三張圖，所以我們就使用三個PictureBox，將圖片載入到PictureBox里面，如下面所示：Picture1 磚塊的圖片Picture2 球的圖片Picture3 板子的圖片接著我就可以寫，當(dāng)我按下方向鍵的右鍵時，Picture3的left屬性+1，按下左鍵則1，這樣一來不就可以控制板子的左右移動了嗎？球也是一樣，只要每隔一段時間更改一次Picture2的left和top 屬性，就可以做出球移動的效果了。那該怎么處理游戲的圖形呢？VB提供了一個非常好用的控制項PictureBox，有了這個控制項我們才能輕松的在程式中秀出圖形，現(xiàn)在就來看看PictureBox有那些特性可以讓我們在游戲中使用?！　《崿F(xiàn)的關(guān)鍵——篩選算法的介紹　　在整個實現(xiàn)的過程中，如何在每一次打亂后對人物進(jìn)行篩選是程序的關(guān)鍵所在，處理不好，程序就不會有結(jié)果。a[1]=b[temp1]?！　∨e個例子：int I,temp1,temp2,a[2],b[27]for(i=1。然后這27將會重新排列順序，你再找史進(jìn)在哪一組，比如發(fā)現(xiàn)他在第二組，就按下按鈕“第二組”，畫面中的人物次序會再次打亂，再找史進(jìn)所在組別……最多3次，電腦將會猜出你心中的英雄！　　知道了玩法，下面我將介紹程序是如何實現(xiàn)的：　　一、猜測的奧妙——推算原理　　猜測的原理其實也不復(fù)雜，我們來模擬一下猜測的過程大家就清楚了。賽車的在x軸的位置Private Sub Command1_Click()　cx = Width / 2 3 * D / 2　cy = Height D　drawcar　For i = 1 To 20　　l1(i) = 0　　l2(i) = 0　　drawway (i)　Next i　 = TrueEnd SubPrivate Sub drawcar()　Line (cx, BT 100)Step(3 * D, D), BackColor, BF　Line (cx