vb循环结构计算s=1-1/2+ 1/3-1/4+……-1/100
答案:1 悬赏:60 手机版
解决时间 2021-11-17 10:47
- 提问者网友：美人性情
- 2021-11-16 23:31
vb循环结构计算s=1-1/2+ 1/3-1/4+……-1/100
最佳答案
- 五星知识达人网友：逐風
- 2021-11-17 00:26
sub test()
dim b as double
b = jisuan(100)
msgbox b
end sub
function JiSuan(a as double) as double
if a<=1 then
JiSuan=1
else if a mod 2=0 then
JiSuan=-1/a + jisuan (a-1)
else
JiSuan=1/a + jisuan(a-1)
end if
end function
dim b as double
b = jisuan(100)
msgbox b
end sub
function JiSuan(a as double) as double
if a<=1 then
JiSuan=1
else if a mod 2=0 then
JiSuan=-1/a + jisuan (a-1)
else
JiSuan=1/a + jisuan(a-1)
end if
end function
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