利用select case多分支结构完成输入年份和月份，输出该年该月有多少天数。

Option Explicit

Private Sub Command1_Click()
Dim a As Integer, b As Integer, strX As String
a = Val(InputBox("请输入年份：", "输入数据"))
b = Val(InputBox("请输入月份：", "输入数据"))
Select Case a And b
Case Is = a Mod 4 = 0 And b = 2
strX = a & "的" & "2月份有29天"
Case Is = a Mod 4 <> 0 And b = 2
strX = a & "的" & "2月份有28天"
Case Is = a Mod 4 <> 0 And b = 1 Or 3 Or 5 Or 7 Or 8 Or 10 Or 12
strX = a & "的" & b & "月份有31天"
Case Is = a Mod 4 <> 0 And b = 4 Or 6 Or 9 Or 11
strX = a & "的" & b & "月份有30天"
End Select
Form1.Print strX
End Sub
这是我做的但是Form1.Print strX不能显示
求大神指导

以后最好把自己先写一下，然后贴出来大家帮你完善，以下程序调试通过：

main(){
int y,m,d;
printf("year,month=");scanf("%d%d",&y,&m);
switch(m){
case 1:
case 3:
case 5:
case 7:
case 8:
case 10:
case 12:d=31;break;
case 4:
case 6:
case 9:
case 11:d=30;break;
case 2:if (y%4==0 && y%100!=0 || y%400==0) d=29; else d=28;
}
printf("days=%d\n",d);
}追问

上面那个就是我写的，我还是vb菜鸟，你写的太高大上，看不懂

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f2427m7p78vsq8qm8sq.html