Question

VB题目。。大神求解

在考生文件夹下有一个工程文件sj58.vbp，相应的窗体文件为sj58.frm。在窗体上有一个命令按钮， 其名称为Command1，标题为“输入/显示”；此外还有一个文本框，其名称为Text1，初始内容为空白。程序的功能是，程序运行后，单击命令按钮，显示输入对话框，在对话框中输入某个月份的数值（1～12）， 然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入5，将输出“5月份是夏季”，如图所示。该程序不完整，请把它补充完整。
要求：去掉程序中的注释符，把程序中的 ？改为正确的内容， 使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。

Private Sub Command1_Click()
Dim m As Integer, n As Integer
Do
n = Val(InputBox("请输入月份"))
' Loop Until ？ And n < 13
' Select Case ？
Case 1, 2, 3
m = 1
Case 4, 5, 6
m = 2
Case 7, 8, 9
m = 3
Case 10, 11, 12
m = 4
End Select
' Select Case ？
Case 1
Text1.Text = Str(n) & " 月份是春季"
Case 2
Text1.Text = Str(n) & " 月份是夏季"
Case 3
Text1.Text = Str(n) & " 月份是秋季"
Case Else
Text1.Text = Str(n) & " 月份是冬季"
End Select

Answer 1

Private Sub Command1_Click()
Dim m As Integer, n As Integer
Do
n = Val(InputBox("请输入月份"))
Loop Until n>0 And n < 13
Select Case n
Case 1, 2, 3
m = 1
Case 4, 5, 6
m = 2
Case 7, 8, 9
m = 3
Case 10, 11, 12
m = 4
End Select
Select Case m
Case 1
Text1.Text = Str(n) & " 月份是春季"
Case 2
Text1.Text = Str(n) & " 月份是夏季"
Case 3
Text1.Text = Str(n) & " 月份是秋季"
Case Else
Text1.Text = Str(n) & " 月份是冬季"
End Select
end sub