贪吃蛇-简单的vb程序代码.doc

《贪吃蛇-简单的vb程序代码.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Vb课程设计题目贪吃蛇小游戏学生姓名张翠翠专业计算机信息管理班级学号任课老师丁木华东华理工大学高等职业技术学院二0一0年六月一背景　蛇——传说中的圣灵之物，仰头为神、俯首为魔。蛇是月亮国膜拜的神，月亮国的子民们都认为蛇是万能的主宰派来保护他们的守护者。这里有蟒蛇、布袋蛇、响尾蛇、白火蛇、眼镜蛇、魔鬼蛇、机器蛇、水蛇、小龙、橡皮蛇等等各种各样的蛇。蛇在这个岛屿就像空气一样自然的出现在各个角落，有些还成为居民的宠物，陪伴孩子长大，和年轻人一起去探险，守护着散步的老人。　古老月亮国是一个与世隔绝的岛国，善良的人民世世代代生活在这片远离浮躁的世界里，过着与世无争的生活享受

2、着他们的幸福和美满。这里有人们赖以生存的茂密的森林、荒凉的沙漠、寒冷的冰川和广阔的大海也有狂暴的火山和神秘的古代遗址。在善良的女娲神保佑下，人们的生活安宁平静。为了答谢女娲的庇佑，每年月亮国的国民都会举办一个守护蛇大赛，大家都会拿出自己最强、最炫、最快、最稀有的蛇来参加比赛，获得第一名的人将得到国王的特别嘉奖。所以国民一生都在不停的收集各种稀奇古怪的蛇，或者不断的培养更有威力的蛇。在这奇幻的大陆上，在每一片土地都布满着魔法和冒险。勇士们，快带上自己的守护蛇，去和守护蛇一起变的更加强壮、迅猛，去异界寻找那传说中的与众不同的蛇，去神秘的天界去寻找月亮岛的秘密……那将是

3、怎么的一个神奇的经历呢？我们一起去见证那份不可思议的历程吧！贪吃蛇这款游戏，是利用VB编写的一个软件，在窗体里的任意角落出现青蛙，游戏者通过↑↓←→控制贪吃蛇，吃掉一个青蛙，蛇身长长一格，分数相应的增加，游戏界面有两个按钮，开始和难度选择键。本款游戏益智，有趣，可以锻炼游戏者的瞬间反应能力，熟悉↑↓←→。一、设计目的1.综合VisualBasic相关知识制作简单的可视化应用程序2.灵活对程序代码进行利用，修改和编写；3.熟练将VisualBasic所学知识和其它知识相结合二功能描述1、运行运行时有登陆的界面：开始游戏和难度选择，点击开始键开始游戏，点击难度选择选择

4、难度。2、出现青蛙进入游戏后，界面会出现贪吃蛇和青蛙，电脑随机安排青蛙的位置，吃掉后，青蛙出现在其他的位置。电脑随机安排青蛙的位置。3、分数记录青蛙出现后用↑↓←→控制贪吃蛇，吃掉一个青蛙，蛇身长长一格，分数相应的增加点中加一分，没吃不加分。4、游戏评分游戏结束后，会弹出一个评分表，电脑会根据游戏者控制贪吃蛇吃掉的青蛙积分，每个十分。二、概要设计（模块流程图）程序运行界面开始运行退出运行游戏开始再开始评分将顶头的时间初始化。弹出评分窗口顶头的时间初始，三程序代码PublicbeibeiAsIntegerPublicbaobaoAsBooleanSubFrog()x

5、=Int(26*Rnd)y=Int(20*Rnd)imgFrog.Left=360*ximgFrog.Top=360*yEndSubPrivateSubcmdOption_Click()Form2.ShowEndSubPrivateSubcmdStart_Click()Timer1.Enabled=Truelbl_gameover.Visible=Falselbl_Show.Visible=Falselbl_Num.Visible=FalsecmdStart.Enabled=FalsecmdOption.Enabled=Falsebeibei=3IfImg.UBo

6、und>5ThenFori=6ToImg.UBoundUnloadImg(i)NextiEndIfImg(0).Left=6840Img(0).Top=720Fori=1To5Img(i).Left=Img(i-1).Left+360Img(i).Top=Img(i-1).TopNextiFori=0To5Img(i).Stretch=TrueImg(i).Visible=TrueNextiimgFrog.Left=4320imgFrog.Top=2880SetImg(0).Picture=LoadResPicture("al",0)EndSubPrivateSu

7、bForm_Load()SetImg(0).Picture=LoadResPicture("al",0)Fori=1To5SetImg(i).Picture=LoadResPicture("bb",0)Nextilbl_gameover.Visible=Falselbl_Show.Visible=Falselbl_Num.Visible=Falsebeibei=3Timer1.Interval=Form2.hs.ValueEndSubPrivateSubTimer1_Timer()Ifbeibei=1ThenCallChangeImg(0).Top=Img(0).

8、Top-3