VB 题目:编写函数fun其功能是:根据整型形参m,计算如下公式的值:y=1⼀2+1⼀4+1⼀6..+1⼀2m 程序代码帮忙下!

2024年11月22日 13:29
有1个网友回答
网友(1):

private sub fun(m as integer) as single
dim i as integer
for i=1 to m
fun=fun+1/(2*i)
next
end sub