第3章选择结构程序设计..pptVIP

* 3.5 案例5 ——龟兔赛跑 代码设计 案例设计 Private Sub Timer1_Timer() Picture1.Left = Picture1.Left + Int(Rnd * 30) Picture2.Left = Picture2.Left + Int(Rnd * 30) If Picture1.Left = Form1.Width - Picture1.Width Then Timer1.Enabled = False If Option1.Value = True Then MsgBox 你猜对了，兔子赢了！奖品是： jp, , 恭喜 Else MsgBox 你猜错了，兔子赢了！, , 抱歉 End If End If 兔子向右随机移动 龟向右随机移动 猜兔子先到 兔子先到终点 * 3.5 案例5 ——龟兔赛跑 代码设计 案例设计 If Picture2.Left = Form1.Width - Picture2.Width Then Timer1.Enabled = False If Option2.Value = True Then MsgBox 你猜对了，龟赢了！奖品是： jp, , 恭喜 Else M