Question

设计一个输入月份显示季节的程序。（VB）啊！！！！！！！！！！

当从月份框中输入1~12时，单击“显示”按钮时显示季节名称，如果输入的数值不在1~12范围内显示“输入无效！”的提示信息。
在2011,11,1日6：00之前希望你们帮我解决完 谢谢

Answer 1

哈哈,不是我发明的,我看来的,这个发明很聪敏!
Private Sub Command1_Click()
Dim M As Integer
M = Trim(Text1.Text)
If M >= 1 And M <= 12 Then
Print Mid("春春春夏夏夏秋秋秋冬冬冬", M, 1)
Else
Print "输入无效！"
End If
End Sub

追问

为什么我的同学是分 3-5,6-9,10-11,12-2 写的呢？？？？？

追答

这个题目没有讲清楚，要你根据需要而定：
通常江浙沪地区：3，4，5为春天，6，7，8为夏天，9，10，11为秋天，12，1，2为冬天，所以我上面那个就应该用楼下的。
我一开始没有考虑地理因素，简单地认为：
1-3为春，4-6为夏，7-9为秋，而10-12为冬，确实不太科学和完美。
本例，是说发明者聪敏是因为他巧妙的运用了Mid函数，大大简化了代码。通常，这个问题会用多分支结构来完成即：
方法二：
if M>=3 and M=6 and M=9 and M<=11 Then
Print "秋"
elseif M=12 Or M=1 Or M=2 Then
Print "冬"
else
Print "输入无效！"
end if
方法三：
Select Case M
Case 3,4,5
Print "春"
Case 6,7,8
Print "夏"
Case 9,10,11
Print "秋"
Case 12,1,2
Print "冬"
Case
Print "输入无效！"
End Select
显然，用Mid函数简单得多。

Answer 2

那位仁兄。。。。。。。。。。。。。
正确的是：如果您位于北半球，那么：
Private Sub Command1_Click()
Dim M As Integer
M = Trim(Text1.Text)
If M >= 1 And M <= 12 Then
Print Mid("冬冬春春春夏夏夏秋秋秋冬", M, 1)
Else
Print "输入无效！"
End If
End Sub

追问

为什么我的同学是分 3-5,6-9,10-11,12-2 写的呢？？？？？

Answer 3

这个，只要创建三个控件，文本框，标签和按钮，在button事件中编写用if判断的语句，最后在标签上显示就行了。