小游戏【贪吃蛇】

HHAAMM

再次更新

调整了画面

添加一了点声音

加快了速度

改用方向键操控
 

代码sheet1里

Private Sub CommandButton1_Click()
Static aaa%
aaa = aaa + 1
If aaa Mod 2 = 1 Then
CommandButton1.Caption = "结束"
cusi 29
dd
Else
CommandButton1.Caption = "开始"
Range("b2:bg59").Interior.ColorIndex = 11
End
End If
End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 37 Then
xx 1, 0
End If
If KeyCode = 39 Then '
xx -1, 0
End If
If KeyCode = 38 Then
xx 0, 1
End If
If KeyCode = 40 Then
xx 0, -1
End If
End Sub

模块里

Dim arr(1 To 2, 1 To 1), sjh%, sjl%, k%, arr2, arr1()
Sub cusi(js)
arr(1, 1) = js
arr(2, 1) = js

End Sub
Sub xx(qjr, qji)
Dim m As Date, js%, r%, abc%
PauseTime = 0.1
Do
    DoEvents
    arr(1, 1) = arr(1, 1) - qjr
    arr(2, 1) = arr(2, 1) - qji
    If arr(1, 1) = 1 Or arr(1, 1) = 60 Then MsgBox "游戏结束": End
    If arr(2, 1) = 1 Or arr(2, 1) = 60 Then MsgBox "游戏结束": End
    If Cells(arr(2, 1), arr(1, 1)).Interior.ColorIndex = 45 Then MsgBox "游戏结束": End
    Start = Timer
    Do While Timer < Start + PauseTime
    Loop
    Range("b2:bg59").Interior.ColorIndex = 11
    Cells(sjh, sjl).Interior.ColorIndex = 39
    If k > 0 Then
        arr1(1, k + 1) = arr(1, 1)
        arr1(2, k + 1) = arr(2, 1)
        For mm = 1 To k
            Cells(arr1(2, mm), arr1(1, mm)).Interior.ColorIndex = 45
        Next mm
        arr2 = arr1
        For r = 1 To k
            arr1(1, r) = arr2(1, r + 1)
            arr1(2, r) = arr2(2, r + 1)
        Next r
    End If
    Cells(arr(2, 1), arr(1, 1)).Interior.ColorIndex = 39
    arr2 = arr1
    If arr(2, 1) = sjh And arr(1, 1) = sjl Then
        k = k + 1
        ReDim Preserve arr1(1 To 2, 1 To k + 1)
        arr1(1, k) = arr(1, 1)
        arr1(2, k) = arr(2, 1)
        Beep
        dd
    End If
Loop
End Sub
Sub dd()
sjh = Int((58 * Rnd) + 2)
sjl = Int((58 * Rnd) + 2)
Cells(sjh, sjl).Interior.ColorIndex = 39
Cells(29, 29).Interior.ColorIndex = 39
End Sub

 

d3djEVz4.rar (14.88 KB, 下载次数: 593)

2008-7-27 03:53 上传

点击文件名下载附件
小游戏【贪吃蛇】

[此贴子已经被作者于2008-7-27 3:53:12编辑过]

HHAAMM

版本更新(添加了工程密码)

[此贴子已经被作者于2008-5-5 12:05:09编辑过]

HHAAMM

再次更新

到处都没人回复[em06]

lizhenyahb

下下来看看

tonychen

看一下。

hewenjie

怎么没反应喃?一片空白?

wanglei569

支持，我最喜欢这个游戏了，就是太慢了，谢谢分享，能调快点吗？

空白表格

楼主辛苦了,下下来玩玩先

yycqh126

很好,能告诉我们怎么做的吗?谢谢!

阿冬小弟

不要笑我,知道怎么玩这个不,我文件打就一个紫色的BJ1单元格,右边有一点提示,怎么回事,我系统是GO起的,是不是有些什么文件没有装上去???