一般情况下select语句都能被if 语句代替,但是if语句要比select语句执行效率差很多
能写select尽量写select
select
case
fenlei
case " xiaoxue "
fenlei1 = " 小学 "
txtstr = replacestr(txtstr, " xuanzhong " , " #小学# " )
case " zhongxue "
fenlei1 = " 中学 "
txtstr = replacestr(txtstr, " xuanzhong " , " #中学# " )
case " daxue "
fenlei1 = " 大学 "
txtstr = replacestr(txtstr, " xuanzhong " , " #大学# " )
case " zhuanjia "
fenlei1 = " 专家 "
txtstr = replacestr(txtstr, " xuanzhong " , " #专家# " )
case " zhijiao "
fenlei1 = " 职教 "
txtstr = replacestr(txtstr, " xuanzhong " , " #职教# " )
case " jiangshi "
fenlei1 = " 讲师 "
txtstr = replacestr(txtstr, " xuanzhong " , " #讲师# " )
end select
case " xiaoxue "
fenlei1 = " 小学 "
txtstr = replacestr(txtstr, " xuanzhong " , " #小学# " )
case " zhongxue "
fenlei1 = " 中学 "
txtstr = replacestr(txtstr, " xuanzhong " , " #中学# " )
case " daxue "
fenlei1 = " 大学 "
txtstr = replacestr(txtstr, " xuanzhong " , " #大学# " )
case " zhuanjia "
fenlei1 = " 专家 "
txtstr = replacestr(txtstr, " xuanzhong " , " #专家# " )
case " zhijiao "
fenlei1 = " 职教 "
txtstr = replacestr(txtstr, " xuanzhong " , " #职教# " )
case " jiangshi "
fenlei1 = " 讲师 "
txtstr = replacestr(txtstr, " xuanzhong " , " #讲师# " )
end select