sub 黑猫_Click()
  if 白猫抓到了耗子 then 黑猫玩完
  do while 白猫没死
    白猫信誉=白猫信誉-黑猫想扣的值
    if 白猫信誉<0 then 白猫死亡
  loop
  msgbox "黑猫愿望已经达成!!!"
end sub