51问答网 > 编vb程序计算s=1-1⼀2+1⼀3-1⼀4+.......+(-1)^(n-1)*1⼀n

编vb程序计算s=1-1⼀2+1⼀3-1⼀4+.......+(-1)^(n-1)*1⼀n

s精确到0.0001

2025-02-26 04:57:53

推荐回答（2个）

回答1：

有很多人问，真的，你可以自己搜索一下。看看，自己修改一下。

回答2：

Private Sub Command1_Click()

Dim S As Single
Dim N As Integer

N = Val(Text1)
For i = 1 To N
S = S + (-1) ^ (N - 1) * 1 / N
Next
Print "S = "; S

End Sub

最新问答

电影黑老大孝哥是什么片子

求wind-s的《gift》歌词！

x^7+x^5+1因式分解，要过程，详细点，请高手解答

如果所有的职业都被机器人取代，人类到哪领工资，失业后怎么办？

中国古代最早的语录体散文是〈--〉，最早的纪传体通史是〈--〉，最早的纪传体断代史是东汉班固的〈--〉

菊花泡水有什么作用

英超球队阿森纳的科克兰是哪国藉

Apple ID账号密码谁可以借我一些

求100％[完整又正确]皇后乐队《波西米亚狂想曲》中英文对照歌词！

c,c#,c+,c++分别用什么软件编写的