vb程序中怎样编写“y代表年份，m代表月份，输出m月有几天”这道题？

vb程序中怎样编写“y代表年份，m代表月份，输出m月有几天”这道题？

Private Sub Command1_Click()
y = Val(Text1.Text)
m = Val(Text2.Text)
Select Case m
Case 1
Print 31
Case 2
If y Mod 4 = 0 Then
Print 29
Else
Print 28
End If
Case 3
Print 31
Case 4
Print 30
Case 5
Print 31
Case 6
Print 30
Case 7
Print 31
Case 8
Print 31
Case 9
Print 30
Case 10
Print 31
Case 11
Print 30
Case 12
Print 31
End Select
End Sub

病情分析： 喝酒之后因酒精侵犯大脑皮质，而将之麻醉造成酒醉。头痛的首要元凶，就是「乙醛」，酒精分解形成的乙醛，会刺激自律神经，使血管扩张或肌肉萎缩，而引起头痛，同时酒中所含有微量杂醇油，也是导致喝酒后会头痛的因素。 指导意见： 解酒食物建议在和酒之前喝点酸奶。或者是喝完酒了喝点蜂蜜水。 病情分析： 喝酒之后因酒精侵犯大脑皮质，而将之麻醉造成酒醉。呕吐头痛的首要元凶，就是乙醛，酒精分解形成的乙醛，会刺激自律神经，使血管扩张或肌肉萎缩，而引起头痛，同时酒中所含有微量杂醇油，也是导致喝酒后会昏痛的因素。 指导意见： 不要空腹饮酒，因为空腹时酒精吸收快，人容易喝醉；食饮结合，喝酒后热水洗澡然后好好的休息下。 病情分析： 您好，这种情况主要是因为喝酒引起的，喝酒后酒精分解形成的乙醛，会刺激自律神经，使血管扩张或肌肉萎缩，而引起头痛，同时酒中所含有微量杂醇油，也是导致喝酒后会头痛的因素。 指导意见： 建议喝酒前你要先吃点东西，把胃垫一下。这样喝起酒来不会太难受。此外喝了酒以后要马上喝醋，并立即跑到厕所里拔就吐掉。涂完酒后最好是要喝一杯牛奶、咖啡、严茶等解酒的较浓的饮料，但不能喝碳酸饮料和果汁。过度严重应该喝一瓶解酒灵（各大药店都有卖）。 病情分析： 喝酒以后会引起一定的酒精中毒的反应的。就会引起头疼的情况的。 指导意见： 建议以后注意喝酒的量的控制。。在喝酒以前可以适当的喝点牛奶，减少胃对酒精的吸收的情况。 病情分析： 蜂蜜水治酒后头痛。蜂蜜中含有一种特殊的果糖，可以促进酒精的分解吸收，减轻头痛症状，尤其是红酒引起的头痛。另外，蜂蜜还有催眠作用，能使人很快入睡，第二天起床后也不会头痛。　　西红柿汁治酒后头晕。西红柿汁也富含特殊果糖，能帮助促进酒精分解，一次饮用300毫升以上，能使酒后头晕感逐渐消失。实验证明，喝西红柿汁比生吃西红柿的解酒效果更好。饮用前若加入少量食盐，还有助于稳定情绪。　　新鲜葡萄治酒后反胃、恶心。葡萄中含有丰富的酒石酸，能与酒中乙醇相互作用形成酯类物质，达到解酒目的。如果在饮酒前吃，还能有效预防醉酒。　　西瓜汁治酒后全身发热。西瓜具可以清热去火，能加速酒精从尿液中排出。　　柚子消除口中酒气。实验发现，柚肉蘸白糖吃，对消除酒后口腔中的酒气有很大帮助。