1.         延时 1000 毫秒
  2.         （键盘）弹起 "Up" 键
  3.         延时 60000 毫秒
  4.         调用 Msg.Tips("跑了第" & dz_pb & "圈，每圈用时4分08秒")
  5.         令 dz_pb = dz_pb + 1
  6.     循环结束
  7. 条件结束