贪吃蛇课程设计文档linux,VB课程设计报告--贪吃蛇游戏.doc

南 京 理 工 大 学

能源与动力工程学院

VB课程设计报告

题目1： 贪吃蛇游戏

题目2： 列车时刻查询

指导老师： 张小兵

学生姓名： 学 号:

专 业：

班 级：

2011年3月日

“帮助”窗体界面：

“设置”窗体界面：

“排行榜”窗体界面：

“关于”窗体界面：

二．贪吃蛇游戏部分代码

主窗体的部分代码：

'为所有随机出现的的数字定位：

Sub ShowNumberAll()

Dim i As Integer, j As Integer

Dim k As Integer, m As Integer, l As Integer

Dim f As Boolean

Randomize

For m = 1 To 5

Do

i = Int(Rnd * 20)

j = Int(Rnd * 20)

'判断数字出现的位置是否合理

f = True

For k = 1 To intNum '判断是否出现在蛇身上

If i = Int(shp(k).Left / GRID) And j = Int(shp(k).Top / GRID) Then

f = False

Exit For

End If

Next

If f = True Then

For k = 1 To m - 1 '判断是否出现在已有的数字上

If i * GRID = lblNumber(k).Left And j * GRID = lblNumber(k).Top Then

f = False

Exit For

End If

Next

End If

If f = True Then

For k = 1 To 20 '判断是否出现在障碍物上

For l = 1 To 20

If Maze(j + 1, i + 1, curMaze) = 1 Then

f = False

Exit For

End If

Next

Next

End If

If f = True Then

Exit Do

End If

Loop

AppleX(m) = i

AppleY(m) = j

lblNumber(m).Left = AppleX(m) * GRID

lblNumber(m).Top = AppleY(m) * GRID

Next

End Sub

'为指定的数字定位：

Sub ShowNumber(m As Integer)

Dim i As Integer, j As Integer

Dim k As Integer, l As Integer

Dim f As Boolean

Randomize

Do

i = Int(Rnd * 20)

j = Int(Rnd * 20)

' 判断数字出现的位置是否合适

f = True

For k = 1 To intNum

If i = Int(shp(k).Left / GRID) And j = Int(shp(k).Top / GRID) Then

f = False

Exit For

End If

Next

If f = Tr