If n = 3 Or 4 Or 5 Then
不能这么写,应该是
If n = 3 Or n=4 Or n=5 Then
'm 月份
's 季节
dim m as int..
dim s as string
if m >=3 and m<=5 then
s="spring"
else if m >=6 and m<=8 then
s="summer"
else if m >=9 and m<=11 then
s="autumn"
else
s="winter"
endif