《賽跑》VB龜兔賽跑急需!!!!－明心見性、悟道的境界

VB龜兔賽跑急需!!!!

最佳解答: 'Picture1: 龜圖
'Picture2: 兔
'Command1: 開始
'Timer1
'VB6.0
Private Sub Command1_Click()
Picture1.Left = 10
Picture2.Left = 10
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Form1.Width = 10000
Form1.Height = 5000
Picture1.Picture = LoadPicture("c:\rabbit.gif")
Picture2.Picture = LoadPicture("c:\tortle.gif")
Picture1.Top = 100
Picture2.Top = 2600
Picture1.Left = 10
Picture2.Left = 10
Timer1.Enabled = False
Timer1.Interval = 10
Randomize
End Sub
Private Sub Timer1_Timer()
Static r As Integer
Picture1.Left = Picture1.Left + 5
If r = 100 Then '決定休息或續走
r = Int(Rnd() * 400)
ElseIf r r = r + 1
Picture2.Left = Picture2.Left + 25
Else
r = r - 1
End If

If Picture1.Left >= 9500 Then
Timer1.Enabled = False
MsgBox "龜贏"
End If
If Picture2.Left >= 9500 Then
Timer1.Enabled = False
MsgBox "兔贏"
End If
End Sub

龜兔賽跑,龜兔賽跑的故事,龜兔賽跑圖片,龜兔賽跑英文,賽跑遊戲,任賢齊-賽跑,奧運賽跑,賽跑英文,任賢齊賽跑歌詞,賽跑比賽,賽跑規則