ubound

Vb课程设计

题目贪吃蛇小游戏

学生姓名张翠翠

专业计算机信息管理

班级086111

学号********

任课老师丁木华

东华理工大学高等职业技术学院

二0一0年六月

一背景

蛇——传说中的圣灵之物，仰头为神、俯首为魔。蛇是月亮国膜拜的神，

月亮国的子民们都认为蛇是万能的主宰派来保护他们的守护者。这里有蟒蛇、布

袋蛇、响尾蛇、白火蛇、眼镜蛇、魔鬼蛇、机器蛇、水蛇、小龙、橡皮蛇等等各

种各样的蛇。蛇在这个岛屿就像空气一样自然的出现在各个角落，有些还成为居

民的宠物，陪伴孩子长大，和年轻人一起去探险，守护着散步的老人。

古老月亮国是一个与世隔绝的岛国，善良的人民世世代代生活在这片远离浮躁的

世界里，过着与世无争的生活享受着他们的幸福和美满。这里有人们赖以生存的

茂密的森林、荒凉的沙漠、寒冷的冰川和广阔的大海也有狂暴的火山和神秘的古

代遗址。在善良的女娲神保佑下，人们的生活安宁平静。为了答谢女娲的庇佑，

每年月亮国的国民都会举办一个守护蛇大赛，大家都会拿出自己最强、最炫、最

快、最稀有的蛇来参加比赛，获得第一名的人将得到国王的特别嘉奖。所以国民

一生都在不停的收集各种稀奇古怪的蛇，或者不断的培养更有威力的蛇。在这奇

幻的大陆上，在每一片土地都布满着魔法和冒险。勇士们，快带上自己的守护蛇，

去和守护蛇一起变的更加强壮、迅猛，去异界寻找那传说中的与众不同的蛇，去

神秘的天界去寻找月亮岛的秘密……那将是怎么的一个神奇的经历呢？我们一

起去见证那份不可思议的历程吧！

贪吃蛇这款游戏，是利用VB编写的一个软件，在窗体里的任意角落出现青

蛙，游戏者通过↑↓←→控制贪吃蛇，吃掉一个青蛙，蛇身长长一格，分数相

应的增加，游戏界面有两个按钮，开始和难度选择键。

本款游戏益智，有趣，可以锻炼游戏者的瞬间反应能力，熟悉↑↓←→。

一、设计目的

1.综合VisualBasic相关知识制作简单的可视化应用程序

2.灵活对程序代码进行利用，修改和编写；

3.熟练将VisualBasic所学知识和其它知识相结合

二功能描述

1、运行

运行时有登陆的界面：开始游戏和难度选择，点击开始键开始游戏，点击难

度选择选择难度。

2、出现青蛙

进入游戏后，界面会出现贪吃蛇和青蛙，电脑随机安排青蛙的位置，吃掉后，

青蛙出现在其他的位置。电脑随机安排青蛙的位置。

3、分数记录

青蛙出现后用↑↓←→控制贪吃蛇，吃掉一个青蛙，蛇身长长一格，分数相应的

增加点中加一分，没吃不加分。

4、游戏评分

游戏结束后，会弹出一个评分表，电脑会根据游戏者控制贪吃蛇吃掉的青蛙

积分，每个十分。

二、概要设计（模块流程图）

程

序

运

行

界

面

开始运行

退出运行

游戏开始

再开始

评分

将顶头的时间初

始化。

弹出评分窗口

顶头的时间初始，

三程序代码

PublicbeibeiAsInteger

PublicbaobaoAsBoolean

SubFrog()

x=Int(26*Rnd)

y=Int(20*Rnd)

=360*x

=360*y

EndSub

PrivateSubcmdOption_Click()

EndSub

PrivateSubcmdStart_Click()

d=True

lbl_e=Fal

lbl_e=Fal

lbl_e=Fal

d=Fal

d=Fal

beibei=3

>5Then

Fori=

UnloadImg(i)

Nexti

EndIf

Img(0).Left=6840

Img(0).Top=720

Fori=1To5

Img(i).Left=Img(i-1).Left+360

Img(i).Top=Img(i-1).Top

Nexti

