【正文】 EatCount = 0 PrizeRemain = 0 blnPause = False = False = = = = True = True = False Exit Sub End If blnThroughWall = True 39。開始新游戲Private Sub cmdNewGame_Click() Dim i As Integer Randomize 39。記錄蛇身坐標Private PrizePos As thePosition 39。記錄地圖各個網(wǎng)格的屬性Private curEatCount As Integer 39。地圖高度（象素）Private Map_Empty_Color 39。標記當前是否處于暫停狀態(tài)（T＝暫停）Private blnThroughWall As Boolean 39。每吃進一個 食物，所增加的分數(shù)Public AddScorePerBomb As Integer 39。地圖上同時出現(xiàn)的 食物數(shù)量Public BombCount_AtOneTime As Integer 39。蛇頭移動方向（值為 －1，0，1）X_Way As IntegerY_Way As Integer39。標記該玩家是否已經(jīng)game over39。蛇頭填充色BodyColor As Long 39。起始 獎勵分數(shù)的 下限39。食物顏色Public Const BOMB_COLOR As Long = vbRed 39。蛇頭顏色Public Const BODY_COLOR As Long = vbGreen 39。前后2個等級之間的 Interval差值（毫秒）39。地圖放大倍數(shù)39。食物MAP_BOMB 39。（4）如果當前蛇頭位置的地圖屬性是“獎品”——加分，重新累計 吃進的物品數(shù)（curEatCount = 0） 刷新蛇身坐標，更新 地圖網(wǎng)格屬性 以及畫面（1）在更新蛇身坐標之前，保存原來的 蛇尾坐標；（2）先在地圖上 擦除舊的的蛇頭，然后在地圖上 繪畫出新的蛇頭；（3）修改變量值，標記蛇頭新坐標下的地圖格屬性為：蛇身；（4）要先更新 蛇身除了蛇頭外其余部分的坐標；（5）之后才更新 蛇頭的坐標；（6）判斷是否需要 增加蛇身長度——如果要增加長度：舊蛇尾的坐標不變，蛇身長度 + 1；否則（無需增加蛇身長度）：如果蛇頭的新坐標與舊蛇尾的坐標重合，就不用在舊蛇尾的坐標下 繪畫空白地的圖案（因為該網(wǎng)格屬性已經(jīng)是 蛇頭，而不是空白地）（7）在地圖上擦除舊蛇尾，繪畫空白地；（8）在地圖上把 舊蛇尾坐標 下的地圖格的屬性設置為 空白地；《標準模塊 Module1 代碼》——Option Explicit39?！八?，垂直”方向鍵——當蛇以 水平 方向移動時，“左”和“右”的按鍵無效；（即不處理按鍵事件）當蛇以 垂直 方向移動時，“上”和“下”的按鍵無效。 啟動Timer定時器，游戲開始。本人 ： 190317890 (請在身份驗證里面寫上“CSDN”)郵箱 bugs1984需要本程序VB源碼文件的朋友，請留下你的 Email，我會盡快寄出。接受資料：當有資料送到的時候會引發(fā)DataArrival事件。H660046 XOR現(xiàn)在有兩個PictureBoxPicture1 AutoRedRaw 屬性設為TureScaleMode 屬性設為3像素Picture2 AutoRedRaw 屬性設為TureScaleMode 屬性設為3像素若想將Picture2里(10,10)(100,100)區(qū)域內的圖形拷貝到Picture1的(0,0)可以這樣寫：BitBlt ,0,0,90,90,10,10,amp。使用BitBlt函數(shù)前要先宣告：Declare Sub BitBlt Lib gdi32 (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long)hDestDC 目的地的DCx 目的地的座標xy 目的地的座標ynWidth 來源圖片的寬度nHight 來源圖片的高度hSrcDC 來源圖片的DCxsrc 來源圖片的座標xysrc 來源圖片的座標ydwrop 運算方法：amp。Top 屬性：表示圖形的位置的Ｙ座標。Visible 屬性：這個屬性可以讓圖形消失或讓圖形出現(xiàn)在畫面上?？梢栽O計一個友好的界面，然后在程序啟動的時候對數(shù)組賦初值，并顯示出來；對每個按鈕分別先進行次數(shù)判斷，然后進行前面講述的處理，不斷篩選直到剩下惟一的好漢后就可以顯示在界面的正下方了。以點擊按鈕的次數(shù)是第一次并且點擊的按鈕是Button1為例加以介紹，其思路如下：　　初始：　　第一次執(zhí)行按鈕事件并且按下的是Button1時(表a的數(shù)組就是關鍵數(shù)組)：　　把表a打亂后平均拆分為3組分別送入內存緩沖區(qū)　　把表b和表c打亂后也平均拆分為3組分別送入內存緩沖區(qū)（非重要的數(shù)組），然后將它們進行組合，分別把有用的和無用的搭配重新組合為三張表并顯示出來：　　把全部的篩選過程表述出來：　?。骸　“補[127]打亂并將　　a[19] 賦給first[19]　　a[1018] 賦給second[19]　　a[1927] 賦給third[19]　?。僭O選中的是第二個選項卡）　　second[19]打亂后賦給temp1[13]、temp2[13]、temp3[13]　　a[19]+a[1927]賦給temp4[118] 并打亂　　temp1[13]＋temp4[16]賦給first[19]并打亂　　temp2[13]＋temp4[712]賦給second[19] 并打亂　　temp3[13]＋temp4[1318]賦給third[19] 并打亂　　　（假設選中的是第二個選項卡）　　temp2[13]打亂后賦給temp5[1]、 temp6[1] 、temp7[1]　　temp1[13]+temp3[13]+temp4[118]賦給temp8[124]并打亂　　temp5[1]＋temp8[18]賦給first[19] 并打亂　　temp5[2]＋temp8[916]賦給second[19] 并打亂　　temp5[3]＋temp8[1724]賦給third[19] 并打亂　　（如果選中的是第二個選項卡）　　把temp5[2]所對應的圖片顯示出來即可。i++)ListBox1ItemsAdd(IntToStr(b[i]))。b[temp2]=a[1]。i++)//i的大小決定打亂的程度，循環(huán)次數(shù)越多，打亂程度越高{temp1=random(27)+1。i++)//先對數(shù)組賦初值b[i]=I。　　打亂重排的算法　　在程序中的很多地方要涉及打亂順序重排的問題，下面我們就來先簡單介紹一下打亂是如何實現(xiàn)的。點擊一次按鈕后其實不是盲目地將順序打亂，而是進行了篩選，把有用的圖片（就是點選的那組的9張圖片）篩選出來平均分配到PageControl控件的三個選項卡中，再把不需要的圖片集中起來平均分配到PageControl控件的三個選項卡中，最后在各個選項卡中把有用的、無用的圖片隨機打亂再次重新排列顯示出來，從而完成猜測?！　榱撕喕瘑栴}，我選擇了其中的27將，將他們分成3組，每組9人。先擦后畫　Line (Width/23*D/22*D,BTn*D)Step(l1(n)*D, D), ,BF　Line (Width/23*D/2+5*D,BTn*D)Step(l2(n)*D,D), ,BFEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)　Select Case KeyAscii　　Case Asc(a), Asc(A)　　　cx = cx D　　Case Asc(s), Asc(S)　　　cx = cx + D　End SelectEnd SubPrivate Sub Timer1_Timer()　Randomize　For i = 1 To 19　　l1(i) = l1(i + 1)　　l2(i) = l2(i + 1)　　drawway (i)　Next i　Do　　l1(20) = Int(Rnd * 5)　　l2(20) = Int(Rnd * 5)　Loop Until ((l1(20) + l2(20) = 4) And (l1(20) l1(19) = 1) And _(l2(20) l2(19) = 1) And (l1(19) + l2(20) = 4) And _(l1(20) + l2(19) = 4)) 39。每層跑道左邊有幾個方塊Dim l2(22) As Integer 39?！　　@也是所有即時游戲所共通的框架?！　〉谝徊?，繪制對象：用函數(shù)drawcar()畫賽車，drawway(n)畫跑道的第n層?！　〉酱藶橹梗覀円呀?jīng)完成了全部的界面設計工作。再在屬性框中把Form1的ScaleMode 屬性改為3－Pixel，表明我們將以像素為我們的坐標計算單位，把Form1的StartUpPosition 屬性設為2－CenterScreen，使運行時窗體出現(xiàn)在屏幕正中。用VB開發(fā)即時戰(zhàn)略游戲 正文：編寫趣味撞球小游戲文章來源： 沐風經(jīng)典 文章作者： 佚名 　　Visual Basic是一個功能強大的工具，它有一大特點就是易學易用，下面我們就通過寫一個“趣味撞球” 的程序來初步體會一下。VB 貪吃蛇 單人版游戲(一) 編寫趣味撞球小游戲VB游戲寫作技巧（2）網(wǎng)絡篇 VB 貪吃蛇 單人版游戲(四) 在Form1邊框的右下角按住鼠標左鍵不放，拖動鼠標把Form1的面積改為適當大小，比如69304320。再在屬性框中把它的Enabled屬性改為False，Interval屬性改為50，前一個值表示該時鐘控件是否激活，后一個值決定該時鐘控件產(chǎn)生Timer事件的間隔時間，我們將用它來控制小球的移動頻率。本文來自編程入門網(wǎng)()：文章來源： programfan 文章作者： yaozheng 　　簡單的游戲往往更耐玩，就比如伴我度過高考的賽車游戲：一切都是方塊，所謂的賽車也只是四個方塊。本例中，繪圖部分寫在了Timer1_Timer()中，碰撞測試放在了test()中。跑道底部的y坐標Dim l1(22) As Integer 39。先擦　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。以上畫出跑道　drawcar　testEnd SubPrivate Sub test()　If *DWidth/2+cxl1(1)*D Then =False　If *DWidth/2+cx+Dl1(2)*D Then =False　If *D(cx+3*DWidth/2)l2(1)*D Then =False　If *D(cx+2*DWidth/2)l2(2)*D Then =FalseEnd Sub本文來自編程入門網(wǎng)()：相信不少讀者都看過央視的《水滸》吧，林沖、武松、李逵等英雄好漢的音容笑貌仿佛還浮現(xiàn)在我的眼前，那么108將中你最喜歡誰呢？我做了一個小程序來讓電腦猜測你的心思，程序界面如圖所示。程序初始化時是把1～27將隨機打亂分別放入PageControl控件的三個選項卡中，每個選項卡放9張圖片。當?shù)诙伟聪掳粹o時，表示你相中的圖片在其中一個選項卡的3張圖片內，于是把這3張圖片均分成3份，每份1張，分別送入3個選項卡，當?shù)谌伟聪掳粹o時，表示你相中的圖片在其中一個選項卡的1張圖片內，毫無疑問，這張圖片就是你相中的圖片，于是程序把這張圖片顯示出來。i=27。i=500。b[temp1]=b[temp[2]。i=27。而且篩選很容易把你攪得頭暈腦脹，所以涉及的各個數(shù)組之間的關系一定要先理順，先用一個例子來解釋如何進行篩選?！　∪?、小結　　最后的工作就比較簡單了。Picture 屬性：只要將這個屬性填入正常的圖形檔名，VB就會自動幫我們載入圖形檔。出現(xiàn)Left 屬性：表示圖形的位置的Ｘ座標。或許有人會覺得奇怪，一張圖就要用到一個PictureBox，小游戲的圖不多還沒關系，如果是ＲＰＧ的話不就要動用到幾千個甚至幾萬個PictureBox？豈不是麻煩死了？所以如果圖片很多的時候，我通常都是把圖全部都放在同一個圖形檔里面，這樣就只要用到一個PictureBo