贪吃蛇代码

贪吃蛇代码 vb贪吃蛇代码(2008-07-25 11:55:31) 标签:it 分类:vb学习ing! 新建个form，加个timer1就行了 CODE: Dim rnb As Single Const body_long = 100 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyUp And fc.down = False Then fc.up = True fc.left = False fc.right = False fc.down = False End If If KeyCode = vbKeyDown And fc.up = False Then fc.down = True fc.left = False fc.right = False fc.up = False End If If KeyCode = vbKeyLeft And fc.right = False Then fc.left = True fc.down = False fc.right = False fc.up = False End If If KeyCode = vbKeyRight And fc.left = False Then fc.right = True fc.left = False fc.down = False fc.up = False End If If KeyCode = vbKeyF1 Then Timer1.Enabled = Not Timer1.Enabled If KeyCode = vbKeyF2 Then Timer1.Enabled = False gstart food Timer1.Enabled = True End If End Sub Sub gstart() For i = 2 To 50 body(i).sh = False Next i fc.left = True fc.right = False fc.up = False fc.down = False body(1).bxl = 10000 / 2 + body_long / 2 + 500 body(1).bxr = body(1).bxl + body_long body(1).byu = 8000 / 2 + body_long / 2 + 300 body(1).byd = body(1).byu + body_long rnb = 0.9 Me.Cls End Sub Private Sub Form_Load() Form1.AutoRedraw = True Form1.BackColor = vbWhite Form1.Width = body_long * 100 Form1.Height = body_long * 80 Randomize gstart food End Sub