用vb程序编写求s=1+1/2+1/3+...1/n的值,直到1/n的值小于0.0001为止,用do while...loop语句

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 01:35:22

用vb程序编写求s=1+1/2+1/3+...1/n的值,直到1/n的值小于0.0001为止,用do while...loop语句
用vb程序编写
求s=1+1/2+1/3+...1/n的值,直到1/n的值小于0.0001为止,用do while...loop语句

用vb程序编写求s=1+1/2+1/3+...1/n的值,直到1/n的值小于0.0001为止,用do while...loop语句
Dim a As Double, i As Integer i = 1 Do While i < 10001 a = a + 1 / i i = i + 1 Loop TextBox1.Text = a 给点过路分吧