贪吃蛇-简单的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版,