少了一个括号Private Sub Command1_Click()
Dim y%, M%
y = Val(Text1.Text)
M = Val(Text2.Text)
Print "本年为;"; y; "年"; M; "月"; IIf(Day(DateSerial(y, 3, 0)) = 29, "闰年", "不是闰年")
Print "目前还是"; Choose((M + 2) \ 3, "春", "夏", "秋", "冬"); "天"
Print "本月有; "; Day(DateSerial(y, M + 1, 0)); "天 "
End Sub
温馨提示:答案为网友推荐,仅供参考