Vb题目，编写程序，ranhou在文本框中输入月份单击按钮，显示出该月份的天数？

Private Sub Command1_Click()
Dim a As String
Dim b As String
If Text1.Text = "12" Then
Print Text1.Text & "月有" & Day(DateAdd("d", -1, CDate("2009 - 1 - 1"))) & "天"
ElseIf Text1 >= 0 Or Text1.Text < 11 Then
b = Val(Text1.Text) + 1
a = "2009-" & b & "-" & "1"
Print Text1.Text & "月有" & Day(DateAdd("d", -1, CDate(a))) & "天"
End If
End Sub

Private Sub Form_Load()
Text1.Text = "12"
End Sub

Dim da As String Dim xiao As String da = "1.3.5.7.8.10.12." xiao = "4.6.9." If Text1.Text = 2 Then Print "这个月有28天" Exit Sub End If If Text1.Text = 11 Then Print "这个月有30天" End If If InStr(da, Text1.Text & ".") Then Print "这个月有31天" End If If InStr(xiao, Text1.Text & ".") Then Print "这个月有30天" End If

但是你还要设置一下 在文本框中只能输入 1到12 这些数字 否则也会出错的

给你个C的程序做参考...

VB不会呢...方法差不多的

#include<stdio.h>

void main() { int year,month,d[13]={0,31,28,31,30,31,30,31,31,30,31,30,31}; while(scanf("%d/%d",&year,&month) !=EOF) { if(year%400==0 || (year%4==0 && year%100!=0)) d[2]=29; //判断是否为润年,是的话2月为29天 printf("%d\n",d[month]);//打印输入月份的天数

d[2]=28; //恢复2月天数 } }