如果在VB中要判断a=1,求表达式