VB6.0中输入一个数，判断该数是整数还是小数，如果是整数再判断其奇偶性，如果是小数将其四舍五入成整数怎样写代码