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

好了，现在遇到了第一个问题：自动随机生成方块
百度去0.0

=rand(-1)
for i=1 to 1000
x=int(rand()*100)+1
endf
?x

然后限制方块出现的位置

a=int(rand()*300)
do while a>456 or a<48
a=int(rand()*300)
if 48<a and a<480
endi
endd

现在实现了随机产生小方块。且只有一个。

但是为什么运行了之后，timer3里的代码还是不能运行呢？

不过我自己用代码写了一个计算器。过几天我会分享源码的

modify window screen font "幼圆",16 &&更改默认字体
clear &&清屏命令
a1="请输入计算类型：" &&将a1赋值为"请输入计算类型："
a2="请输入式子的前一项：" &&将a2赋值为"请输入式子的前一项："
a3="请输入式子的后一项：" &&将a3赋值为"请输入式子的后一项："
a4="结果为：" &&将a4赋值为"结果为："
x1="输入运算方式错误！" &&将x1赋值为"输入运算方式错误！"
x=1 &&将x赋值为1
b=2 &&将b赋值为2
do while b=2 &&如果b等于2循环下列命令
do while x>=1 &&如果x等于1循环下列命令
?a1 &&屏幕返回a1的值
accept""to a &&从键盘获取一个字符的值赋给a
a=left(a,1) &&将a从左边截取1给字符
if a="-" &&如果a的值不是字符-那么,运行下列命令
exit &&结束循环
else &&如果if后的表达式为假值，运行下列命令
if a="+" &&如果a的值不是字符+那么,运行下列命令
exit
else
if a="*" &&如果a的值不是字符*那么,运行下列命令
exit
else
if a="/" &&如果a的值不是字符/那么,运行下列命令
exit
else
if a="%" &&如果a的值不是字符%那么,运行下列命令
exit
else
if a="^" &&如果a的值不是字符^那么,运行下列命令
x=2
else
?x1
endif &&结束第一个if函数
endif &&结束第2个if函数
endif &&结束第3个if函数
endif &&结束第4个if函数
endif &&结束第5个if函数
endif &&结束第6个if函数
enddo &&结束第7个if函数
if x=2 &&如果x等于2，表达式为真值，运行下列命令
endif &&结束if
do case &&多分支函数
case a="" &&如果a为字符型运行下列命令
?a2 &&屏幕返回a2的值
input ""to x &&从键盘获取一个值赋给x
?a3
input ""to z
?a4
?x &a z
endcase
if x>=1
a=messagebox("是否继续执行？",4+32,"提示")
endif
do case
case a=7
return
case a=6
x=x+1
case a=2
return
endcase
endd

自己做的，可能有些繁杂。但是效果还阔以

自己做的现在能直线运动了，但是如果要是向上走的话，蛇身就散了，不知道怎么破了。