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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/23 10:17:55
用vb程序编写求s=1+1/2+1/3+...1/n的值,直到1/n的值小于0.0001为止,用dowhile...loop语句用vb程序编写求s=1+1/2+1/3+...1/n的值,直到1/n的值

用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 给点过路分吧