Question

visual basic编程，如图所示，点击右下角的窗体弹出上面两个对话框，对话框输入字符确定后

visual basic编程，如图所示，点击右下角的窗体弹出上面两个对话框，对话框输入字符确定后出现在窗体文本框中，点击计算出现右下角窗体，求大神解答，在线等

Answer 1

Day(DateSerial(年,月+1, 0))就是年月天数

Answer 2

Dim y As Integer, m As Integer
Private Sub Command1_Click()
Select Case m
Case 1, 3, 5, 7, 8, 10, 12
d = 31
Case 4, 6, 9, 11
d = 30
Case 2
If y Mod 4 = 0 And y Mod 100 > 0 Or y Mod 400 = 0 Then d = 29 Else d = 28
End Select
MsgBox (y & "年" & m & "月有" & d & "天")

End Sub

Private Sub Form_Click()
y = CInt(InputBox("请输入年号："))
Text1 = y
m = CInt(InputBox("请输入月份："))
Text2 = m
End Sub

Private Sub Form_Load()
Text1 = ""
Text2 = ""
End Sub