VB编程 年份能被4整除但不能被100整除怎么编译