初学者自制VB小程序，提示出错，求各位高手指点，谢谢！

就是这个输入年份T和月份N，可以求出天数X的小程序，代码如下。
Private Sub Command1_Click()
Text1.Visible = False
End Sub
Private Sub Command2_Click()
Text1.Visible = True
End Sub
Private Sub Command3_Click()
Dim X
T = InputBox("请输入年份")
N = InputBox("请输入月份")
Select Case N
Case 1, 3, 5, 7, 8, 10, 12
X = 31
Case 4, 6, 9, 11
X = 30
Case 2
If T Mod 400 = 0 Or (T Mod 4 = 0 And T Mod 100 <> 0) Then X = 29
ElseIf T Mod 400 <> 0 Or (T Mod 4 <> 0 And T Mod 100 = 0) Then X = 28
End If
End Select
TEXT1.Text=T;"年";N;"月一共有";X;"天"
End Sub

其他：错的，当Text1.Visible = False时，按钮3能有用么？
， Private Sub Command1_Click()
Text1.Visible = False
End Sub
Private Sub Command2_Click()
Text1.Visible = True
End Sub
Private Sub Command3_Click()
Dim X As Integer, t As Integer, N As Integer
t = InputBox("请输入年份")
N = InputBox("请输入月份")
Select Case N
Case 1, 3, 5, 7, 8, 10, 12
X = 31
Case 4, 6, 9, 11
X = 30
Case 2
If t Mod 400 = 0 Or (t Mod 4 = 0 And t Mod 100 <> 0) Then
X = 29
ElseIf t Mod 400 <> 0 Or (t Mod 4 <> 0 And t Mod 100 = 0) Then
X = 28
End If
End Select
Text1.Text = t & "年" & N & "月一共有" & X & "天"
End Sub 
 
 
有两个错误，第一个变量未定义，第二个最后输出的格式错误

上一个：vb 作 http 文件 下载 服务器
下一个：如何在VB中实现设一个热键，按下热键将VB的运算结果输入到别的对话框中？