我今晚在家想编一个小游戏，是类似于螃蟹赛跑的小游戏，让玩家下注，买哪只小螃蟹赢。 编完了才发现其中的几只螃蟹在赛跑时总是胜出，在跑的过程中竟然有的还出现后退，我改了半天都不知道原因，请高手指点！！！ 还有，请问如何解决螃蟹胜出的概率问题？？？ 部分代码： Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim n As Integer Dim a1 As Integer Dim a2 As Integer Dim a3 As Integer Dim a4 As Integer Dim a5 As Integer Dim b As Integer Dim speed As Integer While n <= 10 b = Int(10 * Rnd()) + 1 speed = 2 * (Int(5 * Rnd()) + 1) If b = 1 Then Me.PictureBox1.Left = Me.PictureBox1.Left + speed ElseIf b = 3 Then Me.PictureBox2.Left = Me.PictureBox2.Left + speed ElseIf b = 5 Then Me.PictureBox3.Left = Me.PictureBox3.Left + speed ElseIf b = 7 Then Me.PictureBox4.Left = Me.PictureBox5.Left + speed ElseIf b = 9 Then Me.PictureBox5.Left = Me.PictureBox5.Left + speed End If n = n + 1 End While End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Timer1.Enabled = True End Sub

自顶一下！！

RND函数其实是按照一定规律取值的。

建议你每一次调用rnd()的时候都初始化一下，不然都是一样的就每什么稀奇的了

[QUOTE] 建议你每一次调用rnd()的时候都初始化一下，不然都是一样的就每什么稀奇的了[/QUOTE]
用Randomize初始化

我运行了一下，好象语句有些问题，应该是Do  Loop吧
另外加一个随机种子Randomize就可以了，要不每次产
生的随机说都一样，自然速度就不会变化了。我是刚
学vb，各位高手多多指教！