我今晚在家想编一个小游戏,编完了才发现~~~
我今晚在家想编一个小游戏,编完了才发现~~~
我今晚在家想编一个小游戏,是类似于螃蟹赛跑的小游戏,让玩家下注,买哪只小螃蟹赢。
编完了才发现其中的几只螃蟹在赛跑时总是胜出,在跑的过程中竟然有的还出现后退,我改了半天都不知道原因,请高手指点!!!
还有,请问如何解决螃蟹胜出的概率问题???
部分代码:
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