VB 编写函数fun, 函数的功能是:求从m到n的奇数的乘积并显示