【VB】If语句的使用判断奇偶