用VB怎么做赛马的程序？

给你个思路吧，设定5个定时器，当然也可以用一个定时器，不过先被判断的马优势比较大。用随机数，10*rand()，这样就可以每次走10以内的随机数。然后图片的X+随机数，图片就移动过去了。然后先到终于的马就胜出，接下来就是你做的处理，赔钱或收钱了，哈哈

说一下大概思路.

给定一个全局变量

end_struts，记录比骞状态,初始状态为0，表示没有一匹马到终点

给定一个全局变量，记录第一匹到终点马的编号

first_id

给定一个三个记时器.

分别控制三匹马的速度和进度.当马到终点时

该计时器停止

end_struts

=

end_struts+1

if

first_id=1

then

first_id

=该马的编号

end

if

if

end_struts=3

then

结束

end

if

--OK完成

窗体上添加2个图片，分别设置picture属性为一个兔子，一个乌龟

设置2个timer控件，用来控制兔子和乌龟的速度

在timer的timer事件中写 兔子的left变化，乌龟的left变化，就可以开始比赛了

比赛结果要划定一个终点，先到终点的先不获胜。

就这么简单

---