编写函数fun其功能是：根据整型形参m,计算如下公式的值:y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)
问题描述：
编写函数fun其功能是：根据整型形参m,计算如下公式的值:y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)
' 例如：若m=9,则应输出：1.168229
要求：函数中用到的中间变量必须声明为Single类型.
在
Private Function Fun(m As Integer) As Single
'
End Function
之间编写程序
答
Private Function Fun(m As Integer) As Single
'
End Function