vb逻辑表达式 x和y中有且只有一个不为0