学习VB编程第54天，贪吃蛇游戏开发第一节

今天学习了刘金玉老师零基础VB教程的第65期，学习的主要内容是贪吃蛇游戏开发，初始化一条蛇。

1.初始化一条舍身思路：

（1）使用绘画line画蛇

（2）注意一节一节画出来

（3）确定每一节蛇身的位置

（4）确定每一节蛇身的长度

（5）line、print、circle绘画出来的效果，需要自动重绘，开启autodraw属性。

2.代码

Private Type node '定义每节舍身的变量类型

D As Integer '37向左，38向上，39向右，40向下

X As Single 'left值

Y As Single 'top值

End Type

Dim W As Integer '定义每一节蛇身宽度

Dim sno() As node '申明一条蛇为动态数组

Function init()

AutoRedraw = True

W = 200 '默认宽度为200

D = 39 '默认方向向右

ReDim sno(5) As node

Dim i As Long

For i = 0 To UBound(sno) Step 1

sno(i).D = D

sno(i).X = ScaleWidth / 2 + i * W

sno(i).Y = ScaleHeight / 2

Next i

End Function

Function drawsnake()

Dim i As Long

For i = 0 To UBound(sno) Step 1

Randomize

Line (sno(i).X, sno(i).Y)-(sno(i).X + W, sno(i).Y + W), RGB(Rnd * 255, Rnd * 255, Rnd * 255), BF

Next i

End Function

Private Sub Form_Load()

Call init

Call drawsnake

End Sub