【正文】 炸彈數(shù)量 EatCountPerShowPrize = 5 39。重新生成隨機(jī)數(shù)列 blnStartGame = Not blnStartGame If blnStartGame Then = 停止 Else = 新游戲 End If 39。記錄 每次出現(xiàn)獎品之前，一共吃進(jìn)多少物品（包括食物和炸彈，獎品不計），當(dāng)獎品出現(xiàn)后，此變量值變?yōu)?零0，然后進(jìn)入下一次統(tǒng)計Private curLevel As Integer 39。標(biāo)記是否為穿墻模式（T＝可以穿墻）Private blnOnKeyEvents As Boolean 39。地圖上同時出現(xiàn)的 炸彈數(shù)量Public PrizeRemain As Integer 39。 SnakeColor As Long 39。全局 變量 39。蛇身顏色Public Const EMPTY_COLOR As Long = amp。地圖網(wǎng)格數(shù)（Index值，首值為0）Public Const MAX_COL_INDEX As Integer = 19Public Const MAX_ROW_INDEX As Integer = 10Public Const START_SNAKE_LENGTH As Integer = 8 39。全局 常量 Public Enum MAP_PROPERTY 39。（二）游戲操作 暫停\恢復(fù)——修改表示游戲狀態(tài)的Boolean型變量值；顯示\隱藏 表示游戲狀態(tài)的Label；暫停\恢復(fù) Timer定時器。Privata Sub Winsock1_DtatArrival(ByVal bytesTotal As long)Dim mydata As String mydata　會把送到的資料給mydataEnd SubWinsock 控制項就那么簡單，只要會這些就可以寫網(wǎng)路游戲了，相關(guān)的程式你可以參考網(wǎng)路五子棋(54K)。HCC0020 PUTamp。用法： = False 39?！　∽詈蠓謩e把表a—表c打亂后顯示出來即可。}//輸出ListBox1Clear()。randomize()。用表1來說明：點擊按鈕的次數(shù) 選項卡1 選項卡2 選項卡3 1 3 3 3 2 1 1 1 3 0 0 0 　　具體講，當(dāng)?shù)谝淮伟聪掳粹o時，表示你相中的圖片在其中一個選項卡的9張圖片內(nèi)。這里生成新一層跑道，39。當(dāng)然，我們往往還是根據(jù)具體的設(shè)計作一些變通，發(fā)揮一些技巧……比如這里設(shè)計的跑道是隨機(jī)產(chǎn)生的的，這就要通過一點技巧以便既讓玩家感到挑戰(zhàn)，又不至于出現(xiàn)不可逾越的難關(guān)……　　下面是全部源代碼，窗體上只需放個按鈕Command1就行了！Const D = 100 39。接下來要做的全部工作就是填入程序代碼了。　　首先啟動VB5，新建一個標(biāo)準(zhǔn)的EXE工程。Visual Basic小游戲：猜英雄 VB游戲?qū)懽骷记桑?）秀圖篇 此時可以看到，工程包括一個Form1框體。 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=BallX＋AddXBallY=BallY＋AddY(BallX,BallY),4,0If BallX=20 Then AddX=－AddXIf BallY=20 Then AddY=－AddYIf BallX=W－10 Then AddX=－AddXIf BallY=H－10 ThenIf BallXHitX＋100 Then=FalseForm_PaintEnd IfAddY=－AddYEnd IfEnd Sub 一旦程序代碼輸入完畢，你就可以按F5開始執(zhí)行它，或是在File菜單里選取Make來生成EXE執(zhí)行文件了，瞧，小球已經(jīng)在你的屏幕上蹦來蹦去了。方格的寬度Const BT = 3000 39。注意要篩去玩家不可能通過的情況！drawway (20)39。于是把這9張圖片均分成3份，每份3張，分別送入3個選項卡，其余的圖片就不做考慮了。for(i=1。for(i=1。 進(jìn)行二次、多次篩選的方法都一樣，只是要注意相中的好漢在哪個數(shù)組里面，千萬別搞錯就行了。消失 = True 39。H8800C6 ANDamp。 本文來自編程入門網(wǎng)()：本文介紹編制貪吃蛇游戲的一般方法， 其中不含什么高深的算法，只使用了初級的VB編程方法，通俗易懂。 控制方向（根據(jù)Nokia貪吃蛇的操作方式）——由于蛇頭只能朝上下左右4個方向移動，但是方向鍵有8個，所以“斜線方向”的控制鍵和水平，垂直方向的控制鍵編碼上有點不同 斜線方向鍵（以“右上”方向鍵為例）——如果當(dāng)前蛇頭朝著左邊（水平方向）運動，則將水平方向的分量變?yōu)?，再將垂直方向的分量變?yōu)?（向上運動）；如果當(dāng)前蛇頭朝著上方（垂直方向）運動，則將垂直方向的分量變?yōu)?，再將水平方向的分量變?yōu)?1（向右運動）。地圖屬性MAP_EMPTY = 0 39。蛇身初始長度Public Const SPEED_LV1 As Integer = 200 39。HE0E0E0 39。記錄玩家的相關(guān)信息和設(shè)置值：Public Type thePlayerInfoScore As Integer 39。繪畫蛇身使用的填充色……暫時省略……SnakeLength As Integer 39。當(dāng)前剩余的 獎勵分?jǐn)?shù)Public EatCountPerShowPrize 39。標(biāo)記是否能夠 接收鍵盤事件（T＝可以接收），此變量可防止 Form_KeyDown()事件重復(fù)執(zhí)行Private Map_Width As Integer 39。當(dāng)前級別Private P1 As thePlayerInfo 39。中止游戲 If blnStartGame = False Then 39。設(shè)置 蛇每吃進(jìn)多少物品（包括食物和炸彈，獎品不計）才顯示一次獎品 curLevel = AddScorePerFood = curLevel 39。使用蛇頭顏色 重新繪畫蛇頭 (Snake_P1(0).X * MAP_SCALE, Snake_P1(0).Y * MAP_SCALE)Step(MAP_SCALE, MAP_SCALE), HEAD_COLOR, BF 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。你的得分是： amp。找出蛇頭的新坐標(biāo) = Snake_P1(0).X + = Snake_P1(0).Y + If blnThroughWall Then 39。 If Not ( = Snake_P1(UBound(Snake_P1)).X And = Snake_P1(UBound(Snake_P1)).Y) Then Call GameOver Exit Sub End If Case MAP_FOOD 39。統(tǒng)計玩家吃進(jìn)的 炸彈數(shù)量 = 39。39。記錄（累加）當(dāng)前吃進(jìn)的物品 39。增加地圖上的 炸彈Private Sub AddBomb() Dim tempBomb As thePosition 39。記錄獎品的坐標(biāo) MapProperty(, ) = MAP_PRIZE 39。 = True = True 39。在地圖上 擦除舊的的蛇頭 (NewHead_X * MAP_SCALE, NewHead_Y * MAP_SCALE)Step(MAP_SCALE, MAP_SCALE), , BF 39。最后才設(shè)定新的 蛇尾坐標(biāo)（關(guān)鍵字“Preserve”的作用是：保留原數(shù)組的內(nèi)容） Snake_P1(UBound(Snake_P1)) = OldTail 39。pos 排名 Dim Name As String 39。 請輸入你的名稱(不超過15個字符), 進(jìn)入前10名！) If Len(Name) = 0 Then MsgBox 你取消了 Top 10 得分登記, vbInformation Exit Sub End If If Len(RTrim(Name)) 15 Then Ans = MsgBox(玩家名稱的長度不能超過15個字符！ amp。 是否同意？, 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。在地圖上用 隨機(jī)顏色繪畫 獎品 = FULL_COLOR tempColor 39。 ( 當(dāng)蛇頭和蛇身任一節(jié)重合時,游戲結(jié)束
（2）地圖： 藍(lán)色方格－－食物 (吃進(jìn)食物后,蛇身長度增加一節(jié))； 紅色方格－－炸彈； 淡紫色方格－－蛇頭； 亮綠色長條－－蛇身。) ( 每個獎品分?jǐn)?shù)的 初始值是20～50之間的隨機(jī)數(shù)，當(dāng)獎品出現(xiàn)后獎勵的分?jǐn)?shù)就會不斷減少。顯示當(dāng)前剩余的 獎勵分?jǐn)?shù) End Sub《排行榜窗體 frmScoreList 代碼》——Private Record(9) As theRecord 39。刷新 記錄文件的內(nèi)容 End If End Sub39。 你輸入的 “ amp。判斷得分是否進(jìn)入前十名 Dim Ans As Integer FileNum = FreeFile Set list = 39。蛇身長度 + 1 Else 39。標(biāo)記蛇頭新坐標(biāo)下的地圖格屬性為 玩家蛇身 39。清除獎品 ( * MAP_SCALE, * MAP_SCALE)Step(MAP_SCALE, MAP_SCALE), Map_Empty_Color, BF 39。產(chǎn)生隨機(jī)顏色 ( * MAP_SCALE, * MAP_SCALE)Step(MAP_SCALE, MAP_SCALE), tempColor, BF 39。標(biāo)記地圖格的屬性為 炸彈 ( * MAP_SCALE, * MAP_SCALE)Step(MAP_SCALE, MAP_SCALE), Map_Bomb_Color, BF 39。重新累計 吃進(jìn)的物品數(shù) 39。如果游戲正在進(jìn)行，則發(fā)送“暫?！卑存I事件，暫停游戲 Ans = MsgBox(游戲尚未結(jié)束，確定要退出嗎？, vbQuestion Or vbYes