用VB设计游戏，求方法和代码

来源：百度知道 编辑：UC知道 时间：2024/05/25 09:50:46
题目是水果大餐。
1游戏时一串垂直排列的三个水果从天自动而降。降落到底部堆积而上。
2降落过程中水果串可以左右移动以找寻合适的放置位置。可以旋转调整排列顺序。
3放置后若遇水平连续三个水果或垂直三个水果为同一品种，则将被吃掉。
4水果不停地降落，若堆积到顶部，则游戏结束。

select case dre
case -1
if imperj<>1 then imperj=imperj-1
case 1
if imperj<>big then imperj=imperj+1
case 0
big = alldown * 2 - 2 - big
change()
end select
-------------------------
do
for(row;column;;column;row?)
........
next
if(true)then eat these to have 3 score
if(false)then exit do
loop
if(maxcolumn = cols)
print "GAME OVER!"
print "Your score is "&score

要写好多代码，说方法就有太多种，才20分呀？
搜一下吧可能有好多现成的。