impala select into

select into
这个好像是PB中的。

---

　　这里不是不能用select case写，而是if和select case适用于不同的选择中。在这道题中，使用if显得条理很清楚，使用的语句也少。而使用select case显得太麻烦和不可理喻，请看：
rivate sub form_click()
dim year as integer, b as string
year = val(text1.text)
dim x400 as integer, x100 as integer, x4 as integer
x400 = year mod 400
x100 = year mod 100
x4 = year mod 4
select case x400
case 0
b = "闰年"
case else
select case x100
case 0
b = "不是闰年"
case else
select case x4
case 0
b = "闰年"
case else
b = "不是闰年"
end select
end select
end select
text2.text = b
end sub
简直是一材乱麻，做你这道题，我自己都快搞晕了，不过执行起来是完全正确的。已经运行过了。