Fori=0To5

Img(i).Stretch=True

Img(i).Visible=True

Nexti

=4320

=2880

SetImg(0).Picture=LoadResPicture("al",0)

EndSub

PrivateSubForm_Load()

SetImg(0).Picture=LoadResPicture("al",0)

Fori=1To5

SetImg(i).Picture=LoadResPicture("bb",0)

Nexti

lbl_e=Fal

lbl_e=Fal

lbl_e=Fal

beibei=3

al=

EndSub

PrivateSubTimer1_Timer()

Ifbeibei=1Then

CallChange

Img(0).Top=Img(0).Top-360

ElIfbeibei=2Then

CallChange

Img(0).Top=Img(0).Top+360

ElIfbeibei=3Then

CallChange

Img(0).Left=Img(0).Left-360

ElIfbeibei=4Then

CallChange

Img(0).Left=Img(0).Left+360

EndIf

IfImg(0).Left=dImg(0).Top=

n

Do

Baobao=True

CallFrog

Fori=

=Img(i).=Img(i).Top

Then

haha=Fal

ExitFor

EndIf

Nexti

LoopWhilebaobao=Fal

LoadImg(+1)

SetImg().Picture=LoadResPicture("bb",0)

Img().Stretch=True

IfImg(-1).Left-Img(-2).Left=360Then

Img().Left=Img(-1).Left+360

Img().Top=Img(-1).Top

ElIfImg(-1).Left-Img(-2).Left=-360Then

Img().Left=Img(-1).Left-360

Img().Top=Img(-1).Top

ElIfImg(-1).Top-Img(-2).Top=360Then

Img().Top=Img(-1).Top+360

Img().Left=Img(-1).Left

ElIfImg(-1).Top-Img(-2).Top=-360Then

Img().Top=Img(-1).Top-360

Img().Left=Img(-1).Left

EndIf

Img().Visible=True

EndIf

IfImg(0).Left<0OrImg(0).Left>Pic_-360OrImg(0).Top<0Or

Img(0).Top>Pic_-360Then

d=Fal

lbl_e=True

lbl_e=True

lbl_e=True

lbl_n=-5

d=True

d=True

EndIf

Fori=

IfImg(0).Left=Img(i).LeftAndImg(0).Top=Img(i).TopThen

d=Fal

lbl_e=True

lbl_e=True

lbl_e=True

lbl_n=-5

d=True

d=True

EndIf

Nexti

EndSub

SubChange()

Fori=To1Step-1

Img(i).Left=Img(i-1).Left

Img(i).Top=Img(i-1).Top

Nexti

EndSub

PrivateSubPic_grass_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

IfKeyCode=38Then

SetImg(0).Picture=LoadResPicture("au",0)

Beibei=1

ElIfKeyCode=40Then

SetImg(0).Picture=LoadResPicture("ad",0)

Beibei=2

ElIfKeyCode=37Then

SetImg(0).Picture=LoadResPicture("al",0)

Beibei=3

ElIfKeyCode=39Then

SetImg(0).Picture=LoadResPicture("ar",0)

Beibei=4

EndIf

EndSub

四运行界面

五小结

一存在的不足

1没有暂停键

2不能退出。

二·心得体会

课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,

锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程。

通过了这一周的VB课程设计，我学到很多很多的的东西，同时不仅可以巩

固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。通过这

次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够

的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为

社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇

到问题，可以说得是困难重重，这毕竟第一次自己做一个程序，难免会遇到过各

种各样的问题，同时在设计的过程中发现了自己的不足之处，对以前所学过的知

识理解得不够深刻，掌握得不够牢固。通过这次课程设计之后，一定把以前所学

过的知识重新温故。

程序设计师需要大量的时间去动手练习才能体验到她的内涵，同时还需要用

心去投入，时间和感情花下去之后，的确慢慢的感受到有所收获了，而却也噶据

我到了一点点的乐趣了。可能是一个良性循环的开始吧，相信以后会做的更好的。

这次课程设计终于顺利完成了，在设计中遇到了很多编程问题，但是在老师

和同学的帮助下终于解决。在此向老师还有给过我帮助的同学们表示忠心的感

谢！