Question

求：使用VB设计一个一年四季（各个季节用不同的图像表示）自动切换的程序。

Answer 1

问题出在case上，你的case 1 to 2是有问题的，1 to 2，顾名思义：1到2，当输入1.2、1.3456时也视为符合条件，应为：
Select Case Val(Text1.Text)'不要变量x了
case 1,2,12
case 3,4,5
case 6,7,8
case 9,10,11
case else
end select

简化代码如下：
Private Sub Command1_Click()
x = Val(Text1.Text)
If x < 1 Or x > 12 Or x * 10 Mod 10 <> 0 Then'当x<1或>12或为小数时提示错误。
Text2.Text = "输入无效！"
MsgBox Text2.Text, 48
Else
Text2.Text = Mid("春夏秋冬", (x + 2) \ 3, 1)
End If
End Sub

Answer 2

程序查询当前日期，根据日期来判断季节，从而根据季节自动更换图片