VB问题！帮我想一下哈。不懂的也可以来。

输入年月，输出这月有几天
自己试着写一下吧。要是一定要代码的话，留言好了。

写好了，留下你的QQ，我把工程和form给你发过去。

Private Sub Command1_Click()
Dim year
Dim month
Dim day

year = Text1.Text
month = Text2.Text

If month = 2 Then
If (year Mod 4 = 0) And ((year Mod 100 <> 0) Or (year Mod 400 = 0)) Then
day = 29
Else
day = 28
End If

Else
If month = 4 Or month = 6 Or month = 9 Or month = 11 Then
day = 30
Else
day = 31
End If
End If

If month >= 1 And month <= 12 And year >= 1 And year Then
Text3.Text = day
Else
Text3.Text = "Error"
End If

End Sub

电脑输出：你最喜欢的人是谁？
键盘输入：***
电脑输出：她爱你吗？
键盘输入：爱/不爱/不知道
电脑判断：
if 爱 then 电脑输出：“如果你们都深爱对方，那就好好珍惜这份感情。将来不要后悔”

else
if 不爱 then 电脑输出:"你有你的权利去爱她，追她。她也有她的权利来拒绝你，年轻人，你有两条路可以走。"