第一题Private Sub Command1_Click()c = 2007 - 1105 '公牛数d = c - 200 '公黄牛数e = 1506 - dPrint c, d, eEnd SubE=804=母黄牛数