高校问答淘宝买个钻石店铺:vb高手来编程
来源：百度文库 编辑：高校问答 时间：2024/04/26 22:05:35
求
sum=1+1/2+1/3+…+1/n，直到第n项(1/n)的值小于0.0001时为止
提示：（Loop While 1 / n >= 0.0001 ）
sum=1+1/2+1/3+…+1/n，直到第n项(1/n)的值小于0.0001时为止
提示：（Loop While 1 / n >= 0.0001 ）
Do
n = n + 1
sum = sum + 1 / n
Loop While 1 / n >= 0.0001
Print sum,n
Dim sum,n;
sum=0.0
n=1
While 1/n>0.0001
sum=sum+1/n
n=n+1;
Wend