按条件赋值

Ycc19940822

[img]file:///D:\我的下载\个人文档\2637568957\Image\Group\`NKB[{2RGIPZ8FV]3%D]}UY.png[/img]请问这个是怎么回事？？
dim a as string
dim b as string
b= [地类名称]
if(b="园地" or b="其他园地" or b="旱地" or b="水浇地")then
a="0"
elseif(b="公路用地"or b="农村居民点" )then
a="1"
end if