回复：VFP游戏开发（贪吃蛇//俄罗斯方块）

3.设置主窗体main自定义事件adddian，用于随机产生一个青蛙，且该青蛙的位置与蛇不一样。
local a1，a2，i，b1，b2，fb1，fb2
a1=rand()*1000
a2=rand()*1000
do while a1>=sewidth-20
a1=a1-(sewidth-20)
enddo
do while a2>=seheight-20
a2=a2-(seheight-20)
enddo
a1=int(a1/10)*10
a2=int(a2/10)*10
if a1<20
a1=a1+10
endif
if a2<20
a2=a2+10
endif
for i=1 to num
tmp=""cmd""+alltrim(str(i，3))
fb2=""a1=thisform.""+tmp+"".top""+"".and.a2=thisform.""+tmp+"".left""
if &fb2
if a1>20
a1=a1-10
else
a1=a1+10
endif
if a2>20
a2=a2-10
else
a2=a2+10
endif
endif
endfor
ThisForm.doin.left=a1
ThisForm.doin.top=a2

4.设置主窗体main自定义事件ad
done，用于蛇吞掉青蛙时，蛇增加一截。
local tmp1，tmp2，fh，hw，ft，fd，fb，fl，fv，x，y，xx，yy
tmp1=""cmd""+alltrim(str(num，3))
num=num+1
tmp2=""cmd""+alltrim(str(num，3))
thisform.addobject(tmp2，'shape')
fh=""thisform.""+tmp2+"".height=10""
fw=""thisform.""+tmp2+"".width=10""
ft=""thisform.""+tmp2+"".top=thisform.""+tmp1+"".top""
fd=""thisform.""+tmp2+"".bordercolor=128""
fb=""thisform.""+tmp2+"".backcolor=52""
fl=""thisform.""+tmp2+"".left=thisform.""+tmp1+"".left""
fv=""thisform.""+tmp2+"".visible=.t.""
seend='1'
&fh
&fw
&ft
&fl
&fb
&fd
&fv

5.设置主窗体main自定义事件sedele，用于游戏重新开始时删掉多余的蛇身。
local ft，fl，i
for i=11 to num
tmp=""cmd""+alltrim(str(i，3))
thisform.removeobject(tmp)
endfor
num=10
sebeg='1'
for i=1 to num
tmp=""cmd""+alltrim(str(i，3))
ft=""thisform.""+tmp+"".top=100""
fl=""thisform.""+tmp+"".left=""+str(300+10*(i-1)，3)
&ft
&fl
endfor
thisform.refresh
return

6.设置窗体main中command1(开始)的click事件
local tmp1，tmp2
fensu=0
ThisForm.gs.caption=""""
ThisForm.fs.caption=""""
tmp1=ThisForm.jb.value
jb=alltrim(tmp1)
**ss为计分系数
do case
case tmp1=""一级""
tmp2=400
ss=1
case tmp1=""二级""
tmp2=300
ss=2
case tmp1=""三级""
tmp2=200
ss=3
case tmp1=""四级""
tmp2=100
ss=4
case tmp1=""五级""
tmp2=90
ss=5
case tmp1=""六级""
tmp2=80
ss=6
case tmp1=""七级""
tmp2=60
ss=7
case tmp1=""八级""
tmp2=40
ss=8
case tmp1=""九级""
tmp2=30
ss=9
endcase
*用Timer1控制游戏速度
ThisForm.Timer1.interval=tmp2
thisform.sedele
num=numbeg
ThisForm.jb.enabled=.F.
thisform.command1.setfocus

7.设置窗体main中timer1的timer事件，该事件控制蛇不断移动
local tmp1，tmp2，ft，fl，kk，fv，bb，cc，flag2，fb
bb=thisform.cmd1.left
cc=thisform.cmd1.top
flag2=.F.
for i=1 to num
kk=num-i+1
tmp1='cmd'+alltrim(str(kk，3))
if kk=1
do case
case sebeg='1'
fl=""thisform.""+tmp1+"".left=""+""thisform.""+tmp1+"".left-10""
case sebeg='2'
fl=""thisform.""+tmp1+"".top=""+""thisform.""+tmp1+"".top-10""
case sebeg='3'
fl=""thisform.""+tmp1+"".left=""+""thisform.""+tmp1+"".left+10""
case sebeg='4'
fl=""thisform.""+tmp1+"".top=""+""thisform.""+tmp1+"".top+10""
endcase
&fl
else
tmp2='cmd'+alltrim(str(kk-1，3))
ft=""thisform.""+tmp1+"".top=""+""thisform.""+tmp2+"".top""
fl=""thisform.""+tmp1+"".left=""+""thisform.""+tmp2+"".left""
&ft
&fl
endif
**判断是否蛇撞墙或蛇头接触蛇尾**
if thisform.cmd1.left>=sewidth .or.thisform.cmd1.left<=0.or.thisform.cmd1.top>=seheight.or.
thisform.cmd1.top<=0
flag2=.T.
endif
if kk>2
fcmp=""thisform.""+tmp1+"".left=bb .and.""+""thisform.""+tmp1+"".top=cc""
if &fcmp
flag2=.T.
endif
endif
endfor
if flag2
ThisForm.Timer1.interval=0
ThisForm.jb.enabled=.T.
wait windows ""你输了！重新玩请按开始！""
thisform.timer1.interval=0
ThisForm.jb.enabled=.T.
ThisForm.command1.setfocus
return
else
if ThisForm.doin.left=thisform.cmd1.left .and.thisform.doin.top=thisform.cmd1.top
fensu=(num-numbeg+1)*ss
ThisForm.fs.caption=alltrim(str(fensu))
ThisForm.gs.caption=alltrim(str(num-numbeg+1))
thisform.addone &&增加蛇的长度
thisform.adddian &&增加青蛙
endif
endif

