作业帮 > 综合 > 作业

VB计算E的近似值循环镶嵌问题.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 07:45:16
VB计算E的近似值循环镶嵌问题.
Dim e,n,v
e = 1:v = 1:n = 1
While 1 / v > 0.00001
While 1 / v > 0.00001
v = v * n
n = n + 1
Wend
e = e + 1 / v
Wend
Label1.Caption = "e的近似值为:" & e
请帮我看看这代码那里有错,自己找了半天也找不出来,反正最后计算的结果不正确,
补充一个能计算出正确结果的单循环结构:
dim e,n,v
e=1:n=1:v=1
Do while 1/v>0.00001
v= v*n
n= n+1
e= e +1/v
loop
label1.caption=" e的近似值为:"&e
end sub
Private Sub Command1_Click()
   '如果是题目要求用循环镶嵌个人觉得应该这样写
   Dim e, n, v, n1
   e = 1: v = 1: n = 1
   While 1 / v > 0.00001
      v = 1: n1 = 1
      While n1 <= n
         v = v * n1
         n1 = n1 + 1
      Wend
      n = n + 1
      e = e + 1 / v
   Wend
   Label1.Caption = "e的近似值为:" & e
End Su