用VB， 设计一个程序，题目在补充里面

来源：百度知道 编辑：UC知道 时间：2024/05/18 18:31:22
在inputbox中任意输入2007年的某月份，求该月有多少天并用print输出（用select case语句实现或if 语句实现），如果输入的月份大于12或小于1月，则用msgbox提示:“该月份不存在”

Private Sub Command1_Click()
a = InputBox("输入月份")

Select Case a

Case "1", "3", "5", "7", "8", "10", "12": MsgBox "31天"

Case "4", "6", "9", "11": MsgBox "30天"

Case "2": MsgBox "28天"

Case Else: MsgBox "该月份不存在"

End Select

End Sub

Private Sub Command1_Click()
a = InputBox("输入月份")

Select Case a

Case "1", "3", "5", "7", "8", "10", "12": MsgBox "31天"

Case "4", "6", "9", "11": MsgBox "30天"

Case "2": MsgBox "28天"

Case Else: MsgBox "该月份不存在"