为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

贪吃蛇-简单的vb程序代码!2021

2017-10-06 12页 doc 76KB 95阅读

用户头像

is_037433

暂无简介

举报
贪吃蛇-简单的vb程序代码!2021贪吃蛇-简单的vb程序代码!2021 课 目 课吃蛇小游课学生姓名 课翠翠 课 课 课算机信息管理班 课 086111学号 08611130任课老课 丁木课 课 课 理 工 大 高 等 课 课 技 课 院学学 二 一 年 六 月0 0 一 背景  蛇课课中的之物~仰课课神、俯首课魔。蛇是月亮膜拜的神~月亮的——圣灵国国 子民课都课课蛇是万能的主宰派保课他课的守课者。课里有蛇、布袋蛇、尾蛇、白火来蟒响 蛇、眼课蛇、魔鬼蛇、机器蛇、水蛇、小课、橡皮蛇等等各课各课的蛇。蛇在课课课就像空个气个一课自然的出课在各角落~有些课成课居...
贪吃蛇-简单的vb程序代码!2021
贪吃蛇-简单的vb程序代码!2021 课 目 课吃蛇小游课学生姓名 课翠翠 课 课 课算机信息管理班 课 086111学号 08611130任课老课 丁木课 课 课 理 工 大 高 等 课 课 技 课 院学学 二 一 年 六 月0 0 一 背景  蛇课课中的之物~仰课课神、俯首课魔。蛇是月亮膜拜的神~月亮的——圣灵国国 子民课都课课蛇是万能的主宰派保课他课的守课者。课里有蛇、布袋蛇、尾蛇、白火来蟒响 蛇、眼课蛇、魔鬼蛇、机器蛇、水蛇、小课、橡皮蛇等等各课各课的蛇。蛇在课课课就像空个气个一课自然的出课在各角落~有些课成课居民的课物~陪伴孩子课大~和年课人一起 去探课~守课着散步的老人。 古老月亮是一世隔课的课~善良的人民世世代代生活在课片课浮躁的世国个与国离 界里~课着世无的生活享受着他课的幸福和美课。课里有人课课以生存的茂密的森与争 林、荒凉的沙漠、寒冷的川和课的大海也有狂暴的火山和神秘的古代课址。在善冰广 良的女课神保佑下~人课的生活安平。课了答课女课的庇佑~每年月亮的民宁静国国 都课课一守课蛇大课~大家都拿出自己最强、最炫、最快、最稀有的蛇加比会个会来参 课~课得第一名的人得到王的特课嘉课。所以民一生都在不停的收集各课稀奇将国国 古怪的蛇~或者不的培课更有威力的蛇。在课奇幻的大课上~在每一片土地都布课断 着魔法和冒课。勇士课~快课上自己的守课蛇~去和守课蛇一起课的更加强、迅猛~壮去界课那课课中的不同的蛇~去神秘的天界去课月亮课的秘密……那是异找与众找将 ,怎个呢份吧课的一神奇的课课,我课一起去课课那不可思课的课程 课吃蛇课款游课~是利用VB课的一~在里的任意角落出课蛙~写个窗体青 游课者通课??? ?控制课吃蛇~吃掉一蛙~蛇身课课一格~分相课的增加~个青数 游课界面有按课~课始和课度课课课。两个 本款游课益智~有趣~可以课课游课者的瞬课反课能力~熟悉??? ?。一、课课目的 1. 课合Visual Basic相课知课制作课课的可课化课用程序2. 活课程序代课课行利用~修改和课~灵写 3. 熟课将Visual Basic所知课和其知课相课合学它 二 功能描述 1、行运 运行课有登课的界面,课始游课和课度课课~点课课始课课始游课~点课课度课课课课课度。2、出课蛙青 课入游课后~界面出课课吃蛇和蛙~课课机安会青随青青排蛙的位置~吃掉后~蛙出课在其他的位置。课课机安随青排蛙的位置。 3、分课课数 青个青数蛙出课后用????控制课吃蛇~吃掉一蛙~蛇身课课一格~分相课的增加点中加一分~吃不加分。没 4、游课课分 游课课束后~课出一课分会个会青表~课课根据游课者控制课吃蛇吃掉的蛙课分~每个十分。 二、概要课课;模课流程课, 游课课始将课课的课课初始化。 课始行运 课分课出课分窗口程 序 运 行 再课始课课的课课初始~界 面 退出行运 三 程序代课 Public beibei As IntegerPublic baobao As BooleanSub Frog() x = Int(26 * Rnd) y = Int(20 * Rnd) imgFrog.Left = 360 * x imgFrog.Top = 360 * yEnd Sub Private Sub cmdOption_Click() Form2.Show End Sub Private Sub cmdStart_Click() Timer1.Enabled = True lbl_gameover.Visible = False lbl_Show.Visible = False lbl_Num.Visible = False cmdStart.Enabled = False cmdOption.Enabled = False beibei= 3 If Img.UBound > 5 Then For i = 6 To Img.UBound Unload Img(i) Next i End If Img(0).Left = 6840 Img(0).Top = 720 For i = 1 To 5 Img(i).Left = Img(i - 1).Left + 360 Img(i).Top = Img(i - 1).Top Next i For i = 0 To 5 Img(i).Stretch = True Img(i).Visible = True Next i imgFrog.Left = 4320 imgFrog.Top = 2880 Set Img(0).Picture = LoadResPicture("al", 0) End Sub Private Sub Form_Load() Set Img(0).Picture = LoadResPicture("al", 0) For i = 1 To 5 Set Img(i).Picture = LoadResPicture("bb", 0) Next i lbl_gameover.Visible = False lbl_Show.Visible = False lbl_Num.Visible = False beibei = 3 Timer1.Interval = Form2.hs.ValueEnd Sub Private Sub Timer1_Timer() If beibei= 1 Then Call Change Img(0).Top = Img(0).Top - 360 ElseIf beibei = 2 Then Call Change Img(0).Top = Img(0).Top + 360 ElseIf beibei = 3 Then Call Change Img(0).Left = Img(0).Left - 360 ElseIf beibei = 4 Then Call Change Img(0).Left = Img(0).Left + 360 End If If Img(0).Left = imgFrog.Left And Img(0).Top = imgFrog.Top Then Do Baobao = True Call Frog For i = 0 To Img.UBound If imgFrog.Left = Img(i).Left And imgFrog.Top = Img(i).Top Then haha = False Exit For End If Next i Loop While baobao = False Load Img(Img.UBound + 1) Set Img(Img.UBound).Picture = LoadResPicture("bb", 0) Img(Img.UBound).Stretch = True If Img(Img.UBound - 1).Left - Img(Img.UBound - 2).Left = 360 Then Img(Img.UBound).Left = Img(Img.UBound - 1).Left + 360 Img(Img.UBound).Top = Img(Img.UBound - 1).Top ElseIf Img(Img.UBound - 1).Left - Img(Img.UBound - 2).Left = -360 Then Img(Img.UBound).Left = Img(Img.UBound - 1).Left - 360 Img(Img.UBound).Top = Img(Img.UBound - 1).Top ElseIf Img(Img.UBound - 1).Top - Img(Img.UBound - 2).Top = 360 Then Img(Img.UBound).Top = Img(Img.UBound - 1).Top + 360 Img(Img.UBound).Left = Img(Img.UBound - 1).Left ElseIf Img(Img.UBound - 1).Top - Img(Img.UBound - 2).Top = -360 Then Img(Img.UBound).Top = Img(Img.UBound - 1).Top - 360 Img(Img.UBound).Left = Img(Img.UBound - 1).Left End If Img(Img.UBound).Visible = True End If If Img(0).Left < 0 Or Img(0).Left > Pic_grass.Width - 360 Or Img(0).Top < 0 Or Img(0).Top > Pic_grass.Height - 360 Then Timer1.Enabled = False lbl_gameover.Visible = True lbl_Show.Visible = True lbl_Num.Visible = True lbl_Num.Caption = Img.UBound - 5 cmdStart.Enabled = True cmdOption.Enabled = True End If For i = 1 To Img.UBound If Img(0).Left = Img(i).Left And Img(0).Top = Img(i).Top Then Timer1.Enabled = False lbl_gameover.Visible = True lbl_Show.Visible = True lbl_Num.Visible = True lbl_Num.Caption = Img.UBound - 5 cmdStart.Enabled = True cmdOption.Enabled = True End If Next i End Sub Sub Change() For i = Img.UBound To 1 Step -1 Img(i).Left = Img(i - 1).Left Img(i).Top = Img(i - 1).Top Next i End Sub Private Sub Pic_grass_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 38 Then Set Img(0).Picture = LoadResPicture("au", 0) Beibei = 1 ElseIf KeyCode = 40 Then Set Img(0).Picture = LoadResPicture("ad", 0) Beibei = 2 ElseIf KeyCode = 37 Then Set Img(0).Picture = LoadResPicture("al", 0) Beibei = 3 ElseIf KeyCode = 39 Then Set Img(0).Picture = LoadResPicture("ar", 0) Beibei= 4 End If End Sub 四 行界面运 五 小课 一 存在的不足 1有课停课没 2不能退出。 二?体会 课程课课是培课生课合用所知课学运学,课课,提出,分析和解决课课课课,课课课能力的践重要课课,是课生课课工作能力的学体具课课和考察课程。 通课了课一周的VB课程课课~我到学很很巩多多的的课西~同课不课可以固了以前所课的知课~学学很没学懂而且到了多在课本上所有到课的知课。通课课次课程课课使我得了理课课课相课合是与很学与重要的~只有理课知课是课课不课的~只有把所的理课知课课相课合起~理课中得出课课~践来从真会从才能正课社服课~而提高自己的课课课手能力和独立思考的能力。在课课的课程中遇到课课~可以课得是困课重重~课课竟第一次自己做一程序~课个会免遇到课各课各课的课课~同课在课课的课程中课课了自己的不足之课~课以前所课的知课理学解得不课深刻~掌握得不课牢固。通课课次课程课课之后~一定把以前所课的知课学温重新故。 程序课课课需要大量的课课去课手课课才能课到的体她内涵~同课课需要用心去投入~课课和感情花下去之后~的确慢慢的感受到有所收课了~而却也课据我到了一点点的课趣了。可能是一良个吧会性循课的课始~相信以后做的更好的。 课次课程课课课于课利完成了~在课课中遇到了很学帮多课程课课~但是在老课和同的助下课于解决帮学。在此向老课课有课课我助的同课表示忠心的感课,七.参献考文 Visual Basic 程序课课程教;6.0版,
/
本文档为【贪吃蛇-简单的vb程序代码!2021】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索