8.设置窗体main中command3(退出)事件
application.visible=.T.
quit
第三步：将工程“贪食蛇.prj”编译成可执行文件。
注：以上程序在Windows98+VFP6.0下测试通过。
注：以上内容均转载于“编程入门”
注：以上内容均转载于“编程入门”
注：以上内容均转载于“编程入门”

另外申请加精啦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@
等等，为什么没有吧务..........

有毒

这是我贪吃蛇的最终版本.

楼主能教我做一个简单的贪吃蛇吗？不太懂上面的代码

..............

public h
h=THISFORM.TIMER1.INTERVAL
G=THISFORM.LABEL1.LEFT
I=THISFORM.LABEL0.LEFT
P=THISFORM.LABEL1.TOP
L=THISFORM.LABEL0.TOP
a1=1
a="1"
do while a1<=ab && 蛇身位置赋值
top&a=thisform.label&a .top
left&a=thisform.label&a .left
a=allt(str(&a+1))
a1=a1+1
enddo
if mx=2
thisform.label06.caption="不可穿墙"
thisform.label06.forecolor=rgb(255,0,0)
thisform.label06.fontbold=.t.
IF G<0 or p<0
MESSAGEBOX("游戏结束",0+48,"提示")
k=MESSAGEBOX("是否重来",4+32+0,"提示")
endif
IF G>516 OR P>312
MESSAGEBOX("游戏结束",0+48,"提示")
k=MESSAGEBOX("是否重来",4+32+0,"提示")
ENDIF
if k=7
quit
endif
if k=6
thisform.release
do form d:\vfp\表单\FINALLY\贪吃蛇.scx
endif
else
thisform.label06.caption="可穿墙"
thisform.label06.forecolor=rgb(255,0,0)
thisform.label06.fontbold=.t.
do case
case p<11 and x=5
thisform.label1.top=324
case g<11 and x=19
thisform.label1.left=528
case g>515 and x=4
thisform.label1.left=-12
case p>311and x=24
thisform.label1.top=-12
endcase
endif
do case
case x=5 && 上
a="1"
a1=1
thisform.label&a .top=thisform.label&a .top-12
case x=24 && 下
a="1"
a1=1
thisform.label&a .top=thisform.label&a .top+12
case x=19 && 左
a="1"
a1=1
thisform.label&a .left=thisform.label&a .left-12
case x=4 && 右
a="1"
a1=1
thisform.label&a .left=thisform.label&a .left+12
endcase
do while a1<ab && 使蛇身随蛇头移动
a=allt(str(&a+1))
a1=a1+1
az=allt(str(&a-1))
thisform.label&a .top=top&az
thisform.label&a .left=left&az
enddo
if mx=1
a="1"
a1=1
do while a1<ab && 判断蛇头是否碰到蛇身
a=allt(str(&a+1))
if top1=top&a and left1=left&a
MESSAGEBOX("游戏结束",0+48,"提示")
k=MESSAGEBOX("是否重来",4+32+0,"提示")
exit
else
a1=a1+1
endif
enddo
if k=7
quit
endif
if k=6
thisform.release
do form d:\vfp\表单\FINALLY\贪吃蛇.scx
endif
endif
if ABS(I-G)<5 AND ABS(P-L)<5 && 蛇身吃到食物，蛇身变长
M=M+1
thisform.label02.caption=allt(str((m*10)))
bx="label"+"&ax"
thisform.AddObject("&bx","label")
thisform.&bx .caption=" "
thisform.&bx .backcolor=rgb(int(rand()*250),int(rand()*250),int(rand()*250))
thisform.&bx .width=12
thisform.&bx .height=12
thisform.&bx .left=thisform.label&a .left
thisform.&bx .top=thisform.label&a .top
thisform.&bx .visible=.t.
ax=allt(str(val(ax)+1))
ab=ab+1
do while .t. && 食物的位置 top
e=rand()*50
i=int(e)*12
if i<=516 and i>=0
THISFORM.LABEL0.LEFT=i
exit
endif
enddo
do while .T. && 食物的位置 top
e=rand()*50
l=int(e)*12
if l<=312 and l>=0
THISFORM.LABEL0.top=l
EXIT
endif
enddo
IF H>70
THISFORM.TIMER1.INTERVAL=THISFORM.TIMER1.INTERVAL-10
ENDIF
endif

楼主，有个vf设计想请你搞一下，我的企鹅：1976384456