刘金玉的零基础VB教程065期：贪吃蛇游戏开发第一节 初始化一条蛇
基础工作
1、使用绘画line画蛇
2、注意一节一节画出来
3、确定每一节蛇身的位置
4、确定每一节蛇身的长度
5、line、print 、circle绘画出来的效果，需要自动重绘，autodraw
课堂总结
1、对每一个重要变量及函数进行代码注释
2、自定义变量类型，蛇身NODE，有方向，有坐标
3、建议将蛇身数据与绘画分开写，首先初始化蛇身的数据（方向、坐标、宽度），然后用一个函数画出来
4、窗体加载时候采用调用函数方式运动代码
5、要使用自定义函数来将各个功能模块隔离写
界面：
源代码：
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 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 Line (sno(i).X, sno(i).Y)-(sno(i).X + W, sno(i).Y + W), vbBlue, BF Next i End Function Private Sub Form_Load() Call init Call drawSnake End Sub
