用VB编写函数fun,函数功能是:求1到m之间的偶数之积