可能是太简单了,难得有人回读了,网上一大堆.我手写,没调试：dim y%on error goto line1y=inputbox("输入年份：") 'input-inputboxif ((y mod 4)=0 and (y mod 100)0) or (y mod 400)=0 then msgbox "这是个闰年!"end...