【编写函数fun其功能是：根据整型形参m,计算如下公式的值:y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)'例如：若m=9,则应输出：1.168229要求：函数中用到的中间变量必须声明为Single类型.在PrivateFunctionFun(mAsI】

　　编写函数fun其功能是：根据整型形参m,计算如下公式的值:y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)

　　'例如：若m=9,则应输出：1.168229

　　要求：函数中用到的中间变量必须声明为Single类型.

　　在

　　PrivateFunctionFun(mAsInteger)AsSingle

　　'

　　EndFunction

　　之间编写程序